Procedure Habilitation ChangerEtat(NouvelEtat : EtatEntrepot);
Variable
/******/
E : Nul Ou Entrepot;
Principal
/*******/
Debut
...
E.ChangerEtat(EntrepotIndisponible);
/* L'entrepôt est basculé dans l'état de maintenance. */
...
E.ChangerEtat(EntrepotLectureEcriture);
/* L'entrepôt est à nouveau utilisable. */
...
Fin Principal
- | - | - | - | - | - | - | - | - |