Index: APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml
===================================================================
diff -u -r52427 -r53165
--- APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 52427)
+++ APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 53165)
@@ -285,17 +285,8 @@
 <FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If ..Aanvraag.Order.GevraagdeLeverdatum=""{
-		Set ..OfferteHoofding.LeveringDetail.Datum = ..VroegsteLeverdatumBepaler.GeefVroegsteLeverdatum(..WinkelkarRepository.GeefViaID(Offerte.GeefWinkelkarID()))
-	} Else {
-		#dim OmgezetteLeverdatum As %String = $$YYYYMMDD2EuropeanDate^vhLib.DateTime(..Aanvraag.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. '"_..Aanvraag.Order.GevraagdeLeverdatum_"'")
-		}
-	}
+	#dim VroegsteLeverdatum As %Date = ..VroegsteLeverdatumBepaler.GeefVroegsteLeverdatum(..WinkelkarRepository.GeefViaID(Offerte.GeefWinkelkarID()))
+	Set ..OfferteHoofding.LeveringDetail.Datum = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.LeverdatumBepaler).%New().GeefLeverdatum(..Aanvraag.Header.PersonalityID, ..Aanvraag.Order.GevraagdeLeverdatum, VroegsteLeverdatum)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r52431 -r53165
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 52431)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 53165)
@@ -17,6 +17,8 @@
 	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteStub.IndienMethodCall("GeefID").DanReturn("OfferteID")
 	Do OfferteStub.IndienMethodCall("ZetLeverAdres",$$$ElkeWaarde).DanDoeNiks()
+	Do OfferteStub.IndienMethodCall("GeefWinkelkarID").DanReturn("WinkelkarID")
+	
 	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	Do OfferteServiceMock.IndienMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
 	Do OfferteServiceMock.IndienMethodCall("VoegToeProduct").DanDoeNiks()
@@ -34,7 +36,14 @@
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
 	Do OfferteRepositoryMock.VerwachtMethodCall("Bewaar",OfferteStub)
 
-	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock,ProductConverterStub,OfferteServiceMock,,DummyHoofdingDto,,,,OfferteRepositoryMock)
+	Set WinkelkarStub = ##class(DOM.EC.Winkelkar.Winkelkar).%New("WinkelkarID")
+	Set VroegsteLeverdatumBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
+	Do VroegsteLeverdatumBepalerStub.IndienMethodCall("GeefVroegsteLeverdatum",WinkelkarStub,$$$ElkeWaarde).DanReturn($$$DummyDate)
+	
+	Set WinkelkarRepositoryStub = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(WinkelkarStub)
+
+	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock,ProductConverterStub,OfferteServiceMock,,DummyHoofdingDto,,VroegsteLeverdatumBepalerStub, WinkelkarRepositoryStub,OfferteRepositoryMock)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	If ($IsObject(Resultaat.Exceptie)) {
@@ -123,14 +132,23 @@
 	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteStub.IndienMethodCall("GeefID").DanReturn("OfferteID")
 	Do OfferteStub.IndienMethodCall("ZetLeverAdres",$$$ElkeWaarde).DanDoeNiks()
+	Do OfferteStub.IndienMethodCall("GeefWinkelkarID").DanReturn("WinkelkarID")
+	
 	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
 	Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(1)
 	Do OfferteServiceMock.VerwachtMethodCall("ZetHoofding",OfferteStub,DummyHoofdingDto).ExactAantalKeer(0)
 
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
 	Do OfferteRepositoryMock.VerwachtMethodCall("Bewaar",OfferteStub).ExactAantalKeer(0)
 	
-	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceMock,,DummyHoofdingDto,,,,OfferteRepositoryMock)
+	Set WinkelkarStub = ##class(DOM.EC.Winkelkar.Winkelkar).%New("WinkelkarID")
+	Set VroegsteLeverdatumBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
+	Do VroegsteLeverdatumBepalerStub.IndienMethodCall("GeefVroegsteLeverdatum",WinkelkarStub,$$$ElkeWaarde).DanReturn($$$DummyDate)
+	
+	Set WinkelkarRepositoryStub = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(WinkelkarStub)
+
+	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceMock,,DummyHoofdingDto,,VroegsteLeverdatumBepalerStub,WinkelkarRepositoryStub,OfferteRepositoryMock)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	If $$$AssertTrue($IsObject(Resultaat.Exceptie)) {
@@ -162,15 +180,24 @@
 	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteStub.IndienMethodCall("GeefID").DanReturn("OfferteID")
 	Do OfferteStub.IndienMethodCall("ZetLeverAdres",$$$ElkeWaarde).DanDoeNiks()
+	Do OfferteStub.IndienMethodCall("GeefWinkelkarID").DanReturn("WinkelkarID")
+	
 	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
 	Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(1)
 	Do OfferteServiceMock.VerwachtMethodCall("ZetHoofding",OfferteStub,DummyHoofdingDto).ExactAantalKeer(1)
 	
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
 	Do OfferteRepositoryMock.VerwachtMethodCall("Bewaar",OfferteStub)
 	
-	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceMock,,DummyHoofdingDto,,,,OfferteRepositoryMock)
+	Set WinkelkarStub = ##class(DOM.EC.Winkelkar.Winkelkar).%New("WinkelkarID")
+	Set VroegsteLeverdatumBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
+	Do VroegsteLeverdatumBepalerStub.IndienMethodCall("GeefVroegsteLeverdatum",WinkelkarStub,$$$ElkeWaarde).DanReturn($$$DummyDate)
 	
