Retour sommaire : Direct Planning - Formules - Voir aussi : ‣

Code de la machine suivante (contexte de gamme linéaire simple)

Si les gammes sont toujours linéaires, il est possible d’utiliser la fonction simple Tache.Gamme_Tache_Suivante()

Dim w_Tache as Interfaces.Tache
' Récupère la tâche suivante dans la gamme
w_Tache = Tache.Gamme_Tache_Suivante()

' S’il y a bien une tâche suivante
If w_Tache isNot Nothing andalso w_Tache.estValide then
    Libelle = w_Tache.Machine.Code
else
    Libelle = "-"
End if

Liste des codes des machines suivantes (gammes complexes)

L'exemple ci-dessous affiche le code de la machine de la tâche suivante dans la gamme.

Si la tâche courante est immédiatement liée à plusieurs tâches suivantes, affiche les différents codes machine séparés par un espace.

' Recherche la liste des tâches immédiatement suivantes de la tâche
Dim w_list as list(of Long) = Tache.Gamme_ListeID_Taches_Suivantes()

libelle = ""

' 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
        libelle & = w_Tache.Machine.Code & " "
    end if
next