por Poka » 06 Nov 2007 22:19
Obrigado Gralak e Luciano por responder.
Na verdade o que eu queria é o seguinte.
No meu sistema em clipper tenho uma função de pesquisa que funciona bem .
Exemplo feito em clipper:
vcodmed:=spac(3)
vcodpaci:=spac(3)
vcodconv:=spac(3)
//arquivos paciente, medico,convenio
set key f2 to teclaf2
@ 10,10 say "codigo medico: "get vcodmed pict"@k9";
valid pesquisa("medicos")
@ 11,10 say "codigo paciente: " get vcodpaci pict"@k9";
valid pesquisa("paciente")
@ 12,10 say "codigo convenio: "get vconvenio pict"@k9";
valid pesquisa("convenio")
read
if lastkey = esc
retu nil
endif
//////////////
func teclaf2
// simula a digitação do enter
keyboard chr(13)
publ teclaf2:=.t.
retu nil
///////////////
func pesquisa(nomearq)
if ! teclaf2 // nao pediu consulta
retu nil
endif
// aqui faço a pesquisa
retu nil
Dessa maneira se foi teclado f2 é porque o usuario quer consultar, vou na funcao teclaf2 simulo o enter para sair do get e na clausula valid do get vou para a função pesquisa e consulto o arquivo referente a cada get.
Na Minigui parece não ter funcoes similares a READVAR() . LASTKEY() E KEYBOARD. Sei que dever outros meios, mas não estou conseguindo fazer.
Me parece que a função _PushKey refere-se ao Keyboard, mas não consegui fazer funcionar.
Se tiverem alguma ideia de como fazer isso com GetBox, agradeço.
Poka