Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml
===================================================================
diff -u -r71368 -r71374
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71368)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71374)
@@ -18,8 +18,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MaatwerkService">
+<Type>APPS.PM.Maatwerk.MaatwerkService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI="",OrderApi:DOM.VKP.OrderAPI="",PartijApi:DOM.PARTIJ.PartijAPI=""</FormalSpec>
+<FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI="",OrderApi:DOM.VKP.OrderAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",ProductApi:DOM.PM.ProductAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -28,6 +38,8 @@
 	Set ..ToeleveringApi = $$$Inject(ToeleveringApi,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
 	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
 	Set ..PartijApi = $$$Inject(PartijApi, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..MaatwerkService = ##class(APPS.PM.Maatwerk.MaatwerkService).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -82,7 +94,7 @@
 <Method name="GeefRangorde">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	// Uit pitchingtabel
+<Implementation><![CDATA[	// TODO Uit pitchingtabel
 ]]></Implementation>
 </Method>
 
@@ -94,13 +106,17 @@
 	
 	Do Opties.Insert(..GeefOptieSequentieInfoBinnenToelevering(UitvoeringInfo.SequentieNummer, UitvoeringInfo.SequentieNummerBinnenToelevering))
 	Do Opties.Insert(..GeefOptieSequentieBinnenBatch(UitvoeringInfo.SequentieNummer))
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesRollenLade(UitvoeringInfo.ProductID, UitvoeringInfo.SequentieNummerBinnenToelevering))
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorStuklijst(UitvoeringInfo.ProductID, UitvoeringInfo.SequentieNummerBinnenToelevering))
 	
 	Quit Opties
 ]]></Implementation>
 </Method>
 
 <Method name="GeefOptieSequentieInfoBinnenToelevering">
 <FormalSpec>SequentieNummerBinnenBatch:%Integer,SequentieNummerBinnenToelevering:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
 <Implementation><![CDATA[
 	Set OptieSequentieInfoBinnenToelevering = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions).%New()
 	
@@ -117,7 +133,7 @@
 <Method name="GeefOptieSequentieBinnenBatch">
 <FormalSpec>SequentieNummer:%Integer</FormalSpec>
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
+<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
 <Implementation><![CDATA[
 	Set OptieSequentieBinnenBatch = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions).%New()
 	
@@ -143,6 +159,113 @@
 	Quit Getal
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOptiesRollenLade">
+<FormalSpec>ProductId:%String,SequentieNummberBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set RollenLade = ##class(%ListOfObjects).%New()
+	
+	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(ProductId)
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom()
+	#dim HalffabItemsIterator As TECH.Iterator = HalffabItemsBoom.GeefAlleHalffabItemsIterator()
+	
+	While (HalffabItemsIterator.HasNext()) {
+		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsIterator.Next()
+		If $$$Not(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem")) {
+			Do RollenLade.Insert(..GeefOptieVoorRol(HalffabItem, SequentieNummberBinnenToelevering))
+		}
+		
+		
+	}
+	
+	Quit RollenLade
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptieVoorRol">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,SequentieNummberBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	Set OptieSequentieVoorRol = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions).%New()	
+	#dim SequentieNummerGeformateerd = ..PrependNul(SequentieNummberBinnenToelevering)
+	
+	Set OptieSequentieVoorRol.Omschrijving = "LADE " _ SequentieNummerGeformateerd
+	Set OptieSequentieVoorRol.Naam = SequentieNummerGeformateerd _ "-ROL-" _ ..GeefRolNaam(HalffabItem)
+	Set OptieSequentieVoorRol.Waarde = HalffabItem.GeefAantal()
+	
+	Quit OptieSequentieVoorRol
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptiesVoorStuklijst">
+<FormalSpec>ProductId:%String,SequentieNummberBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set Stuklijst = ##class(%ListOfObjects).%New()
+	
+	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(ProductId)
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom= Product.GeefHalffabItemsBoom()
+	#dim HalffabItemsIterator As TECH.Iterator = HalffabItemsBoom.GeefAlleHalffabItemsIterator()
+	#dim Index As %Integer = 0
+	
+	While (HalffabItemsIterator.HasNext()) {
+		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsIterator.Next()
+		If $$$Not(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem")) {
+			Set Index = Index + 1
+			Do Stuklijst.Insert(..GeefOptieVoorStuklijst(HalffabItem, SequentieNummberBinnenToelevering, Index))
+		}
+
+	}
+	
+	Quit Stuklijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptieVoorStuklijst">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,SequentieNummberBinnenToelevering:%String,Index:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	Set OptieSequentieVoorStuklijst = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions).%New()	
+	#dim SequentieNummerGeformateerd = ..PrependNul(SequentieNummberBinnenToelevering)
+	
+	#dim IdentNummer As %String = ""
+	
+	If (HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem")) {
+		#dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = HalffabItem
+		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ConcreetHalffabItem.GeefHalffab()
+		Set IdentNummer = ..ProductApi.GeefIdentNummerVoorProductId(Halffab.GeefProductID())
+	} Else {
+		// TODO Throw error
+	}
+	
+	Set OptieSequentieVoorStuklijst.Omschrijving = "LADE " _ SequentieNummerGeformateerd
+	Set OptieSequentieVoorStuklijst.Naam = SequentieNummerGeformateerd _ "-INPUT[" _ ..PrependNul(Index, 2) _ "]|QTY|ROL"
+	Set OptieSequentieVoorStuklijst.Waarde = IdentNummer _ "|"_ HalffabItem.GeefAantal() _ "|" _ ..GeefRolNaam(HalffabItem)
+	
+	Quit OptieSequentieVoorStuklijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefRolNaam">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim RolNaam As %String = HalffabItem.GeefRol()
+
+	// TODO Converteer naar juiste naam voor verschillende ladetypes
+	If $$$Not(HalffabItem.ParentItem.GeefRol() = ##class(DOM.PM.enu.LadeVariant).LBXPure()) {
+		Set RolNaam = HalffabItem.ParentItem.GeefRol() _ "." _ RolNaam
+	}
+	
+	Quit RolNaam
+]]></Implementation>
+</Method>
 </Class>