Não precissa SetFocus(). Só precissa RETURN .F. dentro do Valid().

HTH,

Hilmar.

>Bom dia...
>
>No foxpro 2.6 eu executava o seguinte para verificar se o codigo do produto existe.
>
>@ 1,1 say "digite o codigo" get m.codigo valid VerCod() pict "999999"
> read
>
>ae se nao existir volto para este campo, mais tento fazer isso no VFP e ele não volta, tipow
>
>em meu texbox no evento valid eu faço assim;
>
>with thisform
>
> priv codigo
>
> m.codigo=.Texto1.value &&codigo digitado do cadastro de produtos
>
> sele produtos
> seek alltrim(m.codigo)
>
> if not found()
> wait wind "Codigo não achado"
> .Texto1.Setfocus && ae não volta para ca, da erro porque ?
> Endif
>
>
>Endwith
>
>
>Bem ae o sistema não volta o Texto1 com o Setfocus, porque ?
>
>tipo assim de nao existir nao quero deixar passar para o proximo texbox, como faz isso no VFP 6.0 ?
>
>e alguem pode me dar um exemplo de como inserir dados no PDV com insert sql em vez de Replace, que hoje faço assim.
>
>Atenciosamente
>Walney
>www.brasilvision.com.br/walney