Problema no GET

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

david.miguel
Usuário Nível 1
Usuário Nível 1
Mensagens: 34
Registrado em: 07 Jul 2005 11:50

Problema no GET

Mensagem por david.miguel »

Ola,

Estou com problema neste código do meu programa, alguem pode me ajudar ?

cVar := cCampo
cPict := "@!"
cValid := Alert("TESTE")

@ nLin, nCol GET &cVar PICT cPict VALID &cValid
READ

Desde já obrigado
:(
Avatar do usuário
gvc
Colaborador
Colaborador
Mensagens: 1270
Registrado em: 23 Ago 2005 10:57

Mensagem por gvc »

cVar := cCampo
cPict := "@!"
cValid := 'Alert("TESTE")'

@ nLin, nCol GET &cVar. PICT cPict VALID &cValid.
READ
"TRS-80/Sincler/Apple/PC - Clipper Winter 85, tlink 1.0 [pc 10 MHz - 640K] {NEZ 8000 2Kb RAM}"
{POG - Programação Orientada a Gambiarra}
david.miguel
Usuário Nível 1
Usuário Nível 1
Mensagens: 34
Registrado em: 07 Jul 2005 11:50

Mensagem por david.miguel »

Continua dando erro: Base/1077 Argument error: .NOT.
Avatar do usuário
gvc
Colaborador
Colaborador
Mensagens: 1270
Registrado em: 23 Ago 2005 10:57

Mensagem por gvc »

A função que vc coloca no VALID deve retornar .T. ou .F.
A função alert() retorna um número.
"TRS-80/Sincler/Apple/PC - Clipper Winter 85, tlink 1.0 [pc 10 MHz - 640K] {NEZ 8000 2Kb RAM}"
{POG - Programação Orientada a Gambiarra}
Grings
Usuário Nível 3
Usuário Nível 3
Mensagens: 340
Registrado em: 18 Ago 2004 13:51

Mensagem por Grings »

cVar :=cCampo
cPict := "@!"

@ nLin, nCol GET cVar PICT cPict VALID cValid(cVar)
READ

Function cValid(cTeste)
If cTeste==Space(40)
Alert("TESTE")
Return(.F.)
EndIf
Return(.T.)
Responder