UpsKrn.Module.EnumererEntrepots


Fonction Optimiser(Invariant) EnumererEntrepots(Numero : Entier, Aide : Nul Ou Caractere=? Sortie) Retourner Nul Ou Entrepot;

Description

La méthode EnumererEntrepots permet d'énumérer les entrepôts publics définis dans le module. Les entrepôts sont numérotés à partir de un.

En sortie, la variable Aide recueille un libellé donnant la sémantique de l'entrepôt et le résultat est l'entrepôt.

Exemple

Module M1


Entrepot
/******/

	E1;

	E2;

	E3;

Module M2


Variable

/******/


	M : Nul Ou Module;

	Numero : Entier;

	P : Nul Ou Entrepot;



Principal

/*******/

M=Module("M1");

P=M.EnumererEntrepots(++Numero, ?);

/* Enumère les entrepôts de 'M1'. */

TantQue P!=Nul Faire

	Ecran.Ecrire(E.NomEntrepot);

	P=M.EnumererEntrepots(++Numero, ?);

Fin TantQue

Fin Principal

Traduction


-	-	-	-	-	-	-	-	-