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;