PC Toledo

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

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

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

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

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

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