Update duplica registro

[FerCastro]

Hola al foro,

Tengo una pequeña aplicación la cual estaba trabajando aparentemente bien hasta hace unos dias que comenzó a hacer algo sumamente extraño.

Cuando quiero modificar los datos de un registro al momento de grabar me duplica el registro. No se que haya podido suceder para que esto sucediera, pues anteriormente no lo hacía. Alguna idea? dejo el código que tengo:

Código Delphi [-]

      With Data.qEditaEmpleado do
        Begin
          Close;
          SQL.Clear;
          SQL.Add('SELECT * FROM empleado WHERE IDEmpleado = ' + IntToStr(Data.qEmpleado.FieldByName('IDEmpleado').AsInteger));
          Open;
          Edit;
          FieldValues['IDEmpresa']:=FMain.oVariables.nEmpresa;
          FieldValues['Apaterno']:=cPaterno.Text;
          FieldValues['AMaterno']:=cMaterno.Text;
          FieldValues['Nombre']:=cNombre.Text;
          Post;
          Close;
        End;

Muchas gracias
Fernando Castro
México

[marcoszorrilla]

No se aprecia motivo para este fenómeno en el código que adjuntas, supongo que pueda deberse a algún evento que hace que el código se ejecute dos veces en vez de una ....?

Un Saludo.

[FerCastro]

Hola Marcos, gracias por tu atención. Fijate que el proceso no se ejeceuta dos veces, de hecho haciendo el debug inmediatamente después del post actualizo la vista de mi tabla y ahi esta ya duplicado el registro.

No tengo idea del por qué de este comportamiento, pero te comento que no lo hacía, lo comenzó a hacer de repente.

Saludos!!

[[poliburro]]

amigo, no te convendría más ejecutar un query?

[marcoszorrilla]

Esto me hace sospechar que algo le paso a la tabla, porque no la creas de nuevo y le traspasas los datos y pruebas a ver que pasa.

Un Saludo.

[roman]

Y, el registro duplicado, ¿es exactamente igual en todos sus campos? El campo IDEmpleado, ¿es un campo llave?.

// Saludos