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

'-----------------------------------------------------------------------------------------
' Si même forme de découpe : on enlève 5 min si collage classique ou 10min si collage avec accubraille
'-----------------------------------------------------------------------------------------
if not TachePrecChangement(  Tache.Entite(2).Zone_Configurable_4 , True, False) then
    if Tache.Code_Operation = "COLACC" Then
        TempsReglage = TempsReglage - 10
    Else
        TempsReglage = TempsReglage - 5
    end If
end If

' Si opérateur en formation, on ajoute 50% du temps
Dim OperateurEnFormation as Boolean = Tache.Zone_Configurable_10
if OperateurEnFormation then
    TempsReglage = TempsReglage * 1.5
end if

' Au minium 5 minutes de réglage pour le temps de changement d'OF
TempsReglage = math.max(TempsReglage, 5)