Index: DOM/PM/ProductTekst/impl/KleurcodeBepaler/MVX.cls.xml
===================================================================
diff -u
--- DOM/PM/ProductTekst/impl/KleurcodeBepaler/MVX.cls.xml	(revision 0)
+++ DOM/PM/ProductTekst/impl/KleurcodeBepaler/MVX.cls.xml	(revision 64561)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.ProductTekst.impl.KleurcodeBepaler.MVX">
+<Super>DOM.PM.ProductTekst.impl.KleurcodeBepaler,DOM.PM.Maatwerk.MVX.impl.Base</Super>
+
+<Method name="GeefBinnenKleurCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	Set:$$$Not($IsObject(DataDefinitie)) DataDefinitie = ##class(Prod.Kenmerk.impl.DataDefinitie).%New()
+	
+	#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 KleurCodePositie As %Integer = $ListFind(KleurCodes, IngegevenKenmerken.BodemKleur)
+
+		If $$$Not(KleurCodePositie = 0) {
+			Set KleurCode = $ListGet(KleurCodes, KleurCodePositie)
+		} Else {
+			Set KleurCode = "XX"
+		}
+	} ElseIf $$$Not(IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.MVXXProductieWijze).Volledig()) {
+		Set KleurCode = IngegevenKenmerken.BodemKleur
+	}
+
+	Quit KleurCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefBuitenKleurCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	Set:$$$Not($IsObject(DataDefinitie)) DataDefinitie = ##class(Prod.Kenmerk.impl.DataDefinitie).%New()
+	
+	#dim KleurCode As TECH.String = "  "
+	#dim ZijkantRol As TECH.String = ..Enum.Rol.LadeZijkant _ "->Links"
+	
+	If (HalffabItemsBoom.BevatRol(ZijkantRol)) {
+		Set KleurCode = $ListGet(..GeefPPSKleurCodesVoorRol(HalffabItemsBoom, ZijkantRol, "MVX_PPS_LadeZijkant", DataDefinitie))
+	} ElseIf $$$Not(IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.MVXProductieWijze).Volledig()) {
+		Set KleurCode = IngegevenKenmerken.LadeKleur
+	}
+	
+	Quit KleurCode
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>