DOM.PM.ProductTekst.impl.KleurcodeBepaler,DOM.PM.Maatwerk.LBX.impl.Base IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter="" TECH.String IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter="" TECH.String Links" If (HalffabItemsBoom.BevatRol(ZijkantRol)) { Set KleurCode = $ListGet(..GeefPPSKleurCodesVoorRol(HalffabItemsBoom, ZijkantRol, "LBX_PPS_LadeZijkant", DataDefinitie)) } ElseIf $$$Not(IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) { Set KleurCode = IngegevenKenmerken.LadeKleur } Quit KleurCode ]]>