UpsPls.TypePlanification


TypePlanification Dans (PlanificationAuPlusTot, PlanificationAuPlusTard, PlanificationSynchronisee);

Description

L'énuméré TypePlanification spécifie le type de planification d'un travail. Cet énuméré est utilisé lors de la consultation de la propriété Planification du type Travail.

La signification des valeurs est la suivante :

PlanificationAuPlusTot.
Le travail ne doit pas être réalisé avant une certaine date.
PlanificationAuPlusTard.
Le travail doit être réalisé avant une certaine date.
PlanificationSynchronisee.
Le travail doit être réalisé après l'exécution d'un ou plusieurs autres travaux.
PlanificationPeriodique.
Le travail doit être réalisé périodiquement selon un calendrier.

Exemple


Variable

/******/


	E : Entier;

	MonTravail : Nul Ou Travail;



FileDAttente

/**********/


	MaFile(1);



/****************************************************************/

Procedure P(A : Entier Entree Sortie)

/* Objet : Procedure quelconque. */

/****************************************************************/

Debut

Ecran.Ecrire("P="+Caractere(A));

Fin Procedure



Principal

/*******/

Debut

E=10;

MonTravail=P(E)||MaFile;

/* Mise en file de l'appel de 'P' dans la file 'MaFile'. Le travail est 'MonTravail'. */

MonTravail.PlanifierAuPlusTard(DateSysteme()+10);

/* Le travail est à déclencher dans au plus 10 secondes. */

Ecran.Ecrire(MaFile.NbTachesServeur);

Ecran.Ecrire(MaFile.NbTravauxEnAttente());

TantQue (MonTravail.Etat!=TravailTermine) Et (MonTravail.Etat!=TravailEnErreur) Faire

/* Nous attendons que le travail soit accompli. */

	Attendre(5);

Fin TantQue

Si MonTravail.Etat==TravailEnErreur Alors

/* Il y a eu une erreur. */

	Ecran.Ecrire(MonTravail.MessageErreur);

Sinon

/* Lit la valeur de sortie correspondant au premier paramètre. */

	Ecran.Ecrire(MonTravail.LireValeurEntier(1));

Fin Si

Fin Principal

Traduction


-	-	-	-	-	-	-	-	-