erro com os comandos GETPREVALI, GETAPPLYKE e GETPOSTVAL

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

mhfferreira
Usuário Nível 1
Usuário Nível 1
Mensagens: 8
Registrado em: 01 Nov 2010 16:02
Localização: parana

erro com os comandos GETPREVALI, GETAPPLYKE e GETPOSTVAL

Mensagem por mhfferreira »

Boa noite pessoal...

Estou compilando meu programa com o xharbour... e vários prg já funcionaram...
Estou com o seguinte problema...
Tenho a seguinte função que utilizo para digitar o campo senha...

Código: Selecionar todos

PROCEDURE GETSEN(P1)
          IF GETPREVALI(P1)
             P1:SETFOCUS()
             P1:CARGO := ""
             DO WHILE P1:EXITSTATE() == 0
                IF P1:TYPEOUT()
                   P1:EXITSTATE := 5
                ENDIF
                DO WHILE P1:EXITSTATE() == 0
                   L2 := INKEY(0)
                   IF L2 >= 32 .AND. L2 <= 255
                      P1:CARGO := P1:CARGO() + CHR(L2)
                      GETAPPLYKE(P1, 42)
                   ELSEIF L2 = 8
                          P1:CARGO := SUBSTR(P1:CARGO(), 1, LEN(P1:CARGO()) - 1)
                          GETAPPLYKE(P1, L2)
                   ELSEIF L2 = 13
                          GETAPPLYKE(P1, L2)
                   ELSEIF L2 = 27
                          GETAPPLYKE(P1, L2)
                   ENDIF
                ENDDO
                IF .NOT. GETPOSTVAL(P1)
                   P1:EXITSTATE := 0
                ENDIF
             ENDDO
             P1:KILLFOCUS()
          ENDIF
          IF P1:EXITSTATE() <> 7
             P1:VARPUT(P1:CARGO())
          ENDIF

RETURN
*******************************************************************************
na compilação com o xharbour, está dando os seguintes erros...
Unresolved external '_HB_FUN_GETPREVALI' referenced from d:\trab\fontes\obj\sl_proc.obj
Unresolved external '_HB_FUN_GETAPPLYKE' referenced from d:\trab\fontes\obj\sl_proc.obj
Unresolved external '_HB_FUN_GETPOSTVAL' referenced from d:\trab\fontes\obj\sl_proc.obj

como faço pra ele reconhecer estas 3 funções?

Obrigada
Avatar do usuário
Jairo Maia
Moderador
Moderador
Mensagens: 2785
Registrado em: 16 Ago 2010 13:46
Localização: Campinas-SP

erro com os comandos GETPREVALI, GETAPPLYKE e GETPOSTVAL

Mensagem por Jairo Maia »

Olá mhfferreira,

A diferença é que o Clipper usa no máximo 10 caracteres para variáveis e funções, por isso sua função funciona em Clipper. Porém no [x]Harbour, você precisa colocar o nome completo das funções que são:

Código: Selecionar todos

GETPREVALIDATE()
GETAPPLYKEY()
GETPOSTVALIDATE()
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
mhfferreira
Usuário Nível 1
Usuário Nível 1
Mensagens: 8
Registrado em: 01 Nov 2010 16:02
Localização: parana

erro com os comandos GETPREVALI, GETAPPLYKE e GETPOSTVAL

Mensagem por mhfferreira »

Obrigada Jairo... isto mesmo...
este é o problema do clipper... a gente "come" os comandos e depois nem se toca que o nome correto tem continuação...

valeu...
Responder