Index: vhDeploy/vhDeployDeploy20200706SFSKalenderAanpassenSluitingsweekJuliWegwerken.cls.xml
===================================================================
diff -u
--- vhDeploy/vhDeployDeploy20200706SFSKalenderAanpassenSluitingsweekJuliWegwerken.cls.xml	(revision 0)
+++ vhDeploy/vhDeployDeploy20200706SFSKalenderAanpassenSluitingsweekJuliWegwerken.cls.xml	(revision 61476)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="vhDeploy.vhDeployDeploy20200706SFSKalenderAanpassenSluitingsweekJuliWegwerken">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>SFS kalender aanpassen: voor TBX en LBX mogen er werk ophalingen gebeuren op 28 en 30 juli</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim SetFilter28Juli As %String ="PickupDate = '2020-07-28', DeliveryDate = '2020-07-30', IncomingDeliveryDate = '2020-07-29'"
+	#dim WhereFilter28Juli As %String ="OrderDate IN ('2020-07-22','2020-07-23')"
+	Do ..UpdateKalender(SetFilter28Juli, WhereFilter28Juli)
+	
+	#dim SetFilter30Juli As %String ="PickupDate = '2020-07-30', DeliveryDate = '2020-08-03', IncomingDeliveryDate = '2020-07-31'"
+	#dim WhereFilter30Juli As %String ="OrderDate IN ('2020-07-24','2020-07-25','2020-07-26','2020-07-27')"
+	Do ..UpdateKalender(SetFilter30Juli, WhereFilter30Juli)
+]]></Implementation>
+</Method>
+
+<Method name="UpdateKalender">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>SetFilter:%String,WhereFilter:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim DataClassName As %String = "APPS.EC.impl.LeverdatumBepaler.Data.SFSKalender"
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(DataClassName)
+	
+	#dim SqlStatement As TECH.String = "UPDATE " _SqlTableName _" SET "_SetFilter_" WHERE " _WhereFilter
+	
+	Do ##class(Tools.Wlip).%New(43).String("SqlStatement: -"_SqlStatement_"-")
+	
+	Set DynamicQuery = ##class(TECH.DynamicQuery).%New(SqlStatement)
+	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>
+</Method>
+</Class>
+</Export>