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

Tester un changement d'outil ( temps de réglage minimisé si même outil que sur la tache précédente )

La function TachePrecChangement utilisée ci-dessus teste le changement de valeur d’une zone avec la tâche immédiatement précédente sur la machine.

if not TachePrecChangement( Tache.Zone_Configurable_1, true,true) then
    ' Pas de changement de forme : on supprime le tps de réglage
    TempsReglage = 0
end if

Trouver la tâche précédente “réelle” en ignorant les tâches non productives (réunion de coordination)

Si la tâche précédente est une tâche de réunion de coordination, présente au planning mais n’influant pas sur les changements d’outil, on peut vouloir retrouver la véritable tâche précédente, pour pouvoir ensuite comparer des données (changement d’outil) entre cette tâche précédente et la tâche courante.

' Tache précedente sur la machine
dim TachePrec as Interfaces.Tache = Tache.Ressource_Tache_Precedente

' S'il existe une tâche précédente ET son code OF est vide ET il existe une tâche avant cette tâche précédente
' alors, on redéfinit cette tâche précédente
if (TachePrec IsNot nothing) andalso (TachePrec.Entite(3).Code = "") andalso (TachePrec.Ressource_Tache_Precedente IsNot nothing)  then
    TachePrec = TachePrec.Ressource_Tache_Precedente
end if