Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml
===================================================================
diff -u -r71440 -r71441
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml	(.../KenmerkenOptiesGenerator.cls.xml)	(revision 71440)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml	(.../KenmerkenOptiesGenerator.cls.xml)	(revision 71441)
@@ -84,6 +84,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOptieVoorLadesBijkomend">
+<FormalSpec>Product:DOM.PM.MaatwerkProduct,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToeleveringGeformateerd:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set LijstBijkomendeOpties = ##class(%ListOfObjects).%New()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom()
+	
+	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorSmalleLade(IngegevenKenmerken, SequentieNummerBinnenToeleveringGeformateerd))
+	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorBodemHoogte(IngegevenKenmerken, SequentieNummerBinnenToeleveringGeformateerd))
+	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorBodemBreedte(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerBinnenToeleveringGeformateerd))
+	Do ##class(TECH.ListUtils).AppendList(LijstBijkomendeOpties, ..GeefOptiesVoorRugBreedteEnRugHoogte(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerBinnenToeleveringGeformateerd))
+	Do LijstBijkomendeOpties.Insert(..GeefOptiePlaatmateriaalKleuren(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerBinnenToeleveringGeformateerd))
+	Do LijstBijkomendeOpties.Insert(..GeefOptieStalenRugBreedte(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerBinnenToeleveringGeformateerd))
+		
+	Quit LijstBijkomendeOpties
+]]></Implementation>
+</Method>
+
 <Method name="GeefOptiesIngegegevenKenmerken">
 <FormalSpec>Ingegevenkenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToelevering:%String</FormalSpec>
 <Private>1</Private>
@@ -107,25 +126,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOptieVoorLadesBijkomend">
-<FormalSpec>Product:DOM.PM.MaatwerkProduct,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToeleveringGeformateerd:%Integer</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	Set LijstBijkomendeOpties = ##class(%ListOfObjects).%New()
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom()
-	
-	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorSmalleLade(IngegevenKenmerken, SequentieNummerBinnenToeleveringGeformateerd))
-	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorBodemHoogte(IngegevenKenmerken, SequentieNummerBinnenToeleveringGeformateerd))
-	Do LijstBijkomendeOpties.Insert(..GeefOptieVoorBodemBreedte(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerBinnenToeleveringGeformateerd))
-	Do ##class(TECH.ListUtils).AppendList(LijstBijkomendeOpties, ..GeefOptiesVoorRugBreedteEnRugHoogte(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerBinnenToeleveringGeformateerd))
-	Do LijstBijkomendeOpties.Insert(..GeefOptiePlaatmateriaalKleuren(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerBinnenToeleveringGeformateerd))
-	Do LijstBijkomendeOpties.Insert(..GeefOptieStalenRugBreedte(IngegevenKenmerken, HalffabItemsBoom, SequentieNummerBinnenToeleveringGeformateerd))
-		
-	Quit LijstBijkomendeOpties
-]]></Implementation>
-</Method>
-
 <Method name="GeefOptieVoorSmalleLade">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToelevering:%String</FormalSpec>
 <Private>1</Private>
Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml
===================================================================
diff -u -r71438 -r71441
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 71438)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 71441)
@@ -33,10 +33,30 @@
 <Implementation><![CDATA[
 	Set Opties = ##class(%ListOfObjects).%New()
 	#dim SequentieNummerBinnenToelevering As %Integer = UitvoeringInfo.SequentieNummerBinnenToelevering	
-	#dim SequentieNummerBinnenToeleveringGeformateerd = ..PrependNul(UitvoeringInfo.SequentieNummerBinnenToelevering)
-	
+	#dim SequentieNummerBinnenToeleveringGeformateerd = ..PrependNul(UitvoeringInfo.SequentieNummerBinnenToelevering)	
 	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(UitvoeringInfo.ProductID)	
-	#dim DnaCodeIterator As TECH.Iterator =  ..DnaCodeRepository.ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent(Toelevering.GeefID(), UitvoeringInfo.SequentieNummer, Product.GeefID())
+	
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorDnaCodeEnPin(Toelevering.GeefID(), Product.GeefID(), UitvoeringInfo.SequentieNummer, SequentieNummerBinnenToeleveringGeformateerd))
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorAxInventTransIdEnAxConfigId(Toelevering, Product, SequentieNummerBinnenToeleveringGeformateerd))
+		
+	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Korttekst", Product.GeefKorttekst()))
+	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Langtekst", Product.GeefLangtekst()))
+	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Dossiercode", Product.GeefDossierCode()))
+	// Mapper voorzien voor FSC
+	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "FSC-claim", Product.GeefFSCHout()))
+	
+	Quit Opties
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptiesVoorDnaCodeEnPin">
+<FormalSpec>ToeleveringId:%String,ProductId:%String,SequentieNummerBinnenBatch:%String,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set LijstOpties = ##class(%ListOfObjects).%New()
+	
+	#dim DnaCodeIterator As TECH.Iterator =  ..DnaCodeRepository.ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent(ToeleveringId, SequentieNummerBinnenBatch, ProductId)
 	#dim DnaCodeLijst As %ListOfDataTypes = ##class(TECH.ListUtils).IteratorToList(DnaCodeIterator)
 	#dim DnaCode As %String = ""
 	#dim DnaCodeIngekort As %String = ""
@@ -47,14 +67,26 @@
 		Set DnaCodeIngekort = $Extract(DnaCode, $Length(DnaCode) - 2, $Length(DnaCode))
 	}
 	
-	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "DNA-code", DnaCode))
-	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "PIN", DnaCode))
-	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "SHORTPIN", DnaCodeIngekort))
+	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "DNA-code", DnaCode))
+	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "PIN", DnaCode))
+	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "SHORTPIN", DnaCodeIngekort))
 	
+	Quit LijstOpties
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptiesVoorAxInventTransIdEnAxConfigId">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,Product:DOM.PM.MaatwerkProduct,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set LijstOpties = ##class(%ListOfObjects).%New()
+	
 	#dim AxInventTransId As %String = ""
 	#dim AxConfigId As %String = ""
 	#dim ToeleveringLijnGevonden As %Boolean = $$$False
 	#dim ToeleveringLijnIterator As DOM.AKP.impl.DataM.DataMToeleveringLijnIterator = Toelevering.GeefToeleveringLijnIterator()	
+	
 	While (ToeleveringLijnIterator.HasNext() && $$$Not(ToeleveringLijnGevonden)) {
 		#dim ProductToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = ToeleveringLijnIterator.Next()
 		If ProductToeleveringLijn.GeefProductID() = Product.GeefID() {
@@ -63,16 +95,11 @@
 			Set ToeleveringLijnGevonden = $$$True
 		}
 	}
-	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "InventTransID", AxInventTransId))
-	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "AxConfigId", AxConfigId))
 	
-	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Korttekst", Product.GeefKorttekst()))
-	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Langtekst", Product.GeefLangtekst()))
-	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Dossiercode", Product.GeefDossierCode()))
-	// Mapper voorzien voor FSC
-	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "FSC-claim", Product.GeefFSCHout()))
+	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "InventTransID", AxInventTransId))
+	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "AxConfigId", AxConfigId))
 	
-	Quit Opties
+	Quit LijstOpties
 ]]></Implementation>
 </Method>
 </Class>