Index: vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r73219 -r73287
--- vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 73219)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 73287)
@@ -46,8 +46,8 @@
 	Do ..AssertOptie(Resultaat.GetAt(7), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Rugbreedte", 1)
 	Do ..AssertOptie(Resultaat.GetAt(8), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Rughoogteinmm", 78.5)
 	Do ..AssertOptie(Resultaat.GetAt(9), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Stalenrugbreedte", "null")
-	Do ..AssertOptie(Resultaat.GetAt(10), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Plaatmateriaalbodemkleuren", "WI")
-	Do ..AssertOptie(Resultaat.GetAt(11), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Plaatmateriaalrugkleuren", "WI")
+	Do ..AssertOptie(Resultaat.GetAt(10), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Plaatmateriaalbodemkleuren", "WI/WI")
+	Do ..AssertOptie(Resultaat.GetAt(11), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Plaatmateriaalrugkleuren", "WI/WI")
 	Do ..AssertOptie(Resultaat.GetAt(12), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Ladehoogteinmm", 78.5)
 	Do ..AssertOptie(Resultaat.GetAt(13), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Fysiekeladehoogteinmm", 90)
 	Do ..AssertOptie(Resultaat.GetAt(14), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Zijkanthoogteinmm", 90)
Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml
===================================================================
diff -u -r73199 -r73287
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml)	(revision 73199)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml)	(revision 73287)
@@ -137,28 +137,50 @@
 <Implementation><![CDATA[
 	Set LijstOptieslaatmateriaalKleuren = ##class(%ListOfObjects).%New()
 	
-	#dim PlaatmateriaalKleuren As %String = ""
-	
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom()
+	#dim PlaatmateriaalBodemKleur As %String = ..GeefPlaatmateriaalBodemKleur(IngegevenKenmerken, Product.GeefHalffabItemsBoom())
+	Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Plaatmateriaalbodemkleuren", PlaatmateriaalBodemKleur))
+	
+	If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()) {
+		#dim PlaatmateriaalRugKleur As %String = ..GeefPlaatmateriaalRugKleur(IngegevenKenmerken, Product.GeefHalffabItemsBoom())
+		Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Plaatmateriaalrugkleuren", PlaatmateriaalRugKleur))
+	}
+	
+	Quit LijstOptieslaatmateriaalKleuren
+]]></Implementation>
+</Method>
+
+<Method name="GeefPlaatmateriaalBodemKleur">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PlaatmateriaalBodemKleur As %String = ""
 	#dim BodemItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Bodem())
 	
 	#dim BodemKleurZichtbaar As %string = IngegevenKenmerken.BodemKleur
 	#dim BodemKleur2de As %String = BodemKleurZichtbaar
 	Set:(..IsBewerkingNodigVoorBodem(BodemItem)) BodemKleur2de =  ..BodemUtils.GeefTweedeKleur(BodemItem.GeefHalffab().ProductID, BodemKleurZichtbaar)	
 	
-	If (BodemKleurZichtbaar = BodemKleur2de) {
-		Set PlaatmateriaalKleuren = BodemKleurZichtbaar
-	} Else {
-		Set PlaatmateriaalKleuren = BodemKleurZichtbaar _ "/" _ BodemKleur2de
-	}
+	Set PlaatmateriaalBodemKleur = BodemKleurZichtbaar _ "/" _ BodemKleur2de
 	
-	Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Plaatmateriaalbodemkleuren", PlaatmateriaalKleuren))
+	Quit PlaatmateriaalBodemKleur
+]]></Implementation>
+</Method>
+
+<Method name="GeefPlaatmateriaalRugKleur">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PlaatmateriaalRugKleur As %String = ""
+	#dim RugItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = ..RugUtils.GeefRugX(HalffabItemsBoom)
 	
-	If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()) {
-		Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Plaatmateriaalrugkleuren", PlaatmateriaalKleuren))
-	}
+	#dim RugKleurZichtbaar As %string = IngegevenKenmerken.BodemKleur		// Rugkleur = Bodemkleur
+	#dim RugKleur2de As %String = RugKleurZichtbaar
+	Set:(..IsBewerkingNodigVoorRug(RugItem)) RugKleur2de =  ..BodemUtils.GeefTweedeKleur(RugItem.GeefHalffab().ProductID, RugKleurZichtbaar)	
 	
-	Quit LijstOptieslaatmateriaalKleuren
+	Set PlaatmateriaalRugKleur = RugKleurZichtbaar _ "/" _ RugKleur2de
+	
+	Quit PlaatmateriaalRugKleur
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/Document/impl/MVX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorMvx.cls.xml
===================================================================
diff -u -r73199 -r73287
--- APPS/Halux/PPS/Document/impl/MVX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorMvx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorMvx.cls.xml)	(revision 73199)
+++ APPS/Halux/PPS/Document/impl/MVX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorMvx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorMvx.cls.xml)	(revision 73287)
@@ -132,28 +132,51 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set LijstOptieslaatmateriaalKleuren = ##class(%ListOfObjects).%New()
-	#dim PlaatmateriaalKleuren As %String = ""
 	
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom()
+	#dim PlaatmateriaalBodemKleur As %String = ..GeefPlaatmateriaalBodemKleur(IngegevenKenmerken, Product.GeefHalffabItemsBoom())
+	Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Plaatmateriaalbodemkleuren", PlaatmateriaalBodemKleur))
+	
+	If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()) {
+		#dim PlaatmateriaalRugKleur As %String = ..GeefPlaatmateriaalRugKleur(IngegevenKenmerken, Product.GeefHalffabItemsBoom())
+		Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Plaatmateriaalrugkleuren", PlaatmateriaalRugKleur))
+	}
+	
+	Quit LijstOptieslaatmateriaalKleuren
+]]></Implementation>
+</Method>
+
+<Method name="GeefPlaatmateriaalBodemKleur">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PlaatmateriaalBodemKleur As %String = ""
 	#dim BodemItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Bodem())
 	
 	#dim BodemKleurZichtbaar As %string = IngegevenKenmerken.BodemKleur
 	#dim BodemKleur2de As %String = BodemKleurZichtbaar
 	Set:(..IsBewerkingNodigVoorBodem(BodemItem)) BodemKleur2de =  ..BodemUtils.GeefTweedeKleur(BodemItem.GeefHalffab().ProductID, BodemKleurZichtbaar)	
 	
