FiveTech Support Forums

#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"

      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