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