Index: APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml
===================================================================
diff -u -r29968 -r38746
--- APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml	(.../Legrabox.cls.xml)	(revision 29968)
+++ APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml	(.../Legrabox.cls.xml)	(revision 38746)
@@ -3,6 +3,61 @@
 <Class name="APPS.Halux.common.impl.ProductieSequentie.Legrabox">
 <Super>APPS.Halux.common.impl.ProductieSequentie.Basis</Super>
 
+<Method name="MaakStandaardSequentie">
+<Implementation><![CDATA[
+	Do ..Init()
+
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	#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 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 ProductieSequentieItems As %ListOfObjects = ..MaakProductieSequentieItems(Toelevering, ProductLijn)
+			
+			Do ..VulAanSorteringVoorProductieSequentieItems(.Sortering, ProductieSequentieItems, MaatwerkProduct)
+		}
+
+		Do ##class(TECH.ListUtils).AppendList(..SequentieItems, ..GeefGesorteerdeProductieSequentieItems(.Sortering, .SequentieNummer))
+	}
+]]></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>
+
 <Method name="GeefSorteerSleutel">
 <FormalSpec>MaatwerkProduct:DOM.PM.MaatwerkProduct,Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: APPS/Halux/common/impl/ProductieSequentie/Taor.cls.xml
===================================================================
diff -u -r30423 -r38746
--- APPS/Halux/common/impl/ProductieSequentie/Taor.cls.xml	(.../Taor.cls.xml)	(revision 30423)
+++ APPS/Halux/common/impl/ProductieSequentie/Taor.cls.xml	(.../Taor.cls.xml)	(revision 38746)
@@ -38,14 +38,66 @@
 
 <Method name="MaakStandaardSequentie">
 <Implementation><![CDATA[
-	Do ##super()
+	Do ..Init()
+
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	#dim ToeleveringIterator As TECH.Iterator = ..GeefBatch().GeefToeleveringIterator()
+	
+	#dim Sortering As TECH.MultiDim
+	
+	While (ToeleveringIterator.HasNext()) {
+		#dim SorteringPerToelevering As TECH.MultiDim
+		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
+		#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 ProductieSequentieItems As %ListOfObjects = ..MaakProductieSequentieItems(Toelevering, ProductLijn)
+			
+			Do ..VulAanSorteringVoorProductieSequentieItems(.SorteringPerToelevering, ProductieSequentieItems, MaatwerkProduct)
+		}
+	
+		Do ..VulInToeleveringSequentieNummer(.SorteringPerToelevering)		
+		Merge Sortering = SorteringPerToelevering
+		Kill SorteringPerToelevering
+	}
+	
+	#dim SequentieNummer As %Integer = 0
+	#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
+		do ..SequentieItems.Insert(Item)
+	}
+	
 	#dim ProductieLijn As APPS.Halux.common.enu.ProductieLijn = ..GeefBatch().GeefLijn()
 	If (ProductieLijn = ##class(APPS.Halux.common.enu.ProductieLijn).Een()) || (ProductieLijn = ##class(APPS.Halux.common.enu.ProductieLijn).Twee()) {
 		Do ..AssemblageKarGenerator.Genereer(..SequentieItems)
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="VulInToeleveringSequentieNummer">
+<FormalSpec><![CDATA[&Sortering:TECH.MultiDim]]></FormalSpec>
+<Private>1</Private>
+<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.ToeleveringSequentieNummer = ..FrequentieTabel.Verhoog(Item.ToeleveringID)
+	}
+	
+	Quit GesorteerdeProductieSequentieItems
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 </Storage>
Index: APPS/Halux/common/ProductieSequentie.cls.xml
===================================================================
diff -u -r38673 -r38746
--- APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 38673)
+++ APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 38746)
@@ -187,43 +187,7 @@
 </Method>
 
 <Method name="MaakStandaardSequentie">
-<Implementation><![CDATA[
-	Do ..Init()
-
-	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
-	#dim ToeleveringIterator As TECH.Iterator = ..GeefBatch().GeefToeleveringIterator()
-	
-	#dim Sortering As TECH.MultiDim
-	
-	While (ToeleveringIterator.HasNext()) {
-		#dim SorteringPerToelevering As TECH.MultiDim
-		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
-		#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 ProductieSequentieItems As %ListOfObjects = ..MaakProductieSequentieItems(Toelevering, ProductLijn)
-			
-			Do ..VulAanSorteringVoorProductieSequentieItems(.SorteringPerToelevering, ProductieSequentieItems, MaatwerkProduct)
-		}
-	
-		Do ..VulInToeleveringSequentieNummer(.SorteringPerToelevering)		
-		Merge Sortering = SorteringPerToelevering
-		Kill SorteringPerToelevering
-	}
-	
-	#dim SequentieNummer As %Integer = 0
-	#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
-		do ..SequentieItems.Insert(Item)
-	}
-]]></Implementation>
+<Abstract>1</Abstract>
 </Method>
 
 <Method name="MaakVHossSequentie">
@@ -385,23 +349,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VulInToeleveringSequentieNummer">
-<FormalSpec><![CDATA[&Sortering:TECH.MultiDim]]></FormalSpec>
-<Private>1</Private>
-<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.ToeleveringSequentieNummer = ..FrequentieTabel.Verhoog(Item.ToeleveringID)
-	}
-	
-	Quit GesorteerdeProductieSequentieItems
-]]></Implementation>
-</Method>
-
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.Halux8081.ProductieSeqFA5D</DataLocation>