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
|
LOCAL
sFichiersListe est une chaîne
sFichier est une chaîne
sRubriquesListe est une chaîne
sRubrique est une chaîne
sFichiersListe = HListeFichier("","",hLstTriée)
POUR TOUTE CHAÎNE sFichier DE sFichiersListe SEPAREE PAR RC
sRubriquesListe = HListeRubrique(sFichier,"","")
POUR TOUTE CHAÎNE sRubrique DE sRubriquesListe SEPAREE PAR RC
//Le fichier gère t'il la valeur Null ?
SI {sFichier,indFichier}..NullSupporté = Vrai ALORS
//La rubrique gère t'elle la valeur Null ?
SI {sFichier+"."+sRubrique,indRubrique}..NullAutorisé = Vrai ALORS
HRAZ(sFichier,sRubrique)
SI {sFichier+"."+sRubrique,indRubrique}..Null ALORS
Trace(sFichier+"."+sRubrique+" : Valeur par défaut Null")
SINON
Trace(sFichier+"."+sRubrique+" : Valeur par défaut : "+{sFichier+"."+sRubrique,indRubrique}..ValeurParDéfaut)
FIN
FIN
FIN
FIN
FIN |
Partager