Index: vhTest/Mock/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(revision 44272)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.common.VKP.MogelijkeLeverdatumsBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.common.VKP.MogelijkeLeverdatumsBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefMogelijkeLeverdatums">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefMogelijkeLeverdatums",Winkelkar)
+]]></Implementation>
+</Method>
+
+<Method name="GeefMogelijkeLeverdatumsVoorLeverAdres">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefMogelijkeLeverdatumsVoorLeverAdres",Winkelkar,LeverAdres)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml
===================================================================
diff -u -r44140 -r44272
--- APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44140)
+++ APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44272)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.common.VKP.MogelijkeLeverdatumsBepaler">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="VerzendWijzeBepaler">
 <Type>APPS.EC.impl.VerzendWijzeBepaler</Type>
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DateTimeApi">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>VerzendWijzeBepaler:APPS.EC.impl.VerzendWijzeBepaler="",VroegsteLeverDatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler=""</FormalSpec>
 <Private>1</Private>
@@ -22,8 +27,9 @@
 <Implementation><![CDATA[
 	Set ..VerzendWijzeBepaler = $$$Inject(VerzendWijzeBepaler,##class(APPS.EC.impl.VerzendWijzeBepaler).%New())
 	Set ..VroegsteLeverDatumBepaler = $$$Inject(VroegsteLeverDatumBepaler, ##class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New())
+	Set ..DateTimeApi = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 
-	quit $$$OK
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -33,9 +39,7 @@
 <ReturnTypeParams>ELEMENTTYPE="%Date"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim VerzendWijze As APPS.VKP.VerzendWijze = ..VerzendWijzeBepaler.GeefVerzendWijze(Winkelkar)
-
-	#dim LeveringTermijn As APPS.VKP.LeveringsTermijn = ##class(APPS.VKP.LeveringsTermijn).%New(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),VerzendWijze)
-	
+	#dim LeveringTermijn As APPS.VKP.LeveringsTermijn = ##class(APPS.VKP.LeveringsTermijn).%New(..DateTimeApi.CurrentHorolog(),VerzendWijze)
 	#dim Datum As %Date = ..VroegsteLeverDatumBepaler.GeefVroegsteLeverdatum(Winkelkar)
 	
 	Quit ##class(TECH.ListUtils).ListbuildToList(LeveringTermijn.GetLeverDatums(Datum))
@@ -47,9 +51,8 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="%Date"</ReturnTypeParams>
 <Implementation><![CDATA[
-	#dim DateTimeApi As TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	#dim VerzendWijze As APPS.VKP.VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(Winkelkar.GeefKlantID(), LeverAdres.GeefVerzendingWijze(), LeverAdres.GeefLand().GeefCode(), LeverAdres.GeefPostcode())
-	#dim LeveringTermijn As APPS.VKP.LeveringsTermijn = ##class(APPS.VKP.LeveringsTermijn).%New(DateTimeApi.CurrentHorolog(), VerzendWijze)
+	#dim LeveringTermijn As APPS.VKP.LeveringsTermijn = ##class(APPS.VKP.LeveringsTermijn).%New(..DateTimeApi.CurrentHorolog(), VerzendWijze)
 	#dim Datum As %Date = ..VroegsteLeverDatumBepaler.GeefVroegsteLeverdatum(Winkelkar, VerzendWijze)
 	
 	Quit ##class(TECH.ListUtils).ListbuildToList(LeveringTermijn.GetLeverDatums(Datum))
Index: vhTest/Fake/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(revision 44272)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.common.VKP.MogelijkeLeverdatumsBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.common.VKP.MogelijkeLeverdatumsBepaler</Super>
+
+<Method name="GeefMogelijkeLeverdatums">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefMogelijkeLeverdatumsVoorLeverAdres">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>