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

'-------------------------------------------------------------------------------------------
' Couleur selon la section
'-------------------------------------------------------------------------------------------
Select Case Tache.Code_Section
    
Case "IMP"
    '----- Impression -----
    ' On définit une couleur de ticket fonction des 4 première teintes (notamment pour mieux visualiser la quadri)
    Dim Teinte1 as string = Tache.Information_Process(3).Zone_Configurable_1
    Dim Teinte2 as string = Tache.Information_Process(3).Zone_Configurable_2
    Dim Teinte3 as string = Tache.Information_Process(3).Zone_Configurable_3
    Dim Teinte4 as string = Tache.Information_Process(3).Zone_Configurable_4
    Dim ListeTeintes as string = Teinte1 & Teinte2 & Teinte3 & Teinte4
    
    Couleur = ChaineVersCouleur(ListeTeintes)

    
case Else
    ' Autres sections : Découpe, collage
    ' Coloration par forme de découpe 
    Couleur = CouleurDonneeRef(13, Tache.Entite(2).Zone_Configurable_4)
    
End Select