Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/GroepeerPerToelevering/TestBase.cls.xml
===================================================================
diff -u -r41100 -r41103
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/GroepeerPerToelevering/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 41100)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/GroepeerPerToelevering/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 41103)
@@ -18,50 +18,36 @@
 <FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie
-
 	If $$$AssertTrue(Groepering.IsValid()) {
 		If $$$AssertEquals(Groepering.Indices.Count(), 2) {
 			Do $$$AssertEquals(Groepering.Indices.GetAt(1), ..#ToeleveringID2)
 			Do $$$AssertEquals(Groepering.Indices.GetAt(2), ..#ToeleveringID1)
 		}
 		
-		If $$$AssertEquals(Groepering.Data.GetAt(..#ToeleveringID2).Count(), 2) {
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID2).GetAt(1) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
-			Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal, 1)
-			
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID2).GetAt(2) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
-			Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal, 2)
-		}
+		Do ..AssertSequenceInfo(Groepering, 2, ..#ToeleveringID2, 1, 2, ..#ProductID1, 1)
+		Do ..AssertSequenceInfo(Groepering, 2, ..#ToeleveringID2, 2, 2, ..#ProductID1, 2)
 		
-		If $$$AssertEquals(Groepering.Data.GetAt(..#ToeleveringID1).Count(), 9) {
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(1) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal, 4)
-			Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID2)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal, 1)
-			
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(4) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal, 4)
-			Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID2)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal, 4)
-			
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(5) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal, 5)
-			Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal, 1)
-			
-			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(9) 
-			Do $$$AssertEquals(SequenceInfo.TotaalAantal, 5)
-			Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
-			Do $$$AssertEquals(SequenceInfo.DeelAantal, 5)
-		}
+		Do ..AssertSequenceInfo(Groepering, 9, ..#ToeleveringID1, 1, 4, ..#ProductID2, 1)
+		Do ..AssertSequenceInfo(Groepering, 9, ..#ToeleveringID1, 4, 4, ..#ProductID2, 4)
+		Do ..AssertSequenceInfo(Groepering, 9, ..#ToeleveringID1, 5, 5, ..#ProductID1, 1)
+		Do ..AssertSequenceInfo(Groepering, 9, ..#ToeleveringID1, 9, 5, ..#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</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)
+	}
+]]></Implementation>
+</Method>
 </Class>