Index: vhDeploy/Deploy20200710xVasteAantalProductiedagenSyncenMetGewonentalProductiedagenSFSenHDETechConfigBooleanToevoegen.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20200710xVasteAantalProductiedagenSyncenMetGewonentalProductiedagenSFSenHDETechConfigBooleanToevoegen.cls.xml	(revision 0)
+++ vhDeploy/Deploy20200710xVasteAantalProductiedagenSyncenMetGewonentalProductiedagenSFSenHDETechConfigBooleanToevoegen.cls.xml	(revision 61583)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20200710xVasteAantalProductiedagenSyncenMetGewonentalProductiedagenSFSenHDETechConfigBooleanToevoegen">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Toevoegen van boolean zodat SFS en HDE die een vast aantal productiedagen hebben tijdelijk de algemene variabele productiedagen kan overnemen.</Default>
+</Parameter>
+
+<Parameter name="OmschrijvingDeel2">
+<Type>%String</Type>
+<Default>Zodat ook voor SFS en HDE rekening gehouden wordt met de week sluiting van de TAOR lijn.</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("TAOR_VasteAantalProductiedagen_SyncroniserenmetGewoneAantalProductieDagen", 0)
+	
+	#dim ExtraBoodschapMail As %String = "OPGELET: De D+ voor TAOR Karton & Probox wordt nu tijdelijk ook ingesteld voor SFS en Hafele Duitsland, die normaal met een vast aantal productiedagen werken. Dit om de week dat TAOR in onderhoud is, ook voor SFS en Hafele op te vangen."
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("ExtraBoodschapMail_TAOR_VasteAantalProductiedagen_SyncroniserenmetGewoneAantalProductieDagen", ExtraBoodschapMail)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhPowerTools/DOM/VKP/impl/ProductieDagen/TAORProductieDagenDataKlantDefaults.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/VKP/impl/ProductieDagen/TAORProductieDagenDataKlantDefaults.cls.xml	(revision 0)
+++ vhPowerTools/DOM/VKP/impl/ProductieDagen/TAORProductieDagenDataKlantDefaults.cls.xml	(revision 61583)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.VKP.impl.ProductieDagen.TAORProductieDagenDataKlantDefaults">
+<Super>%RegisteredObject</Super>
+
+<Method name="UpdateVasteProductiedagenTAOR">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TAORKartonProductieDagen:%String,TAORProboxProductieDagen:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim TAORKartonProductieDagenSFS = TAORKartonProductieDagen - 1
+	#dim SetFilteSFS As %String = "KlantDefaults = '"_TAORKartonProductieDagenSFS_"'"
+	#dim WhereFilterSFS As %String = "element_key = '12486' AND TAORProductieDagenData = 'Karton'" 
+	Do ..UpdateKalender(SetFilteSFS, WhereFilterSFS)
+	
+	#dim TAORProboxProductieDagenSFS = TAORProboxProductieDagen - 1
+	Set SetFilteSFS = "KlantDefaults = '"_TAORProboxProductieDagenSFS_"'"
+	Set WhereFilterSFS = "element_key = '12486' AND TAORProductieDagenData = 'Probox'"
+	Do ..UpdateKalender(SetFilteSFS, WhereFilterSFS)
+	
+	#dim SetFilterHDE As %String = "KlantDefaults = '"_TAORProboxProductieDagen_"'"
+	#dim WhereFilterHDE As %String = "element_key = '32672' AND TAORProductieDagenData = 'Probox'"
+	Do ..UpdateKalender(SetFilterHDE, WhereFilterHDE)
+	
+	Set SetFilterHDE = "KlantDefaults = '"_TAORKartonProductieDagen_"'"
+	Set WhereFilterHDE = "element_key = '32672' AND TAORProductieDagenData = 'Karton'"
+	Do ..UpdateKalender(SetFilterHDE, WhereFilterHDE)
+]]></Implementation>
+</Method>
+
+<Method name="UpdateKalender">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>SetFilter:%String,WhereFilter:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim SqlTableName As TECH.String = "DOM_VKP_impl.TAORProductieDagenData_KlantDefaults"
+	
+	#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>