FoxPro/Visual FoxPro - Perdon la Insistencia, parte del codigo

PROCEDURE guarda

SELECT entsal
GO top
browse
APPEND BLANK
browse
IF !SEEK(frmentsal.pageframe1.page1.TxtCCVEPROD.Value,'entsal',2)
= MESSAGEBOX('La entrada del producto NO existe,se procederá a guardarla',48,'DISTRIBUIDORA MARIA ISABEL')
REPLACE EntSal.ccveprod WITH FrmEntSal.Pageframe1.page1.TxtCCVEPROD.Value,;
EntSal.CIDENENT WITH FrmEntSal.Pageframe1.page1.TxtCIDENENT.Value,;
EntSal.CDESCPROD WITH FrmEntSal.Pageframe1.page1.TxtCDESCPROD.Value,;
EntSal.CMARCAPROD WITH FrmEntSal.Pageframe1.page1.TxtCMARCAPROD.Value,;
EntSal.CPRESPROD WITH FrmEntSal.Pageframe1.page1.TxtCPRESPROD.Value,;
EntSal.DFECENT WITH FrmEntSal.Pageframe1.page1.TxtDFECENT.Value,;
EntSal.DFECCAD WITH FrmEntSal.Pageframe1.page1.TxtDFECCAD.Value,;
EntSal.CCANTENT WITH FrmEntSal.Pageframe1.page1.TxtCCANTENT.Value,;
EntSal.CCANTSAL WITH FrmEntSal.Pageframe1.page2.TxtCCANTSAL.Value
browse
ENDIF

RETURN

Pon un
GO BOTTOM
despues del Messagebox y cuando termine con el Replace
FLUSH