Gestion d'exception issu d'un trigger Firebird
Salut !
Dans ma base de données FB 2.5, une exception est déclenchée suite à une erreur de calcul, le message dans le trigger est assez clair
Citation:
"Vérifier les montants HT et TTC"
Mais sous Delphi en exécutant mon programme le message devient
Citation:
"Erreur exception 8 ERREUR_SAISIE_MONTANT_HT_TTC Vérifier les montants HT et TTC At trigger 'TB_ENERGIE_BIU0' line: 127, col: 16"
or je voudrais faire un peu de ménage et ne retenir que le 1er message.
En somme, comment faire pour appeler un message figé dans la gestion d'exception au niveau trigger à partir de Delphi sans que celui-là ne lui rajoute sa propre exception ?
Je vous passe le code qui est à l'origine de l'appel de cette exception :
Code:
1
2
3
4
5
6
| if (new.montant_facture_ht is not null) then
begin
x = new.montant_facture - new.montant_facture_ht;
y = 0.12 * new.montant_facture_ht;
if (x > y) then Exception Erreur_Saisie_Montant_HT_TTC;
end |
le trigger est appelé à chaque fois qu'on insère ou modifie un enregistrement il est de type Before.
Merci par avance.
