Tengo el siguiente código de un xBrowse:
Code: Select all
REDEFINE GET aGets[ 4] VAR nIrA ID 104 OF oDlg UPDATE;
PICTURE "@Z 9999999";
VALID IrA(nIrA,oBrw,aGets);
MESSAGE "Teclee el folio que desea localizar"
REDEFINE XBROWSE oBrw ID 200 OF oDlg;
DATASOURCE oRsHdr ;
COLUMNS "HDR_SER", "HDR_FAC", "Date2Txt(HDR_FDE)", "HDR_CLI", "CLI_NOM", "HDR_PRO", "HDR_REF", "HDR_TOU", "HDR_TOT","HDR_CAN" ;
HEADERS "Ser","Folio", "Emitida", "Cliente","Nombre o Razón Social","Proyecto","Referencia","Unidades","Importe","Can";
COLSIZES 45,60,80,50,130,75,100,100,110,40;
PICTURES NIL,"@Z 9999999",NIL,"@Z 99999",NIL,NIL,NIL,"@Z 99,999.999","@Z 99,999,999,999.99",NIL;
JUSTIFY {AL_LEFT,AL_RIGHT,AL_RIGHT,AL_RIGHT,AL_LEFT,AL_LEFT,AL_LEFT,AL_RIGHT,AL_RIGHT,AL_CENTER};
FOOTERS AUTOSORT BACKGROUND "Lineas"
WITH OBJECT oBrw
:l2007 := (.F.)
:lHScroll := (.F.)
:lVScroll := (.F.)
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:nColDividerStyle := LINESTYLE_LIGHTGRAY
:nRowDividerStyle := LINESTYLE_LIGHTGRAY
:nStretchCol := STRETCHCOL_WIDEST
:nHeaderHeight := 25
:nRowHeight := 22
:nFooterHeight := 25
:bClrHeader := { || {CLR_WHITE,CLR_BLACK} }
:bClrFooter := { || {CLR_WHITE,CLR_BLACK} }
:bClrSel := { || IF( oBrw:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
:bClrSelFocus := { || {oApp:nFClrFocus,oApp:nBClrFocus} }
:bClrStd := { || IF( oBrw:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
:nRecSelColor := oApp:nRowParClr
:lDisplayZeros := (.F.) // zero values are not displayed. Added by GNRao. No need to use @Z
:blDblClick := { | nRow, nCol, nKey | (Editar(oBrw,(.F.)),oBrw:SetFocus())}
:bKeyDown := { | nKey, nFlags | IIF(nKey == VK_RETURN,(Editar(oBrw,(.F.)),oBrw:SetFocus()),)}
WITH OBJECT :aCols[01]
:cOrder := "A"
END
WITH OBJECT :aCols[10]
:SetCheck( { "SI","NO" } )
END
END
ACTIVATE DIALOG oDlg NOWAIT ON INIT (oDlg:MOVE(0,0),oBrw:SetFocus()) VALID ! GetASyncKey(VK_ESCAPE)
ACTIVATE WINDOW oWnd ON INIT (oWnd:SETSIZE(oDlg:nWidth+15,oDlg:nHeight+29)) VALID Cierra()
El problema es que al entrar al dialogo el Browse Toma el Foco, y es correcto, pero si quiero con el
botón izquierdo del ratón dar clic al control EDIT, el Browse no suelta el foco y no puedo pasar al control EDIT.
Uso FWH1711 y xHarbour.
Alguna sugerencia??
Saludos