Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGeenGroeperingProductSamentrekken.cls.xml
===================================================================
diff -u -r32590 -r32594
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGeenGroeperingProductSamentrekken.cls.xml	(.../TestGeenGroeperingProductSamentrekken.cls.xml)	(revision 32590)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGeenGroeperingProductSamentrekken.cls.xml	(.../TestGeenGroeperingProductSamentrekken.cls.xml)	(revision 32594)
@@ -5,29 +5,22 @@
 
 <Method name="TestGroepeerPerToeleveringPerProductPerKlantxxxProducten">
 <Implementation><![CDATA[
-	Do ..ToeleveringStub1.IndienMethodCall("GeefKlantID").DanReturn("6700")
-	Do ..ToeleveringStub2.IndienMethodCall("GeefKlantID").DanReturn("6700")
-	Do ..ToeleveringStub3.IndienMethodCall("GeefKlantID").DanReturn("6700")
-	
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID1, 2, 100)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID2, 2, 200)
 	Do ..AddToSequenceData(..#ToeleveringID2, ..#ProductID3, 2, 100)
 	Do ..AddToSequenceData(..#ToeleveringID2, ..#ProductID3, 2, 200)
 	Do ..AddToSequenceData(..#ToeleveringID2, ..#ProductID1, 2, 300)
 	Do ..AddToSequenceData(..#ToeleveringID2, ..#ProductID4, 2, 400)
 	Do ..AddToSequenceData(..#ToeleveringID3, ..#ProductID3, 2, 100)
-	
-	#dim FakeResultSet As TECH.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(..SequenceData, ..SequenceHeaders)
-	#dim ProductieSequentieRepositoryStub As vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository).%New()
-	#dim ProductieAPIStub As vhTest.Mock.APPS.Halux.ProductieAPI = ##class(vhTest.Mock.APPS.Halux.ProductieAPI).MockInstance()
-	
-	Do ProductieSequentieRepositoryStub.IndienMethodCall("GeefSequentieDataVolgensSequenceVoorBatch", ..#DummyBatchID).DanReturn(FakeResultSet)
-	Do ProductieAPIStub.IndienMethodCall("GeefProductieSequentieRepository").DanReturn(ProductieSequentieRepositoryStub)
-	
-	#dim ProductieSequentieGroepeerder As APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased).%New()
-	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = ProductieSequentieGroepeerder.GeenGroeperingProductenSamentrekken(..#DummyBatchID)
-	#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie
-	
+
+	Do ..AssertGroepering(..GeefGroepeerder().GeenGroeperingProductenSamentrekken(..#DummyBatchID))
+]]></Implementation>
+</Method>
+
+<Method name="AssertGroepering">
+<FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	If ($$$AssertTrue(Groepering.IsValid())) {
 		If ($$$AssertEquals(Groepering.Indices.Count(), 1)) {
 			Do $$$AssertEquals(Groepering.Indices.GetAt(1), 1)
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProduct2.cls.xml
===================================================================
diff -u -r32590 -r32594
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProduct2.cls.xml	(.../TestGroepeerPerToeleveringPerProduct2.cls.xml)	(revision 32590)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProduct2.cls.xml	(.../TestGroepeerPerToeleveringPerProduct2.cls.xml)	(revision 32594)
@@ -8,41 +8,40 @@
 	Do ..AddToSequenceData(..#ToeleveringID2, ..#ProductID1, 2, 100)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID2, 4, 100)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID1, 5, 200)
-	
-	#dim FakeResultSet As TECH.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(..SequenceData,..SequenceHeaders)
-	#dim ProductieSequentieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository).%New()
-	do ProductieSequentieRepositoryStub.IndienMethodCall("GeefSequentieDataVolgensSequenceVoorBatch",..#DummyBatchID).DanReturn(FakeResultSet)
-	#dim ProductieAPIStub As vhTest.Mock.APPS.Halux.ProductieAPI = ##class(vhTest.Mock.APPS.Halux.ProductieAPI).MockInstance()
-	do ProductieAPIStub.IndienMethodCall("GeefProductieSequentieRepository").DanReturn(ProductieSequentieRepositoryStub)
-	
-	set impl = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased).%New()
-	
-	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = impl.GroepeerPerToeleveringPerProduct(..#DummyBatchID)
+
+	Do ..AssertGroepering(..GeefGroepeerder().GroepeerPerToeleveringPerProduct(..#DummyBatchID))
+]]></Implementation>
+</Method>
+
+<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 $$$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(),1) {
-			set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID2).GetAt(1) 
-			do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-			do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-			do $$$AssertEquals(SequenceInfo.DeelAantal,"")
+		If $$$AssertEquals(Groepering.Data.GetAt(..#ToeleveringID2).Count(), 1) {
+			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID2).GetAt(1) 
+			Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+			Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+			Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
 		}
 		
-		if $$$AssertEquals(Groepering.Data.GetAt(..#ToeleveringID1).Count(),2) {
-			set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(1) 
-			do $$$AssertEquals(SequenceInfo.TotaalAantal,4)
-			do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID2)
-			do $$$AssertEquals(SequenceInfo.DeelAantal,"")
+		If $$$AssertEquals(Groepering.Data.GetAt(..#ToeleveringID1).Count(), 2) {
+			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(1) 
+			Do $$$AssertEquals(SequenceInfo.TotaalAantal, 4)
+			Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID2)
+			Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
 			
-			set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(2) 
-			do $$$AssertEquals(SequenceInfo.TotaalAantal,5)
-			do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-			do $$$AssertEquals(SequenceInfo.DeelAantal,"")
+			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(2) 
+			Do $$$AssertEquals(SequenceInfo.TotaalAantal, 5)
+			Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+			Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
 		}
 	}
 ]]></Implementation>
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerProduct2.cls.xml
===================================================================
diff -u -r32590 -r32594
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerProduct2.cls.xml	(.../TestGroepeerPerProduct2.cls.xml)	(revision 32590)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerProduct2.cls.xml	(.../TestGroepeerPerProduct2.cls.xml)	(revision 32594)
@@ -5,56 +5,52 @@
 
 <Method name="TestGroepeerPerToeleveringPerProductPerKlantxxxProducten">
 <Implementation><![CDATA[
-	Do ..ToeleveringStub1.IndienMethodCall("GeefKlantID").DanReturn("6760")
-	Do ..ToeleveringStub2.IndienMethodCall("GeefKlantID").DanReturn("6760")
-	
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID2, 1, 100)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID1, 1, 200)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID3, 1, 300)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID1, 1, 400)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID3, 1, 500)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID4, 2, 600)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID3, 1, 700)
-	
-	#dim FakeResultSet As TECH.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(..SequenceData,..SequenceHeaders)
-	#dim ProductieSequentieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository).%New()
-	do ProductieSequentieRepositoryStub.IndienMethodCall("GeefSequentieDataVolgensSequenceVoorBatch",..#DummyBatchID).DanReturn(FakeResultSet)
-	#dim ProductieAPIStub As vhTest.Mock.APPS.Halux.ProductieAPI = ##class(vhTest.Mock.APPS.Halux.ProductieAPI).MockInstance()
-	do ProductieAPIStub.IndienMethodCall("GeefProductieSequentieRepository").DanReturn(ProductieSequentieRepositoryStub)
-	
-	set impl = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased).%New()
-	
-	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = impl.GroepeerPerProduct(..#DummyBatchID)
+
+	Do ..AssertGroepering(..GeefGroepeerder().GroepeerPerProduct(..#DummyBatchID))
+]]></Implementation>
+</Method>
+
+<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(),1) {
-			do $$$AssertEquals(Groepering.Indices.GetAt(1),1)
+	If $$$AssertTrue(Groepering.IsValid()) {
+		If $$$AssertEquals(Groepering.Indices.Count(), 1) {
+			Do $$$AssertEquals(Groepering.Indices.GetAt(1), 1)
 		
-			if $$$AssertEquals(Groepering.Data.GetAt(1).Count(),4) {
-				set SequenceInfo = Groepering.Data.GetAt(1).GetAt(1) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,1)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID2)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-				do $$$AssertEquals(SequenceInfo.QueueID, 1)
+			If $$$AssertEquals(Groepering.Data.GetAt(1).Count(), 4) {
+				Set SequenceInfo = Groepering.Data.GetAt(1).GetAt(1) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 1)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID2)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
+				Do $$$AssertEquals(SequenceInfo.QueueID, 1)
 				
-				set SequenceInfo = Groepering.Data.GetAt(1).GetAt(2) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-				do $$$AssertEquals(SequenceInfo.QueueID, 2)
+				Set SequenceInfo = Groepering.Data.GetAt(1).GetAt(2) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
+				Do $$$AssertEquals(SequenceInfo.QueueID, 2)
 				
-				set SequenceInfo = Groepering.Data.GetAt(1).GetAt(3) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,3)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID3)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-				do $$$AssertEquals(SequenceInfo.QueueID, 3)
+				Set SequenceInfo = Groepering.Data.GetAt(1).GetAt(3) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 3)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID3)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
+				Do $$$AssertEquals(SequenceInfo.QueueID, 3)
 				
