Index: APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased.cls.xml
===================================================================
diff -u -r32580 -r32589
--- APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased.cls.xml	(.../ProductieSequentieGroepeerderResultSetBased.cls.xml)	(revision 32580)
+++ APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased.cls.xml	(.../ProductieSequentieGroepeerderResultSetBased.cls.xml)	(revision 32589)
@@ -14,12 +14,13 @@
 </Property>
 
 <Method name="%OnNew">
+<FormalSpec>ProductieSequentieRepository:APPS.Halux.common.ProductieSequentieRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..ProductieSequentieRepository = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository()
+	Set ..ProductieSequentieRepository = $$$Inject(ProductieSequentieRepository,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository())
 	
 	Quit $$$OK
 ]]></Implementation>
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/Base.cls.xml
===================================================================
diff -u -r32586 -r32589
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/Base.cls.xml	(.../Base.cls.xml)	(revision 32586)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/Base.cls.xml	(.../Base.cls.xml)	(revision 32589)
@@ -15,11 +15,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="SequenceGroepeerderImpl">
-<Type>APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Do ##super()
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/TestGroepeerPerToelevering.cls.xml
===================================================================
diff -u -r32588 -r32589
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/TestGroepeerPerToelevering.cls.xml	(.../TestGroepeerPerToelevering.cls.xml)	(revision 32588)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/TestGroepeerPerToelevering.cls.xml	(.../TestGroepeerPerToelevering.cls.xml)	(revision 32589)
@@ -3,22 +3,21 @@
 <Class name="vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerderListBased.TestGroepeerPerToelevering">
 <Super>vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerderListBased.Base,vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerder.GroepeerPerToelevering.TestBase</Super>
 
-<Method name="TestGroepeerPerToelevering">
+<Method name="GeefProductieSequentieRepository">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository</ReturnType>
 <Implementation><![CDATA[
-	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()
-	
 	Do ProductieSequentieRepositoryStub.IndienMethodCall("GeefProductieSequentieItemList", ..#DummyBatchID).DanReturn(ProductieSequentieItemsFake)
-	Do ProductieAPIStub.IndienMethodCall("GeefProductieSequentieRepository").DanReturn(ProductieSequentieRepositoryStub)
+	quit ProductieSequentieRepositoryStub
+]]></Implementation>
+</Method>
 
-	Set ..SequenceGroepeerderImpl = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderListBased).%New()
-
-	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = ..SequenceGroepeerderImpl.GroepeerPerToelevering(..#DummyBatchID)
-	
-	Do ..AssertGroepering(Groepering)
+<Method name="GeefGroepeerder">
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.ProductieSequentieGroepeerder</ReturnType>
+<Implementation><![CDATA[	quit ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderListBased).%New(..GeefProductieSequentieRepository())
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased.cls.xml
===================================================================
diff -u -r32579 -r32589
--- APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased.cls.xml	(.../ProductieSequentieGroepeerderListBased.cls.xml)	(revision 32579)
+++ APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased.cls.xml	(.../ProductieSequentieGroepeerderListBased.cls.xml)	(revision 32589)
@@ -19,12 +19,13 @@
 </Property>
 
 <Method name="%OnNew">
+<FormalSpec>ProductieSequentieRepository:APPS.Halux.common.ProductieSequentieRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..ProductieSequentieRepository = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository()
+	Set ..ProductieSequentieRepository = $$$Inject(ProductieSequentieRepository,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository())
 	
 	Quit $$$OK
 ]]></Implementation>
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/Base.cls.xml
===================================================================
diff -u -r32585 -r32589
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/Base.cls.xml	(.../Base.cls.xml)	(revision 32585)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/Base.cls.xml	(.../Base.cls.xml)	(revision 32589)
@@ -10,11 +10,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="SequenceGroepeerderImpl">
-<Type>APPS.Halux.common.impl.ProductieSequentieGroepeerderListBased</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="VoegToeData">
 <FormalSpec>QueueID:%Integer,ToeleveringID:TECH.String,ProductID:TECH.String,TotaalAantal:%Integer,TLUNr:TECH.String</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/GroepeerPerToelevering/TestBase.cls.xml
===================================================================
diff -u -r32588 -r32589
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/GroepeerPerToelevering/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 32588)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/GroepeerPerToelevering/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 32589)
@@ -4,15 +4,22 @@
 <Abstract>1</Abstract>
 <Super>vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerder.Base</Super>
 
-<Method name="Setup">
-<Private>1</Private>
+<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 ..AddToSequenceData(1, ..#ToeleveringID2, ..#ProductID1, 2, 100)
+	Do ..AddToSequenceData(2, ..#ToeleveringID1, ..#ProductID2, 4, 200)
+	Do ..AddToSequenceData(3, ..#ToeleveringID1, ..#ProductID1, 5, 300)
+
+	Do ..AssertGroepering(..GeefGroepeerder().GroepeerPerToelevering(..#DummyBatchID))
 ]]></Implementation>
 </Method>
 
+<Method name="GeefGroepeerder">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.ProductieSequentieGroepeerder</ReturnType>
+</Method>
+
 <Method name="AssertGroepering">
 <FormalSpec>Groepering:APPS.Halux.common.impl.ProductieSequentieGroepering</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToelevering.cls.xml
===================================================================
diff -u -r32588 -r32589
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToelevering.cls.xml	(.../TestGroepeerPerToelevering.cls.xml)	(revision 32588)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToelevering.cls.xml	(.../TestGroepeerPerToelevering.cls.xml)	(revision 32589)
@@ -3,21 +3,22 @@
 <Class name="vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased.TestGroepeerPerToelevering">
 <Super>vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased.Base,vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerder.GroepeerPerToelevering.TestBase</Super>
 
-<Method name="TestGroepeerPerToelevering">
+<Method name="GeefGroepeerder">
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.ProductieSequentieGroepeerder</ReturnType>
+<Implementation><![CDATA[	quit ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased).%New(..GeefProductieSequentieRepository())
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductieSequentieRepository">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository</ReturnType>
 <Implementation><![CDATA[
-	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()
-	#dim ProductieAPIStub As vhTest.Mock.APPS.Halux.ProductieAPI = ##class(vhTest.Mock.APPS.Halux.ProductieAPI).MockInstance()
 	
+	#dim ProductieSequentieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository).%New()
 	Do ProductieSequentieRepositoryStub.IndienMethodCall("GeefSequentieDataVolgensSequenceVoorBatch", ..#DummyBatchID).DanReturn(FakeResultSet)
-	Do ProductieAPIStub.IndienMethodCall("GeefProductieSequentieRepository").DanReturn(ProductieSequentieRepositoryStub)
-
-	Set ..SequenceGroepeerderImpl = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased).%New()
-
-	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = ..SequenceGroepeerderImpl.GroepeerPerToelevering(..#DummyBatchID)
-	Do ..AssertGroepering(Groepering)
+	quit ProductieSequentieRepositoryStub
 ]]></Implementation>
 </Method>
 </Class>