Retour sommaire : Direct Planning - Formules - Voir aussi : Syntaxe Visual Basic

Statut de la tâche précédente (gamme linéaire)

L'exemple ci-dessous affiche le code de la machine précédente et indique si la tâche est commencée ou terminée.

Dans cet exemple on suppose que la gamme est linéaire et qu’il n’y a donc qu’une seule tâche précédente.

Libelle = ""
Dim w_Tache as Interfaces.Tache
' Récupère la tâche précédente dans la gamme
w_Tache = Tache.Gamme_Tache_Precedente()

' S’il y a bien une tâche précédente
If w_Tache isNot Nothing andalso w_Tache.estValide then
	  '--- On affiche le code de la machine ---
    Libelle = w_Tache.Machine.Code

	  '--- et le statut  ---
    if w_Tache.Tache_Terminee Then
        Libelle &= " (Terminé)"
    else
        if w_Tache.Tache_Commencee Then
            Libelle &= " (Commencé)"
        end if
    end if
End if

Statut des tâches précédentes (gammes complexes)

On liste les codes machines des tâches entrantes ainsi que leur statut (Commencé, Terminé)

Libelle=""

' Recherche la liste des tâches précédentes de la tâche
Dim w_list as list(of Long) = Tache.Gamme_ListeID_Taches_Precedentes()

' Parcours les tâches
for each w_lngID as long in w_list
    ' Lecture de la tâche
    Dim w_Tache as Interfaces.Tache = Tache.getTache_ByID(w_lngID)
    ' Controle que la tâche est bien trouvée
			If w_Tache isNot Nothing andalso w_Tache.estValide then
				  '--- On affiche le code de la machine ---
			    Libelle &= w_Tache.Machine.Code
			
				  '--- et le statut  ---
			    if w_Tache.Tache_Terminee Then
			        Libelle &= "(Terminé)"
			    else
			        if w_Tache.Tache_Commencee Then
			            Libelle &= "(Commencé)"
			    end if
					Libelle &= " "
			End if

next