Busqueda Incremental tDolphin xBrowse

[pablovidal]

Saludos,

algun ejemplo de la busqueda incremental en un txbrowse con tdolphin

[Daniel Garcia-Gil]

Pablo

tomado de los ejemplo de dolphin

Code: Select all  Expand view

#include "fivewin.ch"
#include "xbrowse.ch"
#include "tdolphin.ch"


FUNCTION Main()
 
   LOCAL oServer, oDlg, oQry, oBrw
 
   D_SetCaseSensitive( .T. )
   
   IF ( oServer := ConnectTo() ) == NIL
      RETURN NIL
   ENDIF
   
   oQry = oServer:Query( "SELECT * FROM customer ORDER BY FIRST" )
   
   DEFINE DIALOG oDlg  SIZE 565, 480
   
   @ 30, 10 XBROWSE oBrw OBJECT oQry ;
            AUTOCOLS AUTOSORT PIXEL SIZE 260, 200
   
   @ 10,10 say oBrw:oSeek prompt "" pixel size 300, 15
   
// Uncomment this line for fivewin version < 10.7  
//   SetDolphin( oBrw, oQry )
   
   oBrw:CreateFromCode()
     
   ACTIVATE DIALOG oDlg CENTERED
   
   
RETURN NIL

#include "connto.prg"
#include "setbrw.prg"  

 

[pablovidal]

Daniel Muchas Gracias

Todo estaba ahi, aveces uno no ve lo que mas cerca tiene

[MarioG]

Les envio un sentido deseo de que hayan dsfrutado de la Navidad (a quienes la festejan)

Retomo este tema por lo siguiente:
Tengo declarado el xBrowse así:

Code: Select all  Expand view

     REDEFINE XBROWSE oBrwCI ID 200 OF oDlg AUTOSORT //AUTOCOLS

      WITH OBJECT oBrwCI
         :lSeekWild          := TRUE
         :lAutoSort           := TRUE
         :l2007              := TRUE

         :Setdolphin( oQryCI,, TRUE )
      END

      // Columnas
      WITH OBJECT oBrwCI:id_ins
         :cHeader:= "IDInsumo"
         :nWidth:= 60
         :bStrData:= {|| StrZero( oQryCI:FieldGet( 1 ),7 ) }
      END
      WITH OBJECT oBrwCI:desc_ins
         :cHeader:= "Descripción"
      END
 

Cuando me posiciono sobre la columna Descripción, la búsqueda incremental se realiza satisfactoriamente. Ahora como la columna IDInsumo es numerica (rellenado con Zerofill), ya no puedo realizar tal tipo de búsqueda.
Como la puedo implementar? (si perder la de la columna descripcion)

gracias