Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml
===================================================================
diff -u -r44281 -r44304
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 44281)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 44304)
@@ -5,57 +5,63 @@
 
 <Method name="Test: Indien maar 1 mogelijke leverdatum geen ASAP mogelijk">
 <Implementation><![CDATA[
+	#dim BereidVoorBestellingRequest As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest = ""
+	Set BereidVoorBestellingRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).StandaardRequest()
+
 	Set WinkelkarRepositoryStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
 	Do WinkelkarRepositoryStub.IndienMethodCall("GeefOfferteIDViaID", $$$ElkeWaarde).DanReturn("InterneId")
 
 	Set LegacyPartijAPIStub = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
 	Do LegacyPartijAPIStub.IndienMethodCall("IsKlantPartijID", $$$ElkeWaarde).DanReturn($$$True)
 	
-	Set VerzendingServiceStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New()
-	Do VerzendingServiceStub.IndienMethodCall("GeefMogelijkeLeverDatums", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(..GeefEenMogelijkeLeverdatum())
+	Set VerzendingServiceMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New()
+	Do VerzendingServiceMock.IndienMethodCall("GeefMogelijkeLeverDatums", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(..GeefEenMogelijkeLeverdatum())
+	Do VerzendingServiceMock.VerwachtMethodCall("GeefIsAsapMogelijk",BereidVoorBestellingRequest, "K||1000").DanReturn($$$False) 
 		
-	Set VerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	Do VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
-	Do VerkoopServiceMock.VerwachtMethodCall("GeefIsAsapMogelijk","InterneId").DanReturn($$$False) 
+	Set VerkoopServiceStub = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do VerkoopServiceStub.IndienMethodCall("ZetOfferteHoofding", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
 	
-	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, WinkelkarRepositoryStub, , ,LegacyPartijAPIStub, VerzendingServiceStub)
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceStub, WinkelkarRepositoryStub, , ,LegacyPartijAPIStub, VerzendingServiceMock)
 	
 	#Dim Response As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse
-	Set Response = Service.BereidVoorBestelling(##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).StandaardRequest())
+	Set Response = Service.BereidVoorBestelling(BereidVoorBestellingRequest)
 	
 	If $$$AssertEquals(Response.MogelijkeLeverdatums.Count(), 1 ) {		
 		Do $$$AssertFalse(Response.IsAsapMogelijk)		
 	}
 	
-	Do VerkoopServiceMock.Verifieer()
+	Do VerzendingServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Indien meer dan 1 mogelijke leverdatum wel ASAP mogelijk">
 <Implementation><![CDATA[
+	#dim BereidVoorBestellingRequest As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest = ""
+	Set BereidVoorBestellingRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).StandaardRequest()
+
 	Set WinkelkarRepositoryStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
 	Do WinkelkarRepositoryStub.IndienMethodCall("GeefOfferteIDViaID", $$$ElkeWaarde).DanReturn("InterneId")
 
 	Set LegacyPartijAPIStub = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
 	Do LegacyPartijAPIStub.IndienMethodCall("IsKlantPartijID", $$$ElkeWaarde).DanReturn($$$True)
 	
-	Set VerzendingServiceStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New()
-	Do VerzendingServiceStub.IndienMethodCall("GeefMogelijkeLeverDatums", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(..GeefTweeMogelijkeLeverdatums())
+	Set VerzendingServiceMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New()
+	Do VerzendingServiceMock.IndienMethodCall("GeefMogelijkeLeverDatums", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(..GeefTweeMogelijkeLeverdatums())
+	Do VerzendingServiceMock.VerwachtMethodCall("GeefIsAsapMogelijk",BereidVoorBestellingRequest, "K||1000").DanReturn($$$True) 
 		
-	Set VerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	Do VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
-	Do VerkoopServiceMock.VerwachtMethodCall("GeefIsAsapMogelijk","InterneId").DanReturn($$$True) 
+	Set VerkoopServiceStub = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do VerkoopServiceStub.IndienMethodCall("ZetOfferteHoofding", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
 	
-	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, WinkelkarRepositoryStub, , ,LegacyPartijAPIStub, VerzendingServiceStub)
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceStub, WinkelkarRepositoryStub, , ,LegacyPartijAPIStub, VerzendingServiceMock)
 	
 	#Dim Response As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse
-	Set Response = Service.BereidVoorBestelling(##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).StandaardRequest())
+	Set Response = Service.BereidVoorBestelling(BereidVoorBestellingRequest)
 	
 	If $$$AssertEquals(Response.MogelijkeLeverdatums.Count(), 2 ) {		
 		Do $$$AssertTrue(Response.IsAsapMogelijk)		
 	}
 	
-	Do VerkoopServiceMock.Verifieer()
+	Do VerzendingServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -69,6 +75,7 @@
 	
 	Set VerzendingServiceMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New()
 	Do VerzendingServiceMock.VerwachtMethodCall("GeefMogelijkeLeverDatums", BereidVoorBestellingRequest, "K||1000").DanReturn(..GeefTweeMogelijkeLeverdatums())
+	Do VerzendingServiceMock.VerwachtMethodCall("GeefIsAsapMogelijk",BereidVoorBestellingRequest, "K||1000").DanDoeNiks()
 
 	Set WinkelkarRepositoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
 	Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteIDViaID", 1).DanReturn("InterneId")
@@ -77,7 +84,6 @@
 	
 	Set VerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do VerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","InterneId", ..Matches.DataTransferObject(Hoofding) ).DanDoeNiks()
-	Do VerkoopServiceMock.VerwachtMethodCall("GeefIsAsapMogelijk","InterneId").DanDoeNiks()
 	
 	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, WinkelkarRepositoryMock, , ,LegacyPartijAPIMock, VerzendingServiceMock)
 	
@@ -152,13 +158,13 @@
 	
 	Set VerzendingServiceStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New()
 	Do VerzendingServiceStub.IndienMethodCall("GeefMogelijkeLeverDatums", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(##class(%ListOfDataTypes).%New())
-
+	Do VerzendingServiceStub.IndienMethodCall("GeefIsAsapMogelijk",$$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks() 
+	
 	Set WinkelkarRepositoryStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
 	Do WinkelkarRepositoryStub.IndienMethodCall("GeefOfferteIDViaID", $$$ElkeWaarde).DanReturn("InterneId")
 	
 	Set VerkoopServiceDummy = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do VerkoopServiceDummy.IndienMethodCall("ZetOfferteHoofding",$$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
-	Do VerkoopServiceDummy.IndienMethodCall("GeefIsAsapMogelijk",$$$ElkeWaarde).DanDoeNiks()
 	
 	Set CheckoutTypeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler).%New()
 	Do CheckoutTypeBepalerMock.IndienMethodCall("Bepaal", "1","K||1000").DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).Standaard())
Index: vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml
===================================================================
diff -u -r44275 -r44304
--- vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 44275)
+++ vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 44304)
@@ -8,6 +8,13 @@
 <Super>WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="GeefIsAsapMogelijk">
+<FormalSpec>BereidVoorBestellingRequest:WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest,KlantPartijID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefIsAsapMogelijk",BereidVoorBestellingRequest,KlantPartijID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefMogelijkeLeverDatums">
 <FormalSpec>BereidVoorBestellingRequest:WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest,KlantPartijID:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml
===================================================================
diff -u -r44281 -r44304
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 44281)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 44304)
@@ -65,7 +65,7 @@
 	
 	If (CheckoutType = ##class(APPS.EC.Unishop.enu.CheckoutType).Standaard()) {
 		Set Response.MogelijkeLeverdatums = ..VerzendingService.GeefMogelijkeLeverDatums(BereidVoorBestellingRequest,KlantPartijID)
-		Set Response.IsAsapMogelijk = ..VerkoopService.GeefIsAsapMogelijk(OfferteID)
+		Set Response.IsAsapMogelijk = ..VerzendingService.GeefIsAsapMogelijk(BereidVoorBestellingRequest,KlantPartijID)
 	} 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
Index: vhTest/Mock/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml
===================================================================
diff -u -r44272 -r44304
--- vhTest/Mock/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44272)
+++ vhTest/Mock/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44304)
@@ -8,13 +8,27 @@
 <Super>APPS.common.VKP.MogelijkeLeverdatumsBepaler,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="GeefIsAsapMogelijk">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefIsAsapMogelijk",Winkelkar,LeverAdres)
