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 Edit;
FieldValues['IDEmpresa']:=FMain.oVariables.nEmpresa;
FieldValues['Apaterno']:=cPaterno.Text;
FieldValues['AMaterno']:=cMaterno.Text;
FieldValues['Nombre']:=cNombre.Text;
Post;
end;
Close;
end;
Salud OS