Parcours des champs d'une fenêtre

Parcours des champs d'une fenêtre
et
affichage de leur type et libellé ​

Code (Text):

sParent est une chaîne = "FEN_SAISIE_CLIENT"
sNomChamp est une chaîne=EnumèreSousElément(sParent,enumPremier)

TANTQUE sNomChamp<>""

// nom complet du champ
sNomComplet est une chaîne=sParent+"."+sNomChamp
// récupération du type de l'élément
nType est un entier={sNomComplet,indGPW}..Type

// si c'est un groupe de champs ou un onglet
SI nType=typOnglet OU nType=typTable OU nType=typBarreOutils OU nType=typBoîteAOutils OU nType=typSuperChamp ALORS
// énumération des champs qui sont à l'intérieur
Trace(sNomComplet)
SINON
// ne fait rien si c'est une option de menu
SI nType<>typOptionMenu ALORS
// Trace de l'élément
Trace(sNomComplet,nType,{sNomComplet,indGPW}..Libellé,{sNomComplet,indGPW}..Groupe)
FIN
FIN

// Champ suivant
sNomChamp=EnumèreSousElément(sParent)
FIN