+]]></Implementation>
+</Method>
+
 <Method name="GeefMogelijkeLeverdatums">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefMogelijkeLeverdatums",Winkelkar)
 ]]></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>
Index: vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml
===================================================================
diff -u -r44275 -r44304
--- vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 44275)
+++ vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 44304)
@@ -13,6 +13,13 @@
 <ReturnTypeParams>ELEMENTTYPE="%Date"</ReturnTypeParams>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="GeefIsAsapMogelijk">
+<FormalSpec>BereidVoorBestellingRequest:WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest,KlantPartijID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml
===================================================================
diff -u -r44280 -r44304
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 44280)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 44304)
@@ -61,6 +61,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefIsAsapMogelijk">
+<FormalSpec>BereidVoorBestellingRequest:WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest,KlantPartijID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<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.GeefIsAsapMogelijk(Winkelkar)
+
+	#dim LeverAdres As DOM.VKP.LeverAdres = ""
+	Set LeverAdres = ..KlantAdresRepository.GeefLeverAdres(KlantPartijID, BereidVoorBestellingRequest.LeverAdres.Id)
+	Quit ..MogelijkeLeverdatumsBepaler.GeefIsAsapMogelijk(Winkelkar, LeverAdres)
+]]></Implementation>
+</Method>
+
 <Method name="IsHoofdLeverAdres">
 <FormalSpec>LeverAdres:WS.Vhisie4.Winkelkar.dto.LeverAdres</FormalSpec>
 <Private>1</Private>
