// Résumé : Remplit la Combo/Liste avec les valeurs initialisées dans la description et permet de renvoyer la valeur du texte affiché
// Dans la description de la Combo/Liste, la case on pensera à cocher la case "Retourne la valeur spécifiée par gLien" dans la partie "Détail"
// Cette syntaxe sera utilisée dans l'initialisation du champ

// Syntaxe :
//ListeAffichageCrée ( [<sListeValeur> est chaîne])
//
// Paramètres :
// sListeValeur (chaîne ANSI - valeur par défaut="") : Liste des valeurs (séparées par RC) spécifiées dans le champ.
// Valeur de retour :
// Aucune
//
// Exemple :
// ListeRenvoiAffichage()
// Avec les valeurs M, Mme, Mlle, la sélection de Mme renverra "Mme"
//
// Notes :
// Cette syntaxe a été créée afin d'utiliser ListeRenvoiAffichage("M."+RC+"Mme.") en omettant MoiMême (impossible dans la syntaxe 2)
Procedure ListeAffichageCrée(sListeValeur est chaîne="")
sValeurEnCours est une chaîne

MoiMême..Note="Avec gARécupérer"
ListeSupprimeTout(MoiMême)
SI sListeValeur="" ALORS
sListeValeur=MoiMême..ContenuInitial
FIN
POUR TOUTE chaîne sValeurEnCours de sListeValeur SEPAREE PAR RC
ListeAjoute(MoiMême,gARécupérer(sValeurEnCours))
FIN

Syntaxe 2
[code:wl]
// Résumé : Remplit la Combo/Liste avec les valeurs initialisées dans la description et permet de renvoyer la valeur du texte affiché
// Dans la description de la Combo/Liste, la case on pensera à cocher la case "Retourne la valeur spécifiée par gLien" dans la partie "Détail"
// Cette syntaxe sera utilisée dans hors du champ
//
// Syntaxe :
//ListeAffichageCrée ( [chNomChamp est champ,[<sListeValeur> est chaîne]])
//
// Paramètres :
// chNomChamp (champ - valeur par défaut = MoiMeme) : Nom du champ à initialiser
// sListeValeur (chaîne ANSI - valeur par défaut="") : Liste des valeurs (séparées par RC) spécifiées dans le champ.
// Valeur de retour :
// Aucune
//
// Exemple :
// Indiquez ici un exemple d'utilisation.
//
// ListeRenvoiAffichage(LISTE_Appel)
// Avec les valeurs M, Mme, Mlle, la sélection de Mme renverra "Mme"
// chNomChamp (champ) : Nom du champ à initialiser
Procedure ListeAffichageCrée(chNomChamp est Champ=MoiMême,sListeValeur est chaîne="")
sValeurEnCours est une chaîne

chNomChamp..Note="Avec gARécupérer"
ListeSupprimeTout(chNomChamp)
SI sListeValeur="" ALORS
sListeValeur=chNomChamp..ContenuInitial
FIN

POUR TOUTE chaîne sValeurEnCours de sListeValeur SEPAREE PAR RC
ListeAjoute(chNomChamp,gARécupérer(sValeurEnCours))
FIN

// Résumé : Ajoute une valeur à sélectionner dans un champ défini "avec récupération d'affichage"
// Syntaxe :
//ListeAffichageAjoute (<chNomChamp> est champ, <sValeur> est chaîne [, <bDoublonsAutorisés> est booléen])
//
// Paramètres :
// chNomChamp (champ) : Champ à modifier
// sValeur (chaîne ANSI) : Valeur à ajouter
// bDoublonsAutorisés (booléen - valeur par défaut=0) : On autorise des doublons dans la liste

Procedure ListeAffichageAjoute(chNomChamp est Champ,sValeur est chaîne,bDoublonsAutorisés est un booléen=Faux)
sValeurUnitaire est chaîne
bEstListeAffichage est un booléen

SI chNomChamp..Note="Avec gARécupérer" ALORS
bEstListeAffichage=Vrai
FIN

//On prend en compte le passage de valeurs multiples, on ne passe pas directement la chaîne formatée pour contrôler les doublons
POUR TOUTE chaîne sValeurUnitaire de sValeur SEPAREE PAR RC
RemplirListe(chNomChamp,sValeurUnitaire,bDoublonsAutorisés)
FIN



PROCEDURE INTERNE RemplirListe(chChampListe est Champ,sNouvelleValeur est chaîne,bAvecDoublon est un booléen)
SI ((ListeCherche(chChampListe,sNouvelleValeur)<>-1) ET bAvecDoublon) ...
OU (ListeCherche(chChampListe,sNouvelleValeur)=-1) ALORS //La valeur existe mais on autorise les doublon, ou la valeur n'existe pas
SI bEstListeAffichage ALORS //Le contrôle est effectué pour éviter le panachage n° et valeur
ListeAjoute(chChampListe,gARécupérer(sNouvelleValeur))
SINON
ListeAjoute(chChampListe,sNouvelleValeur)
FIN
FIN
FIN