Holas....
tengo un XBROWSE donde realizo una busqueda incremental, y un COMBOBOX don cambio el index, por lo que cuando realizo el cambio debo colocar la variable de busque en 0 (cero)...
aqui mi pregunta, como poner a 0 (cero) dicha variable de busqueda.
muchas gracias
david
tengo un XBROWSE donde realizo una busqueda incremental, y un COMBOBOX don cambio el index, por lo que cuando realizo el cambio debo colocar la variable de busque en 0 (cero)...
aqui mi pregunta, como poner a 0 (cero) dicha variable de busqueda.
muchas gracias
david
DBSELECTAREA( CUENTAS )
@ 0.875,1 XBROWSE oBrw ;
FIELDS (CUENTAS)->CT_NOMB ,;
TRANSFORM((CUENTAS)->CT_CUIT,'@Z 99-99999999-9') ,;
(CUENTAS)->CT_NOMF ,;
TRANSFORM((CUENTAS)->CT_CODI,'99999999') ;
HEADERS 'Nombre' ,;
'C.U.I.T.' ,;
'Nombre Fiscal' ,;
'Cuenta' ;
SIZES 250,80,250,80 ;
SIZE 240,170 ;
ALIAS CUENTAS ;
AUTOSORT CELL LINES NOBORDER ;
Of oDlgBus ;
ON DBLCLICK ( If( Ops_Selc=0 , oDlgBus:End() , ) )
oBrw:nRowDividerStyle = LINESTYLE_NOLINES
oBrw:nColDividerStyle = LINESTYLE_BLACK
oBrw:nMarqueeStyle = MARQSTYLE_HIGHLROW
WITH OBJECT oBrw
:lIncrFilter := .t.
:lSeekWild := .t.
:CreateFromCode()
END
@ 12.5,1 SAY oBrw:oSeek PROMPT oBrw:cSeek SIZE 200,10 Of oDlgBus ;
COLOR CLR_BLACK,RGB(207,222,244)
* 123456789 123456789 123456789 123456789 123456789 1
mCbxORDEN:={'Cuenta 1',;
'Nombre 2',;
'Nombre Fiscal 3',;
'C.U.I.T. 4'}
cCbxORDEN:=mCbxORDEN[2]
@ 13.5, 1 SAY 'Orden' Of oDlgBus
@ 14.5, 5 COMBOBOX oCbxORDEN ;
VAR cCbxORDEN ;
PROMPTS mCbxORDEN ;
SIZE 80,80 ;
ON CHANGE (If(substr(cCbxORDEN,51,1)='1' , (CUENTAS)->(ORDSETFOCUS(1)) ,;
If(substr(cCbxORDEN,51,1)='2' , (CUENTAS)->(ORDSETFOCUS(2)) ,;
If(substr(cCbxORDEN,51,1)='3' , (CUENTAS)->(ORDSETFOCUS(4)) ,;
(CUENTAS)->(ORDSETFOCUS(5)) ))) ,;
(CUENTAS)->(DbGoTop()) ,;
SetFocus( oCbxORDEN:oJump:=oBrw ) ,;
.t.)