Index: vhTest/Mock/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml
===================================================================
diff -u -r33269 -r33484
--- vhTest/Mock/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml	(.../NaarBerekenInputConverter.cls.xml)	(revision 33269)
+++ vhTest/Mock/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml	(.../NaarBerekenInputConverter.cls.xml)	(revision 33484)
@@ -10,9 +10,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="Convert">
-<FormalSpec>Verpakkingen:APPS.VKP.Offerte.dto.VerpakkingList,LeverAdres:DOM.VKP.LeverAdres,OfferteId:%String</FormalSpec>
+<FormalSpec>Verpakkingen:APPS.VKP.Offerte.dto.VerpakkingList,LeverAdres:DOM.VKP.LeverAdres,OfferteId:%String,VroegsteAfhaalDatum:%Date</FormalSpec>
 <ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("Convert",Verpakkingen,LeverAdres,OfferteId)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Convert",Verpakkingen,LeverAdres,OfferteId,VroegsteAfhaalDatum)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml
===================================================================
diff -u -r33431 -r33484
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 33431)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 33484)
@@ -9,14 +9,21 @@
 	
 	Set DummyLeverAdres = ##class(vhTest.Dummy.APPS.TRANSP.dto.InternationaalAdres).%New()
 	set DummyVerpakkingen = ##class(APPS.VKP.Offerte.dto.VerpakkingList).%New()
+	#dim DummyWinkelKarID As %String = "DummyWinkelKarID"
 	
 	Set VerkoopOfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefProductVerpakkingDetails",OfferteID).DanReturn(DummyVerpakkingen)
 	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefLeverAdres",OfferteID).DanReturn(DummyLeverAdres)
+	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefWinkelKarID",OfferteID).DanReturn(DummyWinkelKarID)
+
+	#dim DummyDatum As %Date = ..GeefHuidigeDatum()
 	
+	Set DummyWinkelKarService = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	Do DummyWinkelKarService.IndienMethodCall("GeefVroegsteLeverDatum",DummyWinkelKarID).DanReturn(DummyDatum)
+	
 	set DummyBerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 	Set NaarBerekenInputConverterMock = ##class(vhTest.Mock.APPS.VKP.OfferteService.impl.NaarBerekenInputConverter).%New()
-	Do NaarBerekenInputConverterMock.VerwachtMethodCall("Convert", DummyVerpakkingen, DummyLeverAdres,OfferteID).DanReturn(DummyBerekenInput)
+	Do NaarBerekenInputConverterMock.VerwachtMethodCall("Convert", DummyVerpakkingen, DummyLeverAdres, OfferteID, DummyDatum).DanReturn(DummyBerekenInput)
 
 	set ZendingDetails = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden).%New()
 	set ZendingDetail = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
@@ -31,7 +38,7 @@
 	#dim VerzendingMogelijkheidRepositoryMock As vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository = ##class(vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 	Do VerzendingMogelijkheidRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).DanDoeNiks()
 	
-	Set Service = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(VerkoopOfferteServiceMock, NaarBerekenInputConverterMock, HaalZendingDetailsMock, VerzendingMogelijkheidRepositoryMock)
+	Set Service = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(VerkoopOfferteServiceMock, NaarBerekenInputConverterMock, HaalZendingDetailsMock, VerzendingMogelijkheidRepositoryMock, DummyWinkelKarService)
 	#dim Resultaat As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = Service.GeefMogelijkeZendingen(OfferteID)
 	
 	Do VerkoopOfferteServiceMock.Verifieer()
@@ -127,6 +134,13 @@
 	Do Service.ZetGekozenVerzendingMogelijkheid(OfferteID,VerzendingMogelijkheidID,OptieKeuze)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefHuidigeDatum">
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/TRANSP/UPS/impl/Rate/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u -r33177 -r33484
--- vhUnitTest/APPS/TRANSP/UPS/impl/Rate/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 33177)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/Rate/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 33484)
@@ -30,6 +30,7 @@
 	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 	Set BerekenInput.Referentie = "1"
 	Set BerekenInput.GewensteLeverDatum = ##class(TECH.DateTime).TextToDate("11/03/2016")
