Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/Base.cls.xml
===================================================================
diff -u -r32585 -r32586
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/Base.cls.xml	(.../Base.cls.xml)	(revision 32585)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/Base.cls.xml	(.../Base.cls.xml)	(revision 32586)
@@ -69,25 +69,36 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ToeleveringAPIStub">
+<Type>vhTest.Mock.DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..ToeleveringAPIStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 
 	Do ..SequenceData.Clear()
-	
-	#dim ToeleveringAPI As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
-	
+
 	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()	
 		
-	Do ToeleveringAPI.IndienMethodCall("GeefToelevering", ..#ToeleveringID1).DanReturn(..ToeleveringStub1)
-	Do ToeleveringAPI.IndienMethodCall("BestaatToelevering", ..#ToeleveringID1).DanReturn(1)
-	Do ToeleveringAPI.IndienMethodCall("GeefToelevering", ..#ToeleveringID2).DanReturn(..ToeleveringStub2)
-	Do ToeleveringAPI.IndienMethodCall("BestaatToelevering", ..#ToeleveringID2).DanReturn(1)
-	Do ToeleveringAPI.IndienMethodCall("GeefToelevering", ..#ToeleveringID3).DanReturn(..ToeleveringStub3)
-	Do ToeleveringAPI.IndienMethodCall("BestaatToelevering", ..#ToeleveringID3).DanReturn(1)
+	Do ..ToeleveringAPIStub.IndienMethodCall("GeefToelevering", ..#ToeleveringID1).DanReturn(..ToeleveringStub1)
+	Do ..ToeleveringAPIStub.IndienMethodCall("BestaatToelevering", ..#ToeleveringID1).DanReturn(1)
+	Do ..ToeleveringAPIStub.IndienMethodCall("GeefToelevering", ..#ToeleveringID2).DanReturn(..ToeleveringStub2)
+	Do ..ToeleveringAPIStub.IndienMethodCall("BestaatToelevering", ..#ToeleveringID2).DanReturn(1)
+	Do ..ToeleveringAPIStub.IndienMethodCall("GeefToelevering", ..#ToeleveringID3).DanReturn(..ToeleveringStub3)
+	Do ..ToeleveringAPIStub.IndienMethodCall("BestaatToelevering", ..#ToeleveringID3).DanReturn(1)
 ]]></Implementation>
 </Method>
 
@@ -123,8 +134,7 @@
 <Implementation><![CDATA[
 	Set ^TO("IU", ToeleveringID, TLUNr) = ""
 	
-	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
-	#dim ToeleveringStub As vhTest.Mock.DOM.AKP.Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringID)
+	#dim ToeleveringStub As vhTest.Mock.DOM.AKP.Toelevering = ..ToeleveringAPIStub.GeefToelevering(ToeleveringID)
 	#dim ProductToeleveringLijnStub As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
 	
 	Do ProductToeleveringLijnStub.IndienMethodCall("GeefAantal").DanReturn(TotaalAantal)
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/Base.cls.xml
===================================================================
diff -u -r32585 -r32586
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/Base.cls.xml	(.../Base.cls.xml)	(revision 32585)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/Base.cls.xml	(.../Base.cls.xml)	(revision 32586)
@@ -20,11 +20,10 @@
 <Private>1</Private>
 </Property>
 
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
+<Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-	Do ##super(aTestName)
-
+	Do ##super()
+	
 	Set ..SequenceHeaders = ##class(TECH.ListUtils).CreateListOfDataTypes("ID", "TOENr", "Product", "TotaalAantal", "DeelAantal", "Sequence", "TLUNr")
 ]]></Implementation>
 </Method>