Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant3.cls.xml
===================================================================
diff -u -r41087 -r41094
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant3.cls.xml	(.../TestGroepeerPerToeleveringPerProductPerKlant3.cls.xml)	(revision 41087)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant3.cls.xml	(.../TestGroepeerPerToeleveringPerProductPerKlant3.cls.xml)	(revision 41094)
@@ -24,33 +24,28 @@
 		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, "")
-				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(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)
-			}
+			Do ..AssertSequenceInfo(Groepering, 1, 1, 1, 2, ..#ProductID1, "", 1)
+			Do ..AssertSequenceInfo(Groepering, 1, 2, 1, 2, ..#ProductID1, "", 3)
+			Do ..AssertSequenceInfo(Groepering, 1, 3, 1, 4, ..#ProductID1, "", 5)
 		}
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="AssertSequenceInfo">
+<FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering,Count:%Integer,EersteIndex:%Integer,TweedeIndex:%Integer,TotaalAantal:%Integer,ProductID:%String,DeelAantal:%String,QueueID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$AssertEquals(Groepering.Data.GetAt(EersteIndex).Count(), 1) {
+		#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie
+		Set SequenceInfo = Groepering.Data.GetAt(EersteIndex).GetAt(TweedeIndex) 
+		Do $$$AssertEquals(SequenceInfo.TotaalAantal, TotaalAantal)
+		Do $$$AssertEquals(SequenceInfo.ProductID, ProductID)
+		Do $$$AssertEquals(SequenceInfo.DeelAantal, DeelAantal)
+		Do $$$AssertEquals(SequenceInfo.QueueID, QueueID)
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerKlant4.cls.xml
===================================================================
diff -u -r41087 -r41094
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerKlant4.cls.xml	(.../TestGroepeerPerToeleveringPerKlant4.cls.xml)	(revision 41087)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerKlant4.cls.xml	(.../TestGroepeerPerToeleveringPerKlant4.cls.xml)	(revision 41094)
@@ -26,58 +26,35 @@
 	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, "")
-				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, "")
-				Do $$$AssertEquals(SequenceInfo.QueueID, 3)
-			}
 			