+	Set BerekenInput.VroegsteAfhaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016")
 	Set BerekenInput.LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
 	Set BerekenInput.LeverAdres.ProvincieCode = ""
 	Set BerekenInput.LeverAdres.LandCode = "BE"
@@ -43,7 +44,6 @@
 		Set TeverzendItem.WaardeGoederen = Item * 10
 		Set TeverzendItem.Gewicht = Item * 120
 		Set TeverzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(Item * 500, Item * 10, Item * 100 ) 
-		Set TeverzendItem.DatumBeschikbaar = ##class(TECH.DateTime).TextToDate(Item_"/03/2016")
 		Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
 	}
 	
Index: APPS/VKP/impl/OfferteService.cls.xml
===================================================================
diff -u -r33272 -r33484
--- APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 33272)
+++ APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 33484)
@@ -226,6 +226,13 @@
 	Quit Offerte.GeefLeverAdres()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefWinkelKarID">
+<FormalSpec>OfferteID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	 Quit ..GeefOfferte(OfferteID).GeefWinkelkarID()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r33464 -r33484
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33464)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33484)
@@ -247,6 +247,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVroegsteLeverDatum">
+<FormalSpec>WinkelKarID:%String,Verzendwijze:APPS.VKP.VerzendWijze=""</FormalSpec>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit ##Class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New(Verzendwijze).GeefVroegsteLeverdatum(..GeefWinkelkar(WinkelKarID))
+]]></Implementation>
+</Method>
+
 <Method name="GeefLijn">
 <FormalSpec>WinkelkarID:%String,LijnID:%String</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Lijn</ReturnType>
Index: vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u -r33177 -r33484
--- vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 33177)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 33484)
@@ -32,6 +32,7 @@
 	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 	Set BerekenInput.Referentie = "1"
 	Set BerekenInput.GewensteLeverDatum = ..GeefGeldigeDatum()
+	Set BerekenInput.VroegsteAfhaalDatum = ..GeefHuidigeDatum()
 	Set BerekenInput.LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
 	Set BerekenInput.LeverAdres.ProvincieCode = ""
 	Set BerekenInput.LeverAdres.LandCode = "DE"
@@ -44,7 +45,6 @@
 		Set TeverzendItem.WaardeGoederen = Item * 10
 		Set TeverzendItem.Gewicht = Item * 5
 		Set TeverzendItem.Afmeting = Item * 500
-		Set TeverzendItem.DatumBeschikbaar = ##class(TECH.DateTime).TextToDate(Item_"/03/2016")
 		Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
 	}
 	
@@ -53,13 +53,19 @@
 </Method>
 
 <Method name="GeefGeldigeDatum">
+<Private>1</Private>
 <ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[
-	Set HuidigeDatum = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
-	Quit ##class(TECH.DateTime).DatumBereken(HuidigeDatum,10, ##class(TECH.enu.DatePart).Dag())
+<Implementation><![CDATA[	Quit ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),10, ##class(TECH.enu.DatePart).Dag())
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHuidigeDatum">
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+]]></Implementation>
+</Method>
+
 <Method name="GeefTransportOfferte">
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.OfferteService.dto.OfferteData</ReturnType>
Index: APPS/TRANSP/UPS/impl/BerekenInputValidator.cls.xml
===================================================================
diff -u -r33148 -r33484
--- APPS/TRANSP/UPS/impl/BerekenInputValidator.cls.xml	(.../BerekenInputValidator.cls.xml)	(revision 33148)
+++ APPS/TRANSP/UPS/impl/BerekenInputValidator.cls.xml	(.../BerekenInputValidator.cls.xml)	(revision 33484)
@@ -29,7 +29,7 @@
 <Implementation><![CDATA[
 	Do ..ValideerLeverAdres(BerekenInput.LeverAdres)
 
-	Do ..ValideerLeverDatum(BerekenInput.GewensteLeverDatum, ..GeefVroegsteAfhaalDatum(BerekenInput))
+	Do ..ValideerLeverDatum(BerekenInput.GewensteLeverDatum, BerekenInput.VroegsteAfhaalDatum)
 	
 	Do ..ValideerAantalPakjes(BerekenInput.TeVerzendenItems)
 	
@@ -159,23 +159,6 @@
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="GeefVroegsteAfhaalDatum">
-<FormalSpec>BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[
-	#dim VroegsteAfhaalDatum As %Date = ..DateTimeAPI.CurrentDate()
-	
-	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BerekenInput.TeVerzendenItems)
-	while Iterator.HasNext() {
-		#dim TeverzendenItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = Iterator.Next()
-		Set:(TeverzendenItem.DatumBeschikbaar > VroegsteAfhaalDatum) VroegsteAfhaalDatum = TeverzendenItem.DatumBeschikbaar
-	}
-	
-	Quit VroegsteAfhaalDatum
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/VKP/OfferteService.cls.xml
===================================================================
diff -u -r33269 -r33484
--- APPS/VKP/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 33269)
+++ APPS/VKP/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 33484)
@@ -108,6 +108,12 @@
 <FormalSpec>OfferteID:%String</FormalSpec>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 </Method>
