FoxPro/Visual FoxPro - Error en Append Blank

   
Vista:

Error en Append Blank

Publicado por Carlos Linares (10 intervenciones) el 26/01/2011 18:29:46
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!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Error en Append Blank

Publicado por Juan Manuel Cruz (508 intervenciones) el 26/01/2011 18:40:02
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Error en Append Blank

Publicado por Carlos Linares (10 intervenciones) el 26/01/2011 18:46:01
Amigo explicame paso a paso disculpa jeje

Es que soy muy nuevo con lo del foxpro!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Error en Append Blank

Publicado por Cesar203 sistemas_aempresarial@hotmail.com (1 intervención) el 01/02/2012 17:10:51
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar