Teclas SET KEY não funcionam....

[rbonotto]

Ola, mudei recentemente para o Clipper5.2e e Blinker 7.0 e estou refazendo ums codigos. Mas as teclas de atalho set key não funcionan...

coloquei assim:

Código: Selecionar todos

SET KEY K_F11    TO CALENDARIO(PROCNAME())
SET KEY K_ALT_F2 TO PROTG
SET KEY K_ALT_F1 TO bv_po
SET KEY K_ALT_C  TO FIN2(PROCNAME())
SET KEY K_F12    TO CALCULADORA
SET KEY K_F5     TO print_fone()

Nenhuma chama uma LIB, são todas funções bem simples, tipo:

Código: Selecionar todos

****************************************
FUNCTION print_fone()
****************************************
IF !cOmprOt
   RETURN
END
SET DEVICE TO PRINT
@ PROW()+1,02 SAY REPL('_',30)
@ PROW()+2,12 SAY fIrma
@ PROW()+1,02 SAY cLimt
@ PROW()+2,02 SAY REPL('_',30)
@ PROW() + _eJeTa,01 SAY ' '
SET DEVICE TO SCREEN

Mas o programa necas de chamar, não daeero mas não faz nada também....

[SandroBelarmino]

Boa tarde, experimenta incluir no início do seu prg principal a seguinte linha:

Código: Selecionar todos

#INCLUDE "INKEY.CH"

Abraços.

[alxsts]

Olá amigos!

realmente muito estranho... Creio que provavelmente voce já esteja fazendo o #Include "Inkey.Ch" senão, daria erro em tempo de execução. Será que após voce fazer os Set Key não está passando por algum ponto onde ele faça o Set Key TO?

[]s
AlxSts

[rbonotto]

Descobri...é a rotina do meu menu que testa as teclas antes e da um retorno....

La vai mais umas boas horas para resolver...