Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml
===================================================================
diff -u -r71377 -r71378
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71377)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71378)
@@ -112,6 +112,7 @@
 	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(UitvoeringInfo.ProductID)
 	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))
 	
 	Quit Opties
 ]]></Implementation>
@@ -122,13 +123,8 @@
 <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()
-	
-	Set OptieSequentieInfoBinnenToelevering.Omschrijving = "LADE " _ SequentieNummerBinnenBatch
-	Set OptieSequentieInfoBinnenToelevering.Naam = SequentieNummerBinnenBatch _ "-SEQ"
-	Set OptieSequentieInfoBinnenToelevering.Waarde = SequentieNummerBinnenToelevering
-	
-	Quit OptieSequentieInfoBinnenToelevering
+	#dim Naam As %String = "-SEQ"
+	Quit ..GeefOptie(SequentieNummerBinnenBatch, Naam, SequentieNummerBinnenToelevering)
 ]]></Implementation>
 </Method>
 
@@ -137,29 +133,11 @@
 <Private>1</Private>
 <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()
-	
-	Set OptieSequentieBinnenBatch.Omschrijving = "LADE " _ SequentieNummer
-	Set OptieSequentieBinnenBatch.Naam = SequentieNummer _ "-SEQ binnen batch"
-	Set OptieSequentieBinnenBatch.Waarde = SequentieNummer
-	
-	Quit OptieSequentieBinnenBatch
+	#dim Naam = "-SEQ binnen batch"
+	Quit ..GeefOptie(SequentieNummer, Naam, SequentieNummer)
 ]]></Implementation>
 </Method>
 
-<Method name="PrependNul">
-<FormalSpec>Getal:%Integer,Lengte:%Integer=3</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	While ($Length(Getal) < Lengte) {
-		Set Getal = "0" _ Getal
-	}
-	
-	Quit Getal
-]]></Implementation>
-</Method>
-
 <Method name="GeefOptiesRollenLade">
 <FormalSpec>Product:DOM.PM.MaatwerkProduct,SequentieNummberBinnenToelevering:%String</FormalSpec>
 <Private>1</Private>
@@ -173,31 +151,15 @@
 	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))
+			#dim Naam As %String = "-ROL-" _ ..GeefRolNaam(HalffabItem)
+			Do RollenLade.Insert(..GeefOptie(SequentieNummberBinnenToelevering, Naam, HalffabItem.GeefAantal()))
 		}
-		
-		
 	}
 	
 	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()	
-	
-	Set OptieSequentieVoorRol.Omschrijving = "LADE " _ SequentieNummberBinnenToelevering
-	Set OptieSequentieVoorRol.Naam = SequentieNummberBinnenToelevering _ "-ROL-" _ ..GeefRolNaam(HalffabItem)
-	Set OptieSequentieVoorRol.Waarde = HalffabItem.GeefAantal()
-	
-	Quit OptieSequentieVoorRol
-]]></Implementation>
-</Method>
-
 <Method name="GeefOptiesVoorStuklijst">
 <FormalSpec>Product:DOM.PM.MaatwerkProduct,SequentieNummberBinnenToelevering:%String</FormalSpec>
 <Private>1</Private>
@@ -227,10 +189,7 @@
 <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 IdentNummer As %String = ""
-	
+	#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()
@@ -239,11 +198,10 @@
 		// TODO Throw error
 	}
 	
-	Set OptieSequentieVoorStuklijst.Omschrijving = "LADE " _ SequentieNummberBinnenToelevering
-	Set OptieSequentieVoorStuklijst.Naam = SequentieNummberBinnenToelevering _ "-INPUT[" _ ..PrependNul(Index, 2) _ "]|QTY|ROL"
-	Set OptieSequentieVoorStuklijst.Waarde = IdentNummer _ "|"_ HalffabItem.GeefAantal() _ "|" _ ..GeefRolNaam(HalffabItem)
+	#dim Naam As %String = "-INPUT[" _ ..PrependNul(Index, 2) _ "]|QTY|ROL"
+	#dim Waarde As %String = IdentNummer _ "|"_ HalffabItem.GeefAantal() _ "|" _ ..GeefRolNaam(HalffabItem)
 	
-	Quit OptieSequentieVoorStuklijst
+	Quit ..GeefOptie(SequentieNummberBinnenToelevering, Naam, Waarde)
 ]]></Implementation>
 </Method>
 
@@ -264,7 +222,45 @@
 </Method>
 
 <Method name="GeefOptiesVoorKenmerken">
+<FormalSpec>Product:DOM.PM.MaatwerkProduct,SequentieNummberBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set KenmerkenLijst = ##class(%ListOfObjects).%New()
+	
+	Do KenmerkenLijst.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-AdminProductNummer", Product.GeefID()))
+	
+	Quit KenmerkenLijst
+]]></Implementation>
 </Method>
+
+<Method name="PrependNul">
+<FormalSpec>Getal:%Integer,Lengte:%Integer=3</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	While ($Length(Getal) < Lengte) {
+		Set Getal = "0" _ Getal
+	}
+	
+	Quit Getal
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptie">
+<FormalSpec>SequentieNummer:%String,Naam:%String,Waarde:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	Set OptieVoorAdminProductNummer = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions).%New()
+	
+	Set OptieVoorAdminProductNummer.Omschrijving = "LADE " _ SequentieNummer
+	Set OptieVoorAdminProductNummer.Naam = SequentieNummer _ Naam
+	Set OptieVoorAdminProductNummer.Waarde = Waarde
+	
+	Quit OptieVoorAdminProductNummer
+]]></Implementation>
+</Method>
 </Class>