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

On se base sur la cadence de base saisie sur la fiche machine.

La cadence est augmentée selon des plages de quantités.

Dim CadenceDeBaseMachine as Integer = Cadence

' Modification de la cadence selon la quantité opératoire
If Tache.Quantite_Operatoire_GVC < 4000 then
    ' Cadence de base
    Cadence = CadenceDeBaseMachine
Else
    If Tache.Quantite_Operatoire_GVC < 10000 then
        ' Cadence intermediaire
        Cadence = CadenceDeBaseMachine * 1.1
    else
        ' Cadence rapide
        Cadence = CadenceDeBaseMachine * 1.2
    end If
end If