Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml
===================================================================
diff -u -r71396 -r71400
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71396)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71400)
@@ -305,15 +305,31 @@
 	
 	#dim RugBreedte As %String = ""
 	#dim RugHoogteInMm As %String = ""
+	#dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils.impl.LBXRugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).LBXPure())
+	#dim RugItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = RugUtils.GeefRugX(HalffabItemsBoom)
 	If (LbxIngegegevenKenmerkenDom.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()) {
-		#dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils.impl.LBXRugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).LBXPure())
-		#dim RugItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = RugUtils.GeefRugX(HalffabItemsBoom)
 		Set RugBreedte = RugItem.GeefBewerkteDimensie(LengteDimensie)
 		Set RugHoogteInMm = RugUtils.GeefRugHoogteInMm(LbxIngegegevenKenmerkenDom.RugHoogte)
 	}
 	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-" _ "RugBreedte", RugBreedte))
 	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-" _ "RugHoogteInMm", RugHoogteInMm))
 	
+	#dim PlaatmateriaalKleuren = ""
+	#dim BodemKleurZichtbaar As %string = LbxIngegegevenKenmerkenDom.BodemKleur
+	#dim BodemKleur2de As %String = ##class(DOM.PM.Maatwerk.LBX.BodemUtils).GeefTweedeKleur(BodemItem.GeefHalffab().ProductID, BodemKleurZichtbaar)	
+	If (BodemKleurZichtbaar = BodemKleur2de) {
+		Set PlaatmateriaalKleuren = BodemKleurZichtbaar
+	} Else {
+		Set PlaatmateriaalKleuren = BodemKleurZichtbaar _ "/" _ BodemKleur2de
+	}
+	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-" _ "PlaatmateriaalKleuren", PlaatmateriaalKleuren))
+	
+	#dim StalenRugBreedte As %String = ""
+	If (LbxIngegegevenKenmerkenDom.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()) {
+		Set StalenRugBreedte = RugUtils.GeefStalenRugBreedte(RugItem.GeefHalffab().ProductID)
+	}
+	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-" _ "StalenRugBreedte", StalenRugBreedte))
+	
 	Quit LijstBijkomendeOpties
 ]]></Implementation>
 </Method>