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