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 Cadence_de_base as integer
Dim Cadence_Intermediaire as integer
Dim Cadence_Rapide as integer

' Définition de la cadence de base selon l'opération
select Tache.Code_Operation
    case "IMP5TR"
        Cadence_de_base       = 7500
        Cadence_Intermediaire = 9000
        Cadence_Rapide        = 10000
    case "IMP8UV"
        Cadence_de_base       = 7300
        Cadence_Intermediaire = 8300
        Cadence_Rapide        = 9300
    case ...
				...
end Select

' Modification de la cadence selon la quantité opératoire
If Tache.Quantite_Operatoire_GVC < 2000 then
    ' Cadence de base
    Cadence = Cadence_de_base
Else
    If Tache.Quantite_Operatoire_GVC < 10000 then
        ' Cadence intermediaire
        Cadence = Cadence_Intermediaire
    else
        ' Cadence rapide
        Cadence = Cadence_Rapide
    end If
end If