sListeRubriques est une chaîne = HListeRubrique("Req")
ListeAjoute(LISTE_rubriques,sListeRubriques)
nRubriques est un entier = ListeOccurrence(LISTE_rubriques)
nColonnes est un entier = TableOccurrence(TABLE_Fichier,toColonne)

i est un entier = 1

sNomColonne est une chaîne
sNomChamp est une chaîne

POUR TOUTE chaîne sRubrique de sListeRubriques SEPAREE PAR RC
SI i > nColonnes ALORS
sNomChamp = "COL_" + i
ChampClone(TableEnumèreColonne(TABLE_Fichier,i-1),sNomChamp)
FIN
sNomColonne = TableEnumèreColonne(TABLE_Fichier,i)

{sNomColonne,indChamp}..Libellé = sRubrique
{sNomColonne,indChamp}..LiaisonFichier = sRubrique

i++
FIN

lproc_initialiser( resultat est une Source dede Données )

i, iMax est un entier
Rubrique est une chaîne
rubriques est un tableau de 0 chaîne
c est un Champ

// Nettoyage de la table résultat
TABLE_resultat..AffichageActif = Faux
TABLE_resultat..FichierParcouru = ""
iMax = TableOccurrence( TABLE_resultat, toColonne )
POUR i = iMax À 1 PAS -1
c <- TableEnumèreColonne( TABLE_resultat, i )
SI c..Nom <> COL_Ancrage..Nom ET ChampExiste( c..Nom ) ALORS ChampSupprime( c..Nom )
FIN // POUR i = 1 A iMax

HLitPremier( resultat )
SI PAS HEnDehors( resultat ) ALORS

ChaîneVersTableau( HListeRubrique( resultat ), rubriques, RC )

POUR TOUTE Rubrique de Rubriques

Rubrique = SansEspace( Rubrique )

SELON { resultat + "." + Rubrique, indRubrique }..Type
CAS hRubMémoBinaire :
c <- ChampCrée( TABLE_resultat..Nom + ".COL_" + Rubrique, typImage )
c..ImageMode = imgHC + imgHQ
AUTRE CAS :
c <- ChampCrée( TABLE_resultat..Nom + ".COL_" + Rubrique, typColonne )
FIN // SELON { rubriqueOrigine, indRubrique }..Type

SELON { resultat + "." + Rubrique, indRubrique }..Type

CAS hRubIdAuto, hRubIdAuto4 :
c..TypeSaisie = typSaisieNum
c..CadrageHorizontal = chDroite
CAS hRubDate6, hRubDate8 :
c..TypeSaisie = typSaisieDate
c..CadrageHorizontal = chDroite
CAS hRubDateHeure :
c..TypeSaisie = typSaisieDate
c..MasqueSaisie = "JJ/MM/AAAA HH:mm:SS"
c..FormatMémorisé = "AAAAMMJJHHmmSS"
c..CadrageHorizontal = chDroite
CAS hRubHeure :
c..TypeSaisie = typSaisieHeure
c..CadrageHorizontal = chDroite
CAS hRubEntier1, hRubEntier2, hRubEntier4, hRubEntier8, hRubEntierNonSigné1, hRubEntierNonSigné2, hRubEntierNonSigné4, hRubEntierNonSigné8, hRubNumérique, hRubRéel4, hRubRéel8, hRubRéelTurbo :
c..TypeSaisie = typSaisieNum
c..CadrageHorizontal = chDroite
CAS hRubMonétaire :
c..TypeSaisie = typSaisieMonétaire
c..MasqueSaisie = "MoneySystemMask$"
c..CadrageHorizontal = chDroite
CAS hRubBooléen :
c..CadrageHorizontal = chDroite
CAS hRubMémoBinaire :
// Rien
AUTRE CAS :
c..TypeSaisie = typSaisieTexte
c..CadrageHorizontal = chGauche

FIN // SELON { rubrique, indRubrique }..Type

c..Libellé = { resultat + "." + Rubrique, indRubrique }..Libellé
c..LiaisonFichier = resultat + "." + Rubrique
c..Visible = Vrai

FIN // POUR TOUTE rubrique DE rubriques

TABLE_resultat..FichierParcouru = resultat
TableAffiche( TABLE_resultat, taInit )
TableAjuste( TABLE_resultat )

FIN // SI PAS HEnDehors( resultat ) ALORS

TABLE_resultat..AffichageActif = Vrai

i, iMax est un entier
rubriques, valeurs est un tableau de 0 chaîne
alias est un tableau associatif de chaîne

SI ChaîneOccurrence( sql, "SELECT" ) ALORS
ChaîneVersTableau( SansEspace( Remplace( ExtraitChaîne( sql, 2, [ "SELECT", "FROM" ] ), RC, "" ) ), valeurs, "," )
FIN // SI ChaîneOccurrence( sql, "SELECT" ) ALORS

iMax = TableauOccurrence( valeurs )

// Récupération des alias éventuels de la requête
POUR i = 1 À iMax
SI ChaîneOccurrence( valeurs[ i ], "AS", MotComplet ) > 0 ALORS
alias[ i ] = SansEspace( ExtraitChaîne( valeurs[ i ], 2, "AS" ) )
FIN // SI ChaîneOccurrence( valeurs[ i ], "AS", MotComplet ) > 0 ALORS
FIN // POUR i = 1 À iMax

[...]

iMax = TableauOccurrence( rubriques )
POUR i = 1 À iMax

// Utilisation de l'alias éventuel
SI alias[ i ]..Existe ALORS
c..Libellé = alias[ i ]
SINON SI { resultat + "." + Rubrique, indRubrique }..Libellé <> "" ALORS
c..Libellé = { resultat + "." + Rubrique, indRubrique }..Libellé
SINON
c..Libellé = Rubrique
FIN // SI alias[ i ]..Existe ALORS

FIN // POUR i = 1 À iMax