Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService/Test.cls.xml
===================================================================
diff -u -r44304 -r44308
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService/Test.cls.xml	(.../Test.cls.xml)	(revision 44304)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService/Test.cls.xml	(.../Test.cls.xml)	(revision 44308)
@@ -13,7 +13,7 @@
 	Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefWinkelkarIDViaID","1").DanReturn("1")
 	
 	Set MogelijkeLeverdatumsBepalerMock = ##class(vhTest.Mock.APPS.common.VKP.MogelijkeLeverdatumsBepaler).%New()
-	Do MogelijkeLeverdatumsBepalerMock.VerwachtMethodCall("GeefMogelijkeLeverdatums",WinkelkarFake).DanReturn(MogelijkeLeverdatums)
+	Do MogelijkeLeverdatumsBepalerMock.VerwachtMethodCall("GeefMogelijkeLeverdatums",WinkelkarFake,"").DanReturn(MogelijkeLeverdatums)
 	
 	Set WinkelkarServiceMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
 	Do WinkelkarServiceMock.VerwachtMethodCall("OpenWinkelkar","1").DanReturn(WinkelkarFake)
@@ -42,7 +42,7 @@
 	Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefWinkelkarIDViaID","1").DanReturn("1")
 	
 	Set MogelijkeLeverdatumsBepalerMock = ##class(vhTest.Mock.APPS.common.VKP.MogelijkeLeverdatumsBepaler).%New()
-	Do MogelijkeLeverdatumsBepalerMock.VerwachtMethodCall("GeefMogelijkeLeverdatumsVoorLeverAdres", WinkelkarFake, LeverAdresDummy).DanReturn(MogelijkeLeverdatums)
+	Do MogelijkeLeverdatumsBepalerMock.VerwachtMethodCall("GeefMogelijkeLeverdatums", WinkelkarFake, LeverAdresDummy).DanReturn(MogelijkeLeverdatums)
 	
 	Set WinkelkarServiceMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
 	Do WinkelkarServiceMock.VerwachtMethodCall("OpenWinkelkar","1").DanReturn(WinkelkarFake)
Index: vhTest/Mock/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml
===================================================================
diff -u -r44304 -r44308
--- vhTest/Mock/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44304)
+++ vhTest/Mock/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44308)
@@ -16,25 +16,11 @@
 </Method>
 
 <Method name="GeefMogelijkeLeverdatums">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres=""</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefMogelijkeLeverdatums",Winkelkar)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefMogelijkeLeverdatums",Winkelkar,LeverAdres)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefMogelijkeLeverdatumsPerLijnVoorLeverAdres">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres</FormalSpec>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefMogelijkeLeverdatumsPerLijnVoorLeverAdres",Winkelkar,LeverAdres)
-]]></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>
 
 
Index: vhTest/Mock/APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml
===================================================================
diff -u -r39894 -r44308
--- vhTest/Mock/APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(.../VroegsteLeverdatumBepaler.cls.xml)	(revision 39894)
+++ vhTest/Mock/APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(.../VroegsteLeverdatumBepaler.cls.xml)	(revision 44308)
@@ -3,8 +3,7 @@
 <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>
+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,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
Index: APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml
===================================================================
diff -u -r44304 -r44308
--- APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44304)
+++ APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44308)
@@ -34,49 +34,34 @@
 </Method>
 
 <Method name="GeefMogelijkeLeverdatums">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres=""</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="%Date"</ReturnTypeParams>
 <Implementation><![CDATA[
-	#dim VerzendWijze As APPS.VKP.VerzendWijze = ..VerzendWijzeBepaler.GeefVerzendWijze(Winkelkar)
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = ..GeefVerzendWijze(Winkelkar, LeverAdres)
 	#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))
-]]></Implementation>
-</Method>
-
-<Method name="GeefMogelijkeLeverdatumsVoorLeverAdres">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres</FormalSpec>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<ReturnTypeParams>ELEMENTTYPE="%Date"</ReturnTypeParams>
-<Implementation><![CDATA[
-	#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 Datum As %Date = ..VroegsteLeverDatumBepaler.GeefVroegsteLeverdatum(Winkelkar, VerzendWijze)
 	
 	Quit ##class(TECH.ListUtils).ListbuildToList(LeveringTermijn.GetLeverDatums(Datum))
 ]]></Implementation>
 </Method>
 
