Captura de Error personalizado

[ecfisa]

Hola Jose.

Si no te entiendo mal, por ejemplo sobre tu código:

Código Delphi [-]
procedure TwPaciente.CapturaError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
  if E.ClassNameIs('EFIBInterBaseError') then
  case EFIBError(E).IBErrorCode of
//  Not Null
    335544347 : begin
                  MessageDlg('El campo NOMBRE no puede estar vacio', mtError,[mbYes],0);
                  dbNombre.SetFocus;
                end;
//  UNIQUE Key
    335544665 : begin
                  MessageDlg('CEDULA ya existe.', mtError,[mbYes],0);
                  dbNombre.SetFocus;
                end;
  end;
end;

Saludos