Captura de Error personalizado

[ecfisa]

Hola José.

No sé como estas capturando las excepciones te pongo un ejemplo muy, pero muy simplificado para que pruebes:

Código Delphi [-]
...
type
  TfrmMain = class(TForm)
  ...
  procedure FormCreate(Sender: TObject);
  ...
  private
    ...
  public
    ...
  end;

  TwPaciente = class(TObject)
  public
    procedure ShowException(Sender: TObject; E: Exception);
  end;

var
  frmMain: TfrmMain;
  wPaciente : TwPaciente;

implementation

procedure TwPaciente.ShowException(Sender: TObject; E: Exception);
var
  Msg: string;
begin
  case EIBInterbaseError(E).IBErrorCode of
    335544347: Msg := 'El campo NOMBRE no puede estar vacio';
    //...
  end;
  MessageDlgPos(Msg,mtError,[mbOk], 0, 100, 200);
  frmMain.IBTransaction1.RollbackRetaining;
  //...
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Application.OnException := wPaciente.ShowException;
end;
...

De este modo tiene que funcionarte sin presentar la segunda pantalla. Pero debo decirte que en la práctica, queda por tu cuenta manejar cada una de las excepciones que pudiera presentar cualquier tabla de tu bd.

Fijate que estoy utilizando IBX por lo que deberás cambiar:

Código Delphi [-]
EIBInterbaseError(E).IBErrorCode

por:

Código Delphi [-]
EFIBError(E).IBErrorCode

Saludos

Edito: Si te decidis por este modo de manejo, te aconsejo crearte una unidad para encapsular todo el código relativo al manejo de las excepciones.

[TOPX]

Hola,

Según los nombres de los parámetros del procedimiento CapturaError, parece que espera que se asigne cierto valor al parámetro Action.

Ya que no dice qué componentes de acceso a bases de datos usa y no los logré adivinar, busqué en Google: (DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction) para encontrar un ejemplo del uso del evento OnPostError de un TDataSet en:

• Capturar errores de edición - edit - y validación - post - de una tabla y mostrar un mensaje personalizado - ajpdsoft

Con esa información, encontré la declaración del tipo TDataAction en la unidad Data.DB:

Código Delphi [-]
TDataAction = (daFail, daAbort, daRetry);

Espero que sirva.
-

[Jose Roman]

gracias ese ejemplo tambien se ve muy claro y mas complejo, utilizo los componentes FIBPlus por cierto.