Não estou conseguindo usar a função Help (F1) quando uso o VLREAD.
Compilo com HBMAKE e a Lib.Graf: GTWVW
Tem alguma solução?
Grato,
Lócio
Como usar Help (F1) com VLREAD
Moderador: Moderadores
-
alxsts
- Colaborador

- Mensagens: 3100
- Registrado em: 12 Ago 2008 15:50
- Localização: São Paulo-SP-Brasil
Re: Como usar Help (F1) com VLREAD
Olá!
Caro Locio:
este fórum dispõe do recurso de busca que, por sinal, é muito bom. Procure utilizá-lo. Foi através dele que, na tentativa de ajudar a resolver a questão, descobri que em 18 Ago 2009 17:42 você postou esta mesma dúvida, a qual foi respondida pelo colega Leonardo (sygecom) em 22 Ago 2009 11:11. Veja os tópicos citados aqui.
Caro Locio:
este fórum dispõe do recurso de busca que, por sinal, é muito bom. Procure utilizá-lo. Foi através dele que, na tentativa de ajudar a resolver a questão, descobri que em 18 Ago 2009 17:42 você postou esta mesma dúvida, a qual foi respondida pelo colega Leonardo (sygecom) em 22 Ago 2009 11:11. Veja os tópicos citados aqui.
[]´s
Alexandre Santos (AlxSts)
Alexandre Santos (AlxSts)
Re: Como usar Help (F1) com VLREAD
Eu faço assim, Lócio...
Neste exemplo, abaixo, em tempo de execução, basta Teclar f4 no get/read do campo ativado...
No seu caso, basta vc trocar -3 (do F4), pelo corresponmdehte a F1, que a coisa funcionará da mesma forma...
set key -3 to vFuncao
@ l,c say " Codido..:" get Tcodigo pict "999" valid .....
Vlread
If lastkey()=27
loop
Endif
.
.
*----------------------
Function vFuncao
*----------------------
use ou dbedit, ou tbrowse, retornando o campo tcodigo ativo no get
.
retu .t.
Gabriel
Neste exemplo, abaixo, em tempo de execução, basta Teclar f4 no get/read do campo ativado...
No seu caso, basta vc trocar -3 (do F4), pelo corresponmdehte a F1, que a coisa funcionará da mesma forma...
set key -3 to vFuncao
@ l,c say " Codido..:" get Tcodigo pict "999" valid .....
Vlread
If lastkey()=27
loop
Endif
.
.
*----------------------
Function vFuncao
*----------------------
use ou dbedit, ou tbrowse, retornando o campo tcodigo ativo no get
.
retu .t.
Gabriel
lugab
