[[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