Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGeneratorLbx.cls.xml
===================================================================
diff -u -r71426 -r71477
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGeneratorLbx.cls.xml	(.../RollenEnStuklijstOptiesGeneratorLbx.cls.xml)	(revision 71426)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGeneratorLbx.cls.xml	(.../RollenEnStuklijstOptiesGeneratorLbx.cls.xml)	(revision 71477)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.RollenEnStuklijstOptiesGeneratorLbx">
-<Super>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.RollenEnStuklijstOptiesGenerator</Super>
+<Super>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.RollenEnStuklijstOptiesGenerator</Super>
 
 <Method name="GeefLadeVariant">
 <Private>1</Private>
FishEye: Tag 71477 refers to a dead (removed) revision in file `APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml	(revision 71477)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.RollenEnStuklijstOptiesGenerator">
+<Abstract>1</Abstract>
+<Super>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator</Super>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenereerOptiesVoorLade">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set Opties = ##class(%ListOfObjects).%New()
+	#dim SequentieNummerBinnenToelevering = UitvoeringInfo.SequentieNummerBinnenToelevering
+	
+	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(UitvoeringInfo.ProductID)
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken()
+	#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")) {
+			Do Opties.Insert(..GeefOptieVoorLadeVoorRol(HalffabItem, IngegevenKenmerken, SequentieNummerBinnenToelevering))
+			Do Opties.Insert(..GeefOptieVoorLadeVoorStuklijst(HalffabItem, IngegevenKenmerken, SequentieNummerBinnenToelevering, $Increment(Index)))
+		}
+	}
+	
+	Quit Opties
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptieVoorLadeVoorRol">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	#dim Naam As %String = "-ROL-" _ ..GeefRolNaam(HalffabItem, IngegevenKenmerken)
+	
+	Quit ..GeefOptieVoorLade(SequentieNummerBinnenToelevering, Naam, ..ConverteerWaarde(HalffabItem.GeefAantal(), "%Decimal"))
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptieVoorLadeVoorStuklijst">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToelevering:%String,Index:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	#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
+	}
+	
+	#dim Naam As %String = "-INPUT[" _ ..PrependNul(Index, 2) _ "]|QTY|ROL"
+	#dim Waarde As %String = IdentNummer _ "|"_ HalffabItem.GeefAantal() _ "|" _ ..GeefRolNaam(HalffabItem, IngegevenKenmerken)
+	
+	Quit ..GeefOptieVoorLade(SequentieNummerBinnenToelevering, Naam, Waarde)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeVariant">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.LadeVariant</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>