+
+<Method name="GeefWinkelKarID">
+<Abstract>1</Abstract>
+<FormalSpec>OfferteID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter/Test.cls.xml
===================================================================
diff -u -r33269 -r33484
--- vhUnitTest/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 33269)
+++ vhUnitTest/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 33484)
@@ -24,17 +24,17 @@
 
 <Method name="Test : Converteer">
 <Implementation><![CDATA[
-	#dim BerekenInputResult As APPS.TRANSP.OfferteService.dto.BerekenInput = ..NaarBerekenInputConverter.Convert(..GeefVerpakkingen(), ..GeefLeverAdres(), ..OfferteID)
+	#dim BerekenInputResult As APPS.TRANSP.OfferteService.dto.BerekenInput = ..NaarBerekenInputConverter.Convert(..GeefVerpakkingen(), ..GeefLeverAdres(), ..OfferteID, ..GeefHuidigeDatum())
 	#dim BerekenInputDummy As APPS.TRANSP.OfferteService.dto.BerekenInput = ..GeefBerekenInput()
 	
 	Do $$$AssertObject(BerekenInputResult.LeverAdres,BerekenInputDummy.LeverAdres)
 	Do $$$AssertEquals(BerekenInputResult.GewensteLeverDatum ,BerekenInputDummy.GewensteLeverDatum)
+	Do $$$AssertEquals(BerekenInputResult.VroegsteAfhaalDatum ,BerekenInputDummy.VroegsteAfhaalDatum)
 	Do $$$AssertEquals(BerekenInputResult.Referentie ,BerekenInputDummy.Referentie)
 	Do $$$AssertEquals(BerekenInputResult.TeVerzendenItems.Count(),BerekenInputDummy.TeVerzendenItems.Count())
 	Do $$$AssertObject(BerekenInputResult.TeVerzendenItems.GetAt(1).Afmeting,BerekenInputDummy.TeVerzendenItems.GetAt(1).Afmeting)
 	Do $$$AssertEquals(BerekenInputResult.TeVerzendenItems.GetAt(1).ProductID,BerekenInputDummy.TeVerzendenItems.GetAt(1).ProductID)
 	Do $$$AssertEquals(BerekenInputResult.TeVerzendenItems.GetAt(1).Gewicht,BerekenInputDummy.TeVerzendenItems.GetAt(1).Gewicht)
-	Do $$$AssertEquals(BerekenInputResult.TeVerzendenItems.GetAt(1).DatumBeschikbaar,BerekenInputDummy.TeVerzendenItems.GetAt(1).DatumBeschikbaar)
 	Do $$$AssertEquals(BerekenInputResult.TeVerzendenItems.GetAt(1).Aantal ,BerekenInputDummy.TeVerzendenItems.GetAt(1).Aantal)
 ]]></Implementation>
 </Method>
