Index: APPS/Halux/common/impl/SequentieService.cls.xml
===================================================================
diff -u -r63747 -r63749
--- APPS/Halux/common/impl/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 63747)
+++ APPS/Halux/common/impl/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 63749)
@@ -244,7 +244,7 @@
 	If (Batch.GeefCategorie() = ..Categorie.Legrabox) {
 		Set ProductieSequentie = ##class(APPS.Halux.common.impl.ProductieSequentie.Legrabox).%New(Batch)
 	} ElseIf (Batch.GeefCategorie() = ..Categorie.Merivobox) {
-		Set ProductieSequentie = ##class(APPS.Halux.common.impl.ProductieSequentie.Legrabox).%New(Batch)
+		Set ProductieSequentie = ##class(APPS.Halux.common.impl.ProductieSequentie.Merivobox).%New(Batch)
 	} ElseIf (Batch.GeefCategorie() = ..Categorie.TAORbox) {
 		Set ProductieSequentie = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor).%New(Batch)
 	} Else {
Index: APPS/Halux/Planning/impl/AutoBatch/Comparator/MVXComparator.cls.xml
===================================================================
diff -u -r63551 -r63749
--- APPS/Halux/Planning/impl/AutoBatch/Comparator/MVXComparator.cls.xml	(.../MVXComparator.cls.xml)	(revision 63551)
+++ APPS/Halux/Planning/impl/AutoBatch/Comparator/MVXComparator.cls.xml	(.../MVXComparator.cls.xml)	(revision 63749)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.Planning.impl.AutoBatch.Comparator.MVXComparator">
-<Super>%RegisteredObject,TECH.Comparator.IComparator</Super>
+<Super>TECH.RegisteredObject,TECH.Comparator.IComparator</Super>
 
 <Method name="IsKleinerDan">
 <FormalSpec>Waarde1:DOM.AKP.Toelevering,Waarde2:DOM.AKP.Toelevering</FormalSpec>
@@ -21,21 +21,23 @@
 	#dim IngegevenKenmerken2 As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = Merivobox2.GeefIngegevenKenmerken()
 	
 	#dim IsKleiner As %Boolean = Waarde2BevatAsapOrder < Waarde1BevatAsapOrder
-	if ('IsKleiner && ( Waarde1BevatAsapOrder = Waarde2BevatAsapOrder ) ) {
+	
+	If ($$$Not(IsKleiner) && ( Waarde1BevatAsapOrder = Waarde2BevatAsapOrder ) ) {
 		Set IsKleiner = Waarde2.GeefDueOutTime() ] Waarde1.GeefDueOutTime()
-		if ('IsKleiner && (Waarde2.GeefDueOutTime() = Waarde1.GeefDueOutTime())) {
+		If ($$$Not(IsKleiner) && (Waarde2.GeefDueOutTime() = Waarde1.GeefDueOutTime())) {
 			Set IsKleiner = (Merivobox2.GeefVerpakking() ] Merivobox1.GeefVerpakking())
-			if ('IsKleiner && (Merivobox2.GeefVerpakking() = Merivobox1.GeefVerpakking()))	{
+			If ($$$Not(IsKleiner) && (Merivobox2.GeefVerpakking() = Merivobox1.GeefVerpakking()))	{
 				Set IsKleiner = (IngegevenKenmerken2.BodemKleur ] IngegevenKenmerken1.BodemKleur)
-				if ('IsKleiner && (IngegevenKenmerken2.BodemKleur = IngegevenKenmerken1.BodemKleur)){
+				If ($$$Not(IsKleiner) && (IngegevenKenmerken2.BodemKleur = IngegevenKenmerken1.BodemKleur)){
 					Set IsKleiner = (Merivobox1.GeefLadeDiepte() < Merivobox2.GeefLadeDiepte())
-					if ('IsKleiner && ((IngegevenKenmerken1.RugHoogte < IngegevenKenmerken2.RugHoogte))) {
+					If ($$$Not(IsKleiner) && ((IngegevenKenmerken1.RugHoogte < IngegevenKenmerken2.RugHoogte))) {
 						Set IsKleiner = (IngegevenKenmerken1.RugHoogte < IngegevenKenmerken2.RugHoogte)
 					}
 				}
 			}
 		}
 	}
+	
 	Quit IsKleiner
 ]]></Implementation>
 </Method>
@@ -45,14 +47,15 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	
 	#dim BevatAsapOrder As %Boolean = 0
 	#dim OrderID = Toelevering.GeefOrderID()
-	if $length(OrderID) {
+	
+	If ($$$HasLength(OrderID)) {
 		#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID)
-		set BevatAsapOrder = Order.IsASAP()
+		Set BevatAsapOrder = Order.IsASAP()
 	}
-	quit BevatAsapOrder
+	
+	Quit BevatAsapOrder
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml
===================================================================
diff -u -r62894 -r63749
--- APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 62894)
+++ APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 63749)
@@ -14,15 +14,15 @@
 	#dim OppervlakteAandeel As %Float = ""
 
 	If $$$Not($IsValidNum(IsBinnenlade)) {
-		set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Validatie IsBinnenlade (%Boolean) is gefaald voor berekening van OppervlakteAandeel; input params "_$$$LCVT($LB("LadeVariant : "_LadeVariant,"IsBinnenlade : "_IsBinnenlade,"LadeDiepte : "_LadeDiepte,"LadeHoogte :"_LadeHoogte,"LadeZijkantHoogte :"_LadeZijkantHoogte))_".")
+		Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(), "Validatie IsBinnenlade (%Boolean) is gefaald voor berekening van OppervlakteAandeel; input params "_$$$LCVT($LB("LadeVariant : "_LadeVariant, "IsBinnenlade : "_IsBinnenlade, "LadeDiepte : "_LadeDiepte, "LadeHoogte :"_LadeHoogte, "LadeZijkantHoogte :"_LadeZijkantHoogte))_".")
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 	
-	If (LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXPlus()) || (LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXMengvorm()) { 
+	If (LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()) || (LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXMengvorm()) { 
 		If IsBinnenlade {
-			If (LadeDiepte '> 550) {
+			If (LadeDiepte <= 550) {
 				// Binnenlades van 270mm tot 550mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"M" : 0.13 , 
 													"K" : 0.17 , 
 													"B" : 0.20 , 
@@ -32,7 +32,7 @@
 			}
 			Else {
 				// Binnenlades groter dan, dus 600mm en 650mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"M" : 0.20 , 
 													"K" : 0.25 , 
 													"B" : 0.33 , 
@@ -42,9 +42,9 @@
 			}
 		}
 		Else {
-			If (LadeDiepte '> 550) {
+			If (LadeDiepte <= 550) {
 				// Lades van 270mm tot 550mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"N" : 0.10 , 
 													"M" : 0.13 , 
 													"K" : 0.17 , 
@@ -54,8 +54,8 @@
 													 : "")
 			}
 			Else {
-				// Lades groter dan, dus 600mm en 650mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				// Lades groter dan 550, dus 600mm en 650mm diep 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"N" : 0.14 , 
 													"M" : 0.17 , 
 													"K" : 0.25 , 
@@ -66,38 +66,38 @@
 			}
 		}
 	} 
-	ElseIf LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXIntivo() { 
+	ElseIf (LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()) { 
 		If IsBinnenlade {
-			If (LadeDiepte '> 550) {
+			If (LadeDiepte <= 550) {
 				// Binnenlades van 270mm tot 550mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"M" : 0.13 , 
 													"C" : 0.25 , 
 													"D" : 0.33 , 
 													 : "")
 			}
 			Else {
 				// Binnenlades groter dan, dus 600mm en 650mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"M" : 0.20 , 
 													"C" : 0.33 , 
 													"D" : 0.50 , 
 													 : "")
 			}
 		}
 		Else {
-			If (LadeDiepte '> 550) {
+			If (LadeDiepte <= 550) {
 				// Lades van 270mm tot 550mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"N" : 0.10 , 
 													"M" : 0.13 , 
 													"C" : 0.14 , 
 													"D" : 0.14 , 
 													 : "")
 			}
 			Else {
-				// Lades groter dan, dus 600mm en 650mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				// Lades groter dan 550, dus 600mm en 650mm diep 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"N" : 0.14 , 
 													"M" : 0.17 , 
 													"C" : 0.20 , 
@@ -106,11 +106,11 @@
 			}
 		}
 	}
-	ElseIf LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXAntaro() { 
+	ElseIf (LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXAntaro()) { 
 		If IsBinnenlade {
-			If (LadeDiepte '> 550) {
+			If (LadeDiepte <= 550) {
 				// Binnenlades van 270mm tot 550mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"M" : 0.13 , 
 													"K" : 0.17 , 
 													"B" : 0.20 , 
@@ -121,7 +121,7 @@
 			}
 			Else {
 				// Binnenlades groter dan, dus 600mm en 650mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"M" : 0.20 , 
 													"K" : 0.25 , 
 													"B" : 0.33 , 
@@ -132,9 +132,9 @@
 			}
 		}
 		Else {
-			If (LadeDiepte '> 550) {
+			If (LadeDiepte <= 550) {
 				// Lades van 270mm tot 550mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"N" : 0.10 , 
 													"M" : 0.13 , 
 													"K" : 0.17 , 
@@ -144,8 +144,8 @@
 													 : "")
 			}
 			Else {
-				// Lades groter dan, dus 600mm en 650mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				// Lades groter dan 550, dus 600mm en 650mm diep 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"N" : 0.14 , 
 													"M" : 0.17 , 
 													"K" : 0.17 , 
@@ -156,11 +156,11 @@
 			}
 		}
 	}
-	ElseIf ((LadeVariant=##class(DOM.PM.enu.LadeVariant).LBXPure()) || (LadeVariant=##class(DOM.PM.enu.LadeVariant).TAOR())) { 
+	ElseIf ((LadeVariant = ##class(DOM.PM.enu.LadeVariant).LBXPure()) || (LadeVariant = ##class(DOM.PM.enu.LadeVariant).TAOR())) { 
 		If IsBinnenlade {
-			If (LadeDiepte '> 550) {
+			If (LadeDiepte <= 550) {
 				// Binnenlades van 270mm tot 550mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"N" : 0.13 , 
 													"M" : 0.14 , 
 													"K" : 0.20 , 
@@ -170,7 +170,7 @@
 			}
 			Else {
 				// Binnenlades groter dan, dus 600mm en 650mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"N" : 0.17 , 
 													"M" : 0.20 , 
 													"K" : 0.33 , 
@@ -180,9 +180,9 @@
 			}
 		}
 		Else {
-			If (LadeDiepte '> 550) {
+			If (LadeDiepte <= 550) {
 				// Lades van 270mm tot 550mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"N" : 0.13 , 
 													"M" : 0.14 , 
 													"K" : 0.20 , 
@@ -191,8 +191,8 @@
 													 : "")
 			}
 			Else {
-				// Lades groter dan, dus 600mm en 650mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				// Lades groter dan 550, dus 600mm en 650mm diep 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"N" : 0.17 , 
 													"M" : 0.20 , 
 													"K" : 0.33 , 
@@ -202,11 +202,11 @@
 			}
 		}
 	} 
-	ElseIf (LadeVariant=##class(DOM.PM.enu.LadeVariant).MVX()) { 
+	ElseIf (LadeVariant = ##class(DOM.PM.enu.LadeVariant).MVX()) { 
 		If IsBinnenlade {
-			If (LadeDiepte '> 550) {
+			If (LadeDiepte <= 550) {
 				// Binnenlades van 270mm tot 550mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"N" : 0.13 , 
 													"M" : 0.14 , 
 													"K" : 0.20 , 
@@ -216,7 +216,7 @@
 			}
 			Else {
 				// Binnenlades groter dan, dus 600mm en 650mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"N" : 0.17 , 
 													"M" : 0.20 , 
 													"K" : 0.33 , 
@@ -226,9 +226,9 @@
 			}
 		}
 		Else {
-			If (LadeDiepte '> 550) {
+			If (LadeDiepte <= 550) {
 				// Lades van 270mm tot 550mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"N" : 0.13 , 
 													"M" : 0.14 , 
 													"K" : 0.20 , 
@@ -237,8 +237,8 @@
 													 : "")
 			}
 			Else {
-				// Lades groter dan, dus 600mm en 650mm diep 
-				Set OppervlakteAandeel=$Case(LadeHoogte, 
+				// Lades groter dan 550, dus 600mm en 650mm diep 
+				Set OppervlakteAandeel = $Case(LadeHoogte, 
 													"N" : 0.17 , 
 													"M" : 0.20 , 
 													"K" : 0.33 , 
@@ -249,12 +249,12 @@
 		}
 	} 
 	Else { 
-		Set OppervlakteAandeel=""
+		Set OppervlakteAandeel = ""
 	}
 	
 	If OppervlakteAandeel="" {
-		#dim Message As %String = "Ongeldige waarde voor berekening van OppervlakteAandeel; input params "_$$$LCVT($LB("LadeVariant : "_LadeVariant,"IsBinnenlade : "_IsBinnenlade,"LadeDiepte : "_LadeDiepte,"LadeHoogte :"_LadeHoogte,"LadeZijkantHoogte :"_LadeZijkantHoogte))_"."
-		set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),Message)
+		#dim Message As %String = "Ongeldige waarde voor berekening van OppervlakteAandeel; input params "_$$$LCVT($LB("LadeVariant : "_LadeVariant, "IsBinnenlade : "_IsBinnenlade, "LadeDiepte : "_LadeDiepte, "LadeHoogte :"_LadeHoogte, "LadeZijkantHoogte :"_LadeZijkantHoogte))_"."
+		Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(), Message)
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 
@@ -318,14 +318,14 @@
 	#dim VerpakkingHoogte As %Float =""
 	
 	If $$$Not($IsValidNum(IsBinnenlade)) {
-		set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Validatie IsBinnenlade (%Boolean) is gefaald voor berekening van VerpakkingHoogte; input params "_$$$LCVT($LB(LadeVariant,IsBinnenlade,LadeHoogte))_".")
+		Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Validatie IsBinnenlade (%Boolean) is gefaald voor berekening van VerpakkingHoogte; input params "_$$$LCVT($LB(LadeVariant,IsBinnenlade,LadeHoogte))_".")
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 	
-	If (LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXPlus()) || (LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXMengvorm()) { 
+	If (LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()) || (LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXMengvorm()) { 
 		If IsBinnenlade {
 			// Binnenlades
-			Set VerpakkingHoogte=$Case(LadeHoogte, 
+			Set VerpakkingHoogte = $Case(LadeHoogte, 
 												"M" :  90 , 
 												"K" : 120 , 
 												"B" : 140 , 
@@ -335,7 +335,7 @@
 		}
 		Else {
 			// Lades
-			Set VerpakkingHoogte=$Case(LadeHoogte, 
+			Set VerpakkingHoogte = $Case(LadeHoogte, 
 												"N" :  69 , 
 												"M" :  84 , 
 												"K" : 116 , 
@@ -345,29 +345,29 @@
 												 : "")
 		}
 	} 
-	ElseIf LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXIntivo() { 
+	ElseIf (LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()) { 
 		If IsBinnenlade {
 			// Binnenlades
-			Set VerpakkingHoogte=$Case(LadeHoogte, 
+			Set VerpakkingHoogte = $Case(LadeHoogte, 
 												"M" :  90 , 
 												"C" : 175 , 
 												"D" : 205 , 
 												 : "")
 		}
 		Else {
 			// Lades
-			Set VerpakkingHoogte=$Case(LadeHoogte, 
+			Set VerpakkingHoogte = $Case(LadeHoogte, 
 												"N" :  69 , 
 												"M" :  84 , 
 												"C" : 102 , 
 												"D" : 102 , 
 												 : "")
 		}
 	}
-	ElseIf LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXAntaro() { 
+	ElseIf (LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXAntaro()) { 
 		If IsBinnenlade {
 			// Binnenlades
-			Set VerpakkingHoogte=$Case(LadeHoogte, 
+			Set VerpakkingHoogte = $Case(LadeHoogte, 
 												"M" :  90 , 
 												"K" : 120 , 
 												"B" : 140 , 
@@ -378,7 +378,7 @@
 		}
 		Else {
 			// Lades
-			Set VerpakkingHoogte=$Case(LadeHoogte, 
+			Set VerpakkingHoogte = $Case(LadeHoogte, 
 												"N" :  69 , 
 												"M" :  84 , 
 												"K" : 116 , 
@@ -388,9 +388,9 @@
 												 : "")
 		}
 	}
-	ElseIf ((LadeVariant=##class(DOM.PM.enu.LadeVariant).LBXPure()) || (LadeVariant=##class(DOM.PM.enu.LadeVariant).TAOR())) { 
+	ElseIf ((LadeVariant = ##class(DOM.PM.enu.LadeVariant).LBXPure()) || (LadeVariant = ##class(DOM.PM.enu.LadeVariant).TAOR())) { 
 		If IsBinnenlade {
-				Set VerpakkingHoogte=$Case(LadeHoogte, 
+				Set VerpakkingHoogte = $Case(LadeHoogte, 
 													"N" : 80 , 
 													"M" : 104 , 
 													"K" : 142 , 
@@ -399,16 +399,16 @@
 													 : "")
 		}
 		Else {
-				Set VerpakkingHoogte=$Case(LadeHoogte, 
+				Set VerpakkingHoogte = $Case(LadeHoogte, 
 													"N" : 80 , 
 													"M" : 104 , 
 													"K" : 142 , 
 													"C" : 191 , 
 													"F" : 255 , 
 													 : "")
 		}
-	} ElseIf (LadeVariant=##class(DOM.PM.enu.LadeVariant).MVX()) {
-				Set VerpakkingHoogte=$Case(LadeHoogte, 
+	} ElseIf (LadeVariant = ##class(DOM.PM.enu.LadeVariant).MVX()) {
+				Set VerpakkingHoogte = $Case(LadeHoogte, 
 													"N" : 86 , 
 													"M" : 108 , 
 													"K" : 146 , 
Index: APPS/Halux/common/impl/ProductieSequentie/Merivobox.cls.xml
===================================================================
diff -u
--- APPS/Halux/common/impl/ProductieSequentie/Merivobox.cls.xml	(revision 0)
+++ APPS/Halux/common/impl/ProductieSequentie/Merivobox.cls.xml	(revision 63749)
@@ -0,0 +1,84 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.common.impl.ProductieSequentie.Merivobox">
+<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>
+<Implementation><![CDATA[
+	#define LeftPad4(%v)    (10000-%v)
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = MaatwerkProduct.GeefProductSpecificatie().GeefIngegevenKenmerken()
+	#dim SorteerSleutel As %String = $$$LeftPad4(IngegevenKenmerken.LadeDiepte)_"-"
+	Set SorteerSleutel = SorteerSleutel_$$$LeftPad4($Case(IngegevenKenmerken.LadeHoogte,"N":"10","M":"20","K":"30","E":"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>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: BL/PPS/TBX/LeanBatch.cls.xml
===================================================================
diff -u -r63332 -r63749
--- BL/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 63332)
+++ BL/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 63749)
@@ -142,10 +142,10 @@
 	#Dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
 	
 	While (ProductLijnIterator.HasNext()) {
-		#Dim Aantal As %Integer
-		#Dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
+		#dim Aantal As %Integer
+		#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
 		Try {
-			#Dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductLijn.GeefProductID())
+			#dim Product As DOM.PM.Product = ##class(DOM.PM.impl.ProductAPI).%New().GeefProduct(ProductLijn.GeefProductID())
 			
 			If (Product.%Extends("DOM.PM.TBXProduct.TBXLade")) {
 				Set Aantal = ProductLijn.GeefAantal()
@@ -169,7 +169,7 @@
 				Set Aantal = ProductLijn.GeefAantal()
 				
 				#dim LBXLade As DOM.PM.LBXProduct.LBXLade = Product 
-				Set IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
+				Set IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
 				Set IngegevenKenmerken = LBXLade.GeefIngegevenKenmerken()
 				
 				If (IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) || IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken)) {
@@ -184,7 +184,7 @@
 				Set Aantal = ProductLijn.GeefAantal()
 				
 				#dim MVXLade As DOM.PM.LBXProduct.LBXLade = Product 
-				Set IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
+				Set IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
 				Set IngegevenKenmerken = MVXLade.GeefIngegevenKenmerken()
 				
 				If (IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) || IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken)) {
@@ -317,7 +317,7 @@
 <Method name="ProdGrp">
 <FormalSpec>ProductID:%String,KLNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
+	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefKlantPartijID(KLNr)
 	set ProductService = ##class(APPS.Halux.common.ProductieService).%New()
 	quit ProductService.GeefProductieGroep(KlantID,ProductID)
 ]]></Implementation>