Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/VroegsteAfhaalDatum/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/VroegsteAfhaalDatum/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/VroegsteAfhaalDatum/Test.cls.xml	(revision 33580)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.VroegsteAfhaalDatum.Test">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test : VroegsteAfhaalGatum geeft een datum terug">
+<Implementation><![CDATA[
+	
+	#dim VroegsteLeverDatumBepalerSpy As vhTest.Spy.APPS.EC.impl.VroegsteLeverdatumBepaler = ##Class(vhTest.Spy.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
+	#dim WinkelKarService As vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.SubClass = ##class(vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.SubClass).%New("","","","",VroegsteLeverDatumBepalerSpy)
+	#dim VroegsteAfhaalDatum As %Date = WinkelKarService.GeefVroegsteAfhaalDatum("DummyWinkelKarID")
+
+	Do $$$AssertEquals(VroegsteAfhaalDatum,VroegsteLeverDatumBepalerSpy.VroegsteAfhaaldatum)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Spy/APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Spy/APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(revision 0)
+++ vhTest/Spy/APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(revision 33580)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Spy.APPS.EC.impl.VroegsteLeverdatumBepaler">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EC.impl.VroegsteLeverdatumBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="VroegsteAfhaaldatum">
+<Type>%Date</Type>
+</Property>
+
+<Method name="GeefVroegsteLeverdatum">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,Verzendwijze:APPS.VKP.VerzendWijze=""</FormalSpec>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	Set ..VroegsteAfhaaldatum = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+	quit ..VroegsteAfhaaldatum
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(revision 33580)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler">
+<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
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EC.impl.VroegsteLeverdatumBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefVroegsteLeverdatum">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,VerzendWijze:APPS.VKP.VerzendWijze=""</FormalSpec>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVroegsteLeverdatum",Winkelkar,VerzendWijze)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaatwerkLijn">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("VerwerkMaatwerkLijn",MaatwerkLijn)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProductLijn">
+<FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("VerwerkProductLijn",ProductLijn)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(revision 33580)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.EC.impl.VroegsteLeverdatumBepaler">
+<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.EC.impl.VroegsteLeverdatumBepaler</Super>
+
+<Method name="GeefVroegsteLeverdatum">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaatwerkLijn">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProductLijn">
+<FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/SubClass.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/SubClass.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/SubClass.cls.xml	(revision 33580)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.SubClass">
+<Super>APPS.EC.Winkelkar.impl.WinkelkarService</Super>
+
+<Method name="GeefWinkelkar">
+<FormalSpec>WinkelkarID:%String</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml
===================================================================
diff -u -r33484 -r33580
--- APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(.../VroegsteLeverdatumBepaler.cls.xml)	(revision 33484)
+++ APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(.../VroegsteLeverdatumBepaler.cls.xml)	(revision 33580)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.EC.impl.VroegsteLeverdatumBepaler">
-<Super>%RegisteredObject,DOM.EC.Winkelkar.WinkelkarVisitor</Super>
+<Super>TECH.Mockable,%RegisteredObject,DOM.EC.Winkelkar.WinkelkarVisitor</Super>
 
 <Property name="VroegsteLeverdatum">
 <Type>%Date</Type>
@@ -13,32 +13,15 @@
 <Private>1</Private>
 </Property>
 
-<Property name="VerzendWijze">
-<Type>APPS.VKP.VerzendWijze</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="%OnNew">
-<FormalSpec>VerzendWijze:APPS.VKP.VerzendWijze=""</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	Set ..VerzendWijze = VerzendWijze
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="GeefVroegsteLeverdatum">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,VerzendWijze:APPS.VKP.VerzendWijze=""</FormalSpec>
 <ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[
-	if (..VerzendWijze = "")
+	if (VerzendWijze = "")
 	{
-		Set ..VerzendWijze = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New().GeefVerzendWijze(Winkelkar)	
+		Set VerzendWijze = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New().GeefVerzendWijze(Winkelkar)	
 	}
-	Set ..LeveringTermijn = ##class(APPS.VKP.LeveringsTermijn).%New(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),..VerzendWijze)
+	Set ..LeveringTermijn = ##class(APPS.VKP.LeveringsTermijn).%New(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),VerzendWijze)
 	
 	#dim Datum As %Date = ..LeveringTermijn.GetVroegsteDatumFromTermijn($LB(1,"A"))
 	Set Datum = ..LeveringTermijn.GetPickDatumMagazijnGesloten(Datum)
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r33575 -r33580
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33575)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33580)
@@ -25,8 +25,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VroegsteLeverdatumBepaler">
+<Type>APPS.EC.impl.VroegsteLeverdatumBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>MagMaatwerklijnGewijzigdWordenBepaler:APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden,WinkelkarPrijsUpdater:APPS.EC.impl.WinkelkarPrijsUpdater,MaatwerklijnInputValidator:APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator,BestelService:DOM.VKP.Maatwerk.BestelService</FormalSpec>
+<FormalSpec>MagMaatwerklijnGewijzigdWordenBepaler:APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden,WinkelkarPrijsUpdater:APPS.EC.impl.WinkelkarPrijsUpdater,MaatwerklijnInputValidator:APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator,BestelService:DOM.VKP.Maatwerk.BestelService,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -36,6 +41,7 @@
 	Set ..WinkelkarPrijsUpdater = $$$Implementation(WinkelkarPrijsUpdater, ##class(APPS.EC.impl.WinkelkarPrijsUpdater).%New())
 	Set ..MaatwerklijnInputValidator = $$$Implementation(MaatwerklijnInputValidator, ##class(APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator).%New())
 	set ..BestelService = $$$Implementation(BestelService, ##class(DOM.VKP.Maatwerk.impl.BestelService).%New())
+	Set ..VroegsteLeverdatumBepaler = $$$Implementation(VroegsteLeverdatumBepaler, ##Class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -250,7 +256,7 @@
 <Method name="GeefVroegsteLeverDatum">
 <FormalSpec>WinkelKarID:%String,Verzendwijze:APPS.VKP.VerzendWijze=""</FormalSpec>
 <ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[	Quit ##Class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New(Verzendwijze).GeefVroegsteLeverdatum(..GeefWinkelkar(WinkelKarID))
+<Implementation><![CDATA[	Quit ..VroegsteLeverdatumBepaler.GeefVroegsteLeverdatum(..GeefWinkelkar(WinkelKarID), Verzendwijze)
 ]]></Implementation>
 </Method>
 
@@ -259,7 +265,7 @@
 <ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[
 	#dim VerzendWijze As DOM.VKP.VerzendWijze = ##class(DOM.VKP.VerzendWijze).%OpenId("AFH") 
-	Quit ##Class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New(VerzendWijze).GeefVroegsteLeverdatum(..GeefWinkelkar(WinkelKarID))
+	Quit ..VroegsteLeverdatumBepaler.GeefVroegsteLeverdatum(..GeefWinkelkar(WinkelKarID), VerzendWijze)
 ]]></Implementation>
 </Method>