Définition...
Opérateurs...
Exemple...
Traduction...
/***************************************************************/
Type Quotas Defaut Final
/* Objet : Type des objets correspondant aux quotas. */
/***************************************************************/
Prive :
QuotasPere : Nul Ou Quotas Lecture Public;
RolePere : Nul Ou Role Lecture Public;
Selon Sorte : SorteQuota Lecture Public Faire
Cas QuotaDuModule Pour QuotaModule Faire
ModuleQuantifie : Nul Ou Module Lecture Public;
ListeDeQuotasAppels : Nul Ou ListeDe Nul Ou QuotaUnitaire Lecture Public;
ListeDeQuotasTypes : Nul Ou ListeDe Nul Ou Quotas Lecture Public;
Fin Cas
Cas QuotaDuType Pour QuotaType Faire
TypeQuantifie : Nul Ou Type Lecture Public;
QuotaParDefaut : Nul Ou QuotaUnitaire Lecture Public;
ListeDeQuotasMethodes : Nul Ou ListeDe Nul Ou QuotaUnitaire Lecture Public;
ListeDeQuotasObjets : Nul Ou ListeDe Nul Ou Quotas Lecture Public;
Fin Cas
Cas QuotaDeLObjet Pour QuotaObjet Faire
ObjetQuantifie : Nul Ou Module Lecture Public;
QuotaParDefaut : Nul Ou QuotaUnitaire Lecture Public;
ListeDeQuotasMethodes : Nul Ou ListeDe Nul Ou QuotaUnitaire Lecture Public;
Fin Cas
Fin Selon
Fin Type
Le type Habilitations 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
Quoten | Quotas | 些配额 | Cuotas | - | - | - | - |