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>