Index: vhTest/Fake/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml
===================================================================
diff -u -r44272 -r44304
--- vhTest/Fake/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44272)
+++ vhTest/Fake/APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44304)
@@ -7,13 +7,27 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.common.VKP.MogelijkeLeverdatumsBepaler</Super>
 
+<Method name="GeefIsAsapMogelijk">
+<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>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMogelijkeLeverdatumsPerLijnVoorLeverAdres">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres</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>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService/Test.cls.xml
===================================================================
diff -u -r44275 -r44304
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService/Test.cls.xml	(.../Test.cls.xml)	(revision 44275)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService/Test.cls.xml	(.../Test.cls.xml)	(revision 44304)
@@ -64,6 +64,68 @@
 	Do KlantAdresRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Geeft IsAsapMogelijk voor hoofdleveradres van de klant">
+<Implementation><![CDATA[
+	Set WinkelkarFake = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New("ApplicatieID")
+
+	Set MogelijkeLeverdatums = ##class(%ListOfDataTypes).%New()
+	
+	Set WinkelkarRepositoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefWinkelkarIDViaID","1").DanReturn("1")
+	
+	Set MogelijkeLeverdatumsBepalerMock = ##class(vhTest.Mock.APPS.common.VKP.MogelijkeLeverdatumsBepaler).%New()
+	Do MogelijkeLeverdatumsBepalerMock.VerwachtMethodCall("GeefIsAsapMogelijk",WinkelkarFake,"").DanReturn($$$True)
+	
+	Set WinkelkarServiceMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	Do WinkelkarServiceMock.VerwachtMethodCall("OpenWinkelkar","1").DanReturn(WinkelkarFake)
+
+	#dim BereidVoorBestellingRequest As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).StandaardRequest()
+	Set BereidVoorBestellingRequest.LeverAdres.Id = "H"
+	
+	Set VerzendingService = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New(WinkelkarRepositoryMock, MogelijkeLeverdatumsBepalerMock, WinkelkarServiceMock)
+	#dim IsAsapMogelijk As %Boolean = VerzendingService.GeefIsAsapMogelijk(BereidVoorBestellingRequest,"PartijID")
+	
+	Do $$$AssertTrue(IsAsapMogelijk)
+	
+	Do WinkelkarRepositoryMock.Verifieer()
+	Do MogelijkeLeverdatumsBepalerMock.Verifieer()
+	Do WinkelkarServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geeft IsAsapMogelijk voor leveradres van de klant">
+<Implementation><![CDATA[
+	Set WinkelkarFake = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New("ApplicatieID")
+	Set MogelijkeLeverdatums = ##class(%ListOfDataTypes).%New()
+	Set LeverAdresDummy = ##class(vhTest.Dummy.DOM.VKP.LeverAdres).%New()
+	
+	Set WinkelkarRepositoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefWinkelkarIDViaID","1").DanReturn("1")
+	
+	Set MogelijkeLeverdatumsBepalerMock = ##class(vhTest.Mock.APPS.common.VKP.MogelijkeLeverdatumsBepaler).%New()
+	Do MogelijkeLeverdatumsBepalerMock.VerwachtMethodCall("GeefIsAsapMogelijk",WinkelkarFake,LeverAdresDummy).DanReturn($$$True)
+	
+	Set WinkelkarServiceMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	Do WinkelkarServiceMock.VerwachtMethodCall("OpenWinkelkar","1").DanReturn(WinkelkarFake)
+
+	#dim BereidVoorBestellingRequest As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).StandaardRequest()
+	Set BereidVoorBestellingRequest.LeverAdres.Id = "1"
+
+	Set KlantAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.Klant.KlantAdresRepository).%New()
+	Do KlantAdresRepositoryMock.VerwachtMethodCall("GeefLeverAdres", "PartijID", "1").DanReturn(LeverAdresDummy)
+	
+	Set VerzendingService = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New(WinkelkarRepositoryMock, MogelijkeLeverdatumsBepalerMock, WinkelkarServiceMock, KlantAdresRepositoryMock)
+	#dim IsAsapMogelijk As %Boolean = VerzendingService.GeefIsAsapMogelijk(BereidVoorBestellingRequest,"PartijID")
+	
+	Do $$$AssertTrue(IsAsapMogelijk)
+	
+	Do WinkelkarRepositoryMock.Verifieer()
+	Do MogelijkeLeverdatumsBepalerMock.Verifieer()
+	Do WinkelkarServiceMock.Verifieer()
+	Do KlantAdresRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml
===================================================================
diff -u -r44272 -r44304
--- APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44272)
+++ APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44304)
@@ -58,6 +58,27 @@
 	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>
+<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)
+]]></Implementation>
+</Method>
+
+<Method name="GeefIsAsapMogelijk">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:(LeverAdres="") (..VroegsteLeverDatumBepaler.GeefVroegsteLeverdatumPerLijn(Winkelkar)>1)
+	Quit (..GeefMogelijkeLeverdatumsPerLijnVoorLeverAdres(Winkelkar, LeverAdres).Count()>1)
+]]></Implementation>
+</Method>
 </Class>