Index: APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml
===================================================================
diff -u -r33484 -r44130
--- APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 33484)
+++ APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44130)
@@ -41,6 +41,19 @@
 	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 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)
+	
+	Quit ##class(TECH.ListUtils).ListbuildToList(LeveringTermijn.GetLeverDatums(Datum))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml
===================================================================
diff -u -r44106 -r44130
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 44106)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 44130)
@@ -49,18 +49,25 @@
 <FormalSpec>BereidVoorBestellingRequest:WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest</FormalSpec>
 <ReturnType>WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse</ReturnType>
 <Implementation><![CDATA[
+	#dim WinkelkarService As APPS.EC.Winkelkar.WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
 	#dim OfferteID As %String = ..WinkelkarRepository.GeefOfferteIDViaID(BereidVoorBestellingRequest.Winkelkar.Id)
 
 	Do ..VerkoopService.ZetOfferteHoofding(OfferteID, ..MaakHoofding(BereidVoorBestellingRequest))
 
-	Set Response = ##class(WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse).%New()
-	
+	#dim Response As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse = ##class(WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse).%New()
 	#dim KlantPartijID As %String = ..GeefKlantPartijID(BereidVoorBestellingRequest.Header.KlantId)
-	If ..CheckoutTypeBepaler.Bepaal(BereidVoorBestellingRequest.Header.PersonalityId, KlantPartijID) = ##class(APPS.EC.Unishop.enu.CheckoutType).Standaard() 
-	{
-		Set Response.MogelijkeLeverdatums = ..VerkoopService.GeefMogelijkeLeverdatums(OfferteID)
+	#dim CheckoutType As APPS.EC.Unishop.enu.CheckoutType = ..CheckoutTypeBepaler.Bepaal(BereidVoorBestellingRequest.Header.PersonalityId, KlantPartijID)
+	
+	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)
+		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 {
+	} Else {
 		#dim KlantIdentificatie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(BereidVoorBestellingRequest.Header.PersonalityId,KlantPartijID)
 		#dim MogelijkeZendingen As APPS.EC.Transport.dto.VerzendingMogelijkheden
 		Set MogelijkeZendingen = ..TransportService.GeefMogelijkeZendingen(OfferteID, BereidVoorBestellingRequest.Header.Taal, KlantIdentificatie)