Página 1 de 1
Ajuda em pesquisa
Enviado: 28 Dez 2005 21:23
por 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 ?
Enviado: 29 Dez 2005 00:30
por 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 :?)