Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/TestGeenGroeperingProductSamentrekken.cls.xml
===================================================================
diff -u -r29059 -r31994
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/TestGeenGroeperingProductSamentrekken.cls.xml	(.../TestGeenGroeperingProductSamentrekken.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/TestGeenGroeperingProductSamentrekken.cls.xml	(.../TestGeenGroeperingProductSamentrekken.cls.xml)	(revision 31994)
@@ -9,70 +9,54 @@
 	Do ..ToeleveringStub2.IndienMethodCall("GeefKlantID").DanReturn("6700")
 	Do ..ToeleveringStub3.IndienMethodCall("GeefKlantID").DanReturn("6700")
 	
-	do ..AddToSequenceData(..#QueueID1,..#ToeleveringID1,..#ProductID1,2,100)
-	do ..AddToSequenceData(..#QueueID1,..#ToeleveringID1,..#ProductID2,2,200)
-	do ..AddToSequenceData(..#QueueID1,..#ToeleveringID2,..#ProductID3,2,100)
-	do ..AddToSequenceData(..#QueueID1,..#ToeleveringID2,..#ProductID3,2,200)
-	do ..AddToSequenceData(..#QueueID1,..#ToeleveringID2,..#ProductID1,2,300)
-	do ..AddToSequenceData(..#QueueID1,..#ToeleveringID2,..#ProductID4,2,400)
-	do ..AddToSequenceData(..#QueueID1,..#ToeleveringID3,..#ProductID3,2,100)
+	Do ..AddToSequenceData(..#QueueID1, ..#ToeleveringID1, ..#ProductID1, 2, 100)
+	Do ..AddToSequenceData(..#QueueID1, ..#ToeleveringID1, ..#ProductID2, 2, 200)
+	Do ..AddToSequenceData(..#QueueID1, ..#ToeleveringID2, ..#ProductID3, 2, 100)
+	Do ..AddToSequenceData(..#QueueID1, ..#ToeleveringID2, ..#ProductID3, 2, 200)
+	Do ..AddToSequenceData(..#QueueID1, ..#ToeleveringID2, ..#ProductID1, 2, 300)
+	Do ..AddToSequenceData(..#QueueID1, ..#ToeleveringID2, ..#ProductID4, 2, 400)
+	Do ..AddToSequenceData(..#QueueID1, ..#ToeleveringID3, ..#ProductID3, 2, 100)
 	
-	#dim FakeResultSet As lib.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 FakeResultSet As lib.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 ProductieAPIStub.IndienMethodCall("GeefProductieSequentieRepository").DanReturn(ProductieSequentieRepositoryStub)
 	
-	set impl = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerder).%New()
+	Do ProductieSequentieRepositoryStub.IndienMethodCall("GeefSequentieDataVolgensSequenceVoorBatch", ..#DummyBatchID).DanReturn(FakeResultSet)
+	Do ProductieAPIStub.IndienMethodCall("GeefProductieSequentieRepository").DanReturn(ProductieSequentieRepositoryStub)
 	
-	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = impl.GeenGroeperingProductenSamentrekken(..#DummyBatchID)
+	#dim ProductieSequentieGroepeerder As APPS.Halux.common.impl.ProductieSequentieGroepeerder = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerder).%New()
+	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = ProductieSequentieGroepeerder.GeenGroeperingProductenSamentrekken(..#DummyBatchID)
 	#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(),6) {
-				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,..#QueueID1)
-				
-				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,..#QueueID1)
-				
-				set SequenceInfo = Groepering.Data.GetAt(1).GetAt(3) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,4)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID3)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-				do $$$AssertEquals(SequenceInfo.QueueID,..#QueueID1)
-				
-				set SequenceInfo = Groepering.Data.GetAt(1).GetAt(4) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-				do $$$AssertEquals(SequenceInfo.QueueID,..#QueueID1)
-				
-				set SequenceInfo = Groepering.Data.GetAt(1).GetAt(5) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID4)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-				do $$$AssertEquals(SequenceInfo.QueueID,..#QueueID1)
-				
-				set SequenceInfo = Groepering.Data.GetAt(1).GetAt(6) 
-				do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
-				do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID3)
-				do $$$AssertEquals(SequenceInfo.DeelAantal,"")
-				do $$$AssertEquals(SequenceInfo.QueueID,..#QueueID1)
+			#dim Groepen As %ListOfDataTypes = Groepering.Data.GetAt(1)
+			
+			If ($$$AssertEquals(Groepen.Count(), 6)) {
+				Do ..AssertProductieSequentie(Groepen.GetAt(1), 2, ..#ProductID1)
+				Do ..AssertProductieSequentie(Groepen.GetAt(2), 2, ..#ProductID2)
+				Do ..AssertProductieSequentie(Groepen.GetAt(3), 4, ..#ProductID3)
+				Do ..AssertProductieSequentie(Groepen.GetAt(4), 2, ..#ProductID1)
+				Do ..AssertProductieSequentie(Groepen.GetAt(5), 2, ..#ProductID4)
+				Do ..AssertProductieSequentie(Groepen.GetAt(6), 2, ..#ProductID3)
 			}
 		}
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="AssertProductieSequentie">
+<FormalSpec>ProductieSequentie:APPS.Halux.common.dto.ProductieSequentie,TotaalAantal:%Integer,ProductID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(ProductieSequentie.TotaalAantal, TotaalAantal)
+	Do $$$AssertEquals(ProductieSequentie.ProductID, ProductID)
+	Do $$$AssertEquals(ProductieSequentie.DeelAantal, "")
+	Do $$$AssertEquals(ProductieSequentie.QueueID, ..#QueueID1)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/common/impl/ProductieSequentieGroepeerder.cls.xml
===================================================================
diff -u -r31991 -r31994
--- APPS/Halux/common/impl/ProductieSequentieGroepeerder.cls.xml	(.../ProductieSequentieGroepeerder.cls.xml)	(revision 31991)
+++ APPS/Halux/common/impl/ProductieSequentieGroepeerder.cls.xml	(.../ProductieSequentieGroepeerder.cls.xml)	(revision 31994)
@@ -51,14 +51,15 @@
 
 	#dim TotaalSequentieInfo As APPS.Halux.common.dto.ProductieSequentie = ""
 	#dim ResultSet As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
+	#dim ProductID As %String = ""
+	#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ""
 
 	While (ResultSet.Next()) {
 		#dim DeelAantal As %Integer = ResultSet.GetDataByName("DeelAantal")
 		
 		Continue:$$$Not(DeelAantal = 1)
 		
-		#dim ProductID As %String = ""
-		#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfo(ResultSet)
+		Set SequentieInfo = ..GeefSequentieInfo(ResultSet)
 		Set SequentieInfo.DeelAantal = ""
 		
 		If $$$Not(ProductID = SequentieInfo.ProductID) {