Procedure Habilitation FixerEcheance(E : Nul Ou Date);
Si la valeur du paramètre E est Nul, alors la licence ne comportera plus de date d'échéance.
Si un utilisateur déclenche un traitement pour un module sous licence dont l'échéance est dépassée, alors l'exception LicenceViolee est envoyée.
Variable
/******/
L : Nul Ou Licence;
Principal
/*******/
Debut
...
L.FixerEcheance(DateSysteme().AjouterJours(30));
/* La licence est temporaire pour une duree de 30 jours. */
...
Fin Principal
- | - | - | - | - | - | - | - | - |