Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/GroepeerPerToelevering/TestBase.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/GroepeerPerToelevering/TestBase.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/GroepeerPerToelevering/TestBase.cls.xml	(revision 32587)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerder.GroepeerPerToelevering.TestBase">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerder.Base</Super>
+
+<Method name="AssertGroepering">
+<FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie
+
+	If $$$AssertTrue(Groepering.IsValid()) {
+		If $$$AssertEquals(Groepering.Indices.Count(), 2) {
+			Do $$$AssertEquals(Groepering.Indices.GetAt(1), ..#ToeleveringID2)
+			Do $$$AssertEquals(Groepering.Indices.GetAt(2), ..#ToeleveringID1)
+		}
+		
+		If $$$AssertEquals(Groepering.Data.GetAt(..#ToeleveringID2).Count(), 2) {
+			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID2).GetAt(1) 
+			Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+			Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+			Do $$$AssertEquals(SequenceInfo.DeelAantal, 1)
+			
+			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID2).GetAt(2) 
+			Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+			Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+			Do $$$AssertEquals(SequenceInfo.DeelAantal, 2)
+		}
+		
+		If $$$AssertEquals(Groepering.Data.GetAt(..#ToeleveringID1).Count(), 9) {
+			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(1) 
+			Do $$$AssertEquals(SequenceInfo.TotaalAantal, 4)
+			Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID2)
+			Do $$$AssertEquals(SequenceInfo.DeelAantal, 1)
+			
+			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(4) 
+			Do $$$AssertEquals(SequenceInfo.TotaalAantal, 4)
+			Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID2)
+			Do $$$AssertEquals(SequenceInfo.DeelAantal, 4)
+			
+			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(5) 
+			Do $$$AssertEquals(SequenceInfo.TotaalAantal, 5)
+			Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+			Do $$$AssertEquals(SequenceInfo.DeelAantal, 1)
+			
+			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(9) 
+			Do $$$AssertEquals(SequenceInfo.TotaalAantal, 5)
+			Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+			Do $$$AssertEquals(SequenceInfo.DeelAantal, 5)
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToelevering.cls.xml
===================================================================
diff -u -r32581 -r32587
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToelevering.cls.xml	(.../TestGroepeerPerToelevering.cls.xml)	(revision 32581)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToelevering.cls.xml	(.../TestGroepeerPerToelevering.cls.xml)	(revision 32587)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased.TestGroepeerPerToelevering">
-<Super>vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased.Base</Super>
+<Super>vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased.Base,vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerder.GroepeerPerToelevering.TestBase</Super>
 
 <Method name="TestGroepeerPerToelevering">
 <Implementation><![CDATA[
@@ -19,47 +19,7 @@
 	Set ..SequenceGroepeerderImpl = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased).%New()
 
 	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = ..SequenceGroepeerderImpl.GroepeerPerToelevering(..#DummyBatchID)
-	#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie
-
-	if $$$AssertTrue(Groepering.IsValid()) {
-		if $$$AssertEquals(Groepering.Indices.Count(),2) {
-			Do $$$AssertEquals(Groepering.Indices.GetAt(1),..#ToeleveringID2)
-			Do $$$AssertEquals(Groepering.Indices.GetAt(2),..#ToeleveringID1)
-		}
-		
-		if $$$AssertEquals(Groepering.Data.GetAt(..#ToeleveringID2).Count(),2) {
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID2).GetAt(1) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal,1)
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID2).GetAt(2) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal,2)
-		}
-		
-		if $$$AssertEquals(Groepering.Data.GetAt(..#ToeleveringID1).Count(),9) {
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(1) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal,4)
-			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID2)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal,1)
-			
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(4) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal,4)
-			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID2)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal,4)
-			
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(5) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal,5)
-			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal,1)
-			
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(9) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal,5)
-			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal,5)
-		}
-	}
+	Do ..AssertGroepering(Groepering)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/TestGroepeerPerToelevering.cls.xml
===================================================================
diff -u -r32582 -r32587
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/TestGroepeerPerToelevering.cls.xml	(.../TestGroepeerPerToelevering.cls.xml)	(revision 32582)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/TestGroepeerPerToelevering.cls.xml	(.../TestGroepeerPerToelevering.cls.xml)	(revision 32587)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerderListBased.TestGroepeerPerToelevering">
-<Super>vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerderListBased.Base</Super>
+<Super>vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerderListBased.Base,vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerder.GroepeerPerToelevering.TestBase</Super>
 
 <Method name="TestGroepeerPerToelevering">
 <Implementation><![CDATA[
@@ -10,6 +10,8 @@
 	Do ..AddToSequenceData(..#QueueID1,..#ToeleveringID1,..#ProductID1,5,300)
 	
 	#dim ProductieSequentieItemsFake As list of APPS.Halux.common.ProductieSequentieItem = ..SequenceData
+	
+	
 	#dim ProductieSequentieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository).%New()
 	#dim ProductieAPIStub As vhTest.Mock.APPS.Halux.ProductieAPI = ##class(vhTest.Mock.APPS.Halux.ProductieAPI).MockInstance()
 	
@@ -19,47 +21,8 @@
 	Set ..SequenceGroepeerderImpl = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderListBased).%New()
 
 	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = ..SequenceGroepeerderImpl.GroepeerPerToelevering(..#DummyBatchID)
-	#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie
-
-	if $$$AssertTrue(Groepering.IsValid()) {
-		if $$$AssertEquals(Groepering.Indices.Count(),2) {
-			Do $$$AssertEquals(Groepering.Indices.GetAt(1),..#ToeleveringID2)
-			Do $$$AssertEquals(Groepering.Indices.GetAt(2),..#ToeleveringID1)
-		}
-		
-		if $$$AssertEquals(Groepering.Data.GetAt(..#ToeleveringID2).Count(),2) {
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID2).GetAt(1) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal,1)
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID2).GetAt(2) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal,2)
-		}
-		
-		if $$$AssertEquals(Groepering.Data.GetAt(..#ToeleveringID1).Count(),9) {
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(1) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal,4)
-			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID2)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal,1)
-			
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(4) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal,4)
-			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID2)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal,4)
-			
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(5) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal,5)
-			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal,1)
-			
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(9) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal,5)
-			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal,5)
-		}
-	}
+	
+	Do ..AssertGroepering(Groepering)
 ]]></Implementation>
 </Method>
 </Class>