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

' Augmentation de la cadence selon la quantité à produire
Select Case Tache.Quantite_Operatoire_GVC
Case is > 10000
    Cadence = Cadence  * 1.4
Case is > 2000
    Cadence = Cadence  * 1.2
End Select

' Variation de la cadence selon la difficulté d'impression
Select Case Tache.Information_Process(2).Zone_Configurable_4
Case "2"    ' Difficile
    Cadence = Cadence * 0.8
Case "3"    ' Vernis seul
    Cadence = Cadence * 1.2
End Select

' Si opérateur en formation, on diminue la cadence de 20%
Dim OperateurEnFormation as Boolean = Tache.Zone_Configurable_10
if OperateurEnFormation then
    Cadence = Cadence * 0.8
end if