Captura error tipo EDataBaseError

[ecfisa]

Hola.

Intentalo de este modo:

Código Delphi [-]
procedure TwDataModule.ShowEFDBError(E: EDatabaseError);
begin
  case EFDDBEngineException(E).ErrorCode of
    341346812 : scMessageDlg('El campo CLIENTE es obligatorio',mtError,[mbOk],0);
    //...     :
    //...     :
    else  
      ShowMessageFmt('%s %d',[EFDDBEngineException(E).Message, EFDDBEngineException(E).ErrorCode]);
  end;
  Abort; 
end;

procedure TwDataModule.qOrdenPostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
  if (E is EDatabaseError) then
    ShowEFDBError(E);
end;

Saludos