Index: APPS/Halux/common/impl/ProductieSequentie/Taor.cls.xml
===================================================================
diff -u -r29959 -r29968
--- APPS/Halux/common/impl/ProductieSequentie/Taor.cls.xml	(.../Taor.cls.xml)	(revision 29959)
+++ APPS/Halux/common/impl/ProductieSequentie/Taor.cls.xml	(.../Taor.cls.xml)	(revision 29968)
@@ -22,9 +22,8 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefSorteerSleutelVoorMaatwerkProduct">
-<FormalSpec>MaatwerkProduct:DOM.PM.MaatwerkProduct</FormalSpec>
-<Private>1</Private>
+<Method name="GeefSorteerSleutel">
+<FormalSpec>MaatwerkProduct:DOM.PM.MaatwerkProduct,Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#define LeftPad4(%v)    (10000-%v)
@@ -33,6 +32,9 @@
 	Set SorteerSleutel = SorteerSleutel_$$$LeftPad4($Case(IngegevenKenmerken.LadeHoogte,"N":"10","M":"20","C":"40","F":"50",:"999"))_"-"
 	Set SorteerSleutel = SorteerSleutel_$$$LeftPad4(IngegevenKenmerken.InterneBreedte)_"-"
 	Set SorteerSleutel = SorteerSleutel_MaatwerkProduct.GeefID()
+	Set SorteerSleutel = SorteerSleutel_"-"_Item.ToeleveringID
+	Set SorteerSleutel = SorteerSleutel_"-"_Item.ToeleveringLijnID
+	Set SorteerSleutel = SorteerSleutel_"-"_##class(TECH.StringUtils).AlignRight(Item.DeelAantal, "0", 4)
 	Quit SorteerSleutel
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/Halux/common/impl/UTProductieSequentie.cls.xml
===================================================================
diff -u -r29059 -r29968
--- vhUnitTest/APPS/Halux/common/impl/UTProductieSequentie.cls.xml	(.../UTProductieSequentie.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/common/impl/UTProductieSequentie.cls.xml	(.../UTProductieSequentie.cls.xml)	(revision 29968)
@@ -4,11 +4,9 @@
 <Super>APPS.Halux.common.ProductieSequentie</Super>
 
 <Method name="GeefSorteerSleutel">
-<Description>
-</Description>
-<FormalSpec>ProductID:DOM.common.ProductID</FormalSpec>
+<FormalSpec>MaatwerkProduct:DOM.PM.MaatwerkProduct,Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ProductID
+<Implementation><![CDATA[	Quit MaatwerkProduct.ProductID
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/common/ProductieSequentie.cls.xml
===================================================================
diff -u -r29954 -r29968
--- APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 29954)
+++ APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 29968)
@@ -78,7 +78,7 @@
 <Description>
 </Description>
 <Abstract>1</Abstract>
-<FormalSpec>ProductID:DOM.common.ProductID</FormalSpec>
+<FormalSpec>MaatwerkProduct:DOM.PM.MaatwerkProduct,Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
 </Method>
 
@@ -114,13 +114,11 @@
 		{
 			#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
 			// TODOPA vertaling van ProductID As %String naar DOM.common.ProductID
-			#dim ProductID As DOM.common.ProductID = ProductLijn.GeefProductID()
-			#dim ProductSortKey As %String = ..GeefSorteerSleutel(ProductID)
-			
+			#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID())
 			Set ProductieSequentieItemIt = ##class(TECH.ListIterator).%New(..MaakProductieSequentieItems(Toelevering,ProductLijn))
 			While ProductieSequentieItemIt.HasNext(){
 				#dim Item As APPS.Halux.common.ProductieSequentieItem = ProductieSequentieItemIt.Next()
-				#dim SortKey As %String = ProductSortKey _ "-" _ Item.ToeleveringID _ "-" _ Item.ToeleveringLijnID_ "-" _ ##class(TECH.StringUtils).AlignRight(Item.DeelAantal, "0", 4)
+				#dim SortKey As %String = ..GeefSorteerSleutel(MaatwerkProduct, Item)
 				Set Sort(SortKey) = Item
 			}
 		}
Index: APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml
===================================================================
diff -u -r29059 -r29968
--- APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml	(.../Legrabox.cls.xml)	(revision 29059)
+++ APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml	(.../Legrabox.cls.xml)	(revision 29968)
@@ -3,9 +3,8 @@
 <Class name="APPS.Halux.common.impl.ProductieSequentie.Legrabox">
 <Super>APPS.Halux.common.impl.ProductieSequentie.Basis</Super>
 
-<Method name="GeefSorteerSleutelVoorMaatwerkProduct">
-<FormalSpec>MaatwerkProduct:DOM.PM.MaatwerkProduct</FormalSpec>
-<Private>1</Private>
+<Method name="GeefSorteerSleutel">
+<FormalSpec>MaatwerkProduct:DOM.PM.MaatwerkProduct,Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#define LeftPad4(%v)    (10000-%v)
@@ -14,6 +13,9 @@
 	Set SorteerSleutel = SorteerSleutel_$$$LeftPad4($Case(IngegevenKenmerken.LadeHoogte,"N":"10","M":"20","K":"30","C":"40","F":"50",:"999"))_"-"
 	Set SorteerSleutel = SorteerSleutel_$$$LeftPad4(IngegevenKenmerken.InterneBreedte)_"-"
 	Set SorteerSleutel = SorteerSleutel_MaatwerkProduct.GeefID()
+	Set SorteerSleutel = SorteerSleutel_"-"_Item.ToeleveringID
+	Set SorteerSleutel = SorteerSleutel_"-"_Item.ToeleveringLijnID
+	Set SorteerSleutel = SorteerSleutel_"-"_##class(TECH.StringUtils).AlignRight(Item.DeelAantal, "0", 4)
 	Quit SorteerSleutel
 ]]></Implementation>
 </Method>
Index: APPS/Halux/common/impl/ProductieSequentie/Basis.cls.xml
===================================================================
diff -u -r29059 -r29968
--- APPS/Halux/common/impl/ProductieSequentie/Basis.cls.xml	(.../Basis.cls.xml)	(revision 29059)
+++ APPS/Halux/common/impl/ProductieSequentie/Basis.cls.xml	(.../Basis.cls.xml)	(revision 29968)
@@ -4,23 +4,6 @@
 <Abstract>1</Abstract>
 <Super>APPS.Halux.common.ProductieSequentie</Super>
 
-<Method name="GeefSorteerSleutel">
-<FormalSpec>ProductID:DOM.common.ProductID</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
-	#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductID)
-	Quit ..GeefSorteerSleutelVoorMaatwerkProduct(MaatwerkProduct)
-]]></Implementation>
-</Method>
-
-<Method name="GeefSorteerSleutelVoorMaatwerkProduct">
-<Abstract>1</Abstract>
-<FormalSpec>MaatwerkProduct:DOM.PM.MaatwerkProduct</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-</Method>
-
 <Method name="IsOpTeNemenInSequentie">
 <FormalSpec>ProductID:DOM.common.ProductID</FormalSpec>
 <ReturnType>%Boolean</ReturnType>