Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml
===================================================================
diff -u -r71394 -r71395
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71394)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71395)
@@ -137,7 +137,7 @@
 	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesRollenLade(Product, SequentieNummerBinnenToeleveringGeformateerd))
 	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorStuklijst(Product, SequentieNummerBinnenToeleveringGeformateerd))
 	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorKenmerken(Product, SequentieNummerBinnenToeleveringGeformateerd))
-	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefBijkomendeOpties(Product.GeefIngegevenKenmerken(), SequentieNummerBinnenToeleveringGeformateerd))
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefBijkomendeOpties(Product.GeefIngegevenKenmerken(), Product.GeefHalffabItemsBoom(), SequentieNummerBinnenToeleveringGeformateerd))
 	
 	Quit Opties
 ]]></Implementation>
@@ -285,7 +285,7 @@
 </Method>
 
 <Method name="GeefBijkomendeOpties">
-<FormalSpec>LbxIngegegevenKenmerkenDom:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01,SequentieNummberBinnenToelevering:%String</FormalSpec>
+<FormalSpec>LbxIngegegevenKenmerkenDom:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummberBinnenToelevering:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
@@ -298,6 +298,11 @@
 	#dim BodemHoogte As %Integer = LbxIngegegevenKenmerkenDom.LadeDiepte - AftrekVoorBodemDiepte
 	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-" _ "BodemHoogte", BodemHoogte))
 	
+	#dim BodemItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Bodem())
+	#dim LengteDimensie As DOM.PM.enu.BewerkingDimensie = ##class(DOM.PM.enu.BewerkingDimensie).Lengte()
+	#dim BodemBreedte As %Decimal = BodemItem.GeefBewerkteDimensie(LengteDimensie)
+	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-" _ "BodemBreedte", BodemBreedte))
+	
 	Quit LijstBijkomendeOpties
 ]]></Implementation>
 </Method>