Index: vhDeploy/Deploy20200319SFSKalenderAanpassenDoorSluitingCorona.cls.xml
===================================================================
diff -u -r60334 -r60337
--- vhDeploy/Deploy20200319SFSKalenderAanpassenDoorSluitingCorona.cls.xml	(.../Deploy20200319SFSKalenderAanpassenDoorSluitingCorona.cls.xml)	(revision 60334)
+++ vhDeploy/Deploy20200319SFSKalenderAanpassenDoorSluitingCorona.cls.xml	(.../Deploy20200319SFSKalenderAanpassenDoorSluitingCorona.cls.xml)	(revision 60337)
@@ -14,14 +14,16 @@
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	#dim DataClassName As %String = "APPS.EC.impl.LeverdatumBepaler.Data.SFSKalender"
-	#dim Filter As %String = "OrderDate >= '2020-03-19' AND DeliveryDate < '2020-04-07'"
+	Set DateTimeAPI = $$$Inject(DateTimeAPI, ##class(TECH.DateTime.impl.DateTimeAPI).%New()) 
+	#dim Params As %List = $LB(DateTimeAPI.CurrentDate())
+	#dim Filter As %String ="OrderDate >= '2020-03-19' AND DeliveryDate < '2020-04-07'"
 	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(DataClassName)
 	#dim SqlStatement As TECH.String = "DELETE FROM " _SqlTableName _" WHERE " _Filter
 	
 	Do ##class(Tools.Wlip).%New(43).String("SqlStatement: -"_SqlStatement_"-")
 	
 	Set DynamicQuery = ##class(TECH.DynamicQuery).%New(SqlStatement)
-	Set DynamicQuery.RuntimeMode = ##class(TECH.enu.ResultSetRuntimeMode).Logical()
+	Set DynamicQuery.RuntimeMode = ##class(TECH.enu.ResultSetRuntimeMode).ODBC()
 	#dim QueryAPI As TECH.Query.QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
 	#dim ResultSet As TECH.ResultSet = QueryAPI.GetResultSet(DynamicQuery)
 ]]></Implementation>