problema con busqueda incremental en xbrowse
Posted: Thu Jan 30, 2020 7:48 pm
Gente:
Tengo este problema hace tiempo que aun no logro resolver
en la busqueda incremental si digito una cadena a buscar que exista, el filtro trabaja ok pero basta que a mi cadena buscada le agregue mas texto que ya no coincida con los elementos filtrados para que la ventana de datos del xbrowse desaparezca todo quedándose vació.
mi problema puede ser la version fw13.1 con la que trabajo? abajo hay un gif con el que trato de explicar lo que me sucede en pantalla
codigo fuente:
link de mi xbrowse.prg
https://www.dropbox.com/s/2gpxi1mxfayo4 ... e.prg?dl=0
Gracias
Tengo este problema hace tiempo que aun no logro resolver
en la busqueda incremental si digito una cadena a buscar que exista, el filtro trabaja ok pero basta que a mi cadena buscada le agregue mas texto que ya no coincida con los elementos filtrados para que la ventana de datos del xbrowse desaparezca todo quedándose vació.
mi problema puede ser la version fw13.1 con la que trabajo? abajo hay un gif con el que trato de explicar lo que me sucede en pantalla
codigo fuente:
Code: Select all
oRs := TOleAuto():New( "ADODB.RecordSet" )
WITH OBJECT oRs
:ActiveConnection := oConnect
:Source := "SELECT Ruc,Ng,Di,Lo,Nf,Lf,Directi,codubi,TipIde,De, ubigeo,Dpto,Prov, Distri,Urb,Email,Te,modo, Codigo from Mcodi where codusu = '"+cUsuCod+"'"
:CursorLocation := adUseClient
:CursorType := adOpenStatic
:LockType := adLockOptimistic
:Open()
END
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12
DEFINE DIALOG oDlg SIZE 750,300 PIXEL FONT oFont ;
TITLE "XBrowse Incremental Filters"
@ 30,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
DATASOURCE oRs ;
COLUMNS "Codigo","Ng","RUC","Te","Di","Lo","Nf" ;
HEADERS "CODIGO" ;
,"RAZÓN SOCIAL" ;
,"NO. IDENT." ;
,"TELÉFONOS" ;
,"DIRECCIÓN" ;
,"LOCALIDAD" ;
,"DIR.ENT." ;
AUTOSORT CELL LINES NOBORDER
oBrw:lIncrFilter := .t.
oBrw:lSeekWild := .t.
oBrw:cFilterFld := "NG"
oBrw:nStretchCol := STRETCHCOL_WIDEST
@ 11,160 SAY oBrw:oSeek PROMPT oBrw:cSeek SIZE 200,10 PIXEL ;
OF oDlg COLOR CLR_BLACK,CLR_YELLOW PICTURE '@!'
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTERED ON INIT ( oBrw:SetFocus(), .f. )
https://www.dropbox.com/s/2gpxi1mxfayo4 ... e.prg?dl=0
Gracias