//Code d un bouton :
MonEnregistrement est une chaîne
HLitPremier(ARTICLE)
MonEnregistrement = HRecupèreEnregistrementLogique(ARTICLE)
PROCEDURE HRecupèreEnregistrementLogique(sNomFic, sSeparateur=TAB, sSeparateurTableau=TAB)
//Variables :
sListeRubriques est une chaîne
sNomRubrique est une chaîne
sValeursRubriques est une chaîne
i est un entier = 1
sListeRubriques = HListeRubrique(ARTICLE,hLstOrdreLogique)
sNomRubrique = ExtraitChaîne(sListeRubriques,i,RC)
TANTQUE sNomRubrique <> EOT
sValeursRubriques += sSeparateur+{sNomFic+"."+sNomRubrique}+sSeparateur
i++
sNomRubrique = ExtraitChaîne(sListeRubriques,i,RC)
FIN
sValeursRubriques = sValeursRubriques[[Taille(sSeparateur)+1 A]]
RENVOYER sValeursRubriques