problema con busqueda incremental en xbrowse

problema con busqueda incremental en xbrowse

Postby artu01 » 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


Image



codigo fuente:
Code: Select all  Expand view  RUN

        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
fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
artu01
 
Posts: 400
Joined: Fri May 11, 2007 8:20 pm
Location: Lima

Re: problema con busqueda incremental en xbrowse

Postby karinha » Thu Jan 30, 2020 8:20 pm

Intenta:

Code: Select all  Expand view  RUN

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


Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7854
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: problema con busqueda incremental en xbrowse

Postby artu01 » Fri Jan 31, 2020 12:38 am

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
fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
artu01
 
Posts: 400
Joined: Fri May 11, 2007 8:20 pm
Location: Lima


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Danielmaximiliano, Google [Bot] and 20 guests