-	If (BodemKleurZichtbaar = BodemKleur2de) {
-		Set PlaatmateriaalKleuren = BodemKleurZichtbaar
-	} Else {
-		Set PlaatmateriaalKleuren = BodemKleurZichtbaar _ "/" _ BodemKleur2de
-	}
+	Set PlaatmateriaalBodemKleur = BodemKleurZichtbaar _ "/" _ BodemKleur2de
 	
-	Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Plaatmateriaalbodemkleuren", PlaatmateriaalKleuren))
+	Quit PlaatmateriaalBodemKleur
+]]></Implementation>
+</Method>
+
+<Method name="GeefPlaatmateriaalRugKleur">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PlaatmateriaalRugKleur As %String = ""
+	#dim RugItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = ..RugUtils.GeefRugX(HalffabItemsBoom)
 	
-	If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Hout()) {	
-		Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Plaatmateriaalrugkleuren", PlaatmateriaalKleuren))
-	}
+	#dim RugKleurZichtbaar As %string = IngegevenKenmerken.BodemKleur		// Rugkleur = Bodemkleur
+	#dim RugKleur2de As %String = RugKleurZichtbaar
+	Set:(..IsBewerkingNodigVoorRug(RugItem)) RugKleur2de =  ..BodemUtils.GeefTweedeKleur(RugItem.GeefHalffab().ProductID, RugKleurZichtbaar)	
 	
-	Quit LijstOptieslaatmateriaalKleuren
+	Set PlaatmateriaalRugKleur = RugKleurZichtbaar _ "/" _ RugKleur2de
+	
+	Quit PlaatmateriaalRugKleur
 ]]></Implementation>
 </Method>