FoxPro/Visual FoxPro - MENSAJES DE VFP 6.0

Podrían ayudarme por favor ?

1-Porque VFP lanza el mensaje \"Se infringe unicidad de código \"
en lugar de mostrar la messagebox que he colocado ?
A pesar de que al inicio del programa desde donde corro el formulario
he colocado un SET TALK OFF.

He utilizado un índice candidato porque si coloco un índice normal
muestra la MESSAGEBOX pero guarda el registro aunque esté duplicado.

*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(.T.)
*Go Bottom
thisform.enadicion=.f.
thisform.enedicion=.f.
thisform.opciones_botoncancelar()
THISFORM.txtnombre.ENABLED=.F.
THISFORM.txtdireccion.ENABLED=.F.
ENDIF
*ELSE
*thisform.txtcodbod.enabled=.t.
*thisform.txtcodbod.visible=.t.
*thisform.txtnombre.visible=.t.
*thisform.txtnombre.enabled=.t.
*thisform.txtdireccion.visible=.t.
*thisform.txtdireccion.enabled=.t.
*Endif


2-A propósito cual es el código para crear desde la ventana de
comandos o en una rutina de REINDEXAMIENTO un índice candidato ?

Gracias.

Hola Ernesto:

Mira ese mensaje te lo da porque estas utilizando un indice candidato.

La opcion que te doy y es la que Yo utilizo, es que utilizes un Indice Normal y despues del mensaje, como estas escribiendo directamente en la tabla, borres el registro, o al campo clave le asignes un valor inicial que puede ser cero (0) o blanco ("").

Prueba y me cuentas

Saludos