PROCEDURE proctrigger()
SELON Majuscule(H.FonctionTrigger)
CAS "HAJOUTE"
SI Trace ALORS Trace("Trigger avant : Ajout")
SI HErreurDoublon()=Vrai ALORS
//abondon de l'action
H.AFaire="A"
Erreur("Doublons: Enregistrement Existant !")
SINON
//ajouter
Dialogue("Ajout Réussi !")
FIN
CAS "HMODIFIE"
SI Trace ALORS Trace("Trigger avant : Modification")
SI HErreurDoublon()=Vrai ALORS
//abondon de l'action
H.AFaire="A"
Erreur("Integrite:: Enregistrement Existant")
SINON
//modifier
Dialogue("Modification Réussi !")
FIN
CAS "HSUPPRIME"
SI Trace ALORS Trace("Trigger avant : Suppression")
//1 : &Supprimer
//2 : &Ne pas supprimer
SELON Dialogue("voulez-vous supprimer cette enregistement ?")
// supprimer
Erreur("Erreur: "+HErreurIntégrité())
CAS 1
SI HErreurIntégrité()=Vrai ALORS
//abondon de l'action
H.AFaire="A"
Dialogue("Impossible: Enregistrement Lié !")
SINON
Dialogue("Suppression Finie !")
//sortir selon
FIN
// ne pas supprimer
CAS 2
//abondon de l'action
H.AFaire="A"
FIN
FIN
Partager