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

Walney:

Retorne .F. no valid()
Não use o Private. Defina as variaveis como locais.
Use a função Seek() não o comando Seek.

* Texto1.Valid()
Local codigo
m.codigo = Alltrim(.Texto1.value)
Select produtos
If not Seek(m.codigo)
    Messagebox("Codigo não achado",48,"Codigo")
    Return .F.
Endif

HTH