Index: DOM/PM/ProductTekst/impl/KleurcodeBepaler/MVX.cls.xml
===================================================================
diff -u -r64561 -r64564
--- DOM/PM/ProductTekst/impl/KleurcodeBepaler/MVX.cls.xml	(.../MVX.cls.xml)	(revision 64561)
+++ DOM/PM/ProductTekst/impl/KleurcodeBepaler/MVX.cls.xml	(.../MVX.cls.xml)	(revision 64564)
@@ -12,7 +12,7 @@
 	#dim KleurCode As TECH.String = "  "	
 	
 	If (HalffabItemsBoom.BevatRol(..Enum.Rol.Bodem)) {
-		#dim KleurCodes As %List = ..GeefPPSKleurCodesVoorRol(HalffabItemsBoom, ..Enum.Rol.Bodem, "MVX_PPS_Bodem", DataDefinitie)
+		#dim KleurCodes As %List = ..GeefPPSBodemKleurCodesVoorRol(HalffabItemsBoom, ..Enum.Rol.Bodem, "MVX_PPS_Bodem", DataDefinitie)
 		#dim KleurCodePositie As %Integer = $ListFind(KleurCodes, IngegevenKenmerken.BodemKleur)
 
 		If $$$Not(KleurCodePositie = 0) {
@@ -38,7 +38,7 @@
 	#dim ZijkantRol As TECH.String = ..Enum.Rol.LadeZijkant _ "->Links"
 	
 	If (HalffabItemsBoom.BevatRol(ZijkantRol)) {
-		Set KleurCode = $ListGet(..GeefPPSKleurCodesVoorRol(HalffabItemsBoom, ZijkantRol, "MVX_PPS_LadeZijkant", DataDefinitie))
+		Set KleurCode = $ListGet(..GeefPPSLadeKleurCodesVoorRol(HalffabItemsBoom, ZijkantRol, "MVX_PPS_LadeZijkant", DataDefinitie))
 	} ElseIf $$$Not(IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.MVXProductieWijze).Volledig()) {
 		Set KleurCode = IngegevenKenmerken.LadeKleur
 	}
Index: DOM/PM/ProductTekst/impl/KleurcodeBepaler.cls.xml
===================================================================
diff -u -r32268 -r64564
--- DOM/PM/ProductTekst/impl/KleurcodeBepaler.cls.xml	(.../KleurcodeBepaler.cls.xml)	(revision 32268)
+++ DOM/PM/ProductTekst/impl/KleurcodeBepaler.cls.xml	(.../KleurcodeBepaler.cls.xml)	(revision 64564)
@@ -48,6 +48,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPPSBodemKleurCodesVoorRol">
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Rol:TECH.String,GroepID:TECH.String,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter</FormalSpec>
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[	Quit DataDefinitie.DataDefinitieGet(GroepID, ..GeefHalffab(HalffabItemsBoom, Rol).GeefProductID(), "BodemKleur")
+]]></Implementation>
+</Method>
+
+<Method name="GeefPPSLadeKleurCodesVoorRol">
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Rol:TECH.String,GroepID:TECH.String,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter</FormalSpec>
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[	Quit DataDefinitie.DataDefinitieGet(GroepID, ..GeefHalffab(HalffabItemsBoom, Rol).GeefProductID(), "LadeKleur")
+]]></Implementation>
+</Method>
+
 <Method name="GeefHalffab">
 <FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Rol:TECH.String</FormalSpec>
 <Private>1</Private>