Index: APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml
===================================================================
diff -u -r40095 -r40112
--- APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 40095)
+++ APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 40112)
@@ -53,8 +53,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VroegsteLeverdatumBepaler">
+<Type>APPS.EC.impl.VroegsteLeverdatumBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarRepository">
+<Type>DOM.EC.Winkelkar.impl.WinkelkarRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ExterneVerkoopService:APPS.EC.Verkoop.ExterneVerkoopService,ProductConverter:APPS.EDI.common.impl.ProductConverter,OfferteService:APPS.VKP.OfferteService,OrderIngaveService:APPS.VKP.OrderIngaveService,OfferteHoofding:APPS.EC.dto.Hoofding,ProductValidator:APPS.EDI.common.impl.ProductValidator</FormalSpec>
+<FormalSpec>ExterneVerkoopService:APPS.EC.Verkoop.ExterneVerkoopService,ProductConverter:APPS.EDI.common.impl.ProductConverter,OfferteService:APPS.VKP.OfferteService,OrderIngaveService:APPS.VKP.OrderIngaveService,OfferteHoofding:APPS.EC.dto.Hoofding,ProductValidator:APPS.EDI.common.impl.ProductValidator,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -63,11 +73,13 @@
 	Set ..ExterneVerkoopService = $$$Inject(ExterneVerkoopService,##class(APPS.EC.Verkoop.impl.Edi.VerkoopService).%New())
 	Set ..ProductConverter = $$$Inject(ProductConverter,##class(APPS.EDI.common.impl.ProductConverter).%New())
 	Set ..OfferteService = $$$Inject(OfferteService, ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService())
-	Set ..ProductRepository = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New()	
+	Set ..ProductRepository = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New()
 	Set ..OrderIngaveService = $$$Inject(OrderIngaveService,##class(APPS.VKP.OrderIngaveService).%New())
 	Set ..OfferteHoofding = $$$Inject(OfferteHoofding,##class(APPS.EC.dto.Hoofding).%New())
 	Set ..ProductValidator = $$$Inject(ProductValidator,##class(APPS.EDI.common.impl.ProductValidator).%New())
 	Set ..OfferteRepository = ##class(APPS.VKP.Offerte.impl.OfferteRepository).%New()
+	Set ..VroegsteLeverdatumBepaler = $$$Inject(VroegsteLeverdatumBepaler, ##class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New())
+	Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository,##class(DOM.EC.Winkelkar.impl.WinkelkarRepository).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -88,10 +100,12 @@
 		#dim Offerte As APPS.EC.dto.OfferteIDEnWinkelkarID = ..ExterneVerkoopService.MaakOfferte(Aanvraag.Header.KlantID,Aanvraag.Header.PersonalityID)
 		
 		try {
-			do ..ZetHoofding(Offerte.OfferteID,Aanvraag.Order,Aanvraag.Header.PersonalityID)
-			Do ..VerwerkLeveradres(Aanvraag, Offerte.OfferteID)
-			do ..VoegToeLijnen(Offerte.OfferteID,Aanvraag.Order)
-			set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(Offerte.OfferteID)
+			Do ..ZetHoofding(Offerte,Aanvraag.Order,Aanvraag.Header.PersonalityID)
+			Do ..VoegToeLijnen(Offerte.OfferteID,Aanvraag.Order)
+			
+			Do ..ZetLeveringInformatie(Aanvraag, Offerte)
+			
+			Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(Offerte.OfferteID)
 		} catch {
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 			do ..ExterneVerkoopService.WisOfferte(Offerte.OfferteID)
@@ -123,36 +137,17 @@
 </Method>
 
 <Method name="ZetHoofding">
-<FormalSpec>OfferteID:%String,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<FormalSpec>Offerte:APPS.EC.dto.OfferteIDEnWinkelkarID,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order,PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set ..OfferteHoofding.Referentie.OrderReferentie = Order.OrderReferentie
 	Set ..OfferteHoofding.Referentie.KlantOrderNummer = Order.KlantOrderNummer
 	Set ..OfferteHoofding.Referentie.CommissieReferentie = Order.CommissieReferentie
 	Set ..OfferteHoofding.LeveringDetail.WensDatum = Order.GevraagdeLeverdatum
-	If (PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()) {
-		Do ..ZetGevraagdeLeverdatum(Order)
-	}
-	Do ..ExterneVerkoopService.ZetOfferteHoofding(OfferteID,..OfferteHoofding)
+	Do ..ExterneVerkoopService.ZetOfferteHoofding(Offerte.OfferteID,..OfferteHoofding)
 ]]></Implementation>
 </Method>
 
-<Method name="ZetGevraagdeLeverdatum">
-<FormalSpec>Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Quit:Order.GevraagdeLeverdatum=""  Set ..OfferteHoofding.LeveringDetail.Datum=""
-
-	#dim OmgezetteLeverdatum As %String = $$YYYYMMDD2EuropeanDate^vhLib.DateTime(Order.GevraagdeLeverdatum)
-	If $$IsValidEuropeanDate^vhLib.DateTime(OmgezetteLeverdatum) {
-		Set ..OfferteHoofding.LeveringDetail.Datum = $ZDH($TR(OmgezetteLeverdatum,".","/"),4)
-	}
-	Else {
-		Do ##class(TECH.Exceptions.InvalidUserInputException).Throw("RequestedDeliveryDate not valid. '"_Order.GevraagdeLeverdatum_"'")
-	}
-]]></Implementation>
-</Method>
-
 <Method name="VoegToeLijnen">
 <FormalSpec>OfferteID:%String,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order</FormalSpec>
 <Private>1</Private>
@@ -257,7 +252,16 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkLeveradres">
+<Method name="ZetLeveringInformatie">
+<FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag,Offerte:APPS.EC.dto.OfferteIDEnWinkelkarID</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..ZetLeveradres(Aanvraag, Offerte.OfferteID)
+	Do ..ZetGevraagdeLeverdatum(Aanvraag.Order, Offerte)
+]]></Implementation>
+</Method>
+
+<Method name="ZetLeveradres">
 <FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag,OfferteID:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -276,9 +280,26 @@
 	Do Leveradres.ZetLandNr(Aanvraag.Order.Aankoper.LeveringLand)
 	
 	Do Offerte.ZetLeverAdres(Leveradres)
-	Do ..OfferteRepository.Bewaar(Offerte)
 ]]></Implementation>
 </Method>
