Comment recuperer les informations d`une tache planifiee en windev 10 ?
PROCEDURE pAfficheDetailTâche()
EXTERNE ListePlanifications
//Variables
sDate est une chaîne
sHeure est une chaîne
sNomTache est une chaîne
sType est un entier
Trace("Nom de la tache : " + ListePlanifications..ValeurAffichee)
//Nom de la tâche
sNomTache = ListePlanifications..ValeurAffichee
PlanificateurProprietesTâche(sNomTache)
//Recuperation des informations d`execution
sDate = TâchePlanifiee.DernièreExecution..Jour + "/" + TâchePlanifiee.DernièreExecution..Mois + "/" + TâchePlanifiee.DernièreExecution..Annee
sHeure = TâchePlanifiee.DernièreExecution..Heure + ":" + TâchePlanifiee.DernièreExecution..Minute
LBL_DerniereExecution = sDate + " " + sHeure
sDate = TâchePlanifiee.ProchaineExecution..Jour + "/" + TâchePlanifiee.ProchaineExecution..Mois + "/" + TâchePlanifiee.ProchaineExecution..Annee
sHeure = TâchePlanifiee.ProchaineExecution..Heure + ":" + TâchePlanifiee.ProchaineExecution..Minute
LBL_ProchaineExecution = sDate + " " + sHeure
SELON TâchePlanifiee.CodeErreur
CAS 0
LBL_ResultatExecution = "La tâche a ete executee avec succès."
AUTRES CAS
LBL_ResultatExecution = "La tâche à rencontre une erreur lors de son execution : " + TâchePlanifiee.CodeErreur
FIN
//Recuperation des infos sur les horaires
SI PlanificateurProprietesHoraire (sNomTache,1) ALORS
sType = HoraireTâchePlanifiee.Type
SELON sType
CAS htConnexion
LBL_DetailTache = "Execution à l`ouverture d`une session. " + CR
CAS htDemarrage
LBL_DetailTache = "Execution au demarrage du système." + CR
CAS htHebdomadaire
LBL_DetailTache = "Planification à la semaine." + CR
CAS htInactivite
LBL_DetailTache = "Execution lorsque le système est inactif." + CR
CAS htMensuel
LBL_DetailTache = "Planification au mois. " + CR
CAS htQuotidien
LBL_DetailTache = "Planification par jour." + CR
CAS htUneFois
LBL_DetailTache = "Execution une seule fois." + CR
AUTRES CAS
LBL_DetailTache = ""
FIN
LBL_DetailTache = LBL_DetailTache + HoraireTâchePlanifiee.Libelle
FIN