Index: APPS/Halux/PPS/Document/impl/MVX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorMvx.cls.xml
===================================================================
diff -u -r73373 -r73399
--- APPS/Halux/PPS/Document/impl/MVX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorMvx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorMvx.cls.xml)	(revision 73373)
+++ APPS/Halux/PPS/Document/impl/MVX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorMvx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorMvx.cls.xml)	(revision 73399)
@@ -134,48 +134,13 @@
 	Set LijstOptieslaatmateriaalKleuren = ##class(%ListOfObjects).%New()
 	
 	If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()) {
-		#dim PlaatmateriaalRugKleur As %String = ..GeefPlaatmateriaalRugKleur(IngegevenKenmerken, Product.GeefHalffabItemsBoom())
-		Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugkleur", PlaatmateriaalRugKleur))
+		Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugkleur", IngegevenKenmerken.BodemKleur))
 	}
 	
 	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)	
-	
-	Set PlaatmateriaalBodemKleur = BodemKleurZichtbaar _ "/" _ BodemKleur2de
-	
-	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)
-	
-	#dim RugKleurZichtbaar As %string = IngegevenKenmerken.BodemKleur		// Rugkleur = Bodemkleur
-	#dim RugKleur2de As %String = RugKleurZichtbaar
-	Set:(..IsBewerkingNodigVoorRug(RugItem)) RugKleur2de =  ..BodemUtils.GeefTweedeKleur(RugItem.GeefHalffab().ProductID, RugKleurZichtbaar)	
-	
-	Set PlaatmateriaalRugKleur = RugKleurZichtbaar _ "/" _ RugKleur2de
-	
-	Quit PlaatmateriaalRugKleur
-]]></Implementation>
-</Method>
-
 <Method name="GeefOptieLadehoogteInMm">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
 <Private>1</Private>
Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml
===================================================================
diff -u -r73373 -r73399
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml)	(revision 73373)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml)	(revision 73399)
@@ -138,48 +138,13 @@
 	Set LijstOptieslaatmateriaalKleuren = ##class(%ListOfObjects).%New()
 	
 	If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()) {
-		#dim PlaatmateriaalRugKleur As %String = ..GeefPlaatmateriaalRugKleur(IngegevenKenmerken, Product.GeefHalffabItemsBoom())
-		Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugkleur", PlaatmateriaalRugKleur))
+		Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugkleur", IngegevenKenmerken.BodemKleur))
 	}
 	
 	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)	
-	
-	Set PlaatmateriaalBodemKleur = BodemKleurZichtbaar _ "/" _ BodemKleur2de
-	
-	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)
-	
-	#dim RugKleurZichtbaar As %string = IngegevenKenmerken.BodemKleur		// Rugkleur = Bodemkleur
-	#dim RugKleur2de As %String = RugKleurZichtbaar
-	Set:(..IsBewerkingNodigVoorRug(RugItem)) RugKleur2de =  ..BodemUtils.GeefTweedeKleur(RugItem.GeefHalffab().ProductID, RugKleurZichtbaar)	
-	
-	Set PlaatmateriaalRugKleur = RugKleurZichtbaar _ "/" _ RugKleur2de
-	
-	Quit PlaatmateriaalRugKleur
-]]></Implementation>
-</Method>
-
 <Method name="GeefOptieLadehoogteInMm">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
 <Private>1</Private>
Index: APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml
===================================================================
diff -u -r73373 -r73399
--- APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 73373)
+++ APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 73399)
@@ -112,41 +112,16 @@
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	Set LijstOptieslaatmateriaalKleuren = ##class(%ListOfObjects).%New()	
-	#dim PlaatmateriaalBodemKleur As %String = ..GeefPlaatmateriaalBodemKleur(Product)
+	Set LijstOptieslaatmateriaalKleuren = ##class(%ListOfObjects).%New()
 	
 	If (IngegevenKenmerken.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()) {
-		Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugkleur", PlaatmateriaalBodemKleur))
+		Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugkleur", IngegevenKenmerken.BodemKleur))
 	}
 	
 	Quit LijstOptieslaatmateriaalKleuren
 ]]></Implementation>
 </Method>
 
-<Method name="GeefPlaatmateriaalBodemKleur">
-<FormalSpec>Product:DOM.PM.MaatwerkProduct</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim PlaatmateriaalBodemKleur As %String = ""
-	
-	#dim BodemKleurZichtbaar As %string = $ListGet(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefID(),"KB"))
-	#dim BodemProductNummer As %String = $Piece($Get(^PRBS("BS",Product.GeefID(),"PRBDHO.001")),"\",1)
-	#dim MogelijkeKleurenBodem As %String = $Select(BodemProductNummer?4.7N:##class(Prod.Kenmerk.DataDefinitie).Get("TB",BodemProductNummer,"Kleur"),1:"")
-	#dim BodemKleur2de As %String = BodemKleurZichtbaar
-	
-	If $$$Not(MogelijkeKleurenBodem = "") {
-		#dim IndexBodemkleurZichtbaar As %Integer= $ListFind(MogelijkeKleurenBodem,BodemKleurZichtbaar)
-		#dim IndexMogelijkeBodemkleur2de As %Integer = $Select(IndexBodemkleurZichtbaar = 1:2, 1:1)
-		
-		Set BodemKleur2de = $ListGet(MogelijkeKleurenBodem, IndexMogelijkeBodemkleur2de) 
-	}
-	
-	Set PlaatmateriaalBodemKleur = BodemKleurZichtbaar _ "/" _ BodemKleur2de
-	
-	Quit PlaatmateriaalBodemKleur
-]]></Implementation>
-</Method>
-
 <Method name="GeefOptieStalenRugBreedte">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r73377 -r73399
--- vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 73377)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 73399)
@@ -46,7 +46,7 @@
 	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 _ "-Rugkleur", "WI/WI")
+	Do ..AssertOptie(Resultaat.GetAt(10), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Rugkleur", "WI")
 	Do ..AssertOptie(Resultaat.GetAt(11), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Ladehoogteinmm", 78.5)
 	Do ..AssertOptie(Resultaat.GetAt(12), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Fysiekeladehoogteinmm", 90)
 	Do ..AssertOptie(Resultaat.GetAt(13), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Zijkanthoogteinmm", 90)