-<Method name="GeefMogelijkeLeverdatumsPerLijnVoorLeverAdres">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres</FormalSpec>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<ReturnTypeParams>ELEMENTTYPE="%Date"</ReturnTypeParams>
+<Method name="GeefIsAsapMogelijk">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#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)
-	
-	Quit ..VroegsteLeverDatumBepaler.GeefVroegsteLeverdatumPerLijn(Winkelkar, VerzendWijze)
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = ..GeefVerzendWijze(Winkelkar, LeverAdres)
+	Quit (..VroegsteLeverDatumBepaler.GeefVroegsteLeverdatumPerLijn(Winkelkar, VerzendWijze).Count>1)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefIsAsapMogelijk">
+<Method name="GeefVerzendWijze">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres=""</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
+<Private>1</Private>
+<ReturnType>APPS.VKP.VerzendWijze</ReturnType>
 <Implementation><![CDATA[
-	Quit:(LeverAdres="") (..VroegsteLeverDatumBepaler.GeefVroegsteLeverdatumPerLijn(Winkelkar)>1)
-	Quit (..GeefMogelijkeLeverdatumsPerLijnVoorLeverAdres(Winkelkar, LeverAdres).Count()>1)
+	Quit:(LeverAdres="") ..VerzendWijzeBepaler.GeefVerzendWijze(Winkelkar)
+	Quit ##class(APPS.VKP.VerzendWijze).%New(Winkelkar.GeefKlantID(), LeverAdres.GeefVerzendingWijze(), LeverAdres.GeefLand().GeefCode(), LeverAdres.GeefPostcode())
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml
===================================================================
diff -u -r44304 -r44308
--- vhTest/Fake/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44304)
+++ vhTest/Fake/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44308)
@@ -8,14 +8,14 @@
 <Super>APPS.common.VKP.MogelijkeLeverdatumsBepaler</Super>
 
 <Method name="GeefIsAsapMogelijk">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres</FormalSpec>
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres=""</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
 <Method name="GeefMogelijkeLeverdatums">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres=""</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
@@ -27,13 +27,6 @@
 <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>
 
 
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml
===================================================================
diff -u -r44304 -r44308
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 44304)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 44308)
@@ -50,29 +50,37 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="%Date"</ReturnTypeParams>
 <Implementation><![CDATA[
-	#dim WinkelkarId As %String = ..WinkelkarRepository.GeefWinkelkarIDViaID(BereidVoorBestellingRequest.Winkelkar.Id)
-	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarService.OpenWinkelkar(WinkelkarId)
-
-	Quit:..IsHoofdLeverAdres(BereidVoorBestellingRequest.LeverAdres) ..MogelijkeLeverdatumsBepaler.GeefMogelijkeLeverdatums(Winkelkar)
-
-	#dim LeverAdres As DOM.VKP.LeverAdres = ""
-	Set LeverAdres = ..KlantAdresRepository.GeefLeverAdres(KlantPartijID, BereidVoorBestellingRequest.LeverAdres.Id)
-	Quit ..MogelijkeLeverdatumsBepaler.GeefMogelijkeLeverdatumsVoorLeverAdres(Winkelkar, LeverAdres)
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..GeefWinkelkar(BereidVoorBestellingRequest)
+	Quit ..MogelijkeLeverdatumsBepaler.GeefMogelijkeLeverdatums(Winkelkar, ..GeefLeverAdres(BereidVoorBestellingRequest.LeverAdres, KlantPartijID))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefIsAsapMogelijk">
 <FormalSpec>BereidVoorBestellingRequest:WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest,KlantPartijID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..GeefWinkelkar(BereidVoorBestellingRequest)
+	Quit ..MogelijkeLeverdatumsBepaler.GeefIsAsapMogelijk(Winkelkar, ..GeefLeverAdres(BereidVoorBestellingRequest.LeverAdres, KlantPartijID))
+]]></Implementation>
+</Method>
+
+<Method name="GeefWinkelkar">
+<FormalSpec>BereidVoorBestellingRequest:WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
+<Implementation><![CDATA[
 	#dim WinkelkarId As %String = ..WinkelkarRepository.GeefWinkelkarIDViaID(BereidVoorBestellingRequest.Winkelkar.Id)
-	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarService.OpenWinkelkar(WinkelkarId)
+	Quit ..WinkelkarService.OpenWinkelkar(WinkelkarId)
+]]></Implementation>
+</Method>
 
-	Quit:..IsHoofdLeverAdres(BereidVoorBestellingRequest.LeverAdres) ..MogelijkeLeverdatumsBepaler.GeefIsAsapMogelijk(Winkelkar)
-
-	#dim LeverAdres As DOM.VKP.LeverAdres = ""
-	Set LeverAdres = ..KlantAdresRepository.GeefLeverAdres(KlantPartijID, BereidVoorBestellingRequest.LeverAdres.Id)
-	Quit ..MogelijkeLeverdatumsBepaler.GeefIsAsapMogelijk(Winkelkar, LeverAdres)
+<Method name="GeefLeverAdres">
+<FormalSpec>LeverAdres:WS.Vhisie4.Winkelkar.dto.LeverAdres,KlantPartijID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	Quit:..IsHoofdLeverAdres(LeverAdres) ""
+	Quit ..KlantAdresRepository.GeefLeverAdres(KlantPartijID, LeverAdres.Id)
 ]]></Implementation>
 </Method>