OK. É possivel que seja eu que não tinha compreendido. Eu não falo mais que o mal portunhol :)
Nesse casso sua solução (que é a mesa que a minha mas com o NODEFAULT :) funciona.
>Desculpem-me a intromissão.. Acho que está havendo um certo problema tipo "missing comunication" por "Language barrier" :)
>
>Ou, talvez eu é que não tenha compreendido corretamente..
>
>Mas.. O que eu entendi o que o Ricardo quer é exatamente ao contrário.. Ele quer desabilitar o comportamento "default" do valid do V.F.P. para Textbox..
>
>Se estou certo então a coisa ficaria:
>
>>Procedure thisform.text1.valid
>local llError, xx, lcTmpData
>lcTmpData = This.Value
>try
> xx = date(Val(Substr(lcTmpData,7)), Val(Substr(lcTmpData,4,2)), val(Left(lcTmpData,2)))
>catch
> llError = .T.
>endtry
>if llError
> * data inválida
> nodefault
>endif
>