Définition...
Opérateurs...
Exemple...
Traduction...
/***************************************************************/
Type QuotaUnitaire Defaut Final
/* Objet : Type des objets correspondant aux quotas. */
/***************************************************************/
Prive :
QuotasPere : Nul Ou Quotas Lecture Public;
Nom : Nul Ou Caractere Lecture Public;
QuotaMaximal : Entier Lecture Public;
QuotaProportionnel : Reel Lecture Public;
Fin Type
Le type QuotaUnitaire ne possède pas de constructeur explicite.
Procedure AfficherQuotas2(H : Nul Ou QuotaUnitaire, M : Caractere)
/************************************************************/
Variable
M2 : Caractere;
Debut
Si Q.Nom != Nul Alors
M2=Q+"."+Q.Nom+":";
Sinon
M2=M+":";
Fin Si
M2+=" "+Caractere(Q.QuotaMaximal)+" "+Caractere(Q.QuotaProportionnel);
Ecran.Ecrire(M2+"\n");
Fin Procedure
Procedure AfficherQuotas(Q : Nul Ou Quotas, M : Caractere="")
/*******************************************************/
Variable
LQ2 : Nul Ou ListeDe Nul Ou Quotas;
Q2 : Nul Ou Quotas;
LQ3 : Nul Ou ListeDe Nul Ou QuotaUnitaire;
Q3 : Nul Ou QuotaUnitaire;
M2 : Caractere;
Debut
Selon Q.Sorte Faire
Cas Pour QuotaModule Faire
/* Il s'agit d'une liste de quota au niveau d'un module. */
Q2=Q.QuotaDuModule.ModuleQuantifie.NomModule;
LQ3=Q.QuotaDuModule.ListeDeQuotasAppels;
Pour Q3=LQ3.ParcoursAuDebut() JusquA LQ3.DernierElement() Faire
AfficherQuotas2(Q3,M2);
Fin Pour
LQ2=Q.QuotaDuModule.ListeDeQuotasTypes;
Pour Q2=LQ2.ParcoursAuDebut() JusquA LQ2.DernierElement() Faire
AfficherQuotas(Q2,M2);
Fin Pour
Fin Cas
Cas Pour QuotaObjet Faire
/* Il s'agit d'une liste de quotas au niveau d'un objet. */
M2=M+".?";
LQ3=Q.QuotaDeLObjet.ListeDeQuotasMethodes;
Pour Q3=LQ3.ParcoursAuDebut() JusquA LQ3.DernierElement() Faire
AfficherQuotas2(Q3,M2);
Fin Pour
Fin Cas
Cas Pour QuotaType Faire
/* Il s'agit d'une liste de quotas au niveau d'un type. */
M2=M+"."+Q.QuotaDuType.TypeQuantifie.NomType;
QH3=Q.QuotasDuType.ListeDeQuotasMethodes;
Pour Q3=LQ3.ParcoursAuDebut() JusquA LQ3.DernierElement() Faire
AfficherQuotas2(Q3,M2);
Fin Pour
LQ2=Q.QuotaDuType.ListeDeQuotasObjets;
Pour Q2=LQ2.ParcoursAuDebut() JusquA LQ2.DernierElement() Faire
AfficherQuotas(Q2,M2);
Fin Pour
Fin Cas
Fin Selon
Fin Procedure
GrundlegendeQuote | ElementaryQuota | 基本的配额 | CuotaElemental | - | - | - | - |