@@ -86,6 +86,7 @@
 	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 	Set BerekenInput.Referentie = ..OfferteID
 	Set BerekenInput.LeverAdres = ..GeefInternationaalLeverAdres()
+	Set BerekenInput.VroegsteAfhaalDatum = ..GeefHuidigeDatum()
 
  	#dim TeVerzendItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = ##class(APPS.TRANSP.OfferteService.dto.TeverzendenItem).%New()
 	Set TeVerzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(40,50,60)
@@ -98,6 +99,13 @@
 	Quit BerekenInput
 ]]></Implementation>
 </Method>
+
+<Method name="GeefHuidigeDatum">
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r31105 -r33484
--- APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 31105)
+++ APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33484)
@@ -83,6 +83,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="GeefVroegsteLeverDatum">
+<Abstract>1</Abstract>
+<FormalSpec>WinkelKarID:%String</FormalSpec>
+<ReturnType>%Date</ReturnType>
+</Method>
+
 <Method name="GeefLijn">
 <Abstract>1</Abstract>
 <FormalSpec>WinkelkarID:%String,LijnID:%String</FormalSpec>
Index: APPS/TRANSP/OfferteService/dto/TeverzendenItem.cls.xml
===================================================================
diff -u -r32614 -r33484
--- APPS/TRANSP/OfferteService/dto/TeverzendenItem.cls.xml	(.../TeverzendenItem.cls.xml)	(revision 32614)
+++ APPS/TRANSP/OfferteService/dto/TeverzendenItem.cls.xml	(.../TeverzendenItem.cls.xml)	(revision 33484)
@@ -19,10 +19,6 @@
 <Type>TECH.Decimal</Type>
 </Property>
 
-<Property name="DatumBeschikbaar">
-<Type>%Date</Type>
-</Property>
-
 <Property name="Aantal">
 <Type>TECH.Integer</Type>
 </Property>
Index: APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml
===================================================================
diff -u -r33270 -r33484
--- APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml	(.../NaarBerekenInputConverter.cls.xml)	(revision 33270)
+++ APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml	(.../NaarBerekenInputConverter.cls.xml)	(revision 33484)
@@ -4,15 +4,17 @@
 <Super>TECH.Mockable</Super>
 
 <Method name="Convert">
-<FormalSpec>Verpakkingen:APPS.VKP.Offerte.dto.VerpakkingList,LeverAdres:DOM.VKP.LeverAdres,OfferteId:%String</FormalSpec>
+<FormalSpec>Verpakkingen:APPS.VKP.Offerte.dto.VerpakkingList,LeverAdres:DOM.VKP.LeverAdres,OfferteId:%String,VroegsteAfhaalDatum:%Date</FormalSpec>
 <ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
 <Implementation><![CDATA[
 	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 	
 	Set BerekenInput.LeverAdres = ..NaarInternationaalAdresConvert(LeverAdres)
 	
+	Set BerekenInput.VroegsteAfhaalDatum = VroegsteAfhaalDatum
+	
 	Set BerekenInput.Referentie = OfferteId
-	/// Set BerekenInput.GewensteLeverDatum = ???	
+
 	if ($IsObject(Verpakkingen) && Verpakkingen.Count() > 0)
 	{
 		set Iterator = ##class(TECH.ListIterator).%New(Verpakkingen)
@@ -56,7 +58,6 @@
 	Set TeVerzendItem.Afmeting = Verpakking.Afmeting.%ConstructClone()
 	Set TeVerzendItem.Aantal = Verpakking.Aantal
 	Set TeVerzendItem.ProductID = Verpakking.ProductID
-	///Set TeVerzendItem.DatumBeschikbaar = ???
 	Quit TeVerzendItem
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r31105 -r33484
--- vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 31105)
+++ vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33484)
@@ -50,6 +50,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVroegsteLeverDatum">
+<FormalSpec>WinkelKarID:%String</FormalSpec>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVroegsteLeverDatum",WinkelKarID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefWinkelkar">
 <FormalSpec>WinkelkarID:%String</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
Index: APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml
===================================================================
diff -u -r33465 -r33484
--- APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 33465)
+++ APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 33484)
@@ -13,21 +13,16 @@
 <Private>1</Private>
 </Property>
 
