Problema no GET

david.miguel · Mensagem por **david.miguel** » 16 Out 2006 10:32

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

Mensagem por **gvc** » 16 Out 2006 10:42

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

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

david.miguel · Mensagem por **david.miguel** » 16 Out 2006 12:38

Continua dando erro: Base/1077 Argument error: .NOT.

Mensagem por **gvc** » 16 Out 2006 13:21

A função que vc coloca no VALID deve retornar .T. ou .F.
A função alert() retorna um número.

Grings · Mensagem por **Grings** » 16 Out 2006 15:17

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.)