Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml
===================================================================
diff -u -r71392 -r71394
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71392)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71394)
@@ -43,8 +43,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IngegevenKenmerkenTypeApi">
+<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI="",OrderApi:DOM.VKP.OrderAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",ProductApi:DOM.PM.ProductAPI="",MaatwerkService:APPS.PM.Maatwerk.MaatwerkService="",AfbeeldingService:APPS.PM.Maatwerk.impl.AfbeeldingService</FormalSpec>
+<FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI="",OrderApi:DOM.VKP.OrderAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",ProductApi:DOM.PM.ProductAPI="",MaatwerkService:APPS.PM.Maatwerk.MaatwerkService="",AfbeeldingService:APPS.PM.Maatwerk.impl.AfbeeldingService="",IngegevenKenmerkenTypeApi:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -58,6 +63,7 @@
 	Set ..AfbeeldingService = $$$Inject(AfbeeldingService, ##class(APPS.PM.Maatwerk.impl.AfbeeldingService).%New())
 	Set ..KenmerkenConverterLbx = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Lbx).%New()
 	Set ..ProperyFilter = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.PropertyFilter).%New()
+	Set ..IngegevenKenmerkenTypeApi = $$$Inject(IngegevenKenmerkenTypeApi, ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -131,6 +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))
 	
 	Quit Opties
 ]]></Implementation>
@@ -262,8 +269,7 @@
 <Implementation><![CDATA[
 	Set LijstOptiesIngegevenKenmerken = ##class(%ListOfObjects).%New()
 	
-	#dim LbxKenmerkenApps As APPS.PM.Maatwerk.dto.LBXKenmerken = ..KenmerkenConverterLbx.Converteer(LbxIngegegevenKenmerkenDom)
-	
+	#dim LbxKenmerkenApps As APPS.PM.Maatwerk.dto.LBXKenmerken = ..KenmerkenConverterLbx.Converteer(LbxIngegegevenKenmerkenDom)	
 	Set PropertiesIterator = ##class(TECH.ListIterator).%New(##class(TECH.ClassUtils).GeefProperties(LbxKenmerkenApps.%ClassName(1)))
 	#dim GefilterdePropertiesIterator As TECH.ListIterator = ..ProperyFilter.Filter(PropertiesIterator)
 	
@@ -278,6 +284,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBijkomendeOpties">
+<FormalSpec>LbxIngegegevenKenmerkenDom:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01,SequentieNummberBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set LijstBijkomendeOpties = ##class(%ListOfObjects).%New()
+	
+	#dim IsSmalleLade As %Boolean = ..IngegevenKenmerkenTypeApi.IsSmalleLade(LbxIngegegevenKenmerkenDom)
+	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-" _ "IsSmalleLade", IsSmalleLade))
+
+	#dim AftrekVoorBodemDiepte As %Decimal = ##class(DOM.PM.Maatwerk.LBX.BodemUtils).GeefAftrekVoorBodemDiepte(LbxIngegegevenKenmerkenDom.RugWandMateriaal)
+	#dim BodemHoogte As %Integer = LbxIngegegevenKenmerkenDom.LadeDiepte - AftrekVoorBodemDiepte
+	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-" _ "BodemHoogte", BodemHoogte))
+	
+	Quit LijstBijkomendeOpties
+]]></Implementation>
+</Method>
+
 <Method name="PrependNul">
 <FormalSpec>Getal:%Integer,Lengte:%Integer=3</FormalSpec>
 <Private>1</Private>