-<Property name="LeveringsTermijn">
-<Type>APPS.VKP.LeveringsTermijn</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>VerzendWijzeBepaler:APPS.EC.impl.VerzendWijzeBepaler="",VroegsteLeverDatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler="",LeveringsTermijn:APPS.VKP.LeveringsTermijn=""</FormalSpec>
+<FormalSpec>VerzendWijzeBepaler:APPS.EC.impl.VerzendWijzeBepaler="",VroegsteLeverDatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..VerzendWijzeBepaler = VerzendWijzeBepaler
-	Set ..VroegsteLeverDatumBepaler = VroegsteLeverDatumBepaler
-	Set ..LeveringsTermijn = LeveringsTermijn
+	Set ..VerzendWijzeBepaler = $$$Inject(VerzendWijzeBepaler,##class(APPS.EC.impl.VerzendWijzeBepaler).%New())
+	Set ..VroegsteLeverDatumBepaler = $$$Inject(VroegsteLeverDatumBepaler, ##class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New())
+
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -37,13 +32,13 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="%Date"</ReturnTypeParams>
 <Implementation><![CDATA[
-	#dim Bepaler As APPS.EC.impl.VroegsteLeverdatumBepaler = $$$LazyLoad(..VerzendWijzeBepaler, ##class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New(Winkelkar))
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = ..VerzendWijzeBepaler.GeefVerzendWijze(Winkelkar)
+
+	#dim LeveringTermijn As APPS.VKP.LeveringsTermijn = ##class(APPS.VKP.LeveringsTermijn).%New(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),VerzendWijze)
 	
-	#dim VerzendWijze As APPS.VKP.VerzendWijze = $$$LazyLoad(..VerzendWijzeBepaler, ##class(APPS.EC.impl.VerzendWijzeBepaler).%New().GeefVerzendWijze(Winkelkar))
+	#dim Datum As %Date = ..VroegsteLeverDatumBepaler.GeefVroegsteLeverdatum(Winkelkar)
 	
-	#dim LeveringTermijn As APPS.VKP.LeveringsTermijn = $$$LazyLoad(..VerzendWijzeBepaler, ##class(APPS.VKP.LeveringsTermijn).%New(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),VerzendWijze))
-
-	Quit ##class(TECH.ListUtils).ListbuildToList(LeveringTermijn.GetLeverDatums(Bepaler.GeefVroegsteLeverdatum()))
+	Quit ##class(TECH.ListUtils).ListbuildToList(LeveringTermijn.GetLeverDatums(Datum))
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/TRANSP/UPS/impl/Rate/BerekenInputConverteerder/Test.cls.xml
===================================================================
diff -u -r32701 -r33484
--- vhUnitTest/APPS/TRANSP/UPS/impl/Rate/BerekenInputConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 32701)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/Rate/BerekenInputConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 33484)
@@ -35,6 +35,7 @@
 	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 	Set BerekenInput.Referentie = "1"
 	Set BerekenInput.GewensteLeverDatum = ##class(TECH.DateTime).TextToDate("11/03/2016")
+	Set BerekenInput.VroegsteAfhaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016")
 	Set BerekenInput.LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
 	Set BerekenInput.LeverAdres.ProvincieCode = ""
 	Set BerekenInput.LeverAdres.LandCode = "BE"
@@ -48,7 +49,6 @@
 		Set TeverzendItem.WaardeGoederen = Item * 10
 		Set TeverzendItem.Gewicht = Item * 120
 		Set TeverzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(Item * 500, Item * 10, Item * 100 ) 
-		Set TeverzendItem.DatumBeschikbaar = ##class(TECH.DateTime).TextToDate(Item_"/03/2016")
 		Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
 	}
 	
Index: vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputConverteerder/Test.cls.xml
===================================================================
diff -u -r33093 -r33484
--- vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 33093)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 33484)
@@ -32,6 +32,7 @@
 	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 	Set BerekenInput.Referentie = "1"
 	Set BerekenInput.GewensteLeverDatum = ##class(TECH.DateTime).TextToDate("11/03/2016")
