Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGenerator.cls.xml
===================================================================
diff -u -r71874 -r71877
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGenerator.cls.xml	(.../AlgemeneKenmerkenOptiesGenerator.cls.xml)	(revision 71874)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGenerator.cls.xml	(.../AlgemeneKenmerkenOptiesGenerator.cls.xml)	(revision 71877)
@@ -78,7 +78,7 @@
 	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorBodemBreedte(IngegevenKenmerken, Product, SequentieNummerLade))
 	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorRugBreedte(IngegevenKenmerken, Product, SequentieNummerLade))
 	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorRugHoogteInMm(IngegevenKenmerken, Product, SequentieNummerLade))
-	Do LijstBijkomendeOpties.Insert(..GeefOptiePlaatmateriaalKleuren(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerLade))
+	Do LijstBijkomendeOpties.Insert(..GeefOptiePlaatmateriaalKleuren(IngegevenKenmerken, Product, SequentieNummerLade))
 	Do LijstBijkomendeOpties.Insert(..GeefOptieStalenRugBreedte(IngegevenKenmerken, Product, SequentieNummerLade))
 		
 	Quit LijstBijkomendeOpties
@@ -129,7 +129,7 @@
 
 <Method name="GeefOptiePlaatmateriaalKleuren">
 <Abstract>1</Abstract>
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerLade:%String</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml
===================================================================
diff -u -r71874 -r71877
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml)	(revision 71874)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorLbx.cls.xml)	(revision 71877)
@@ -89,12 +89,14 @@
 </Method>
 
 <Method name="GeefOptiePlaatmateriaalKleuren">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerLade:%String</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
 <Implementation><![CDATA[
-	#dim BodemItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Bodem())
 	#dim PlaatmateriaalKleuren As %String = ""
+	
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom()
+	#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 = ..BodemUtils.GeefTweedeKleur(BodemItem.GeefHalffab().ProductID, BodemKleurZichtbaar)	
 	
Index: APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml
===================================================================
diff -u -r71874 -r71877
--- APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 71874)
+++ APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 71877)
@@ -99,12 +99,30 @@
 </Method>
 
 <Method name="GeefOptiePlaatmateriaalKleuren">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerLade:%String</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Product:DOM.PM.MaatwerkProduct,SequentieNummerLade:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
 <Implementation><![CDATA[
 	#dim PlaatmateriaalKleuren 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 = ""
+	
+	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) 
+	}
+	
+	If (BodemKleurZichtbaar = BodemKleur2de) {
+		Set PlaatmateriaalKleuren = BodemKleurZichtbaar
+	} Else {
+		Set PlaatmateriaalKleuren = BodemKleurZichtbaar _ "/" _ BodemKleur2de
+	}
+	
 	Quit ..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Plaatmateriaalkleuren", PlaatmateriaalKleuren)
 ]]></Implementation>
 </Method>