+	Set WinkelkarRepositoryStub = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(WinkelkarStub)
+
+	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceMock,,DummyHoofdingDto,,VroegsteLeverdatumBepalerStub,WinkelkarRepositoryStub,OfferteRepositoryMock)
+	
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	Do ExterneVerkoopServiceMock.Verifieer()
@@ -244,14 +271,23 @@
 	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteStub.IndienMethodCall("GeefID").DanReturn("OfferteID")
 	Do OfferteStub.IndienMethodCall("ZetLeverAdres",$$$ElkeWaarde).DanDoeNiks()
+	Do OfferteStub.IndienMethodCall("GeefWinkelkarID").DanReturn("WinkelkarID")
+	
 	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
 	Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(2)
 	Do OfferteServiceMock.VerwachtMethodCall("ZetHoofding",OfferteStub,DummyHoofdingDto).ExactAantalKeer(1)
 	
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
 	Do OfferteRepositoryMock.VerwachtMethodCall("Bewaar",OfferteStub)
 	
-	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceMock,,DummyHoofdingDto,,,,OfferteRepositoryMock)
+	Set WinkelkarStub = ##class(DOM.EC.Winkelkar.Winkelkar).%New("WinkelkarID")
+	Set VroegsteLeverdatumBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
+	Do VroegsteLeverdatumBepalerStub.IndienMethodCall("GeefVroegsteLeverdatum",WinkelkarStub,$$$ElkeWaarde).DanReturn($$$DummyDate)
+	
+	Set WinkelkarRepositoryStub = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(WinkelkarStub)
+
+	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceMock,,DummyHoofdingDto,,VroegsteLeverdatumBepalerStub,WinkelkarRepositoryStub,OfferteRepositoryMock)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	Do ExterneVerkoopServiceMock.Verifieer()
@@ -340,14 +376,23 @@
 	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteStub.IndienMethodCall("GeefID").DanReturn("OfferteID")
 	Do OfferteStub.IndienMethodCall("ZetLeverAdres",$$$ElkeWaarde).DanDoeNiks()
+	Do OfferteStub.IndienMethodCall("GeefWinkelkarID").DanReturn("WinkelkarID")
+	
 	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
 	Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(1)
 	Do OfferteServiceMock.VerwachtMethodCall("ZetHoofding",OfferteStub,DummyHoofdingDto).ExactAantalKeer(1)
 	
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
 	Do OfferteRepositoryMock.VerwachtMethodCall("Bewaar",OfferteStub)
 	
-	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceMock,,DummyHoofdingDto,,,,OfferteRepositoryMock)
+	Set WinkelkarStub = ##class(DOM.EC.Winkelkar.Winkelkar).%New("WinkelkarID")
+	Set VroegsteLeverdatumBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
+	Do VroegsteLeverdatumBepalerStub.IndienMethodCall("GeefVroegsteLeverdatum",WinkelkarStub,$$$ElkeWaarde).DanReturn($$$DummyDate)
+	
+	Set WinkelkarRepositoryStub = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(WinkelkarStub)
+
+	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceMock,,DummyHoofdingDto,,VroegsteLeverdatumBepalerStub,WinkelkarRepositoryStub,OfferteRepositoryMock)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	Do ExterneVerkoopServiceMock.Verifieer()
@@ -379,14 +424,23 @@
 	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteStub.IndienMethodCall("GeefID").DanReturn("OfferteID")
 	Do OfferteStub.IndienMethodCall("ZetLeverAdres",$$$ElkeWaarde).DanDoeNiks()
+	Do OfferteStub.IndienMethodCall("GeefWinkelkarID").DanReturn("WinkelkarID")
+	
 	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
 	Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(3)
 	Do OfferteServiceMock.VerwachtMethodCall("ZetHoofding",OfferteStub,DummyHoofdingDto).ExactAantalKeer(1)
 	
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
 	Do OfferteRepositoryMock.VerwachtMethodCall("Bewaar",OfferteStub)
 	
-	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceMock,,DummyHoofdingDto,,,,OfferteRepositoryMock)
+	Set WinkelkarStub = ##class(DOM.EC.Winkelkar.Winkelkar).%New("WinkelkarID")
+	Set VroegsteLeverdatumBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
+	Do VroegsteLeverdatumBepalerStub.IndienMethodCall("GeefVroegsteLeverdatum",WinkelkarStub,$$$ElkeWaarde).DanReturn($$$DummyDate)
+	
+	Set WinkelkarRepositoryStub = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(WinkelkarStub)
+	
+	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceMock,,DummyHoofdingDto,,VroegsteLeverdatumBepalerStub,WinkelkarRepositoryStub,OfferteRepositoryMock)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	Do ExterneVerkoopServiceMock.Verifieer()