-				set SequenceInfo = Groepering.Data.GetAt(1).GetAt(4) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID4)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-				do $$$AssertEquals(SequenceInfo.QueueID, 6)
+				Set SequenceInfo = Groepering.Data.GetAt(1).GetAt(4) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID4)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
+				Do $$$AssertEquals(SequenceInfo.QueueID, 6)
 			}
 		}
 	}
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerProduct1.cls.xml
===================================================================
diff -u -r32590 -r32594
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerProduct1.cls.xml	(.../TestGroepeerPerProduct1.cls.xml)	(revision 32590)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerProduct1.cls.xml	(.../TestGroepeerPerProduct1.cls.xml)	(revision 32594)
@@ -5,55 +5,50 @@
 
 <Method name="TestGroepeerPerToeleveringPerProductPerKlantxxxProducten">
 <Implementation><![CDATA[
-	Do ..ToeleveringStub1.IndienMethodCall("GeefKlantID").DanReturn("6760")
-	Do ..ToeleveringStub2.IndienMethodCall("GeefKlantID").DanReturn("6760")
-	Do ..ToeleveringStub3.IndienMethodCall("GeefKlantID").DanReturn("6760")
-	
 	Do ..AddToSequenceData(..#ToeleveringID2, ..#ProductID3, 2, 100)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID2, 2, 200)
 	Do ..AddToSequenceData(..#ToeleveringID3, ..#ProductID3, 2, 100)
 	Do ..AddToSequenceData(..#ToeleveringID2, ..#ProductID1, 2, 200)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID1, 2, 100)
 	Do ..AddToSequenceData(..#ToeleveringID2, ..#ProductID4, 2, 300)
 	
-	#dim FakeResultSet As TECH.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(..SequenceData,..SequenceHeaders)
-	#dim ProductieSequentieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository).%New()
-	do ProductieSequentieRepositoryStub.IndienMethodCall("GeefSequentieDataVolgensSequenceVoorBatch",..#DummyBatchID).DanReturn(FakeResultSet)
-	#dim ProductieAPIStub As vhTest.Mock.APPS.Halux.ProductieAPI = ##class(vhTest.Mock.APPS.Halux.ProductieAPI).MockInstance()
-	do ProductieAPIStub.IndienMethodCall("GeefProductieSequentieRepository").DanReturn(ProductieSequentieRepositoryStub)
-	
-	set impl = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased).%New()
-	
-	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = impl.GroepeerPerProduct(..#DummyBatchID)
+	Do ..AssertGroepering(..GeefGroepeerder().GroepeerPerProduct(..#DummyBatchID))
+]]></Implementation>
+</Method>
+
+<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(),1) {
-			do $$$AssertEquals(Groepering.Indices.GetAt(1),1)
+	If $$$AssertTrue(Groepering.IsValid()) {
+		If $$$AssertEquals(Groepering.Indices.Count(), 1) {
+			Do $$$AssertEquals(Groepering.Indices.GetAt(1), 1)
 		
-			if $$$AssertEquals(Groepering.Data.GetAt(1).Count(),4) {
-				set SequenceInfo = Groepering.Data.GetAt(1).GetAt(1) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,4)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID3)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
+			If $$$AssertEquals(Groepering.Data.GetAt(1).Count(), 4) {
+				Set SequenceInfo = Groepering.Data.GetAt(1).GetAt(1) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 4)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID3)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
 				Do $$$AssertEquals(SequenceInfo.QueueID, 1)
 				
-				set SequenceInfo = Groepering.Data.GetAt(1).GetAt(2) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID2)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
+				Set SequenceInfo = Groepering.Data.GetAt(1).GetAt(2) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID2)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
 				Do $$$AssertEquals(SequenceInfo.QueueID, 3)
 				
-				set SequenceInfo = Groepering.Data.GetAt(1).GetAt(3) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,4)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
+				Set SequenceInfo = Groepering.Data.GetAt(1).GetAt(3) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 4)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
 				Do $$$AssertEquals(SequenceInfo.QueueID, 7)
 				
-				set SequenceInfo = Groepering.Data.GetAt(1).GetAt(4) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID4)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
+				Set SequenceInfo = Groepering.Data.GetAt(1).GetAt(4) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID4)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
 				Do $$$AssertEquals(SequenceInfo.QueueID, 11)
 			}
 		}
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/Base.cls.xml
===================================================================
diff -u -r32590 -r32594
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/Base.cls.xml	(.../Base.cls.xml)	(revision 32590)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/Base.cls.xml	(.../Base.cls.xml)	(revision 32594)
@@ -81,12 +81,16 @@
 
 	Set ..ToeleveringStub1 = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
 	Set ..ToeleveringStub2 = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
