Vue FI_COxxx – lambique.online

Code WLangage

Déclaration globale de FI_COxxx

PROCÉDURE FI_Vue(LOCAL gpclPresentation est un PVue dynamique <présentation&rt; = Null)

MaFenêtre..ValeurRenvoyée = Faux

SI gpclPresentation = Null ALORS
	gpclPresentation = PVue.gNouvellePresentation()
SINON
	InitialiserFI(gpclPresentation)
FIN

gpclVue est un VBase dynamique = allouer un VBase

InitialiserFI

Obligatoire ! Elle est appelée par FEN_ComposantConteneur à l’initialisation.

PROCÉDURE InitialiserFI(pclPresentation est un PVue dynamique)

gpclPresentation = pclPresentation

SI gpclPresentation = Null ALORS
	Erreur("gpclPresentation = null...")
	RETOUR
SINON
	GDebug.TracerObjet(gpclPresentation.p_pclModele,ProjetInfo(piNomProjetCourant)+TAB+FI_Vue.NomComplet)
FIN

gpclPresentation.SetColonneNomComplet(TABLE_Champ.COL_NomComplet)
TABLE_Champ.COL_Libelle.Largeur = gpclPresentation.p_nLargeurColonneLibelle

Sablier(Vrai)
gpclPresentation.p_pclModele.Initialiser()
Sablier(Faux)

ActualiserVueFI

Obligatoire ! C’est la procédure qui est appelée par l’observateur de la fenêtre FEN_ComposantConteneur.

PROCÉDURE ActualiserVueFI()

DemandeMiseAJourUI()
gpclVue.MiseAJourTable(TABLE_Champ,VAction_TableAffiche.TouteLaTable)