Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToelevering.cls.xml
===================================================================
diff -u -r32587 -r32588
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToelevering.cls.xml	(.../TestGroepeerPerToelevering.cls.xml)	(revision 32587)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToelevering.cls.xml	(.../TestGroepeerPerToelevering.cls.xml)	(revision 32588)
@@ -5,9 +5,7 @@
 
 <Method name="TestGroepeerPerToelevering">
 <Implementation><![CDATA[
-	Do ..AddToSequenceData(..#QueueID1,..#ToeleveringID2,..#ProductID1,2,100)
-	Do ..AddToSequenceData(..#QueueID1,..#ToeleveringID1,..#ProductID2,4,200)
-	Do ..AddToSequenceData(..#QueueID1,..#ToeleveringID1,..#ProductID1,5,300)
+	Do ..Setup()
 	
 	#dim FakeResultSet As lib.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(..SequenceData, ..SequenceHeaders)
 	#dim ProductieSequentieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository).%New()
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/TestGroepeerPerToelevering.cls.xml
===================================================================
diff -u -r32587 -r32588
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/TestGroepeerPerToelevering.cls.xml	(.../TestGroepeerPerToelevering.cls.xml)	(revision 32587)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/TestGroepeerPerToelevering.cls.xml	(.../TestGroepeerPerToelevering.cls.xml)	(revision 32588)
@@ -5,13 +5,9 @@
 
 <Method name="TestGroepeerPerToelevering">
 <Implementation><![CDATA[
-	Do ..AddToSequenceData(..#QueueID1,..#ToeleveringID2,..#ProductID1,2,100)
-	Do ..AddToSequenceData(..#QueueID1,..#ToeleveringID1,..#ProductID2,4,200)
-	Do ..AddToSequenceData(..#QueueID1,..#ToeleveringID1,..#ProductID1,5,300)
+	Do ..Setup()
 	
 	#dim ProductieSequentieItemsFake As list of APPS.Halux.common.ProductieSequentieItem = ..SequenceData
-	
-	
 	#dim ProductieSequentieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository).%New()
 	#dim ProductieAPIStub As vhTest.Mock.APPS.Halux.ProductieAPI = ##class(vhTest.Mock.APPS.Halux.ProductieAPI).MockInstance()
 	
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/GroepeerPerToelevering/TestBase.cls.xml
===================================================================
diff -u -r32587 -r32588
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/GroepeerPerToelevering/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 32587)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/GroepeerPerToelevering/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 32588)
@@ -4,6 +4,15 @@
 <Abstract>1</Abstract>
 <Super>vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerder.Base</Super>
 
+<Method name="Setup">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..AddToSequenceData(..#QueueID1, ..#ToeleveringID2, ..#ProductID1, 2, 100)
+	Do ..AddToSequenceData(..#QueueID1, ..#ToeleveringID1, ..#ProductID2, 4, 200)
+	Do ..AddToSequenceData(..#QueueID1, ..#ToeleveringID1, ..#ProductID1, 5, 300)
+]]></Implementation>
+</Method>
+
 <Method name="AssertGroepering">
 <FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering</FormalSpec>
 <Private>1</Private>