-	Set ..ToeleveringStub3 = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()	
+	Set ..ToeleveringStub3 = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
 	
-	Do ..ToeleveringAPIStub.IndienMethodCall("BestaatToelevering", ..#ToeleveringID1).DanReturn(1)
-	Do ..ToeleveringAPIStub.IndienMethodCall("BestaatToelevering", ..#ToeleveringID2).DanReturn(1)	
-	Do ..ToeleveringAPIStub.IndienMethodCall("BestaatToelevering", ..#ToeleveringID3).DanReturn(1)
+	Do ..ToeleveringStub1.IndienMethodCall("GeefKlantID").DanReturn("6700")
+	Do ..ToeleveringStub2.IndienMethodCall("GeefKlantID").DanReturn("6700")
+	Do ..ToeleveringStub3.IndienMethodCall("GeefKlantID").DanReturn("6700")	
 	
+	Do ..ToeleveringAPIStub.IndienMethodCall("BestaatToelevering", ..#ToeleveringID1).DanReturn($$$True)
+	Do ..ToeleveringAPIStub.IndienMethodCall("BestaatToelevering", ..#ToeleveringID2).DanReturn($$$True)
+	Do ..ToeleveringAPIStub.IndienMethodCall("BestaatToelevering", ..#ToeleveringID3).DanReturn($$$True)
+	
 	Do ..ToeleveringAPIStub.IndienMethodCall("GeefToelevering", ..#ToeleveringID1).DanReturn(..ToeleveringStub1)
 	Do ..ToeleveringAPIStub.IndienMethodCall("GeefToelevering", ..#ToeleveringID2).DanReturn(..ToeleveringStub2)
 	Do ..ToeleveringAPIStub.IndienMethodCall("GeefToelevering", ..#ToeleveringID3).DanReturn(..ToeleveringStub3)
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant4.cls.xml
===================================================================
diff -u -r32590 -r32594
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant4.cls.xml	(.../TestGroepeerPerToeleveringPerProductPerKlant4.cls.xml)	(revision 32590)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant4.cls.xml	(.../TestGroepeerPerToeleveringPerProductPerKlant4.cls.xml)	(revision 32594)
@@ -5,106 +5,73 @@
 
 <Method name="TestGroepeerPerToeleveringPerProductPerKlantxxxProducten">
 <Implementation><![CDATA[
-	Do ..ToeleveringStub1.IndienMethodCall("GeefKlantID").DanReturn("6760")
-	Do ..ToeleveringStub2.IndienMethodCall("GeefKlantID").DanReturn("6760")
-	Do ..ToeleveringStub3.IndienMethodCall("GeefKlantID").DanReturn("6760")
-	
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID1, 2, 100)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID2, 2, 200)
 	Do ..AddToSequenceData(..#ToeleveringID2, ..#ProductID3, 2, 100)
 	Do ..AddToSequenceData(..#ToeleveringID2, ..#ProductID3, 2, 200)
 	Do ..AddToSequenceData(..#ToeleveringID2, ..#ProductID1, 2, 300)
 	Do ..AddToSequenceData(..#ToeleveringID2, ..#ProductID4, 2, 400)
-	Do ..AddToSequenceData(..#ToeleveringID3, ..#ProductID3, 2, 100)
+	Do ..AddToSequenceData(..#ToeleveringID3, ..#ProductID3, 2, 100)	
 	
-	#dim FakeResultSet As TECH.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(..SequenceData,..SequenceHeaders)
-	#dim ProductieSequentieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository).%New()
-	do ProductieSequentieRepositoryStub.IndienMethodCall("GeefSequentieDataVolgensSequenceVoorBatch",..#DummyBatchID).DanReturn(FakeResultSet)
-	#dim ProductieAPIStub As vhTest.Mock.APPS.Halux.ProductieAPI = ##class(vhTest.Mock.APPS.Halux.ProductieAPI).MockInstance()
-	do ProductieAPIStub.IndienMethodCall("GeefProductieSequentieRepository").DanReturn(ProductieSequentieRepositoryStub)
-	
-	set impl = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased).%New()
-	
-	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = impl.GroepeerPerToeleveringPerProductPerKlant(..#DummyBatchID)
+	Do ..AssertGroepering(..GeefGroepeerder().GroepeerPerToeleveringPerProductPerKlant(..#DummyBatchID))
+]]></Implementation>
+</Method>
+
+<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(),3) {
-			do $$$AssertEquals(Groepering.Indices.GetAt(1),1)
+	If $$$AssertTrue(Groepering.IsValid()) {
+		If $$$AssertEquals(Groepering.Indices.Count(), 3) {
+			Do $$$AssertEquals(Groepering.Indices.GetAt(1), 1)
 		
-			if $$$AssertEquals(Groepering.Data.GetAt(1).Count(),2) {
-				set SequenceInfo = Groepering.Data.GetAt(1).GetAt(1) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
+			If $$$AssertEquals(Groepering.Data.GetAt(1).Count(), 2) {
+				Set SequenceInfo = Groepering.Data.GetAt(1).GetAt(1) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
 				Do $$$AssertEquals(SequenceInfo.QueueID, 1)
 				
-				
-				set SequenceInfo = Groepering.Data.GetAt(1).GetAt(2) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID2)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
+				Set SequenceInfo = Groepering.Data.GetAt(1).GetAt(2) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID2)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
 				Do $$$AssertEquals(SequenceInfo.QueueID, 3)
 			}
 			
-			if $$$AssertEquals(Groepering.Data.GetAt(2).Count(),3) {
-				set SequenceInfo = Groepering.Data.GetAt(2).GetAt(1) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,4)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID3)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
+			If $$$AssertEquals(Groepering.Data.GetAt(2).Count(), 3) {
+				Set SequenceInfo = Groepering.Data.GetAt(2).GetAt(1) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 4)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID3)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
 				Do $$$AssertEquals(SequenceInfo.QueueID, 5)
 				
-				set SequenceInfo = Groepering.Data.GetAt(2).GetAt(2) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
+				Set SequenceInfo = Groepering.Data.GetAt(2).GetAt(2) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
 				Do $$$AssertEquals(SequenceInfo.QueueID, 9)
 				
-				set SequenceInfo = Groepering.Data.GetAt(2).GetAt(3) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID4)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
+				Set SequenceInfo = Groepering.Data.GetAt(2).GetAt(3) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID4)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
 				Do $$$AssertEquals(SequenceInfo.QueueID, 11)
 			}
 			
-			if $$$AssertEquals(Groepering.Data.GetAt(3).Count(),1) {
-				set SequenceInfo = Groepering.Data.GetAt(3).GetAt(1) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID3)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
+			If $$$AssertEquals(Groepering.Data.GetAt(3).Count(), 1) {
+				Set SequenceInfo = Groepering.Data.GetAt(3).GetAt(1) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID3)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
 				Do $$$AssertEquals(SequenceInfo.QueueID, 13)
 			}
 		}
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="AssertProductInGroep">
-<FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering,GroepID:%Integer,PlaatsInGroep:%Integer,ProductID:%Integer,TotaalAantalPerProduct:%Integer</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie = Groepering.Data.GetAt(GroepID).GetAt(PlaatsInGroep) 
-	
-	Do $$$AssertEquals(SequenceInfo.TotaalAantal, TotaalAantalPerProduct)
-	Do $$$AssertEquals(SequenceInfo.ProductID, ProductID)
-]]></Implementation>
-</Method>
-
-<Method name="AssertAantalItemsPerGroep">
-<FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering,GroepID:%Integer,VerwachtAantal:%Integer</FormalSpec>
-<Implementation><![CDATA[	do $$$AssertEquals(Groepering.Data.GetAt(GroepID).Count(),VerwachtAantal)
-]]></Implementation>
-</Method>
-
-<Method name="AssertAantalGroepen">
-<FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering,VerwachtAantal:%Integer</FormalSpec>
-<Implementation><![CDATA[
-	do $$$AssertTrue(Groepering.IsValid())
-	do $$$AssertEquals(Groepering.Indices.Count(),VerwachtAantal)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant3.cls.xml
===================================================================
diff -u -r32590 -r32594
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant3.cls.xml	(.../TestGroepeerPerToeleveringPerProductPerKlant3.cls.xml)	(revision 32590)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant3.cls.xml	(.../TestGroepeerPerToeleveringPerProductPerKlant3.cls.xml)	(revision 32594)
@@ -5,51 +5,47 @@
 
 <Method name="TestGroepeerPerToeleveringPerProductPerKlantxxxProducten">
 <Implementation><![CDATA[
-	Do ..ToeleveringStub1.IndienMethodCall("GeefKlantID").DanReturn("6760")
-	Do ..ToeleveringStub2.IndienMethodCall("GeefKlantID").DanReturn("6760")
-	
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID1, 2, 100)
 	Do ..AddToSequenceData(..#ToeleveringID2, ..#ProductID1, 2, 200)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID1, 2, 300)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID1, 2, 300)
-	
-	#dim FakeResultSet As TECH.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(..SequenceData,..SequenceHeaders)
-	#dim ProductieSequentieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository).%New()
-	do ProductieSequentieRepositoryStub.IndienMethodCall("GeefSequentieDataVolgensSequenceVoorBatch",..#DummyBatchID).DanReturn(FakeResultSet)
-	#dim ProductieAPIStub As vhTest.Mock.APPS.Halux.ProductieAPI = ##class(vhTest.Mock.APPS.Halux.ProductieAPI).MockInstance()
-	do ProductieAPIStub.IndienMethodCall("GeefProductieSequentieRepository").DanReturn(ProductieSequentieRepositoryStub)
-	
-	set impl = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased).%New()
-	
-	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = impl.GroepeerPerToeleveringPerProductPerKlant(..#DummyBatchID)
+
+	Do ..AssertGroepering(..GeefGroepeerder().GroepeerPerToeleveringPerProductPerKlant(..#DummyBatchID))
+]]></Implementation>
+</Method>
+
+<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(),3) {
-			do $$$AssertEquals(Groepering.Indices.GetAt(1),1)
+	If $$$AssertTrue(Groepering.IsValid()) {
+		If $$$AssertEquals(Groepering.Indices.Count(), 3) {
+			Do $$$AssertEquals(Groepering.Indices.GetAt(1), 1)
 		
-			if $$$AssertEquals(Groepering.Data.GetAt(1).Count(),1) {
-				set SequenceInfo = Groepering.Data.GetAt(1).GetAt(1)
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
+			If $$$AssertEquals(Groepering.Data.GetAt(1).Count(), 1) {
+				Set SequenceInfo = Groepering.Data.GetAt(1).GetAt(1)
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
 				Do $$$AssertEquals(SequenceInfo.QueueID, 1)
 			}
 			
-			if $$$AssertEquals(Groepering.Data.GetAt(2).Count(),1) {
-				set SequenceInfo = Groepering.Data.GetAt(2).GetAt(1) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-				do $$$AssertEquals(SequenceInfo.QueueID, 3)
+			If $$$AssertEquals(Groepering.Data.GetAt(2).Count(), 1) {
+				Set SequenceInfo = Groepering.Data.GetAt(2).GetAt(1) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
+				Do $$$AssertEquals(SequenceInfo.QueueID, 3)
 			}
 			
-			if $$$AssertEquals(Groepering.Data.GetAt(3).Count(),1) {
-				set SequenceInfo = Groepering.Data.GetAt(3).GetAt(1) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,4)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-				do $$$AssertEquals(SequenceInfo.QueueID, 5)
+			If $$$AssertEquals(Groepering.Data.GetAt(3).Count(), 1) {
+				Set SequenceInfo = Groepering.Data.GetAt(3).GetAt(1) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 4)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
+				Do $$$AssertEquals(SequenceInfo.QueueID, 5)
 			}
 		}
 	}
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant1.cls.xml
===================================================================
diff -u -r32590 -r32594
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant1.cls.xml	(.../TestGroepeerPerToeleveringPerProductPerKlant1.cls.xml)	(revision 32590)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant1.cls.xml	(.../TestGroepeerPerToeleveringPerProductPerKlant1.cls.xml)	(revision 32594)
@@ -5,73 +5,73 @@
 
 <Method name="TestGroepeerPerToeleveringPerProductPerKlantxxxProducten">
 <Implementation><![CDATA[
-	Do ..ToeleveringStub1.IndienMethodCall("GeefKlantID").DanReturn("6760")
-	Do ..ToeleveringStub2.IndienMethodCall("GeefKlantID").DanReturn("6760")
-	Do ..ToeleveringStub3.IndienMethodCall("GeefKlantID").DanReturn("6760")
-	
 	Do ..AddToSequenceData(..#ToeleveringID2, ..#ProductID3, 2, 100)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID2, 2, 200)
 	Do ..AddToSequenceData(..#ToeleveringID3, ..#ProductID3, 2, 100)
 	Do ..AddToSequenceData(..#ToeleveringID2, ..#ProductID1, 2, 200)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID1, 2, 100)
 	Do ..AddToSequenceData(..#ToeleveringID2, ..#ProductID4, 2, 300)
-	
-	#dim FakeResultSet As TECH.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(..SequenceData,..SequenceHeaders)
-	#dim ProductieSequentieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository).%New()
-	do ProductieSequentieRepositoryStub.IndienMethodCall("GeefSequentieDataVolgensSequenceVoorBatch",..#DummyBatchID).DanReturn(FakeResultSet)
-	#dim ProductieAPIStub As vhTest.Mock.APPS.Halux.ProductieAPI = ##class(vhTest.Mock.APPS.Halux.ProductieAPI).MockInstance()
-	do ProductieAPIStub.IndienMethodCall("GeefProductieSequentieRepository").DanReturn(ProductieSequentieRepositoryStub)
-	
-	set impl = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased).%New()
-	
-	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = impl.GroepeerPerToeleveringPerProductPerKlant(..#DummyBatchID)
+
+	Do ..AssertGroepering(..GeefGroepeerder().GroepeerPerToeleveringPerProductPerKlant(..#DummyBatchID))
+]]></Implementation>
+</Method>
+
+<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(),6) {
-			do $$$AssertEquals(Groepering.Indices.GetAt(1),1)
+	If $$$AssertTrue(Groepering.IsValid()) {
+		If $$$AssertEquals(Groepering.Indices.Count(), 6) {
+			Do $$$AssertEquals(Groepering.Indices.GetAt(1), 1)
 		
-			if $$$AssertEquals(Groepering.Data.GetAt(1).Count(),1) {
-				set SequenceInfo = Groepering.Data.GetAt(1).GetAt(1) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID3)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-				do $$$AssertEquals(SequenceInfo.QueueID, 1)
+			If $$$AssertEquals(Groepering.Data.GetAt(1).Count(), 1) {
+				Set SequenceInfo = Groepering.Data.GetAt(1).GetAt(1) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID3)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
+				Do $$$AssertEquals(SequenceInfo.QueueID, 1)
 			}
-			if $$$AssertEquals(Groepering.Data.GetAt(2).Count(),1) {
-				set SequenceInfo = Groepering.Data.GetAt(2).GetAt(1) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID2)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-				do $$$AssertEquals(SequenceInfo.QueueID, 3)
+			
+			If $$$AssertEquals(Groepering.Data.GetAt(2).Count(), 1) {
+				Set SequenceInfo = Groepering.Data.GetAt(2).GetAt(1) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID2)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
+				Do $$$AssertEquals(SequenceInfo.QueueID, 3)
 			}
-			if $$$AssertEquals(Groepering.Data.GetAt(3).Count(),1) {
-				set SequenceInfo = Groepering.Data.GetAt(3).GetAt(1) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID3)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-				do $$$AssertEquals(SequenceInfo.QueueID, 5)
+			
+			If $$$AssertEquals(Groepering.Data.GetAt(3).Count(), 1) {
+				Set SequenceInfo = Groepering.Data.GetAt(3).GetAt(1) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID3)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
+				Do $$$AssertEquals(SequenceInfo.QueueID, 5)
 			}
-			if $$$AssertEquals(Groepering.Data.GetAt(4).Count(),1) {
-				set SequenceInfo = Groepering.Data.GetAt(4).GetAt(1) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-				do $$$AssertEquals(SequenceInfo.QueueID, 7)
+			
+			If $$$AssertEquals(Groepering.Data.GetAt(4).Count(), 1) {
+				Set SequenceInfo = Groepering.Data.GetAt(4).GetAt(1) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
+				Do $$$AssertEquals(SequenceInfo.QueueID, 7)
 			}
-			if $$$AssertEquals(Groepering.Data.GetAt(5).Count(),1) {
-				set SequenceInfo = Groepering.Data.GetAt(5).GetAt(1) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-				do $$$AssertEquals(SequenceInfo.QueueID, 9)
+			
+			If $$$AssertEquals(Groepering.Data.GetAt(5).Count(), 1) {
+				Set SequenceInfo = Groepering.Data.GetAt(5).GetAt(1) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
+				Do $$$AssertEquals(SequenceInfo.QueueID, 9)
 			}
-			if $$$AssertEquals(Groepering.Data.GetAt(6).Count(),1) {
-				set SequenceInfo = Groepering.Data.GetAt(6).GetAt(1) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID4)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-				do $$$AssertEquals(SequenceInfo.QueueID, 11)
+			
+			If $$$AssertEquals(Groepering.Data.GetAt(6).Count(), 1) {
+				Set SequenceInfo = Groepering.Data.GetAt(6).GetAt(1) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID4)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
+				Do $$$AssertEquals(SequenceInfo.QueueID, 11)
 			}
 		}
 	}
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/Base.cls.xml
===================================================================
diff -u -r32590 -r32594
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/Base.cls.xml	(.../Base.cls.xml)	(revision 32590)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/Base.cls.xml	(.../Base.cls.xml)	(revision 32594)
@@ -37,6 +37,26 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefGroepeerder">
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.ProductieSequentieGroepeerder</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased).%New(..GeefProductieSequentieRepository())
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductieSequentieRepository">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository</ReturnType>
+<Implementation><![CDATA[
+	#dim FakeResultSet As TECH.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(..SequenceData, ..SequenceHeaders)
+	#dim ProductieSequentieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository).%New()
+	
+	Do ProductieSequentieRepositoryStub.IndienMethodCall("GeefSequentieDataVolgensSequenceVoorBatch", ..#DummyBatchID).DanReturn(FakeResultSet)
+	
+	Quit ProductieSequentieRepositoryStub
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToelevering.cls.xml
===================================================================
diff -u -r32590 -r32594
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToelevering.cls.xml	(.../TestGroepeerPerToelevering.cls.xml)	(revision 32590)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToelevering.cls.xml	(.../TestGroepeerPerToelevering.cls.xml)	(revision 32594)
@@ -6,7 +6,7 @@
 <Method name="GeefGroepeerder">
 <Private>1</Private>
 <ReturnType>APPS.Halux.common.ProductieSequentieGroepeerder</ReturnType>
-<Implementation><![CDATA[	quit ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased).%New(..GeefProductieSequentieRepository())
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased).%New(..GeefProductieSequentieRepository())
 ]]></Implementation>
 </Method>
 
@@ -15,10 +15,11 @@
 <ReturnType>vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository</ReturnType>
 <Implementation><![CDATA[
 	#dim FakeResultSet As TECH.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(..SequenceData, ..SequenceHeaders)
-	
 	#dim ProductieSequentieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository).%New()
+	
 	Do ProductieSequentieRepositoryStub.IndienMethodCall("GeefSequentieDataVolgensSequenceVoorBatch", ..#DummyBatchID).DanReturn(FakeResultSet)
-	quit ProductieSequentieRepositoryStub
+	
+	Quit ProductieSequentieRepositoryStub
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant2.cls.xml
===================================================================
diff -u -r32590 -r32594
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant2.cls.xml	(.../TestGroepeerPerToeleveringPerProductPerKlant2.cls.xml)	(revision 32590)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant2.cls.xml	(.../TestGroepeerPerToeleveringPerProductPerKlant2.cls.xml)	(revision 32594)
@@ -5,50 +5,46 @@
 
 <Method name="TestGroepeerPerToeleveringPerProductPerKlantxxxProducten">
 <Implementation><![CDATA[
-	Do ..ToeleveringStub1.IndienMethodCall("GeefKlantID").DanReturn("6760")
-	Do ..ToeleveringStub2.IndienMethodCall("GeefKlantID").DanReturn("6760")
-	
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID1, 2, 100)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID1, 2, 100)
 	Do ..AddToSequenceData(..#ToeleveringID2, ..#ProductID1, 2, 200)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID1, 2, 300)
 	
-	#dim FakeResultSet As TECH.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(..SequenceData,..SequenceHeaders)
-	#dim ProductieSequentieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository).%New()
-	do ProductieSequentieRepositoryStub.IndienMethodCall("GeefSequentieDataVolgensSequenceVoorBatch",..#DummyBatchID).DanReturn(FakeResultSet)
-	#dim ProductieAPIStub As vhTest.Mock.APPS.Halux.ProductieAPI = ##class(vhTest.Mock.APPS.Halux.ProductieAPI).MockInstance()
-	do ProductieAPIStub.IndienMethodCall("GeefProductieSequentieRepository").DanReturn(ProductieSequentieRepositoryStub)
-	
-	set impl = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased).%New()
-	
-	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = impl.GroepeerPerToeleveringPerProductPerKlant(..#DummyBatchID)
+	Do ..AssertGroepering(..GeefGroepeerder().GroepeerPerToeleveringPerProductPerKlant(..#DummyBatchID))
+]]></Implementation>
+</Method>
+
+<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(),3) {
-			do $$$AssertEquals(Groepering.Indices.GetAt(1),1)
+	If $$$AssertTrue(Groepering.IsValid()) {
+		If $$$AssertEquals(Groepering.Indices.Count(), 3) {
+			Do $$$AssertEquals(Groepering.Indices.GetAt(1), 1)
 		
-			if $$$AssertEquals(Groepering.Data.GetAt(1).Count(),1) {
-				set SequenceInfo = Groepering.Data.GetAt(1).GetAt(1)
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,4)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
+			If $$$AssertEquals(Groepering.Data.GetAt(1).Count(), 1) {
+				Set SequenceInfo = Groepering.Data.GetAt(1).GetAt(1)
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 4)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
 				Do $$$AssertEquals(SequenceInfo.QueueID, 1)
 			}
 			
-			if $$$AssertEquals(Groepering.Data.GetAt(2).Count(),1) {
-				set SequenceInfo = Groepering.Data.GetAt(2).GetAt(1) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
+			If $$$AssertEquals(Groepering.Data.GetAt(2).Count(), 1) {
+				Set SequenceInfo = Groepering.Data.GetAt(2).GetAt(1) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
 				Do $$$AssertEquals(SequenceInfo.QueueID, 5)
 			}
 			
-			if $$$AssertEquals(Groepering.Data.GetAt(3).Count(),1) {
-				set SequenceInfo = Groepering.Data.GetAt(3).GetAt(1) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
+			If $$$AssertEquals(Groepering.Data.GetAt(3).Count(), 1) {
+				Set SequenceInfo = Groepering.Data.GetAt(3).GetAt(1) 
+				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
 				Do $$$AssertEquals(SequenceInfo.QueueID, 7)
 			}
 		}
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/TestGroepeerPerToelevering.cls.xml
===================================================================
diff -u -r32589 -r32594
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/TestGroepeerPerToelevering.cls.xml	(.../TestGroepeerPerToelevering.cls.xml)	(revision 32589)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/TestGroepeerPerToelevering.cls.xml	(.../TestGroepeerPerToelevering.cls.xml)	(revision 32594)
@@ -9,15 +9,16 @@
 <Implementation><![CDATA[
 	#dim ProductieSequentieItemsFake As list of APPS.Halux.common.ProductieSequentieItem = ..SequenceData
 	#dim ProductieSequentieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository).%New()
+	
 	Do ProductieSequentieRepositoryStub.IndienMethodCall("GeefProductieSequentieItemList", ..#DummyBatchID).DanReturn(ProductieSequentieItemsFake)
-	quit ProductieSequentieRepositoryStub
+	Quit ProductieSequentieRepositoryStub
 ]]></Implementation>
 </Method>
 
 <Method name="GeefGroepeerder">
 <Private>1</Private>
 <ReturnType>APPS.Halux.common.ProductieSequentieGroepeerder</ReturnType>
-<Implementation><![CDATA[	quit ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderListBased).%New(..GeefProductieSequentieRepository())
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderListBased).%New(..GeefProductieSequentieRepository())
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProduct1.cls.xml
===================================================================
diff -u -r32590 -r32594
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProduct1.cls.xml	(.../TestGroepeerPerToeleveringPerProduct1.cls.xml)	(revision 32590)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProduct1.cls.xml	(.../TestGroepeerPerToeleveringPerProduct1.cls.xml)	(revision 32594)
@@ -8,34 +8,33 @@
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID1, 2, 100)
 	Do ..AddToSequenceData(..#ToeleveringID1, ..#ProductID1, 4, 200)
 	
-	#dim FakeResultSet As TECH.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(..SequenceData,..SequenceHeaders)
-	#dim ProductieSequentieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository).%New()
-	do ProductieSequentieRepositoryStub.IndienMethodCall("GeefSequentieDataVolgensSequenceVoorBatch",..#DummyBatchID).DanReturn(FakeResultSet)
-	#dim ProductieAPIStub As vhTest.Mock.APPS.Halux.ProductieAPI = ##class(vhTest.Mock.APPS.Halux.ProductieAPI).MockInstance()
-	do ProductieAPIStub.IndienMethodCall("GeefProductieSequentieRepository").DanReturn(ProductieSequentieRepositoryStub)
-	
-	set impl = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased).%New()
-	
-	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = impl.GroepeerPerToeleveringPerProduct(..#DummyBatchID)
+	Do ..AssertGroepering(..GeefGroepeerder().GroepeerPerToeleveringPerProduct(..#DummyBatchID))
+]]></Implementation>
+</Method>
+
+<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(),1) {
-			do $$$AssertEquals(Groepering.Indices.GetAt(1),..#ToeleveringID1)
+	If $$$AssertTrue(Groepering.IsValid()) {
+		If $$$AssertEquals(Groepering.Indices.Count(), 1) {
+			Do $$$AssertEquals(Groepering.Indices.GetAt(1), ..#ToeleveringID1)
 		}
 		
-		if $$$AssertEquals(Groepering.Data.GetAt(..#ToeleveringID1).Count(),2) {
-			set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(1) 
-			do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-			do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-			do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-			do $$$AssertEquals(SequenceInfo.QueueID, 1)
+		If $$$AssertEquals(Groepering.Data.GetAt(..#ToeleveringID1).Count(), 2) {
+			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(1) 
+			Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+			Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+			Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
+			Do $$$AssertEquals(SequenceInfo.QueueID, 1)
 		
-			set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(2) 
-			do $$$AssertEquals(SequenceInfo.TotaalAantal,4)
-			do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-			do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-			do $$$AssertEquals(SequenceInfo.QueueID, 3)
+			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(2) 
+			Do $$$AssertEquals(SequenceInfo.TotaalAantal, 4)
+			Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+			Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
+			Do $$$AssertEquals(SequenceInfo.QueueID, 3)
 		}
 	}
 ]]></Implementation>