Update duplica registro

[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

[[egostar]]

Respuesta Repetida.

Parece que también aquí hay un problema de duplicados

Salud OS

[[egostar]]

Hola

Yo creo que deberias de validar que existan datos antes de hacer el edit.

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;
    if recordcount > 0 then begin //Validamos que existan datos y no editar un registro vacio.
       Edit;
       FieldValues['IDEmpresa']:=FMain.oVariables.nEmpresa;
       FieldValues['Apaterno']:=cPaterno.Text;
       FieldValues['AMaterno']:=cMaterno.Text;
       FieldValues['Nombre']:=cNombre.Text;
       Post;
    end;
    Close;
end;

Salud OS

[FerCastro]

Gracias por las respuestas:

- Egostar, ya hice lo que me comentas y sigue duplicando.
- Marcos, ya creé de nuevo la tabla, pasé los registros y sigue dulpicando.
- Román, si es un campo llave.

Gracias!! y saludos a todos

FCG