FoxPro/Visual FoxPro - UNICIDAD DE CODIGO

Porque VFP muestra el mensaje de "SE INFRINGE UNICIDAD DE CODIGO", a pesar de que al inicio del programa desde donde corro el formulario he colocado un SET TALK OFF.

Si coloco el índice normal aparece la messagebox que escrito en el evento Lostfocus pero la tabla acepta los registros duplicados.

Como hago para que en lugar de eso muestre la messagebox que he escrito.

Muchas gracias por su ayuda.

*Verifica que el código no exista.
Set multilock on
Cursorsetprop("Buffering",3,alias())
KEY=THISFORM.txtcodbod.VALUE
SELECT vibode
Inreg=RECNO()
SET ORDER TO codbod
SEEK KEY
IF FOUND()AND RECNO() <> Inreg
=MESSAGEBOX("Codigo de Bodega ya Existe,Intentelo de nuevo",0,"ATENCION")
=TABLEREVERT()
GO BOTTOM
THISFORM.REFRESHCONTROL=.T.
THISFORM.REFRESH()
thisform.enadicion=.f.
thisform.enedicion=.f.
thisform.opciones_botoncancelar()
RETURN.T.
ELSE
THISFORM.txtnombre.SETFOCUS
ENDIF

la solucion es que en tu base de datos
la tabla en el campo principal como pk
esta vacio el campo anterior
solo examina la tabla haces visible la ventana de commandos
y pones
zap (enter)
esto borrara todos los datos registrados dentro de la tabla .
los datos borrados logicamente que son los de mayor problema
si siguq habiendo ese error puedes mandarme tu programa para areglarlo