+	Set BerekenInput.VroegsteAfhaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016")
 	Set BerekenInput.LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
 	Set BerekenInput.LeverAdres.ProvincieCode = ""
 	Set BerekenInput.LeverAdres.LandCode = "BE"
@@ -45,7 +46,6 @@
 		Set TeverzendItem.Gewicht = Item * 5
 		Set TeverzendItem.Aantal = 1
 		Set TeverzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(Item * 500, Item * 10, Item * 100 )
-		Set TeverzendItem.DatumBeschikbaar = ##class(TECH.DateTime).TextToDate(Item_"/03/2016")
 		Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
 	}
 	
Index: APPS/TRANSP/OfferteService/dto/BerekenInput.cls.xml
===================================================================
diff -u -r32673 -r33484
--- APPS/TRANSP/OfferteService/dto/BerekenInput.cls.xml	(.../BerekenInput.cls.xml)	(revision 32673)
+++ APPS/TRANSP/OfferteService/dto/BerekenInput.cls.xml	(.../BerekenInput.cls.xml)	(revision 33484)
@@ -15,6 +15,10 @@
 <Type>%Date</Type>
 </Property>
 
+<Property name="VroegsteAfhaalDatum">
+<Type>%Date</Type>
+</Property>
+
 <Property name="TeVerzendenItems">
 <Type>APPS.TRANSP.OfferteService.dto.TeverzendenItem</Type>
 <Collection>list</Collection>
Index: vhTest/Mock/APPS/VKP/OfferteService.cls.xml
===================================================================
diff -u -r33269 -r33484
--- vhTest/Mock/APPS/VKP/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 33269)
+++ vhTest/Mock/APPS/VKP/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 33484)
@@ -68,6 +68,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefWinkelKarID">
+<FormalSpec>OfferteID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefWinkelKarID",OfferteID)
+]]></Implementation>
+</Method>
+
 <Method name="HeeftOfferteVanHandel">
 <FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
Index: APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputConverteerder.cls.xml
===================================================================
diff -u -r32684 -r33484
--- APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputConverteerder.cls.xml	(.../BerekenInputConverteerder.cls.xml)	(revision 32684)
+++ APPS/TRANSP/UPS/impl/TimeInTransit/BerekenInputConverteerder.cls.xml	(.../BerekenInputConverteerder.cls.xml)	(revision 33484)
@@ -115,10 +115,9 @@
 <Implementation><![CDATA[
 	#dim AfhaalDatum As %Date = ..DateTimeAPI.CurrentDate()
 	
-	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..BerekenInput.TeVerzendenItems)
-	while Iterator.HasNext() {
-		#dim TeverzendenItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = Iterator.Next()
-		Set:(TeverzendenItem.DatumBeschikbaar > AfhaalDatum) AfhaalDatum = TeverzendenItem.DatumBeschikbaar
+	if (..BerekenInput.VroegsteAfhaalDatum > AfhaalDatum) 
+	{
+		Set AfhaalDatum = ..BerekenInput.VroegsteAfhaalDatum
 	}
 	
 	Set ..TimeInTransitRequest.Pickup.Date = AfhaalDatum 
Index: vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u -r33177 -r33484
--- vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 33177)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 33484)
@@ -30,6 +30,7 @@
 	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 	Set BerekenInput.Referentie = "1"
 	Set BerekenInput.GewensteLeverDatum = ##class(TECH.DateTime).TextToDate("11/03/2016")
+	Set BerekenInput.VroegsteAfhaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016")
 	Set BerekenInput.LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
 	Set BerekenInput.LeverAdres.ProvincieCode = ""
 	Set BerekenInput.LeverAdres.LandCode = "BE"
@@ -43,7 +44,6 @@
 		Set TeverzendItem.Gewicht = Item * 5
 		Set TeverzendItem.Aantal = 1
 		Set TeverzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(Item * 500, Item * 10, Item * 100 )
