1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| // Initialisation des variables globales déclarées dans le code du projet
PROCEDURE Initialisation_des_parametres()
sNomVariableLuFichier est un chaîne
// Chargement des noms de chaques variables globales (déclarées préalablement) ainsi que leur valeur respective à partir du fichier (tables MySQL) "PARAMETRES"
HLitPremier(PARAMETRES,variable_associee)
TANTQUE PAS HEnDehors(PARAMETRES)
sNomVariableLuFichier = PARAMETRES.variable_associee
// Traitement selon le type de la variable
SELON PARAMETRES.typeVariable
CAS "Chaîne"
{sNomVariableLuFichier} = PARAMETRES.valeur
CAS "Entier"
{sNomVariableLuFichier} = Val(PARAMETRES.valeur)
CAS "Booléen"
{sNomVariableLuFichier} = PARAMETRES.valeur="Faux" ? Faux SINON Vrai
AUTRE CAS
Info ("Aucun type n'est défini pour la variable "+{sNomVariableLuFichier}+,"Merci de compléter le champ : "+PARAMETRES.parametre)
FIN
HLitSuivant(PARAMETRES, variable_associee)
FIN |