Exemple d'utilisation de la commande HErreurDoublon

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 gérer les erreurs de doublons lors de l'ajout d'un enregistrement dans le fichier CLIENT. La gestion automatique des erreurs a été préalablement désactivée (fonction HSurErreur ).

// Pas de gestion automatique des erreurs (doublons, intégrité, …)

HSurErreur(CLIENT,"")
SI PAS HAjoute(CLIENT) ALORS
   SI HErreurDoublon () ALORS
      Erreur("Erreur de doublon sur clé unique",HErreurInfo())
      RETOUR
   FIN
   SI HErreurIntégrité() ALORS
      Erreur(HErreurInfo())
      RETOUR
   FIN

FIN