Index: APPS/VKP/LeveringsTermijn.cls.xml
===================================================================
diff -u -r59782 -r59787
--- APPS/VKP/LeveringsTermijn.cls.xml	(.../LeveringsTermijn.cls.xml)	(revision 59782)
+++ APPS/VKP/LeveringsTermijn.cls.xml	(.../LeveringsTermijn.cls.xml)	(revision 59787)
@@ -71,6 +71,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Test">
 <Description>
 Do ##class(APPS.VKP.LeveringsTermijn).Test(2865,375655,"OD3;1`OD3;3")</Description>
@@ -120,13 +125,14 @@
 <Method name="%OnNew">
 <Description>
 Verzendwijze is opgebouwd als "OD;1`OD;4" en moet geconverteerd worden</Description>
-<FormalSpec>RefDate:%Date="",blVerzendWijze:APPS.VKP.VerzendWijze,KalenderRepository:APPS.EC.impl.LeverdatumBepaler.Data.KalenderRepository=""</FormalSpec>
+<FormalSpec>RefDate:%Date="",blVerzendWijze:APPS.VKP.VerzendWijze,DueOutProductieBepaler:APPS.VKP.VerzendWijze.DueOutProductieBepaler="",DateTimeAPI:TECH.DateTime.DateTimeAPI=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..RefDate=RefDate
 	Set ..KLNr=blVerzendWijze.KLNr
 	Set ..blVerzendWijze=blVerzendWijze
