| 4D Write v15WR Erreur texte | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|  | 
    4D Write v15
 WR Erreur texte 
         | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| WR Erreur texte ( numErreur ) -> Résultat | ||||||||
| Paramètre | Type | Description | ||||||
| numErreur | Entier |   | Numéro d'erreur | |||||
| Résultat | Chaîne |   | Libellé de l'erreur spécifiée par numErreur | |||||
La commande WR Erreur texte retourne le texte de l’erreur passée en paramètre. Cette fonction permet d’afficher un message d’erreur.
Vous voulez afficher le descriptif de l’erreur si l’utilisateur est le superviseur de la base, et un message plus général pour les autres utilisateurs.
 ErrNo:=WR Erreur(LaZone)
  `Une erreur s’est-elle produite ?
 Si(ErrNo#0)
  `Si oui
    Si(Utilisateur courant="Super_Utilisateur")
  `S’il s’agit de l’utilisateur principal, donnons-lui le message complet
       ALERTE(Chaine(ErrNo;"Erreur N° ##### ")+WR Erreur texte(ErrNo))
    Sinon
       ALERTE("Erreur : veuillez prévenir votre responsable.")
    Fin de si
 Fin de si
	Produit :  4D Write
	Thème :  WR Utilitaires
	Numéro :  
        89180
        
        
        
	Nom intl. :  WR Error text
	Créé :  4D Write 6
	
	
	
	
	
	
	
	
	4D Write - Langage ( 4D Write v15)
	
	
	
	
	
	
	
 Ajouter un commentaire
Ajouter un commentaire