//*************************************************************************
PROCÉDURE EnumereChampsFenetre(LaFenetre est une chaîne,LaTable)
//***************************************************************************************
// Parcours des champs d'une fenêtre et enregistre leur nom et leur type dans une table
//=======================================================================================
i est un entier = 0
Num est une chaîne = " "
sNomChamp est une chaîne
sLibelle est une chaîne
LigneTrace est une chaîne
LeGroupe est une chaîne
sNomComplet est une chaîne
nType est un entier
TableSupprimeTout(LaTable)
Trace("*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*")
Trace(" Liste des Champs de la Fen^tre : "+ LaFenetre)
Trace("*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*")
sNomChamp = EnumèreSousElément(LaFenetre, enumPremier)
TANTQUE sNomChamp <> ""
i++
Num = i

sNomComplet = LaFenetre + "." + sNomChamp // Nom complet du champ

nType = {sNomComplet, indGPW}..Type // Récupération du type de l'élément
sLibelle = {sNomComplet}..Libellé
LeGroupe = {sNomComplet}..Groupe
Trace(Num," ",sLibelle, " Type : ",nType," Groupe : ",LeGroupe)
sNomChamp = EnumèreSousElément(LaFenetre) // Champ suivant
FIN



Trace("*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*")
LigneTrace = " Champs de "+ LaFenetre + "Avec traitement récursif sur Onglets"
Trace(LigneTrace)
Trace("*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*")
sNomChamp = EnumèreSousElément(LaFenetre, enumPremier)
TANTQUE sNomChamp <> ""
i++
Num = i

sNomComplet =LaFenetre + "." + sNomChamp // Nom complet du champ

nType = {sNomComplet, indGPW}..Type // Récupération du type de l'élément
sLibelle = {sNomComplet}..Libellé
SELON nType
CAS typTable,typBarreOutils,typBoîteAOutils,typSuperChamp,typFenêtreInterne
// Ici aussi faire comme onglets
LeGroupe = {sNomComplet, indGPW}..Groupe
LigneTrace = Num + " " + LaFenetre + " " + sNomChamp +" " + nType + " " + sLibelle + " " + LeGroupe // Enumération des champs qui sont à l'intérieur
Trace(LigneTrace)

TableAjouteLigne({LaTable,indChamp},i,sNomComplet,nType,{sNomComplet, indGPW}..Libellé, {sNomComplet, indGPW}..Groupe)
CAS 131
//i = EnumereChampsOnglet(sNomComplet,LaTable,i)

CAS typOnglet
//TableAjouteLigne({LaTable,IndChamp},i,sNomComplet,nType,{sNomComplet, indGPW}..Libellé, {sNomComplet, indGPW}..Groupe)
LeGroupe = {sNomComplet, indGPW}..Groupe
LigneTrace = Num + " " + LaFenetre + " NomChamp : " + sNomChamp +" Type : " + nType + " Libellé : " + sLibelle + " Groupe : " + LeGroupe // Enumération des champs qui sont à l'intérieur

Trace(LigneTrace)
i = EnumereChampsOnglet(sNomComplet,LeGroupe,LaTable,i)

CAS typOptionMenu
// Ne fait rien si c'est une option de menu


AUTRE CAS
// Ajout de l'élément dans la trace
LeGroupe = {sNomComplet, indGPW}..Groupe
LigneTrace = Num + " " + LaFenetre + " NomChamp ( Autre cas): " + sNomChamp +" Type : " + nType + " Libellé : " + sLibelle + " Groupe : " + LeGroupe // Enumération des champs qui sont à l'intérieur
Trace(LigneTrace)

TableAjouteLigne({LaTable,indChamp},i,sNomComplet,nType,{sNomComplet, indGPW}..Libellé, {sNomComplet, indGPW}..Groupe)
FIN

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

