PC Toledo

Código: Selecionar todos

#Include "hwgui.ch"

FUNCTION pesq_fis()

 LOCAL  vEdit1 := "" , vCombo1 := 1
 LOCAL oDlg, oGroup1, oEdit1, oCombo1, oGridex1, aItems :={}, aCli :={}

 go Top
 while !eof()
  aadd(aItems,{COD,NOME,CPF})
  skip
 enddo

 INIT DIALOG oDlg CLIPPER NOEXIT NOEXITESC TITLE "Consultar Clientes" ;
   AT 0,134 SIZE 552,358 ;
   STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER 

   @ 13,13 GET oEdit1 VAR vEdit1 SIZE 369,22     ;
        VALID  {|| Pega_Cli() } ;
        ON CHANGE {|| Pesq_Cli() }
   @ 394,13 GET COMBOBOX oCombo1 VAR vCombo1 ;
        ITEMS {"Nome do Cliente","Número CPF"}  ;
        SIZE 143,24    ;
        ON CHANGE {|| Setar_Ord() }
   @ 12,50 GRIDEX oGridex1 OF oDlg SIZE 525,292 ;
           ITEMS aItems ;
           ON KEYDOWN {|oCtrl, key| OnKey_Cli(oCtrl, key) } ;
           ON CLICK {|oCtrl| OnClick_Cli(oCtrl) } ;
           STYLE WS_VSCROLL + WS_HSCROLL

           oGridex1:AddColumn( "Codigo", 70, , )
           oGridex1:AddColumn( "Nome", 160, , )
           oGridex1:AddColumn( "CPF", 120, , )

           for n:=1 to len(aItems)
               oGridex1:addrow( {aItems[n,1], , , } )
               oGridex1:addrow( {aItems[n,2], , , } )
               oGridex1:addrow( {aItems[n,3], , , } )
           next

   @ 4,-2 GROUPBOX oGroup1 CAPTION ""  SIZE 544,355 ;
        STYLE BS_LEFT   

   ACTIVATE DIALOG oDlg 

RETURN Nil