-	Set ..DueOutProductieBepaler = ##class(APPS.VKP.VerzendWijze.DueOutProductieBepaler).%New()
+	Set ..DueOutProductieBepaler = $$$Inject(DueOutProductieBepaler, ##class(APPS.VKP.VerzendWijze.DueOutProductieBepaler).%New())
+	Set ..DateTimeAPI = $$$Inject(DateTimeAPI, ##class(TECH.DateTime.impl.DateTimeAPI).%New()) 
 	
 	Quit:'$isObject(..blVerzendWijze) $$$ERR("Verzendwijze object niet beschikbaar")
 	Quit $$$OK
@@ -239,7 +245,7 @@
 <FormalSpec>Datum:%Date</FormalSpec>
 <ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[
-	Quit:'(+Datum=##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()) Datum ; indien opgegeven pickdatum niet voor vandaag geen rekening houden magazijn
+	Quit:'(+Datum=..DateTimeAPI.CurrentDate()) Datum ; indien opgegeven pickdatum niet voor vandaag geen rekening houden magazijn
 	
 	#dim MagazijnBeschikbaar As %Boolean =$P(^EWREC("MAGAZIJN","E"),"\") ; EWMS beschikbaar?
 	If 'MagazijnBeschikbaar {
@@ -370,7 +376,7 @@
 	
 	If ('Order.IsGelinktAanToelevering())
 	{
-		#dim BerekenTenOpzichteVanDatum As %Date = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+		#dim BerekenTenOpzichteVanDatum As %Date = ..DateTimeAPI.CurrentDate()
 		If (..blVerzendWijze.GeefKantelPuntDoorsturenPicking() < ##class(TECH.DateTime).CurrentTime())
 		{
 			Set BerekenTenOpzichteVanDatum = BerekenTenOpzichteVanDatum + 1
@@ -515,7 +521,7 @@
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 	#dim Termijn As %Integer =1
- 	If +..RefDate= ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate() {
+ 	If +..RefDate= ..DateTimeAPI.CurrentDate() {
  		#dim KantelTime As %Time =..blVerzendWijze.KantelTimeOrderIngave()
  		Set Termijn=$select(KantelTime&&($piece(..RefDate,",",2)>KantelTime):1,1:0)
  	}
@@ -533,7 +539,7 @@
 <Method name="RefDateIsVandaag">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit (+..RefDate = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate())
+<Implementation><![CDATA[	quit (+..RefDate = ..DateTimeAPI.CurrentDate())
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/VKP/LeveringsTermijnSFS/GetLeverDatums/Test.cls.xml
===================================================================
diff -u -r53198 -r59787
--- vhUnitTest/APPS/VKP/LeveringsTermijnSFS/GetLeverDatums/Test.cls.xml	(.../Test.cls.xml)	(revision 53198)
+++ vhUnitTest/APPS/VKP/LeveringsTermijnSFS/GetLeverDatums/Test.cls.xml	(.../Test.cls.xml)	(revision 59787)
@@ -15,7 +15,7 @@
 	Set SFSKalenderRepositoryMock = ##class(vhTest.Mock.APPS.EC.impl.LeverdatumBepaler.Data.SFSKalenderRepository).%New()
 	Do SFSKalenderRepositoryMock.VerwachtMethodCall("ZoekViaPickupDateAndOrderDate","64649","64719", OrderDate).DanReturn(SFSKalenderListIterator)
 	
-	Set LeveringsTermijnSFS = ##class(APPS.VKP.LeveringsTermijnSFS).%New(OrderDate,VerzendWijzeSFS, SFSKalenderRepositoryMock)
+	Set LeveringsTermijnSFS = ##class(APPS.VKP.LeveringsTermijnSFS).%New(OrderDate,VerzendWijzeSFS,,,SFSKalenderRepositoryMock)
 	
 	#dim LeverDatum As %Date = ##class(TECH.DateTime).TextToDate("01/01/2018")
 	
@@ -44,7 +44,7 @@
 	Set SFSKalenderRepositoryMock = ##class(vhTest.Mock.APPS.EC.impl.LeverdatumBepaler.Data.SFSKalenderRepository).%New()
 	Do SFSKalenderRepositoryMock.VerwachtMethodCall("ZoekViaPickupDateAndOrderDate","64649","64719", OrderDate).DanReturn(SFSKalenderListIterator)
 	
-	Set LeveringsTermijnSFS = ##class(APPS.VKP.LeveringsTermijnSFS).%New(OrderDate,VerzendWijzeSFS, SFSKalenderRepositoryMock)
+	Set LeveringsTermijnSFS = ##class(APPS.VKP.LeveringsTermijnSFS).%New(OrderDate,VerzendWijzeSFS,,,SFSKalenderRepositoryMock)
 	
 	#dim LeverDatum As %Date = ##class(TECH.DateTime).TextToDate("01/01/2018")
 	
@@ -79,7 +79,7 @@
 	Set SFSKalenderRepositoryMock = ##class(vhTest.Mock.APPS.EC.impl.LeverdatumBepaler.Data.SFSKalenderRepository).%New()
 	Do SFSKalenderRepositoryMock.VerwachtMethodCall("ZoekViaPickupDateAndOrderDate","64649","64719", OrderDate).DanReturn(SFSKalenderListIterator)
 	
-	Set LeveringsTermijnSFS = ##class(APPS.VKP.LeveringsTermijnSFS).%New(OrderDate,VerzendWijzeSFS, SFSKalenderRepositoryMock)
+	Set LeveringsTermijnSFS = ##class(APPS.VKP.LeveringsTermijnSFS).%New(OrderDate,VerzendWijzeSFS,,,SFSKalenderRepositoryMock)
 	
 	#dim LeverDatum As %Date = ##class(TECH.DateTime).TextToDate("01/01/2018")
 	
Index: APPS/VKP/LeveringsTermijnSFS.cls.xml
===================================================================
diff -u -r59779 -r59787
--- APPS/VKP/LeveringsTermijnSFS.cls.xml	(.../LeveringsTermijnSFS.cls.xml)	(revision 59779)
+++ APPS/VKP/LeveringsTermijnSFS.cls.xml	(.../LeveringsTermijnSFS.cls.xml)	(revision 59787)
@@ -18,30 +18,26 @@
 <Private>1</Private>
 </Property>
 
-<Property name="DateTimeApi">
-<Type>TECH.DateTime.DateTimeAPI</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="OrderDate">
 <Type>%Date</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>RefDate:%Date="",blVerzendWijze:APPS.VKP.VerzendWijze,KalenderRepository:APPS.EC.impl.LeverdatumBepaler.Data.KalenderRepository</FormalSpec>
+<FormalSpec>RefDate:%Date="",blVerzendWijze:APPS.VKP.VerzendWijze,DueOutProductieBepaler:APPS.VKP.VerzendWijze.DueOutProductieBepaler="",DateTimeAPI:TECH.DateTime.DateTimeAPI="",KalenderRepository:APPS.EC.impl.LeverdatumBepaler.Data.KalenderRepository=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Do ##super(RefDate, blVerzendWijze, DueOutProductieBepaler, DateTimeAPI)
+	
 	Set ..SFSKalenderRepository = $$$Inject(KalenderRepository, ##class(APPS.EC.impl.LeverdatumBepaler.Data.SFSKalenderRepository).%New())
-	Set ..DateTimeApi = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 
 	If (RefDate = "") {
-		Set ..OrderDate =  ..DateTimeApi.CurrentDate()
+		Set ..OrderDate =  ..DateTimeAPI.CurrentDate()
 	} Else {
-		Set ..OrderDate =  ..DateTimeApi.HorologToDate(RefDate)
+		Set ..OrderDate =  ..DateTimeAPI.HorologToDate(RefDate)
 	}
 	
-	Quit ##super(RefDate, blVerzendWijze, KalenderRepository)
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
Index: vhTest/Mock/APPS/VKP/LeveringsTermijn.cls.xml
===================================================================
diff -u -r59779 -r59787
--- vhTest/Mock/APPS/VKP/LeveringsTermijn.cls.xml	(.../LeveringsTermijn.cls.xml)	(revision 59779)
+++ vhTest/Mock/APPS/VKP/LeveringsTermijn.cls.xml	(.../LeveringsTermijn.cls.xml)	(revision 59787)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>RefDate:%Date="",blVerzendWijze:APPS.VKP.VerzendWijze,KalenderRepository:APPS.EC.impl.LeverdatumBepaler.Data.KalenderRepository=""</FormalSpec>
+<FormalSpec>RefDate:%Date="",blVerzendWijze:APPS.VKP.VerzendWijze,DueOutProductieBepaler:APPS.VKP.VerzendWijze.DueOutProductieBepaler="",DateTimeAPI:TECH.DateTime.DateTimeAPI=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
Index: vhUnitTest/APPS/VKP/LeveringsTermijnSFS/GetVroegsteLeverDag/Test.cls.xml
===================================================================
diff -u -r55802 -r59787
--- vhUnitTest/APPS/VKP/LeveringsTermijnSFS/GetVroegsteLeverDag/Test.cls.xml	(.../Test.cls.xml)	(revision 55802)
+++ vhUnitTest/APPS/VKP/LeveringsTermijnSFS/GetVroegsteLeverDag/Test.cls.xml	(.../Test.cls.xml)	(revision 59787)
@@ -12,7 +12,7 @@
 	Set SFSKalenderRepositoryMock = ##class(vhTest.Mock.APPS.EC.impl.LeverdatumBepaler.Data.SFSKalenderRepository).%New()
 	Do SFSKalenderRepositoryMock.VerwachtMethodCall("GeefVroegstePickupDate","64649").DanReturn("VroegsteAfhaaldatum")
 	
-	Set LeveringsTermijnSFS = ##class(APPS.VKP.LeveringsTermijnSFS).%New(OrderDate,VerzendWijzeSFS, SFSKalenderRepositoryMock)
+	Set LeveringsTermijnSFS = ##class(APPS.VKP.LeveringsTermijnSFS).%New(OrderDate,VerzendWijzeSFS,,, SFSKalenderRepositoryMock)
 	
 	#dim PickDatum As %Date = ##class(TECH.DateTime).TextToDate("01/01/2018")