pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


Dans cet exemple d'utilisation des triggers, les traitements effectués sont :

- Vérification des droits de l'utilisateur à chaque ajout/suppression

- A chaque modification d'une fiche client, calcul du nombre de commandes déjà passées, et demande de confirmation du changement si des commandes ont été passées.

- A chaque ajout recherche des clients qui ont le même nom (pour éviter de créer 2 fois le même client) et demande de confirmation si des clients du même nom existent.

//-----------------------------------------------

//Création de Trigger

//-----------------------------------------------

//Dans le code d'initialisation du projet

local

CodeErreurHF est un entier

//Création du Trigger pour tous les fichiers de l'analyse

CodeErreurHF= HDecritTrigger ("*","HAJOUTE,HMODIFIE,HSUPPRIME,HRAYE,HECRIT","VerifDroitUtilisateur",hTriggerAvant)

//Avec "VerifDroitUtilisateur" une procédure globale du projet

Si CodeErreurHF<>0 Alors

//Le trigger n'a pu être créé

Erreur("Erreur sur un trigger : "+CodeErreurHF)

Retour

Fin

//-----------------------------------------------

//Destruction de Trigger

//-----------------------------------------------

//Dans le code de ferneture du projet

CodeErreurHF est un entier

//Destruction de tous les Triggers du fichiers CLIENT

CodeErreurHF= HDecritTrigger ("CLIENT")

Si CodeErreurHF<>0 Alors

//Le trigger n'a pu être créé

Erreur("Erreur sur un trigger : "+CodeErreurHF)

Retour

Fin