/***************************************************************/
Type LicenceUnitaire Defaut Final TailleSegment 2
/* Objet : Type des objets correspondant aux licences. */
/***************************************************************/
/*-------------------------------------------------------------*/
/* Heritage des proprietes d'Objet. */
/*-------------------------------------------------------------*/
Prive :
EstInstanceDe : Type Lecture Public;
/*-------------------------------------------------------------*/
/* Proprietes propres. */
/*-------------------------------------------------------------*/
Prive :
LicencesMere : Nul Ou Licences Virtuel Lecture Public;
NomModule : Caractere Virtuel Lecture Public Trace;
Echeance : Nul Ou Date Virtuel Lecture Public Trace;
NbExecutionsConcurrentesMax : Nul Ou Date Virtuel Lecture Public;
Sorte : SorteLicence Virtuel Lecture Public;
Editeur : Nul Ou Caractere Virtuel Lecture Public;
Integrateur : Nul Ou Caractere Virtuel Lecture Public;
Distributeur : Nul Ou Caractere Virtuel Lecture Public;
NumeroDeSerie : Nul Ou Caractere Virtuel Lecture Public;
DateInstallation : Date Virtuel Lecture Public;
/*-------------------------------------------------------------*/
/* Heritage des methodes d'Objet. */
/*-------------------------------------------------------------*/
Public :
Fonction Optimiser(Invariant) Identique(O : Nul Ou Objet) Retourner Nul Ou Booleen;
Procedure Convertir(O : Nul Ou Objet);
Fonction Optimiser(Invariant) CreeParLeServeur() Retourner Entier;
Fonction Optimiser(Invariant) CreeParLeProcessus() Retourner Entier;
Fonction Optimiser(Invariant) CreeDansLEntrepot() Retourner Entrepot;
Fonction Cloner(EntrepotCible : Nul Ou Entrepot=Nul, Profondeur : ModeClonage = ClonageObjetSeul) Retourner Nul Ou Objet;
Fonction LirePropriete(NomPropriete : Caractere) Retourner Nul Ou Objet;
Procedure EcrirePropriete(NomPropriete : Caractere, Valeur : Nul Ou Objet);
Fonction IncrementerDecrementerPropriete(NomPropriete : Nul Ou Caractere, Incrementer : Booleen, Prefixe : Booleen) Retourner Nul Ou Objet;
Procedure SupprimerPropriete(NomPropriete : Caractere);
Fonction Optimiser(Invariant) EnumererProprietes(NumeroPropriete : Entier, TypePropriete : Nul Ou Type=? Sortie, PeutEtreNul : Booleen=? Sortie, Aide : Nul Ou Caractere=? Sortie, NomEnumere : Nul Ou Caractere=? Sortie) Retourner Nul Ou Caractere;
Fonction Optimiser(Invariant) Adresse() Retourner Nul Ou Caractere;
Prive :
Fonction Exporter(E : Nul Ou IEchangeElementaire) Retourner Boolean;
Fonction Importer(E : Nul Ou IEchangeElementaire, EntrepotCible : Nul Ou Entrepot=Nul, EstFiltre : Booleen=Faux, V : Entier=0, R : Entier=0, C : Entier=0) Retourner Nul Ou Objet;
/*-------------------------------------------------------------*/
/* Methodes propres. */
/*-------------------------------------------------------------*/
Public :
Operateur Optimiser(Invariant, NulAbsorbant) ==(L : Nul Ou LicenceUnitaire) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) !=(L : Nul Ou LicenceUnitaire) Retourner Nul Ou Booleen;
Procedure Habilitation FixerEcheance(E : Nul Ou Date);
Procedure Habilitation FixerNbExecutionsConcurrentesMax(E : Nul Ou Date);
Procedure Habilitation FixerSorteLicence(S : SorteLicence);
Procedure Habilitation Supprimer();
Fonction Habilitation NbExecutionsConcurrentes() Retourner Entier;
Procedure Habilitation Deployer(NomDuNoeud : Nul Ou Caractere, NomDuServeur: Nul Ou Caractere, NomDeLUtilisateur : Nul Ou Caractere);
Prive :
Destructeur(MettreEnAnteMemoire : Booleen) Retourner Booleen;
Fin Type
Le type LicenceUnitaire ne possède pas de constructeur explicite. Les utilisateurs sont créés au travers de la méthode AjouterLicenceUnitaire du type ProfilSecurite.
Variable
/******/
L1 : Nul Ou LicenceUnitaire;
L2 : Nul Ou LicenceUnitaire;
Principal
/*******/
Debut
...
Si L1==L2 Alors
/* Egalité entre deux licences. */
...
Fin Si
Si L1!=L2Alors
/* Inégalité entre deux licences. */
...
Fin Si
...
Si L1.NomModule=="UpsKrn" Alors
/* Licence pour Up ! Kernel. */
...
Fin Si
...
Fin Principal
- | - | - | - | - | - | - | - | - |