Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml
===================================================================
diff -u -r44130 -r44140
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 44130)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 44140)
@@ -60,12 +60,11 @@
 	
 	If (CheckoutType = ##class(APPS.EC.Unishop.enu.CheckoutType).Standaard()) {
 		#dim KlantAdresRepository As DOM.VKP.Klant.impl.KlantAdresRepository = ##class(DOM.VKP.Klant.impl.KlantAdresRepository).%New()
-		#dim LeverAdres As DOM.VKP.LeverAdres = KlantAdresRepository.GeefLeverAdres(BereidVoorBestellingRequest.Header.KlantId, BereidVoorBestellingRequest.LeverAdres.Id)
-		
-		#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = WinkelkarService.OpenWinkelkar(BereidVoorBestellingRequest.Winkelkar.Id)
+		#dim WinkelkarId As %String = ..WinkelkarRepository.GeefWinkelkarIDViaID(BereidVoorBestellingRequest.Winkelkar.Id)
+		#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = WinkelkarService.OpenWinkelkar(WinkelkarId)
+		#dim LeverAdres As DOM.VKP.LeverAdres = KlantAdresRepository.GeefLeverAdres(KlantPartijID, BereidVoorBestellingRequest.LeverAdres.Id)
+
 		Set Response.MogelijkeLeverdatums = ##class(APPS.common.VKP.MogelijkeLeverdatumsBepaler).%New().GeefMogelijkeLeverdatumsVoorLeverAdres(Winkelkar, LeverAdres)
-		
-		//Set Response.MogelijkeLeverdatums = ..VerkoopService.GeefMogelijkeLeverdatums(OfferteID)
 		Set Response.IsAsapMogelijk = ..VerkoopService.GeefIsAsapMogelijk(OfferteID)
 	} Else {
 		#dim KlantIdentificatie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(BereidVoorBestellingRequest.Header.PersonalityId,KlantPartijID)
Index: APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml
===================================================================
diff -u -r44130 -r44140
--- APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44130)
+++ APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44140)
@@ -48,8 +48,9 @@
 <ReturnTypeParams>ELEMENTTYPE="%Date"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim DateTimeApi As TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
-	#dim LeveringTermijn As APPS.VKP.LeveringsTermijn = ##class(APPS.VKP.LeveringsTermijn).%New(DateTimeApi.CurrentHorolog(), LeverAdres.GeefVerzendingWijze())
-	#dim Datum As %Date = ..VroegsteLeverDatumBepaler.GeefVroegsteLeverdatum(Winkelkar)
+	#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>