+
+<Method name="ZetGevraagdeLeverdatum">
+<FormalSpec>Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order,Offerte:APPS.EC.dto.OfferteIDEnWinkelkarID</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If Order.GevraagdeLeverdatum=""{
+		Set ..OfferteHoofding.LeveringDetail.Datum = ..VroegsteLeverdatumBepaler.GeefVroegsteLeverdatum(..WinkelkarRepository.GeefViaID(Offerte.WinkelkarID))
+	} Else {
+		#dim OmgezetteLeverdatum As %String = $$YYYYMMDD2EuropeanDate^vhLib.DateTime(Order.GevraagdeLeverdatum)
+		If $$IsValidEuropeanDate^vhLib.DateTime(OmgezetteLeverdatum) {
+			Set ..OfferteHoofding.LeveringDetail.Datum = $ZDH($TR(OmgezetteLeverdatum,".","/"),4)
+		}
+		Else {
+			Do ##class(TECH.Exceptions.InvalidUserInputException).Throw("RequestedDeliveryDate not valid. '"_Order.GevraagdeLeverdatum_"'")
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r38997 -r40112
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 38997)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 40112)
@@ -85,9 +85,11 @@
 
 <Method name="Test: Bij ongeldige Leverdatum wordt verwijder offerte opgeroepen en bevat het resultaat een exceptie, natuurlijk wordt de offerte dan niet besteld">
 <Implementation><![CDATA[
+	Set DummyHoofdingDto = ##class(APPS.EC.dto.Hoofding).%New()
 	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID, "").DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("BestelOfferte","OfferteID",..#KlantID,..#PersonalityID).ExactAantalKeer(0)
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
@@ -97,14 +99,23 @@
 	Set Aanvraag.Order.Lijnen = Orderlijnen	
 	Set Aanvraag.Order.GevraagdeLeverdatum = "UT_Ongeldig"
 	
-	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock)
+	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.impl.ProductConverter).%New()
+	Do ProductConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
+	
+	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
+	Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(1)
+	
+	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceMock,,DummyHoofdingDto)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	If $$$AssertTrue($IsObject(Resultaat.Exceptie)) {
 		Do $$$AssertEquals(Resultaat.Exceptie.GeefOmschrijving() ,"RequestedDeliveryDate not valid. 'UT_Ongeldig'")
 	}
 	
 	Do ExterneVerkoopServiceMock.Verifieer()
+	Do OfferteServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -137,7 +148,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Bij lege Leverdatum loopt alles normaal, geen errors">
+<Method name="Test: Bij lege Leverdatum loopt alles normaal, geen errors, er wordt een Leverdatum bepaald">
 <Implementation><![CDATA[
 	Set DummyHoofdingDto = ##class(APPS.EC.dto.Hoofding).%New()
 	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
@@ -158,11 +169,20 @@
 	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
 	Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(1)
-	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceMock,,DummyHoofdingDto)
+	
+	Set WinkelkarStub = ##class(DOM.EC.Winkelkar.Winkelkar).%New("WinkelkarID")
+	Set VroegsteLeverdatumBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
+	Do VroegsteLeverdatumBepalerMock.VerwachtMethodCall("GeefVroegsteLeverdatum",WinkelkarStub,$$$ElkeWaarde).DanReturn($$$DummyDate)
+	
+	Set WinkelkarRepositoryMock = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryMock.IndienMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(WinkelkarStub)
+	
+	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceMock,,DummyHoofdingDto,,VroegsteLeverdatumBepalerMock, WinkelkarRepositoryMock)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	Do ExterneVerkoopServiceMock.Verifieer()
 	Do OfferteServiceMock.Verifieer()
+	Do VroegsteLeverdatumBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml
===================================================================
diff -u -r40095 -r40112
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml	(.../UnishopBestellerSpy.cls.xml)	(revision 40095)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml	(.../UnishopBestellerSpy.cls.xml)	(revision 40112)
@@ -51,7 +51,7 @@
 </Method>
 
 <Method name="ZetHoofding">
-<FormalSpec>OfferteID:%String,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<FormalSpec>Offerte:APPS.EC.dto.OfferteIDEnWinkelkarID,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order,PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[	Quit
 ]]></Implementation>