Définition...
Opérateurs...
Exemple...
Traduction...
/***************************************************************/
Type Licences Defaut Final
/* Objet : Type des objets correspondant aux licences. */
/***************************************************************/
Prive :
LicencesMere : Nul Ou Licences Lecture Public;
Selon Sorte : SorteDeploiementLicence Lecture Public Faire
Cas LicenceNonAttribuee Pour DeploiementLicenceNonAttribuee Faire
ListeDeLicences : Nul Ou ListeDe LicenceUnitaire Lecture Public;
ListeDeLicencesNoeud : Nul Ou ListeDe Licences Lecture Public;
Fin Cas
Cas LicenceDuNoeud Pour DeploiementLicenceNoeud Faire
NomNoeud : Caractere Lecture Public;
NomServeur : Caractere Lecture Public;
ListeDeLicences : Nul Ou ListeDe LicenceUnitaire Lecture Public;
ListeDeLicencesUtilisateur : Nul Ou ListeDe Licences Lecture Public;
Fin Cas
Cas LicenceDeLUtilisateur Pour DeploiementLicenceUtilisateur Faire
NomUtilisateur : Caractere Lecture Public;
ListeDeLicences : Nul Ou ListeDe LicenceUnitaire Lecture Public;
Fin Cas
Fin Selon
Fin Type
Le type Licences ne possède pas de constructeur explicite.
Procedure AfficherLicences2(L : Nul Ou LicenceUnitaire, M : Caractere)
/****************************************************************/
Variable
M2 : Caractere;
Debut
Si M != "" Alors
M2=M+"."+L.NomModuleLicencie+":";
Sinon
M2="."+L.NomModuleLicencie+":";
Fin Si
M2+=L.Description;
Ecran.Ecrire(M2+"\n");
Fin Procedure
Procedure AfficherLicences(L : Nul Ou Licences, M : Caractere="")
/***********************************************************/
Variable
LL2 : Nul Ou ListeDe Nul Ou Licences;
L2 : Nul Ou Licences;
LL3 : Nul Ou ListeDe Nul Ou LicenceUnitaire;
L3 : Nul Ou LicenceUnitaire;
M2 : Caractere;
Debut
Selon L.Sorte Faire
Cas Pour DeploiementLicenceNonAttribuee Faire
/* Il s'agit d'une liste de licences au niveau global. */
LL3=L.LicenceNonAttribuee.ListeDeLicences;
Pour L3=LL3.ParcoursAuDebut() JusquA LL3.DernierElement() Faire
AfficherLicences2(L3);
Fin Pour
LL2=L.LicenceNonAttribuee.ListeDeLicencesNoeud;
Pour L2=LL2.ParcoursAuDebut() JusquA LL2.DernierElement() Faire
AfficherLicences(L2);
Fin Pour
Fin Cas
Cas Pour DeploiementLicenceNoeud Faire
/* Il s'agit d'une liste de licences au niveau d'un noeud. */
M2=L.LicenceDuNoeud.NomNoeud+"."+L.LicenceDuNoeud.NomServeur;
LL3=L.HabilitationDuNoeud.ListeDeLicences;
Pour L3=LH3.ParcoursAuDebut() JusquA LH3.DernierElement() Faire
AfficherLicences2(H3,M2);
Fin Pour
LL2=L.LicenceDuNoeud.ListeDeLicencesUtilisateur;
Pour L2=LH2.ParcoursAuDebut() JusquA LLH2.DernierElement() Faire
Licences(L2,M2);
Fin Pour
Fin Cas
Cas Pour DeploiementLicenceUtilisateur Faire
/* Il s'agit d'une liste de licences au niveau d'un utilisateur. */
M2=M+"."+L.LicenceDeLUtilisateur.NomUtilisateur;
LL3=L.LicenceDeLUtilisateur.ListeDeLicences;
Pour L3=LL3.ParcoursAuDebut() JusquA LL3.DernierElement() Faire
AfficherLicences2(L3,M2);
Fin Pour
Fin Cas
Fin Selon
Fin Procedure
Lizenzen | Licenses | 些执照 | Licencias | - | - | - | - |