A função é a seguinte:Antonio escreveu:Posta a função ou seja mais esclarecedor. Unresolved External e mais o que?
Veja se todas as funções e/ou procedures que são referenciadas no projeto, constam do mesmo.
Código: Selecionar todos
Function Main()
CLS
csenha := SPACE(10)
calgo := SPACE(10)
@01,00 SAY PADC("Kiel - Ezequiel Moraes - Exemplo para Pegar Senha",80)
@05,37 Say "Digite Algo...: " get calgo pict "@!" // apenas para mostrar
// que este nao pega *
@06,37 Say "Digite Senha..: " get csenha pict "@!"
ATAIL(GETLIST):READER := {|BL1|GETSEN(BL1)} // Pega csenha e
// mostra *
@07,37 Say "Digite Algo...: " get calgo pict "@!" // apenas para mostrar
// que este nao pega *
READ
@10,37 Say "Senha Digitada: "+csenha
INKEY(0)
CLS
Return
PROCEDURE GETSEN(P1)
LOCAL L2, L3, L4
IF GETPREVALIDATE(P1) // NOME COMPLETO
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)
GetApplyKey(P1, 42) // NOME COMPLETO
ELSEIF L2 = 8
P1:CARGO := SUBSTR(P1:CARGO(), 1, LEN(P1:CARGO()) - 1)
GetApplyKey(P1, L2) // NOME COMPLETO
ELSEIF L2 = 13 // Sai com tecla ENTER e retorna a
// senha digitada
GetApplyKey(P1, L2) // NOME COMPLETO
ELSEIF L2 = 27 // Sai com Tecla ESC e retorna vazio
GetApplyKey(P1, L2) // NOME COMPLETO
ENDIF
ENDDO
IF .NOT. GETPOSTVALIDATE(P1) // NOME COMPLETO
P1:EXITSTATE := 0
ENDIF
ENDDO
P1:KILLFOCUS()
ENDIF
IF P1:EXITSTATE() <> 7
P1:VARPUT(P1:CARGO())
ENDIF
RETURN