//*******************************************************************
PROCÉDURE EnumereChampsOnglet(OngletDepart,LeGroupe,LaTable,i)
/********************************************************************
// Parcours des volets d'un champ Onglet
//********************************************************************
// Le Principe
// 1 Onglet contient des Volets
// 1 Volet peut ontenir 1 Onglet -# qui contient des volets
// Pour parcourir un Onglet il faut effectuer un traitement récursif
// a) Lister les champs présents dans chaque volet
// b) Si le champ est un onglet
// - Traitement récursif pour lister les champs
// c) Passer au champ suivant
// Les champs sont ajoutés dans une table pour être utilisés globalement au niveau de la fene^tre appelante
// La fonction est lancée à l'ouverture de chaque fenêtre
// Elle est normalement suivie de l'appel de la fonction De changement de la police et de la taille des caractères
//---------------------------------------------------------------------


sResVoletSuivant est une chaîne = CS_VIDE
k sont des entiers

// Les Trace sont utiliser pour débuguer

//Trace(" ******************************************************************")
//Trace(" * " + OngletDepart + " ")
//Trace(" ******************************************************************")


//--------------------------------------------------------------------------
// Récupérer les champs du volet (Les Champs simples de tous les onglet)
//-------------------------------------------------------------------------
ChampsOnglet est une chaîne
ChampOngletComplet est une chaîne
TypeDuChamp est un entier
//ChampsOnglet = EnumèreSousElément(OngletDepart,enumPremier+enumVolet)
//SI LeGroupe <> "" ALORS
//aaaaa est une chaine = OngletDepart + "." + LeGroupe + "."+"ONG_DOMAINES"
//ChampsOnglet = EnumèreSousElément(aaaaa,enumPremier+enumVolet)
//SINON
ChampsOnglet = EnumèreSousElément(ChampsOnglet,enumPremier+enumVolet)
//FIN

k = i
TANTQUE ChampsOnglet <> CS_VIDE
ChampOngletComplet = OngletDepart + "." + ChampsOnglet
TypeDuChamp = {ChampOngletComplet,indGPW}..Type

SI TypeDuChamp <> typOnglet ALORS
Trace(" -",k," ",ChampsOnglet, " Type : ",TypeDuChamp)
TableAjouteLigne({LaTable,indChamp},k,ChampOngletComplet,TypeDuChamp,ChampsOnglet, "")
SINON
//EnumereRecursifOngletsVolet(LaTable,OngletDepart,ChampsOnglet,1,nType,k)
NumOng est un entier = 1
EnumereRecursifOngletsVolet(LaTable,OngletDepart,ChampsOnglet,NumOng,LeGroupe,TypeDuChamp,k)
//Trace("Appel fonction Recursive pou "," ",ChampsOnglet)
FIN
ChampsOnglet = EnumèreSousElément(OngletDepart)
k++
FIN
//Trace(" ===================================================================")



RENVOYER k

//*********************************************************************************
PROCÉDURE EnumereRecursifOngletsVolet(LaTable,VoletDepart,SousVolet,IndVolet,LeGroupe,TypeChamp,i)
//*********************************************************************************
// Traitement récursif d'un champ onglet contenant un autre champ Onglet

k est un entier = i

Volet1 est une chaîne = VoletDepart + "[" + IndVolet + "]"

LibelleSousVolet est une chaîne = {Volet1,indChamp}..Libellé

Volet1Nom est une chaîne = VoletDepart + "." + LibelleSousVolet
Volet1Numero est une chaîne = VoletDepart + "." + IndVolet
// Est-ce qu'il y a un volet ?
NbreVoletsEnCours est un entier = {VoletDepart, indGPW}..Occurrence

//NomSousElement = EnumèreSousElément(SousVolet, enumPremier+enumVolet)

//----------------------------------------------------------------------
// Récupérer les champs du volet
//----------------------------------------------------------------------
SousVoletComplet est une chaîne
ChampsVolet est une chaîne
ChampVoletComplet est une chaîne

TypeDuChamp est un entier
SousVoletComplet = VoletDepart + "." + IndVolet
Onglet_a_Lister est une chaîne = VoletDepart + "." + SousVolet

ChampsVolet = EnumèreSousElément(Onglet_a_Lister,enumPremier)

TANTQUE ChampsVolet <> CS_VIDE
ChampVoletComplet = VoletDepart + "." + ChampsVolet
TypeDuChamp = {ChampVoletComplet,indGPW}..Type
SI TypeDuChamp = typOnglet ALORS

//Trace(" *****************Appel Recursif Procedure -", ChampVoletComplet)
EnumereRecursifOngletsVolet(LaTable,VoletDepart,ChampVoletComplet,IndVolet,LeGroupe,TypeChamp,k)
FIN
k++
Trace(" -", k," ",ChampsVolet, " Type : ",TypeDuChamp)

TableAjouteLigne({LaTable,indChamp},k,ChampVoletComplet,TypeDuChamp,ChampsVolet, "")
ChampsVolet = EnumèreSousElément(Onglet_a_Lister)
FIN

//*******************************************************************
Procedure EnumereChampsOnglet(OngletDepart,NbVolets,LeGroupe,LaTable,i)
/********************************************************************
// Parcours des volets d'un champ Onglet
//********************************************************************
// Le Principe
// 1 Onglet contient des Volets
// 1 Volet peut ontenir 1 Onglet -# qui contient des volets
// Pour parcourir un Onglet il faut effectuer un traitement récursif
// a) Lister les champs présents dans chaque volet
// b) Si le champ est un onglet
// - Traitement récursif pour lister les champs
// c) Passer au champ suivant
// Les champs sont ajoutés dans une table pour être utilisés globalement au niveau de la fene^tre appelante
// La fonction est lancée à l'ouverture de chaque fenêtre
// Elle est normalement suivie de l'appel de la fonction De changement de la police et de la taille des caractères
//---------------------------------------------------------------------


sResVoletSuivant est une chaîne = CS_VIDE
k,m sont des entiers

// Les Trace sont utiliser pour débuguer

//Trace(" ******************************************************************")
//Trace(" * " + OngletDepart + " ")
//Trace(" ******************************************************************")


//--------------------------------------------------------------------------
// Récupérer les champs du volet (Les Champs simples de tous les onglet)
//-------------------------------------------------------------------------
ChampsOnglet est une chaîne
ChampOngletComplet est une chaîne
TypeDuChamp est un entier
NumOng est un entier
//ChampsOnglet = EnumèreSousElément(OngletDepart,enumPremier+enumVolet)
//SI LeGroupe <> "" ALORS
//aaaaa est une chaine = OngletDepart + "." + LeGroupe + "."+"ONG_DOMAINES"
//ChampsOnglet = EnumèreSousElément(aaaaa,enumPremier+enumVolet)
//SINON

//FIN

k = i
//NbreVolets est une chaine = {FEN_test.ONG_DansVolet}..Occurence

// Ici utiliser le Nombre de volets pour analyser
leTpe est un entier = {OngletDepart}..Type // J'ai bien TypOnglet 16
NBTest est un entier = {OngletDepart}..Occurrence // J'ai bien le nombre d'onglets


//Volet est une chaine = EnumèreSousElément({OngletDepart},enumPremier+enumVolet)

// Normalement ici au premier énumeresousElement je dois récuperer le N° de Volet puifaire un TANTQUE pour
// Balayer tous les volets
// Ou alors faire directement le TANTQUE puisque j'ai le nombre de volets à lister

// Quelle est la bonne version de Enumere

ChampsOnglet = EnumèreSousElément({OngletDepart},enumPremier+enumVolet) // Test 1 Ici ChampOnglet est vide
//ChampsOnglet = EnumèreSousElément({OngletDepart},enumVolet) // Test 2 Ici ChampOnglet est vide
//ChampsOnglet = EnumèreSousElément({OngletDepart},enumPremier) // Test 3 Ici le champ est vide également
//ChampsOnglet = EnumèreSousElément({OngletDepart}) // Test 4 ici Aussi ChampOnglet est vide
//ChampsOnglet = EnumèreSousElément(OngletDepart) // Test 5 Reponse L'élément n'a pas été initialisé


TANTQUE ChampsOnglet <> CS_VIDE
ChampOngletComplet = OngletDepart + "." + ChampsOnglet
TypeDuChamp = {ChampOngletComplet,indGPW}..Type

SI TypeDuChamp <> typOnglet ALORS
Trace(" -",k," ",ChampsOnglet, " Type : ",TypeDuChamp)
TableAjouteLigne({LaTable,indChamp},k,ChampOngletComplet,TypeDuChamp,ChampsOnglet, "")
k++
SINON
//EnumereRecursifOngletsVolet(LaTable,OngletDepart,ChampsOnglet,1,nType,k)
NumOng = 1
EnumereRecursifOngletsVolet(LaTable,OngletDepart,ChampsOnglet,NumOng,LeGroupe,TypeDuChamp,k)
//Trace("Appel fonction Recursive pou "," ",ChampsOnglet)
FIN
ChampsOnglet = EnumèreSousElément(OngletDepart)
k++
FIN
//Trace(" ===================================================================")



RENVOYER k