Index: APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml
===================================================================
diff -u -r33457 -r33465
--- APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 33457)
+++ APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 33465)
@@ -19,7 +19,7 @@
 </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="",LeveringsTermijn:APPS.VKP.LeveringsTermijn=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -37,11 +37,11 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="%Date"</ReturnTypeParams>
 <Implementation><![CDATA[
-	#dim Bepaler As APPS.EC.impl.VroegsteLeverdatumBepaler = $$$Inject(..VroegsteLeverDatumBepaler,##class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New(Winkelkar))
+	#dim Bepaler As APPS.EC.impl.VroegsteLeverdatumBepaler = $$$LazyLoad(..VerzendWijzeBepaler, ##class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New(Winkelkar))
 	
-	#dim VerzendWijze As APPS.VKP.VerzendWijze = $$$Inject(..VerzendWijzeBepaler,##class(APPS.EC.impl.VerzendWijzeBepaler).%New().GeefVerzendWijze(Winkelkar))
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = $$$LazyLoad(..VerzendWijzeBepaler, ##class(APPS.EC.impl.VerzendWijzeBepaler).%New().GeefVerzendWijze(Winkelkar))
 	
-	#dim LeveringTermijn As APPS.VKP.LeveringsTermijn = $$$Inject(..LeveringsTermijn,##class(APPS.VKP.LeveringsTermijn).%New(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),VerzendWijze))
+	#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()))
 ]]></Implementation>
Index: APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml
===================================================================
diff -u -r33461 -r33465
--- APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(.../VroegsteLeverdatumBepaler.cls.xml)	(revision 33461)
+++ APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(.../VroegsteLeverdatumBepaler.cls.xml)	(revision 33465)
@@ -20,9 +20,8 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	/// Set VerzendWijze = $$$LazyLoad(VerzendWijze,..VerzendWijzeBepaler.GeefVerzendWijze(Winkelkar)) ???
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = $$$LazyLoad(OptioneleVerzendWijze,##class(APPS.EC.impl.VerzendWijzeBepaler).%New().GeefVerzendWijze(Winkelkar))
 	
-	#dim VerzendWijze As APPS.VKP.VerzendWijze = $$$Inject(OptioneleVerzendWijze, ##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"))