problema con busqueda incremental en xbrowse

[artu01]

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:

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. )

 

link de mi xbrowse.prg

https://www.dropbox.com/s/2gpxi1mxfayo4 ... e.prg?dl=0

Gracias

[karinha]

Intenta:

Code: Select all

   ACTIVATE DIALOG oDlg CENTERED                                             ;
            ON INIT ( oBrw:cSeek( "" ), oBrw:SetFocus(), .F. )
 

Saludos.

[artu01]

Gracias Joao pero no funciona tu sugerencia
Con dbf no tenia este problema pero con ADO usando datasource en el xbrowse puese desaparece mi filtro cuando tipeo algo que no existe
Podria ser que mi problema sea el xbrowse.prg, habrá alguien que tenga el fw13.01 y puedo probar mi código


Gracias