-			If $$$AssertEquals(Groepering.Data.GetAt(2).Count(), 4) {
-				Set SequenceInfo = Groepering.Data.GetAt(2).GetAt(1) 
-				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
-				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID3)
-				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
-				Do $$$AssertEquals(SequenceInfo.QueueID, 5)
+			Do ..AssertSequenceInfo(Groepering, 2, 1, 1, 2, ..#ProductID1, "", 1)
+			Do ..AssertSequenceInfo(Groepering, 2, 1, 2, 2, ..#ProductID2, "", 3)
 				
-				Set SequenceInfo = Groepering.Data.GetAt(2).GetAt(2) 
-				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
-				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID3)
-				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
-				Do $$$AssertEquals(SequenceInfo.QueueID, 7)
-				
-				Set SequenceInfo = Groepering.Data.GetAt(2).GetAt(3) 
-				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(4) 
-				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
-				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID4)
-				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
-				Do $$$AssertEquals(SequenceInfo.QueueID, 11)
-			}
+			Do ..AssertSequenceInfo(Groepering, 4, 2, 1, 2, ..#ProductID3, "", 5)
+			Do ..AssertSequenceInfo(Groepering, 4, 2, 2, 2, ..#ProductID3, "", 7)
+			Do ..AssertSequenceInfo(Groepering, 4, 2, 3, 2, ..#ProductID1, "", 9)
+			Do ..AssertSequenceInfo(Groepering, 4, 2, 4, 2, ..#ProductID4, "", 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, "")
-				Do $$$AssertEquals(SequenceInfo.QueueID, 13)
-			}
+			Do ..AssertSequenceInfo(Groepering, 1, 3, 1, 2, ..#ProductID3, "", 13)
 		}
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="AssertSequenceInfo">
+<FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering,Count:%Integer,EersteIndex:%Integer,TweedeIndex:%Integer,TotaalAantal:%Integer,ProductID:%String,DeelAantal:%String,QueueID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$AssertEquals(Groepering.Data.GetAt(EersteIndex).Count(), Count) {
+		#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie
+		Set SequenceInfo = Groepering.Data.GetAt(EersteIndex).GetAt(TweedeIndex) 
+		Do $$$AssertEquals(SequenceInfo.TotaalAantal, TotaalAantal)
+		Do $$$AssertEquals(SequenceInfo.ProductID, ProductID)
+		Do $$$AssertEquals(SequenceInfo.DeelAantal, DeelAantal)
+		Do $$$AssertEquals(SequenceInfo.QueueID, QueueID)
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerKlant3.cls.xml
===================================================================
diff -u -r41087 -r41094
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerKlant3.cls.xml	(.../TestGroepeerPerToeleveringPerKlant3.cls.xml)	(revision 41087)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerKlant3.cls.xml	(.../TestGroepeerPerToeleveringPerKlant3.cls.xml)	(revision 41094)
@@ -24,39 +24,31 @@
 		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, "")
-				Do $$$AssertEquals(SequenceInfo.QueueID, 1)
-			}
+			Do ..AssertSequenceInfo(Groepering, 1, 1, 1, 2, ..#ProductID1, "", 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)
-			}
+			Do ..AssertSequenceInfo(Groepering, 1, 2, 1, 2, ..#ProductID1, "", 3)
 			
-			If $$$AssertEquals(Groepering.Data.GetAt(3).Count(), 2) {
-				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, 5)
-				
-				Set SequenceInfo = Groepering.Data.GetAt(3).GetAt(2) 
-				Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
-				Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
-				Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
-				Do $$$AssertEquals(SequenceInfo.QueueID, 7)
-			}
+			Do ..AssertSequenceInfo(Groepering, 2, 3, 1, 2, ..#ProductID1, "", 5)
+			Do ..AssertSequenceInfo(Groepering, 2, 3, 2, 2, ..#ProductID1, "", 7)
 		}
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="AssertSequenceInfo">
+<FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering,Count:%Integer,EersteIndex:%Integer,TweedeIndex:%Integer,TotaalAantal:%Integer,ProductID:%String,DeelAantal:%String,QueueID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$AssertEquals(Groepering.Data.GetAt(EersteIndex).Count(), Count) {
+		#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie
+		Set SequenceInfo = Groepering.Data.GetAt(EersteIndex).GetAt(TweedeIndex) 
+		Do $$$AssertEquals(SequenceInfo.TotaalAantal, TotaalAantal)
+		Do $$$AssertEquals(SequenceInfo.ProductID, ProductID)
+		Do $$$AssertEquals(SequenceInfo.DeelAantal, DeelAantal)
+		Do $$$AssertEquals(SequenceInfo.QueueID, QueueID)
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProduct2.cls.xml
===================================================================
diff -u -r32594 -r41094
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProduct2.cls.xml	(.../TestGroepeerPerToeleveringPerProduct2.cls.xml)	(revision 32594)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProduct2.cls.xml	(.../TestGroepeerPerToeleveringPerProduct2.cls.xml)	(revision 41094)
@@ -25,27 +25,28 @@
 			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, "")
-		}
+		Do ..AssertSequenceInfo(Groepering, 1, ..#ToeleveringID2, 1, 2, ..#ProductID1, "", 1)
 		
-		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, "")
-		}
+		Do ..AssertSequenceInfo(Groepering, 2, ..#ToeleveringID1, 1, 4, ..#ProductID2, "", 3)
+		Do ..AssertSequenceInfo(Groepering, 2, ..#ToeleveringID1, 2, 5, ..#ProductID1, "", 7)
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="AssertSequenceInfo">
+<FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering,Count:%Integer,EersteIndex:%Integer,TweedeIndex:%Integer,TotaalAantal:%Integer,ProductID:%String,DeelAantal:%String,QueueID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$AssertEquals(Groepering.Data.GetAt(EersteIndex).Count(), Count) {
+		#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie
+		Set SequenceInfo = Groepering.Data.GetAt(EersteIndex).GetAt(TweedeIndex) 
+		Do $$$AssertEquals(SequenceInfo.TotaalAantal, TotaalAantal)
+		Do $$$AssertEquals(SequenceInfo.ProductID, ProductID)
+		Do $$$AssertEquals(SequenceInfo.DeelAantal, DeelAantal)
+		Do $$$AssertEquals(SequenceInfo.QueueID, QueueID)
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant1.cls.xml
===================================================================
diff -u -r32594 -r41094
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant1.cls.xml	(.../TestGroepeerPerToeleveringPerProductPerKlant1.cls.xml)	(revision 32594)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant1.cls.xml	(.../TestGroepeerPerToeleveringPerProductPerKlant1.cls.xml)	(revision 41094)
@@ -25,58 +25,32 @@
 	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(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(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(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)
-			}
+			Do ..AssertSequenceInfo(Groepering, 1, 1, 1, 2, ..#ProductID3, "", 1)
+			Do ..AssertSequenceInfo(Groepering, 1, 2, 1, 2, ..#ProductID2, "", 3)
+			Do ..AssertSequenceInfo(Groepering, 1, 3, 1, 2, ..#ProductID3, "", 5)
+			Do ..AssertSequenceInfo(Groepering, 1, 4, 1, 2, ..#ProductID1, "", 7)
+			Do ..AssertSequenceInfo(Groepering, 1, 5, 1, 2, ..#ProductID1, "", 9)
+			Do ..AssertSequenceInfo(Groepering, 1, 6, 1, 2, ..#ProductID4, "", 11)
 		}
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="AssertSequenceInfo">
+<FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering,Count:%Integer,EersteIndex:%Integer,TweedeIndex:%Integer,TotaalAantal:%Integer,ProductID:%String,DeelAantal:%String,QueueID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$AssertEquals(Groepering.Data.GetAt(EersteIndex).Count(), Count) {
+		#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie
+		Set SequenceInfo = Groepering.Data.GetAt(EersteIndex).GetAt(TweedeIndex) 
+		Do $$$AssertEquals(SequenceInfo.TotaalAantal, TotaalAantal)
+		Do $$$AssertEquals(SequenceInfo.ProductID, ProductID)
+		Do $$$AssertEquals(SequenceInfo.DeelAantal, DeelAantal)
+		Do $$$AssertEquals(SequenceInfo.QueueID, QueueID)
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerKlant2.cls.xml
===================================================================
diff -u -r41087 -r41094
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerKlant2.cls.xml	(.../TestGroepeerPerToeleveringPerKlant2.cls.xml)	(revision 41087)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerKlant2.cls.xml	(.../TestGroepeerPerToeleveringPerKlant2.cls.xml)	(revision 41094)
@@ -24,39 +24,31 @@
 		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, "")
-				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, 3)
-			}
+			Do ..AssertSequenceInfo(Groepering, 2, 1, 1, 2, ..#ProductID1, "", 1)
+			Do ..AssertSequenceInfo(Groepering, 2, 1, 2, 2, ..#ProductID1, "", 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, 5)
-			}
+			Do ..AssertSequenceInfo(Groepering, 1, 2, 1, 2, ..#ProductID1, "", 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, "")
-				Do $$$AssertEquals(SequenceInfo.QueueID, 7)
-			}
+			Do ..AssertSequenceInfo(Groepering, 1, 3, 1, 2, ..#ProductID1, "", 7)
 		}
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="AssertSequenceInfo">
+<FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering,Count:%Integer,EersteIndex:%Integer,TweedeIndex:%Integer,TotaalAantal:%Integer,ProductID:%String,DeelAantal:%String,QueueID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$AssertEquals(Groepering.Data.GetAt(EersteIndex).Count(), Count) {
+		#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie
+		Set SequenceInfo = Groepering.Data.GetAt(EersteIndex).GetAt(TweedeIndex) 
+		Do $$$AssertEquals(SequenceInfo.TotaalAantal, TotaalAantal)
+		Do $$$AssertEquals(SequenceInfo.ProductID, ProductID)
+		Do $$$AssertEquals(SequenceInfo.DeelAantal, DeelAantal)
+		Do $$$AssertEquals(SequenceInfo.QueueID, QueueID)
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProduct1.cls.xml
===================================================================
diff -u -r32594 -r41094
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProduct1.cls.xml	(.../TestGroepeerPerToeleveringPerProduct1.cls.xml)	(revision 32594)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProduct1.cls.xml	(.../TestGroepeerPerToeleveringPerProduct1.cls.xml)	(revision 41094)
@@ -23,22 +23,26 @@
 			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)
-		
-			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)
-		}
+		Do ..AssertSequenceInfo(Groepering, 2, ..#ToeleveringID1, 1, 2, ..#ProductID1, "", 1)
+		Do ..AssertSequenceInfo(Groepering, 2, ..#ToeleveringID1, 2, 4, ..#ProductID1, "", 3)
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="AssertSequenceInfo">
+<FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering,Count:%Integer,EersteIndex:%Integer,TweedeIndex:%Integer,TotaalAantal:%Integer,ProductID:%String,DeelAantal:%String,QueueID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$AssertEquals(Groepering.Data.GetAt(EersteIndex).Count(), Count) {
+		#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie
+		Set SequenceInfo = Groepering.Data.GetAt(EersteIndex).GetAt(TweedeIndex) 
+		Do $$$AssertEquals(SequenceInfo.TotaalAantal, TotaalAantal)
+		Do $$$AssertEquals(SequenceInfo.ProductID, ProductID)
+		Do $$$AssertEquals(SequenceInfo.DeelAantal, DeelAantal)
+		Do $$$AssertEquals(SequenceInfo.QueueID, QueueID)
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant2.cls.xml
===================================================================
diff -u -r41087 -r41094
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant2.cls.xml	(.../TestGroepeerPerToeleveringPerProductPerKlant2.cls.xml)	(revision 41087)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant2.cls.xml	(.../TestGroepeerPerToeleveringPerProductPerKlant2.cls.xml)	(revision 41094)
@@ -24,33 +24,28 @@
 		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, "")
-				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, 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, "")
-				Do $$$AssertEquals(SequenceInfo.QueueID, 7)
-			}
+			Do ..AssertSequenceInfo(Groepering, 1, 1, 1, 4, ..#ProductID1, "", 1)
+			Do ..AssertSequenceInfo(Groepering, 1, 2, 1, 2, ..#ProductID1, "", 5)
+			Do ..AssertSequenceInfo(Groepering, 1, 3, 1, 2, ..#ProductID1, "", 7)
 		}
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="AssertSequenceInfo">
+<FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering,Count:%Integer,EersteIndex:%Integer,TweedeIndex:%Integer,TotaalAantal:%Integer,ProductID:%String,DeelAantal:%String,QueueID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$AssertEquals(Groepering.Data.GetAt(EersteIndex).Count(), Count) {
+		#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie
+		Set SequenceInfo = Groepering.Data.GetAt(EersteIndex).GetAt(TweedeIndex) 
+		Do $$$AssertEquals(SequenceInfo.TotaalAantal, TotaalAantal)
+		Do $$$AssertEquals(SequenceInfo.ProductID, ProductID)
+		Do $$$AssertEquals(SequenceInfo.DeelAantal, DeelAantal)
+		Do $$$AssertEquals(SequenceInfo.QueueID, QueueID)
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGeenGroeperingProductSamentrekken.cls.xml
===================================================================
diff -u -r32594 -r41094
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGeenGroeperingProductSamentrekken.cls.xml	(.../TestGeenGroeperingProductSamentrekken.cls.xml)	(revision 32594)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGeenGroeperingProductSamentrekken.cls.xml	(.../TestGeenGroeperingProductSamentrekken.cls.xml)	(revision 41094)
@@ -24,30 +24,30 @@
 	If ($$$AssertTrue(Groepering.IsValid())) {
 		If ($$$AssertEquals(Groepering.Indices.Count(), 1)) {
 			Do $$$AssertEquals(Groepering.Indices.GetAt(1), 1)
-		
-			#dim Groepen As %ListOfDataTypes = Groepering.Data.GetAt(1)
 			
-			If ($$$AssertEquals(Groepen.Count(), 6)) {
-				Do ..AssertProductieSequentie(Groepen.GetAt(1), 1, 2, ..#ProductID1)
-				Do ..AssertProductieSequentie(Groepen.GetAt(2), 3, 2, ..#ProductID2)
-				Do ..AssertProductieSequentie(Groepen.GetAt(3), 5, 4, ..#ProductID3)
-				Do ..AssertProductieSequentie(Groepen.GetAt(4), 9, 2, ..#ProductID1)
-				Do ..AssertProductieSequentie(Groepen.GetAt(5), 11, 2, ..#ProductID4)
-				Do ..AssertProductieSequentie(Groepen.GetAt(6), 13, 2, ..#ProductID3)
-			}
+			Do ..AssertSequenceInfo(Groepering, 6, 1, 1, 2, ..#ProductID1, "", 1)
+			Do ..AssertSequenceInfo(Groepering, 6, 1, 2, 2, ..#ProductID2, "", 3)
+			Do ..AssertSequenceInfo(Groepering, 6, 1, 3, 4, ..#ProductID3, "", 5)
+			Do ..AssertSequenceInfo(Groepering, 6, 1, 4, 2, ..#ProductID1, "", 9)
+			Do ..AssertSequenceInfo(Groepering, 6, 1, 5, 2, ..#ProductID4, "", 11)
+			Do ..AssertSequenceInfo(Groepering, 6, 1, 6, 2, ..#ProductID3, "", 13)
 		}
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="AssertProductieSequentie">
-<FormalSpec>ProductieSequentie:APPS.Halux.common.dto.ProductieSequentie,QueueID:%Integer,TotaalAantal:%Integer,ProductID:%Integer</FormalSpec>
+<Method name="AssertSequenceInfo">
+<FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering,Count:%Integer,EersteIndex:%Integer,TweedeIndex:%Integer,TotaalAantal:%Integer,ProductID:%String,DeelAantal:%String,QueueID:%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, QueueID)
+	If $$$AssertEquals(Groepering.Data.GetAt(EersteIndex).Count(), Count) {
+		#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie
+		Set SequenceInfo = Groepering.Data.GetAt(EersteIndex).GetAt(TweedeIndex) 
+		Do $$$AssertEquals(SequenceInfo.TotaalAantal, TotaalAantal)
+		Do $$$AssertEquals(SequenceInfo.ProductID, ProductID)
+		Do $$$AssertEquals(SequenceInfo.DeelAantal, DeelAantal)
+		Do $$$AssertEquals(SequenceInfo.QueueID, QueueID)
+	}
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerKlant1.cls.xml
===================================================================
diff -u -r41087 -r41094
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerKlant1.cls.xml	(.../TestGroepeerPerToeleveringPerKlant1.cls.xml)	(revision 41087)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerKlant1.cls.xml	(.../TestGroepeerPerToeleveringPerKlant1.cls.xml)	(revision 41094)
@@ -26,57 +26,31 @@
 		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(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(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(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)
-			}
+			Do ..AssertSequenceInfo(Groepering, 1, 1, 1, 2, ..#ProductID3, "", 1)
+			Do ..AssertSequenceInfo(Groepering, 1, 2, 1, 2, ..#ProductID2, "", 3)
+			Do ..AssertSequenceInfo(Groepering, 1, 3, 1, 2, ..#ProductID3, "", 5)
+			Do ..AssertSequenceInfo(Groepering, 1, 4, 1, 2, ..#ProductID1, "", 7)
+			Do ..AssertSequenceInfo(Groepering, 1, 5, 1, 2, ..#ProductID1, "", 9)
+			Do ..AssertSequenceInfo(Groepering, 1, 6, 1, 2, ..#ProductID4, "", 11)
 		}
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="AssertSequenceInfo">
+<FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering,Count:%Integer,EersteIndex:%Integer,TweedeIndex:%Integer,TotaalAantal:%Integer,ProductID:%String,DeelAantal:%String,QueueID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$AssertEquals(Groepering.Data.GetAt(EersteIndex).Count(), Count) {
+		#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie
+		Set SequenceInfo = Groepering.Data.GetAt(EersteIndex).GetAt(TweedeIndex) 
+		Do $$$AssertEquals(SequenceInfo.TotaalAantal, TotaalAantal)
+		Do $$$AssertEquals(SequenceInfo.ProductID, ProductID)
+		Do $$$AssertEquals(SequenceInfo.DeelAantal, DeelAantal)
+		Do $$$AssertEquals(SequenceInfo.QueueID, QueueID)
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant4.cls.xml
===================================================================
diff -u -r41087 -r41094
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant4.cls.xml	(.../TestGroepeerPerToeleveringPerProductPerKlant4.cls.xml)	(revision 41087)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant4.cls.xml	(.../TestGroepeerPerToeleveringPerProductPerKlant4.cls.xml)	(revision 41094)
@@ -27,51 +27,33 @@
 		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, "")
-				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, "")
-				Do $$$AssertEquals(SequenceInfo.QueueID, 3)
-			}
+			Do ..AssertSequenceInfo(Groepering, 2, 1, 1, 2, ..#ProductID1, "", 1)
+			Do ..AssertSequenceInfo(Groepering, 2, 1, 2, 2, ..#ProductID2, "", 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, "")
-				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, "")
-				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, "")
-				Do $$$AssertEquals(SequenceInfo.QueueID, 11)
-			}
+			Do ..AssertSequenceInfo(Groepering, 3, 2, 1, 4, ..#ProductID3, "", 5)
+			Do ..AssertSequenceInfo(Groepering, 3, 2, 2, 2, ..#ProductID1, "", 9)
+			Do ..AssertSequenceInfo(Groepering, 3, 2, 3, 2, ..#ProductID4, "", 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, "")
-				Do $$$AssertEquals(SequenceInfo.QueueID, 13)
-			}
+			Do ..AssertSequenceInfo(Groepering, 1, 3, 1, 2, ..#ProductID3, "", 13)
 		}
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="AssertSequenceInfo">
+<FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering,Count:%Integer,EersteIndex:%Integer,TweedeIndex:%Integer,TotaalAantal:%Integer,ProductID:%String,DeelAantal:%String,QueueID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$AssertEquals(Groepering.Data.GetAt(EersteIndex).Count(), Count) {
+		#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie
+		Set SequenceInfo = Groepering.Data.GetAt(EersteIndex).GetAt(TweedeIndex) 
+		Do $$$AssertEquals(SequenceInfo.TotaalAantal, TotaalAantal)
+		Do $$$AssertEquals(SequenceInfo.ProductID, ProductID)
+		Do $$$AssertEquals(SequenceInfo.DeelAantal, DeelAantal)
+		Do $$$AssertEquals(SequenceInfo.QueueID, QueueID)
+	}
+]]></Implementation>
+</Method>
 </Class>