Ajuda em pesquisa

[Vander]

Como fazer o sistema processar uma pesquisa após preencher um determinado campo Ex:

Em clipper puro:
xTeste:=0
@ 10,01 say "C¢digo :" get xTeste pict "9999"
read
if xTeste = 0
return
else
sele arqdad
seek xTeste
..
..
endif
..
..

como ficaria em clipper com fivewin ?

[rochinha]

Amiguinho

ficaria assim:

Código: Selecionar todos

#include "FiveWin.ch"

//------------------------------------------------------------------------//
function Main()
   local oDlg, oBtnOK
   local cNome := space(10)
   local oGet
   DEFINE DIALOG oDlg TITLE "Just a get"
              @ 2,  2 SAY "Nome:" OF oDlg
              @ 2,  6 GET oGet VAR cNome OF oDlg SIZE 40, 10 ;
                         VALID MeuSeek( cNome, oBtnOK )

              @ 3, 07 BUTTON oBtnOK "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
              @ 3, 16 BUTTON oBtnCC "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL

              oGet:bGotFocus := { || oGet:SelectAll() }
   ACTIVATE DIALOG oDlg CENTERED ON INIT oBtnOK:Disable()
return nil

//------------------------------------------------------------------------//
function MeuSeek( oque, obtn )
    dbSelectArea( "clientes" )
    dbSeek( oque )
    if found()
       obtn:Enable() // Habilita o botão para continuar
       return .t.
    else
       MsgStop( "Nao encontrado "+oque )
       return .f.
    endif

@braços :?)