Clipper On Line • Ver Tópico - Ajuda com GetBox

Ajuda com GetBox

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Ajuda com GetBox

Mensagempor Poka » 04 Nov 2007 19:29

Olá a todos

Em uma janela de entrada de dados utilizando GETBOX e com o comando ON KEY F2 ACTION funcaoqualquerl()

Quando teclo o F2 e vou para essa funcao, tem como eu saber qual campo estou?

Se alguem puder ajudar, agradeço


Poka
Avatar de usuário

Poka
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 509
Data de registro: 25 Out 2004 21:26
Cidade/Estado: Leme/SP
Curtiu: 0 vez
Mens.Curtidas: 23 vezes

Mensagempor gralak » 06 Nov 2007 11:28

Se essa função for somente para este campo valida ela com uma variavel e a utiliza como parametro para a função, para testar se faz ou não, assim só vai ocorrer se vc estiver nesse campo como por ex:

entra:=""
ON KEY F2 ACTION funcaoqualquer(entra)

@ 20,20 textbox tx_campo width 150 height 50;
ON GOTFOCUS(entra:="S");
ON LOSTFOCUS(entra:="")

function funcaoqualquer(entra)
if entra ="S"
{corpo da função}
endif
return



blzinha ... Espero ter ajudado!!!! té++++ :))
Avatar de usuário

gralak
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 232
Data de registro: 21 Mar 2007 13:28
Cidade/Estado: Cianorte/PR
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Mensagempor Luciano Bonfim » 06 Nov 2007 21:15

no clipper eu faço isso usando a funçäo readvar() que retorna o nome da variável que está sendo editada no GET, com certeza deve ter algo ter algo semelhante na GETBOX.
Muito Obrigado,

Luciano Bonfim de Azevedo
www.bonfim.com.br
luciano@bonfim.com.br
www.linkedin.com/in/lucianobonfim
Skype : lucianobonfim
Avatar de usuário

Luciano Bonfim
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 414
Data de registro: 23 Ago 2007 09:34
Cidade/Estado: Rio de Janeiro / São Paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Mensagempor 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
Avatar de usuário

Poka
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 509
Data de registro: 25 Out 2004 21:26
Cidade/Estado: Leme/SP
Curtiu: 0 vez
Mens.Curtidas: 23 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro