// Récupère l'alias de l'onglet dynamique
vFenInterne est un Champ <- Fen_Menu.OngletMenu[Fen_Menu.OngletMenu..Valeur]
// Récupère le nom de la fenêtre interne associée à cet onglet dynamique
vNomFenêtreInterne est une chaîne
vNomFenêtreInterne = EnumèreChamp(vFenInterne, 1, parOrdreDeCréation)
// Exécute la procédure locale de la fenêtre interne chargée dans l'onglet
ExécuteTraitement(vNomFenêtreInterne+".ProcRafraichir",trtProcedure)

vNomFenêtreInterne = EnumèreChamp (ZR_Detail,1,parOrdreDeCréation)
ExécuteTraitement("ZR_Detail."+vNomFenêtreInterne+".Enregistrer_Offre_TrL",trtProcedure, clErreurL)

IHMFenPrincipale est une Classe
PRIVÉ
//Liste des procédures de suppression de sélection des fenêtres internes
//[nom fenêtre interne] = [sa procédure]
m_taColProcDesselectionner est un tableau associatif de Procédures
FIN

// Résumé : Pour inscrire les procédures des fenêtres internes
// Syntaxe :
// inscrireProcDesselectionner (<sPNomFenInterne> est chaîne, <prcPProcedure> est procédure)
//
// Paramètres :
// sPNomFenInterne (chaîne ANSI) : Nom de la fenêtre interne
// prcPProcedure (procédure) : sa procédure
//
Procedure inscrireProcDesselectionner(LOCAL sPNomFenInterne est une chaîne, prcPProcedure est une Procedure)

m_taColProcDesselectionner[sPNomFenInterne] = prcPProcedure

// Résumé : Transmet la liste des procédures des fenêtres internes
//
Procedure getColProcDesselectionner():tableau associatif de Procédures

RENVOYER m_taColProcDesselectionner

Procedure MaFenêtre()
gclObjIHMFenPrincipale est un objet IHMFenPrincipale

//Résumer : Nous chargeons la liste des fenêtres internes dans la zone répétée de la fenêtre principale
Procedure chargerZoneRepetee()

POUR TOUT clObjMaitreOperation de colObjMaitreOperation
//Création d'un nouvel enregistrement dans la zone
//ZR_OpOrchestrator => nom de ma zone répétée de ma fenêtre principale
//FI_MaitreOpGroupe => nom de la fenêtre interne
//clObjMaitreOperation => Pour cet exemple l'objet contenant la liste des éléments devant être
// affichée par la fenêtre interne dans sa propre zone répétée
//gclObjIHMFenPrincipale = > L'objet initialement instancié regroupant les procédures
ZoneRépétéeAjouteFI(ZR_OpOrchestrator, FI_MaitreOpGroupe ,clObjMaitreOperation,gclObjIHMFenPrincipale)
FIN

Procedure MaFenêtre(LOCAL pObjMaitreOpGroupe est un objet clMaitreOpGroupe dynamique, gpclPObjIHMParent est un objet IHMFenPrincipale dynamique)

//Dans sa partie "fin d'initialisation"
//Nous récupérons le nom du groupe à afficher
LIB_NomGroupe = pObjMaitreOpGroupe:getNomGrpSelection()

//Nous inscrivons notre procédure "dessectionner" dans la liste des procédures
prcValProcedure est une Procedure
prcValProcedure = desselectionner
gpclPObjIHMParent:inscrireProcDesselectionner(LIB_NomGroupe,prcValProcedure)

//Procédure permettant la "déselection" des éléments contenus dans sa zone répétée
Procedure desselectionner()

SI ZoneRépétéeOccurrence(ZR_ZoneOperation) = 0 ALORS RETOUR

POUR X = 1 _À_ ZR_ZoneOperation..Occurrence
//Rend invisible la puce de sélection
ATT_Selection[X] = Faux
FIN

Procedure selectionner()
taColProcDesselection est un tableau associatif de Procédures
sNomFenInterne est une chaîne
prcProcDesselection est une Procedure

//Nous récupérons la procédure "desselectionner" de toutes les fenêtres internes
taColProcDesselection = gpclPObjIHMParent:getColProcDesselectionner()

POUR TOUT prcProcDesselection, sNomFenInterne de taColProcDesselection
//Pour l'exemple, si cette procédure appartient à celle en cours nous passons à la suivante.
//L'objectif est de monter que si vous connaissez le nom d'une fenêtre en particulier vous pouvez
//directement interagir avec celle-ci
//Je pouvais simplifier en mettant directement ce traitement dans une méthode de "IHMFenPrincipale"
SI sNomFenInterne = LIB_NomGroupe ALORS CONTINUER

prcProcDesselection()
FIN

//Ci-dessous nous sélectionnons simplement l'élément en affichant une puce
nIndiceZone est un entier
nIndiceZone = ZoneRépétéeSelect(ZR_ZoneOperation)
SI nIndiceZone <> Null ALORS ATT_Selection[nIndiceZone] = Vrai