Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml
===================================================================
diff -u -r44147 -r44281
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 44147)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 44281)
@@ -28,8 +28,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerzendingService">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler,TransportService:APPS.EC.Transport.Service,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI</FormalSpec>
+<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler,TransportService:APPS.EC.Transport.Service,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,VerzendingService:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -40,7 +45,8 @@
 	Set ..CheckoutTypeBepaler = $$$Inject(CheckoutTypeBepaler, ##class(APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler).%New())
 	Set ..TransportService = $$$Inject(TransportService, ##class(APPS.EC.Transport.Service).%New())
 	Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI,##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
-
+	Set ..VerzendingService = $$$Inject(VerzendingService, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -49,7 +55,6 @@
 <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))
@@ -59,18 +64,7 @@
 	#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 WinkelkarId As %String = ..WinkelkarRepository.GeefWinkelkarIDViaID(BereidVoorBestellingRequest.Winkelkar.Id)
-		#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = WinkelkarService.OpenWinkelkar(WinkelkarId)
-
-		if (BereidVoorBestellingRequest.LeverAdres.Id '= "H") {
-			#dim LeverAdres As DOM.VKP.LeverAdres = ""
-			Set LeverAdres = KlantAdresRepository.GeefLeverAdres(KlantPartijID, BereidVoorBestellingRequest.LeverAdres.Id)
-			Set Response.MogelijkeLeverdatums = ##class(APPS.common.VKP.MogelijkeLeverdatumsBepaler).%New().GeefMogelijkeLeverdatumsVoorLeverAdres(Winkelkar, LeverAdres)
-		} else {
-			Set Response.MogelijkeLeverdatums = ##class(APPS.common.VKP.MogelijkeLeverdatumsBepaler).%New().GeefMogelijkeLeverdatums(Winkelkar)
-		}
-		
+		Set Response.MogelijkeLeverdatums = ..VerzendingService.GeefMogelijkeLeverDatums(BereidVoorBestellingRequest,KlantPartijID)
 		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: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml
===================================================================
diff -u -r41689 -r44281
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 41689)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 44281)
@@ -5,71 +5,84 @@
 
 <Method name="Test: Indien maar 1 mogelijke leverdatum geen ASAP mogelijk">
 <Implementation><![CDATA[
-	Set WinkelkarRepositoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
-	Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteIDViaID", 1).DanReturn("InterneId")
+	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())
 		
-	#Dim Hoofding as APPS.EC.dto.Hoofding = ..GeefHoofding()
-		
 	Set VerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	Do VerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","InterneId", ..Matches.DataTransferObject(Hoofding)).DanDoeNiks()
-	Do VerkoopServiceMock.VerwachtMethodCall("GeefMogelijkeLeverdatums","InterneId").DanReturn(..GeefEenMogelijkeLeverdatum()) 
+	Do VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
 	Do VerkoopServiceMock.VerwachtMethodCall("GeefIsAsapMogelijk","InterneId").DanReturn($$$False) 
 	
-	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, WinkelkarRepositoryMock)
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, WinkelkarRepositoryStub, , ,LegacyPartijAPIStub, VerzendingServiceStub)
 	
 	#Dim Response As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse
 	Set Response = Service.BereidVoorBestelling(##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).StandaardRequest())
 	
 	If $$$AssertEquals(Response.MogelijkeLeverdatums.Count(), 1 ) {		
 		Do $$$AssertFalse(Response.IsAsapMogelijk)		
 	}
-
+	
 	Do VerkoopServiceMock.Verifieer()
-	Do WinkelkarRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Indien meer dan 1 mogelijke leverdatum wel ASAP mogelijk">
 <Implementation><![CDATA[
-	Set WinkelkarRepositoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
-	Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteIDViaID", 1).DanReturn("InterneId")
+	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())
 		
-	#Dim Hoofding as APPS.EC.dto.Hoofding = ..GeefHoofding()
-		
 	Set VerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	Do VerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","InterneId", ..Matches.DataTransferObject(Hoofding) ).DanDoeNiks()
-	Do VerkoopServiceMock.VerwachtMethodCall("GeefMogelijkeLeverdatums","InterneId").DanReturn(..GeefTweeMogelijkeLeverdatums())
+	Do VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
 	Do VerkoopServiceMock.VerwachtMethodCall("GeefIsAsapMogelijk","InterneId").DanReturn($$$True) 
-	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, WinkelkarRepositoryMock)
 	
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, WinkelkarRepositoryStub, , ,LegacyPartijAPIStub, VerzendingServiceStub)
+	
 	#Dim Response As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse
 	Set Response = Service.BereidVoorBestelling(##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).StandaardRequest())
 	
 	If $$$AssertEquals(Response.MogelijkeLeverdatums.Count(), 2 ) {		
 		Do $$$AssertTrue(Response.IsAsapMogelijk)		
 	}
-
+	
 	Do VerkoopServiceMock.Verifieer()
-	Do WinkelkarRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: BereidVoorBestelling plaatst de hoofding op de offerte en bepaalt de mogelijke leverdatums - standaard zijn er geen herberekende lijnen en meldingen aan de gebruiker">
 <Implementation><![CDATA[
+	#dim BereidVoorBestellingRequest As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest = ""
+	Set BereidVoorBestellingRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).StandaardRequest()
+	
+	Set LegacyPartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
+	Do LegacyPartijAPIMock.VerwachtMethodCall("IsKlantPartijID", "K||1000").DanReturn($$$True)
+	
+	Set VerzendingServiceMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New()
+	Do VerzendingServiceMock.VerwachtMethodCall("GeefMogelijkeLeverDatums", BereidVoorBestellingRequest, "K||1000").DanReturn(..GeefTweeMogelijkeLeverdatums())
+
 	Set WinkelkarRepositoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
 	Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteIDViaID", 1).DanReturn("InterneId")
 		
 	#Dim Hoofding as APPS.EC.dto.Hoofding = ..GeefHoofding()
 	
 	Set VerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do VerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","InterneId", ..Matches.DataTransferObject(Hoofding) ).DanDoeNiks()
-	Do VerkoopServiceMock.VerwachtMethodCall("GeefMogelijkeLeverdatums","InterneId").DanReturn(..GeefTweeMogelijkeLeverdatums())
-	Do VerkoopServiceMock.IndienMethodCall("GeefIsAsapMogelijk","InterneId").DanDoeNiks()
+	Do VerkoopServiceMock.VerwachtMethodCall("GeefIsAsapMogelijk","InterneId").DanDoeNiks()
 	
-	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, WinkelkarRepositoryMock)
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, WinkelkarRepositoryMock, , ,LegacyPartijAPIMock, 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 $$$AssertEqualsList(Response.MogelijkeLeverdatums, ..GeefTweeMogelijkeLeverdatums())
@@ -79,6 +92,8 @@
 
 	Do VerkoopServiceMock.Verifieer()
 	Do WinkelkarRepositoryMock.Verifieer()
+	Do LegacyPartijAPIMock.Verifieer()
+	Do VerzendingServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -132,12 +147,17 @@
 
 <Method name="Test: BereidVoorBestelling geeft geen verzendingmogelijkheden voor klant zonder transportkeuze">
 <Implementation><![CDATA[
+	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(##class(%ListOfDataTypes).%New())
+
 	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("GeefMogelijkeLeverdatums",$$$ElkeWaarde).DanReturn("")
 	Do VerkoopServiceDummy.IndienMethodCall("GeefIsAsapMogelijk",$$$ElkeWaarde).DanDoeNiks()
 	
 	Set CheckoutTypeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler).%New()
@@ -146,7 +166,7 @@
 	Set TransportServiceMock = ##class(vhTest.Mock.APPS.EC.Transport.Service).%New()
 	Do TransportServiceMock.VerwachtMethodCall("GeefMogelijkeZendingen",$$$ElkeWaarde,$$$ElkeWaarde, $$$ElkeWaarde).Nooit()
 	
-	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceDummy, WinkelkarRepositoryStub, CheckoutTypeBepalerMock, TransportServiceMock)
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceDummy, WinkelkarRepositoryStub, CheckoutTypeBepalerMock, TransportServiceMock, LegacyPartijAPIStub, VerzendingServiceStub)
 	
 	#Dim Response As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse
 	Set Response = Service.BereidVoorBestelling(##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).StandaardRequest())