Index: vhDeploy/Deploy20200319SFSKalenderAanpassenDoorSluitingCorona.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20200319SFSKalenderAanpassenDoorSluitingCorona.cls.xml	(revision 0)
+++ vhDeploy/Deploy20200319SFSKalenderAanpassenDoorSluitingCorona.cls.xml	(revision 60334)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20200319SFSKalenderAanpassenDoorSluitingCorona">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Halux sluit de deuren van 19/03 tot 03/04 door corona maatregelen, hiervoor ook de SFS kalender aanpassen zodat </Default>
+</Parameter>
+
+<Method name="ExecCode">
+<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'"
+	#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()
+	#dim QueryAPI As TECH.Query.QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	#dim ResultSet As TECH.ResultSet = QueryAPI.GetResultSet(DynamicQuery)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>