Index: APPS/Halux/common/ProductieSequentie.cls.xml
===================================================================
diff -u -r31991 -r32007
--- APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 31991)
+++ APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 32007)
@@ -190,41 +190,28 @@
 	Do ..Init()
 
 	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
-	#dim Sort As MultiDimensional
-	#dim SequenceNr As %Integer = 0
+	#dim Sortering As TECH.MultiDim = ""
 	#dim Batch As APPS.Halux.common.Batch = ..GeefBatch()
 	#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
+	#dim SequentieNummer As %Integer = 0
 	
 	While (ToeleveringIterator.HasNext()) {
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
 		
-		Kill Sort
+		Kill Sortering
 		
 		#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
 		
 		While (ProductLijnIterator.HasNext()) {
 			#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
 			// TODOPA vertaling van ProductID As %String naar DOM.common.ProductID
 			#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID())
-			#dim ProductieSequentieItemIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..MaakProductieSequentieItems(Toelevering, ProductLijn))
+			#dim ProductieSequentieItems As %ListOfObjects = ..MaakProductieSequentieItems(Toelevering, ProductLijn)
 			
-			While (ProductieSequentieItemIterator.HasNext()) {
-				#dim Item As APPS.Halux.common.ProductieSequentieItem = ProductieSequentieItemIterator.Next()
-				#dim SortKey As %String = ..GeefSorteerSleutel(MaatwerkProduct, Item)
-				
-				Set Sort(SortKey) = Item
-			}
+			Do ..VulAanSorteringVoorProductieSequentieItems(.Sortering, ProductieSequentieItems, MaatwerkProduct)
 		}
-		
-		#dim ItemIterator As TECH.Iterator = ##class(TECH.ArrayMultiDimIterator).%New(.Sort)
-		
-		While (ItemIterator.HasNext()) {
-			Set Item = ItemIterator.Next()
-			Set Item.SequentieNummer = $I(SequenceNr)
-			Set Item.GroepSequentieNummer = Item.SequentieNummer
-			
-			Do ..SequentieItems.Insert(Item)
-		}
+
+		Do ##class(TECH.ListUtils).AppendList(..SequentieItems, ..GeefGesorteerdeProductieSequentieItems(.Sortering, .SequentieNummer))
 	}
 ]]></Implementation>
 </Method>
@@ -321,8 +308,8 @@
 	 	Set TotaalAantal = $List(arFabKeys(FabKey))
 	 	Set DeelAantal = $List(arFabKeys(FabKey), 2) + 1
 	} Else {
-		#dim ToeleveringID As %String =$P(FabKey, ";", 1)
-		#dim ToeleveringLijnID As %String =$P(FabKey, ";", 2)
+		#dim ToeleveringID As %String = $Piece(FabKey, ";", 1)
+		#dim ToeleveringLijnID As %String = $Piece(FabKey, ";", 2)
 		#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringID)
 		#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID)
 		
@@ -359,14 +346,11 @@
 <Private>1</Private>
 <ReturnType>APPS.Halux.common.ProductieSequentieItem</ReturnType>
 <Implementation><![CDATA[
-	Do ..FrequentieTabel.Verhoog(Toelevering.GeefID())
-	
 	#dim Item As APPS.Halux.common.ProductieSequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
 		
 	Set Item.ProductID = ProductID
 	Set Item.ToeleveringID = Toelevering.GeefID()
 	Set Item.ToeleveringLijnID = ProductLijn.GeefID()
-	Set Item.ToeleveringSequentieNummer = ..FrequentieTabel.GeefFrequentieVanItem(Toelevering.GeefID())
 	Set Item.DeelAantal = DeelAantal
 	Set Item.TotaalAantal = ProductLijn.GeefAantal()
 	Set Item.BatchID = ..BatchID
@@ -376,6 +360,44 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VulAanSorteringVoorProductieSequentieItems">
+<FormalSpec><![CDATA[&Sortering:TECH.MultiDim,ProductieSequentieItems:%ListOfObjects,MaatwerkProduct:DOM.PM.MaatwerkProduct]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ProductieSequentieItems)
+			
+	While (Iterator.HasNext()) {
+		#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem = Iterator.Next()
+		#dim SorteerSleutel As TECH.String = ..GeefSorteerSleutel(MaatwerkProduct, ProductieSequentieItem)
+				
+		Set Sortering(SorteerSleutel) = ProductieSequentieItem
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefGesorteerdeProductieSequentieItems">
+<FormalSpec><![CDATA[&Sortering:TECH.MultiDim,&SequentieNummer:%Integer]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="APPS.Halux.common.ProductieSequentieItem"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#dim GesorteerdeProductieSequentieItems As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim Iterator As TECH.Iterator = ##class(TECH.ArrayMultiDimIterator).%New(.Sortering)
+		
+	While (Iterator.HasNext()) {
+		#dim Item As APPS.Halux.common.ProductieSequentieItem = Iterator.Next()
+
+		Set Item.SequentieNummer = $Increment(SequentieNummer)
+		Set Item.GroepSequentieNummer = Item.SequentieNummer
+		Set Item.ToeleveringSequentieNummer = ..FrequentieTabel.Verhoog(Item.ToeleveringID)
+			
+		Do GesorteerdeProductieSequentieItems.Insert(Item)
+	}
+	
+	Quit GesorteerdeProductieSequentieItems
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.Halux8081.ProductieSeqFA5D</DataLocation>