-		Set TeverzendItem.DatumBeschikbaar = ##class(TECH.DateTime).TextToDate(Item_"/03/2016")
 		Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
 	}
 	
Index: vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/BerekenInputValidator/Test.cls.xml
===================================================================
diff -u -r33148 -r33484
--- vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/BerekenInputValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 33148)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/BerekenInputValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 33484)
@@ -367,6 +367,7 @@
 	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 	Set BerekenInput.Referentie = "1"
 	Set BerekenInput.GewensteLeverDatum = ..GeefGeldigeDatum()
+	Set BerekenInput.VroegsteAfhaalDatum = ..GeefGeldigeDatum()
 	Set BerekenInput.LeverAdres = LeverAdres
 	
 	Do ..VoegDetailLijnenToe(BerekenInput)
@@ -383,6 +384,7 @@
 	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 	Set BerekenInput.Referentie = "1"
 	Set BerekenInput.GewensteLeverDatum = GewensteLeverDatum
+	Set BerekenInput.VroegsteAfhaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016")
 	Set BerekenInput.LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
 	Set BerekenInput.LeverAdres.ProvincieCode = ""
 	Set BerekenInput.LeverAdres.LandCode = "DE"
@@ -405,7 +407,6 @@
 		Set TeverzendItem.Gewicht = Item * 5
 		Set TeverzendItem.Aantal = 1
 		Set TeverzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(Item * 500, Item * 10, Item * 100 )
-		Set TeverzendItem.DatumBeschikbaar = ##class(TECH.DateTime).TextToDate(Item_"/03/2016")
 		Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
 	}
 ]]></Implementation>
@@ -433,6 +434,7 @@
 </Method>
 
 <Method name="GeefGeldigeDatum">
+<Private>1</Private>
 <ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[	Quit ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),10, ##class(TECH.enu.DatePart).Dag())
 ]]></Implementation>
Index: APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml
===================================================================
diff -u -r33465 -r33484
--- APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(.../VroegsteLeverdatumBepaler.cls.xml)	(revision 33465)
+++ APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(.../VroegsteLeverdatumBepaler.cls.xml)	(revision 33484)
@@ -13,34 +13,44 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerzendWijze">
+<Type>APPS.VKP.VerzendWijze</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,OptioneleVerzendWijze:APPS.VKP.VerzendWijze=""</FormalSpec>
+<FormalSpec>VerzendWijze:APPS.VKP.VerzendWijze=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	#dim VerzendWijze As APPS.VKP.VerzendWijze = $$$LazyLoad(OptioneleVerzendWijze,##class(APPS.EC.impl.VerzendWijzeBepaler).%New().GeefVerzendWijze(Winkelkar))
-	
-	Set ..LeveringTermijn = ##class(APPS.VKP.LeveringsTermijn).%New(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),VerzendWijze)
+	Set ..VerzendWijze = VerzendWijze
+	Quit $$$OK
+]]></Implementation>
+</Method>
 
+<Method name="GeefVroegsteLeverdatum">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	if (..VerzendWijze = "")
+	{
+		Set ..VerzendWijze = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New().GeefVerzendWijze(Winkelkar)	
+	}
+	Set ..LeveringTermijn = ##class(APPS.VKP.LeveringsTermijn).%New(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),..VerzendWijze)
+	
 	#dim Datum As %Date = ..LeveringTermijn.GetVroegsteDatumFromTermijn($LB(1,"A"))
 	Set Datum = ..LeveringTermijn.GetPickDatumMagazijnGesloten(Datum)
 	Set ..VroegsteLeverdatum = ..LeveringTermijn.GetVroegsteLevering(Datum)
 	
 	#dim Iterator As TECH.Iterator = Winkelkar.GeefLijnIterator()
-	While (Iterator.HasNext())
-	{
+	While (Iterator.HasNext()) {
 		#dim Lijn As DOM.EC.Winkelkar.Lijn = Iterator.Next()
 		Do Lijn.Accept(##this)
 	}
-	Quit $$$OK
-]]></Implementation>
-</Method>
 
