Index: CSPimpl/Leverdatums/SFSKalenderService.cls.xml
===================================================================
diff -u -r54310 -r54407
--- CSPimpl/Leverdatums/SFSKalenderService.cls.xml	(.../SFSKalenderService.cls.xml)	(revision 54310)
+++ CSPimpl/Leverdatums/SFSKalenderService.cls.xml	(.../SFSKalenderService.cls.xml)	(revision 54407)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
 <Private>1</Private>
@@ -16,7 +21,8 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
-	
+	Set ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -44,14 +50,13 @@
 	Set Leverdatums = ##class(%ListOfDataTypes).%New()
 
 	Set LeveringsTermijnFactory = ##class(APPS.VKP.impl.LeveringsTermijnFactory).%New()
-	Set DateTimeApi = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(12486,"SFS")
 	
-	#dim LeveringTermijn As APPS.VKP.LeveringsTermijn = LeveringsTermijnFactory.MaakLeveringsTermijn(DateTimeApi.CurrentHorolog(), VerzendWijze, ##class(DOM.VKP.enu.Klant).SFS(), ##class(DOM.common.enu.Personality).VanHoecke())
+	#dim LeveringTermijn As APPS.VKP.LeveringsTermijn = LeveringsTermijnFactory.MaakLeveringsTermijn(..DateTimeAPI.CurrentHorolog(), VerzendWijze, ##class(DOM.VKP.enu.Klant).SFS(), ##class(DOM.common.enu.Personality).VanHoecke())
 	
 	While ResultSet.Next() {
-		Set ProductieHorolog = LeveringTermijn.GetLaatsteProductieTijdstip(ResultSet.GetData(3))
-		Set ProductieDatum = ##class(TECH.DateTime).HorologToDate(ProductieHorolog)
+		#dim ProductieHorolog As TECH.Horolog = LeveringTermijn.GetLaatsteProductieTijdstip(ResultSet.GetData(3))
+		#dim ProductieDatum As %Date = ##class(TECH.DateTime).HorologToDate(ProductieHorolog)
 		Do Leverdatums.Insert($listbuild($ZD(ResultSet.GetData(1),3),ResultSet.GetData(2),$ZD(ResultSet.GetData(3),3),$ZD(ResultSet.GetData(4),3),$ZD(ProductieDatum,3)))
 	}