Définition...
Opérateurs...
Exemple...
Traduction...
/***************************************************************/
Type LicenceUnitaire Defaut Final
/* Objet : Type des objets correspondant aux licences. */
/***************************************************************/
Prive :
LicencesMere : Nul Ou Licences Lecture Public;
Nom : Caractere Lecture Public;
Description : Caractere Lecture Public;
NomModuleLicencie : Caractere Lecture Public;
Echeance : Nul Ou Date Lecture Public;
NbExecutionsConcurrentesMax : Nul Ou Date Lecture Public;
Sorte : SorteLicence Lecture Public;
Editeur : Caractere Lecture Public;
Integrateur : Nul Ou Caractere Lecture Public;
Distributeur : Caractere Lecture Public;
NumeroDeSerie : Caractere Lecture Public;
DateInstallation : Date Lecture Public;
Public :
Constructeur(NomLicence : Caractere, DescriptionLicence : Caractere, NomModule : Caractere, E : Caractere, I : Nul Ou Caractere, D : Caractere, N : Caractere);
Procedure FixerEcheance(E : Nul Ou Date);
Procedure FixerNbExecutionsConcurrentesMax(E : Nul Ou Date);
Procedure FixerSorteLicence(S : SorteLicence);
Procedure Supprimer();
Fonction NbExecutionsConcurrentes() Retourner Entier;
Procedure Deployer(NomDuNoeud : Nul Ou Caractere, NomDuServeur: Nul Ou Caractere, NomDeLUtilisateur : Nul Ou Caractere);
Fin Type
Le type LicenceUnitaire possède un constructeur explicite. Le fichier ${UPS_HOME}/misc/ups.lic est mis à jour automatiquement lors de cet appel.
Le paramètre NomLicence est le nom de la licence. Le paramètre DescriptionLicence est la description de la licence. Le paramètre NomModule est le nom du module sous licence. Le paramètre E est le nom de l'éditeur du logiciel dont fait partie le module sous licence. Le paramètre I est le nom de l'éventuel intégrateur du logiciel. Le paramètre D est le nom du distributeur du logiciel. Le paramètre N est le numéro de série de la licence.
Principal
/*******/
Variable
L : Nul Ou LicenceUnitaire;
Debut
L=LicenceUnitaire.EnumererObjets(Nul);
/* La première licence est récupérée. */
TantQue T!=Nul Faire
EcrireEcran(L.Nom+"/"+L.Description);
L=LicenceUnitaire.EnumererObjets(L);
/* La licence suivante est récupérée. */
Fin TantQue
Fin Principal
GrundlegendeLizenz | ElementaryLicense | 基本的执照 | LicenciaElemental | - | - | - | - |