-<Method name="GeefVroegsteLeverdatum">
-<ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[	Quit ..LeveringTermijn.AfrondenLeverDag(..VroegsteLeverdatum)
+	Quit ..LeveringTermijn.AfrondenLeverDag(..VroegsteLeverdatum)
 ]]></Implementation>
 </Method>
 
Index: WS/EC/Unishop/InternationaleZending/Service.cls.xml
===================================================================
diff -u -r33428 -r33484
--- WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 33428)
+++ WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 33484)
@@ -3,6 +3,11 @@
 <Class name="WS.EC.Unishop.InternationaleZending.Service">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="WinkelKarService">
+<Type>APPS.EC.Winkelkar.WinkelkarService</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="OfferteService">
 <Type>APPS.VKP.OfferteService</Type>
 <Private>1</Private>
@@ -24,7 +29,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>OfferteService:APPS.VKP.OfferteService,NaarBerekenInputConverter:APPS.VKP.OfferteService.impl.NaarBerekenInputConverter,ZendingDetails:WS.EC.Unishop.InternationaleZending.impl.ZendingDetails,VerzendingMogelijkheidRepository:WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository</FormalSpec>
+<FormalSpec>OfferteService:APPS.VKP.OfferteService,NaarBerekenInputConverter:APPS.VKP.OfferteService.impl.NaarBerekenInputConverter,ZendingDetails:WS.EC.Unishop.InternationaleZending.impl.ZendingDetails,VerzendingMogelijkheidRepository:WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository,WinkelKarService:APPS.EC.Winkelkar.WinkelkarService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -34,6 +39,7 @@
 	Set ..NaarBerekenInputConverter = $$$Inject(NaarBerekenInputConverter, ##class(APPS.VKP.OfferteService.impl.NaarBerekenInputConverter).%New())
 	Set ..ZendingDetails = $$$Inject(ZendingDetails, ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New())
 	Set ..VerzendingMogelijkheidRepository = $$$Inject(VerzendingMogelijkheidRepository, ##class(WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New())
+	Set ..WinkelKarService = $$$Inject(WinkelKarService, ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New())
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -44,8 +50,9 @@
 <Implementation><![CDATA[
 	#dim Verpakkingen As APPS.VKP.Offerte.dto.VerpakkingList = ..OfferteService.GeefProductVerpakkingDetails(OfferteID)
 	#dim LeverAdres As DOM.VKP.LeverAdres = ..OfferteService.GeefLeverAdres(OfferteID)
-
-	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ..NaarBerekenInputConverter.Convert(Verpakkingen, LeverAdres, OfferteID)
+	#dim VroegsteAfhaalDatum As %Date = ..GeefVroegsteAfhaalDatum(OfferteID)
+	 
+	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ..NaarBerekenInputConverter.Convert(Verpakkingen, LeverAdres, OfferteID, VroegsteAfhaalDatum)
 	
 	#dim VerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = ..ZendingDetails.GeefZendingDetails(BerekenInput)
 
@@ -55,9 +62,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVroegsteAfhaalDatum">
+<FormalSpec>OfferteID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	#dim WinkelKarID As %String = ..OfferteService.GeefWinkelKarID(OfferteID)
+	///#dim VerzendWijze AS APPS.VKP.VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New() ///Afhaling()
+	///Quit ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New().GeefVroegsteLeverDatum(WinkelKarID, VerzendWijze)
+	Quit ..WinkelKarService.GeefVroegsteLeverDatum(WinkelKarID)
+]]></Implementation>
+</Method>
+
 <Method name="ZetGekozenVerzendingMogelijkheid">
 <FormalSpec>OfferteID:%String,VerzendingMogelijkheidID:%Integer,OptieKeuze:WS.EC.ExterneVerkoop.dto.Selectie</FormalSpec>
-<WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	#dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID)
 	#dim VerzendingMogelijkheid As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid = ..VerzendingMogelijkheidRepository.GeefViaID(VerzendingMogelijkheidID)