Fórum como usar os exceptions do firebird #52853

CREATE TRIGGER CLIENTE_BI FOR CLIENTE
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN  
      if (exists
      (select RG from CLIENTE
      where (RG = NEW.RG))
      ) then exception RG_CLIENTE_JA_EXISTE;
END

procedure TClienteFrm.CDS_ClienteReconcileError(
   DataSet: TCustomClientDataSet; E: EReconcileError;
   UpdateKind: TUpdateKind; var Action: TReconcileAction);
const
   ErRG_Exist = ´RG_CLIENTE_JA_EXISTE´;
   RG_Mensagem = ´O R.G. de número "¬s" já está cadastrado para outro cliente!!!´;
begin
   if pos(ErRG_Exist, E.message) > 0 then
   begin
      NewMessageDlg(Format(RG_Mensagem, [CDS_ClienteRG.AsString]), mtInformation, [mbOk], 0);
      Action := raAbort;
   end;
end;

try
  {execute algum stored proc}
except
  { trate a exceção q vem do fb }
end;