FoxPro/Visual FoxPro - PARA LOS EXPERTOS EN GRID !! Podrían ayudarme ?

Tengo un formulario con unos combos y textbox.
Y abajo de éstos una GRID. Porque quiero alimentar una tabla
de movimientos para productos que ya existan en una bodega.
Para esto he colocado éste código en el GRID :

LOSTFOCUS de la textbox de la columna de CODIGO DE PRODUCTO :
* Verifica que el producto exista en el inventario
gcmbod=THISFORM.combo2.VALUE && Código de la Bodega
lcmprod=THISFORM.grid1.gcproducto.text1.VALUE && Código de producto
SELECT productos
SET ORDER TO codprod
llreg=RECNO()
KEY=gcmbod+lcmprod && Variables concatenadas de bodega y produc.
SEEK KEY
IF FOUND() AND RECNO() <> llreg
THISFORM.grid1.gcentradas.text1.SETFOCUS()
THISFORM.REFRESH()
ELSE
=MESSAGEBOX("Codigo No existe",0,"ATENCION")
=TABLEREVERT(.T.)
GO BOTTOM
THISFORM.REFRESH()
ENDIF

Además tengo esto en :
LOSFOCUS de textbox "Descripción". (Después está la GRID)
SELECT movim
THISFORM.grid1.gcproducto.SETFOCUS()

La cuestión es que al dar click al botón de GUARDAR se muestra el
mensaje : "Codigo No existe" aunque el código ya exista.
Y la información se graba de todos modos a excepción del campo de
código de producto.

QUE ESTOY HACIENDO MAL ?? Muchas gracias por su ayuda.

Botón de ADICIONAR
SET MULTILOCKS ON
CURSORSETPROP("BUFFERING",5,ALIAS())
SELECT movim
APPEND BLANK
THISFORM.opc_adic

Botón de GUARDAR
SET MULTILOCKS ON
CURSORSETPROP("BUFFERING",5,ALIAS())
SELECT movim
=TABLEUPDATE(.T.)

Tu procedimiento debe estar en el metodo VALID no el LOSTFOCUS,