FoxPro/Visual FoxPro - Error en Append Blank

Buenas Amig@s,

Tengo un detallazo que no lo entiendo muy bien.. Ya que se mucho de este lenguaje. Les explico:

Estoy haciendo un sistemita que tiene los siguientes botones: nuevo, guardar, limpiar y salir.

Cuando registro mis datos le doy a guardar (funciona bien).. Luego le doy a limpiar (funciona bien) Cuando le doy a nuevo me da el siguiente error...

Uniqueness of index ci_clie is violated

-ci_clie- es el campo.

Cuando le doy a suspender. El error me apunta a la linea que dice: "append blank"

Y este es el codigo:

thisform.txtci_clie.enabled = .T.
thisform.txtnom_clie.enabled = .T.
thisform.txtapel_clie.enabled = .T.
thisform.txtdir_clie.enabled = .T.
thisform.txttlf_clie.enabled = .T.

Go Bottom

thisform.refresh

append blank

thisform.txtci_clie.setfocus

thisform.txtci_clie.value = 0
thisform.txtnom_clie.value = ""
thisform.txtapel_clie.value = ""
thisform.txtdir_clie.value = ""
thisform.txttlf_clie.value = 0

thisform.refresh

Espero que me puedan ayudar!

Gracias!

La tabla tiene un índice CI_CLIE definidido como único, o sea, q no pueden haber claves repetidas.

En algún momento metiste un registro con ese campo en blanco. Pon SET DELE OFF (podria estar eliminado de manera lógica, pero no física) y mira si está ese registro. Eliminas, haces pack, y el siguiente appen blank debería ir OK.

Para evitar futuras incidencias de ese tiop, deberías trabajar con buffers y hacer TABLEUPDATE cuanbdo todo esté ok, o suponiendo más o menos tu modo de programar, llena el CI_CLIE con un valor, el que sea, que no sea vacío, un valor temporal por ejemplo, que reemplazas por el correcto al grabar por primera vez.

Amigo explicame paso a paso disculpa jeje

Es que soy muy nuevo con lo del foxpro!

Bueno no se por que me sale este error en foxpro a veces me funciona
append blank i otras no como sale en el video

**MALO
APPEND blank
REPLACE idalumno WITH "A062", ;
idcurso WITH "C01", ;
nombre WITH "otro", ;
apellidos WITH "otro"

&&TABLEUPDATE("alumnos")
thisform.Refresh




**BUENO
INSERT INTO alumnos (idalumno,idcurso,nombre,apellidos)VALUES ;
("A006","C01","otro","otro")
scatter memvar blank


Aqui el ejemplo en vivo