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


Cet exemple permet de personnaliser les conflits de modification.
Rappel : la gestion des conflits de modification est effectuée automatiquement par défaut.



// Code d' une procédure appelée pour le traitement
// d'un conflit de modification
i est un entier = 1
 Rubrique est une chaîne
 // nom du fichier en conflit
 NomFichier est une chaîne = HErreurInfo ( HErrFichier )
 // récupère la liste des rubriques du fichier en conflit de modification
 ListeRubrique est une chaîne = HListeRubrique ( NomFichier )
BOUCLE
   // extrait la nième rubrique de la liste des rubriques en conflit
   UneRubrique = ExtraitChaîne ( ListeRubrique , i , RC )
   // on sort si on a plus de rubrique
   SI UneRubrique = EOT ALORS SORTIR //Sortie si plus de rubrique en conflit
  // affiche la valeur de la rubrique de l'enregistrement original
   Trace ( HErreurModification ( NomFichier , UneRubrique , hEnrLu ))
   // affiche la valeur de la rubrique de l'enregistrement du fichier
   Trace ( HErreurModification ( NomFichier , UneRubrique , hEnrFichier ))
   // affiche avec la valeur de la rubrique de l'enregistrement utilisateur
   Trace ( HErreurModification ( NomFichier , UneRubrique , hEnrUtilisateur ))
 FIN