Uso de teclas de função

[lczani]

Boa noite
estou tentando usar teclas de funcao em m sistema que estou transformando para harbour com minigui gui+console
em algumas telas modo console nao consigo usar teclas de funcao como resolver.
Error: Unresolved external '_HB_FUN_SETKEYTABLE' referenced from C:\MINIGUI\FATURA\OBJ\KITS.OBJ

[Toledo]

Seu primeiro tópico, então seja bem-vindo!

Amigo, se for possível, poste um exemplo do código que está usando, onde ocorre o erro.

Pela mensagem de erro, no seu código você está usando a função SETKEYTABLE e o compilador não está encontrando esta função.

Abraços,

[lczani]

Código: Selecionar todos

#include "PTVERBS.CH"
#include   "Inkey.ch"
Static lRetorno := { | nCodigo | LastKey() == 27 }
Static GetList := {}, nContador, aPrc := { "@E 999.99", "@E 99.999" }, Hora

Memva aItens, dDataInicial, nNumKit, cNomeUsu, mTela, emRede, cPriLinha,;
      aLiga, aDesliga, nImpressora, aEmpresa, NaoMuda, nTotalKit, cUltLinha

/*****************************************************************************
 Cadastrar KIT
*****************************************************************************/
Proc Kit_Cad
     SetMode( 50, 80 )
     Cls
     aItens := Array( 98 )
	 AbreArqKit(.t.)	 
	 SETKEY(K_F6, {|| MSG()})

     Do WHil .T.
        AREA( "ARQ_KIT", 01 ) // seleciona a area e o indice
        TelaKit( "CADASTRAR KIT", .T. )

        nNumKit := nTotalKit := 00

[Toledo]

Amigo, no código que você postou não está sendo usado a função SETKEYTABLE que gerou a mensagem de erro que está na sua mensagem inicial. Então esta função pode estar sendo chamada dentro do arquivo PTVERBS.CH, que você está chamando no início do seu código, ou em alguma outra parte do seu PRG.

Observei apenas que você usa SETKEY(K_F6, {|| MSG()}), que é aceito pelo Harbour sem problema algum, então não seria a causa da mensagem de erro.

Abraços,

[lczani]

Grato pela ajuda.