Index: FLOWHALUX.mac.rou
===================================================================
diff -u -r61584 -r63001
--- FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 61584)
+++ FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 63001)
@@ -425,6 +425,22 @@
 	 	Do TAORProbox.Save()
 	 	Do TAORKarton.Save()
 
+	 	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("LBX_VasteAantalProductiedagen_SyncroniserenmetGewoneAantalProductieDagen") {
+	 		Set LBXBulkProductieDagen = $P(sFL(1),D,1)
+	 		Set LBXProboxProductieDagen = $P(sFL(1),D,2)
+	 		Set LBXKartonProductieDagen = $P(sFL(1),D,3)
+	 		Set LBXVHOSSProductieDagen = $P(sFL(1),D,4)
+	 		Do ##class(vhPowerTools.DOM.VKP.impl.ProductieDagen.LBXProductieDagenDataKlantDefaults).%New().UpdateVasteProductiedagenTAOR(LBXBulkProductieDagen, LBXProboxProductieDagen, LBXKartonProductieDagen, LBXVHOSSProductieDagen)
+	 	}
+	 	
+	 	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("TBX_VasteAantalProductiedagen_SyncroniserenmetGewoneAantalProductieDagen") {
+	 		Set TBXBulkProductieDagen = $P(sFL(1),D,5)
+	 		Set TBXProboxProductieDagen = $P(sFL(1),D,6)
+	 		Set TBXKartonProductieDagen = $P(sFL(1),D,7)
+	 		Set TBXVHOSSProductieDagen = $P(sFL(1),D,8)
+	 		Do ##class(vhPowerTools.DOM.VKP.impl.ProductieDagen.TAORProductieDagenDataKlantDefaults).%New().UpdateVasteProductiedagenTAOR(TBXBulkProductieDagen, TBXProboxProductieDagen, TBXKartonProductieDagen, TBXVHOSSProductieDagen)
+	 	}
+	 	
 	 	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("TAOR_VasteAantalProductiedagen_SyncroniserenmetGewoneAantalProductieDagen") {
 	 		Set TAORProboxProductieDagen = $P(sFL(1),D,9)
 	 		Set TAORKartonProductieDagen = $P(sFL(1),D,10)
@@ -455,10 +471,24 @@
 	 	
 	 	Set Body=Body_"<br/>"
 	 	
+	 	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("TBX_VasteAantalProductiedagen_SyncroniserenmetGewoneAantalProductieDagen") {
+		 	Set Message = ##class(TECH.Config.ConfigMgr).Instance().GetString("ExtraBoodschapMail_TBX_VasteAantalProductiedagen_SyncroniserenmetGewoneAantalProductieDagen")
+		 	If Message = "" {
+		 		Set Message = "OPGELET: De D+ voor TBX  wordt nu tijdelijk ook ingesteld voor Daro, LABONORM, Keller Keukens, SFS, Hafele Duitsland, die normaal met een vast aantal productiedagen werken. Dit om de verlofperiode op te vangen."
+		 	}
+	 		Set Body=Body_"<br/>"_Message
+	 	}
+	 	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("LBX_VasteAantalProductiedagen_SyncroniserenmetGewoneAantalProductieDagen") {
+		 	Set Message = ##class(TECH.Config.ConfigMgr).Instance().GetString("ExtraBoodschapMail_LBX_VasteAantalProductiedagen_SyncroniserenmetGewoneAantalProductieDagen")
+		 	If Message = "" {
+		 		Set Message = "OPGELET: De D+ voor LBX wordt nu tijdelijk ook ingesteld voor Daro, LABONORM, Keller Keukens,SFS en Hafele Duitsland, die normaal met een vast aantal productiedagen werken. Dit om de verlofperiode op te vangen."
+		 	}
+	 		Set Body=Body_"<br/>"_Message
+	 	}
 	 	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("TAOR_VasteAantalProductiedagen_SyncroniserenmetGewoneAantalProductieDagen") {
 		 	Set Message = ##class(TECH.Config.ConfigMgr).Instance().GetString("ExtraBoodschapMail_TAOR_VasteAantalProductiedagen_SyncroniserenmetGewoneAantalProductieDagen")
 		 	If Message = "" {
-		 		Set Message = "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."
+		 		Set Message = "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 verlofperiode op te vangen."
 		 	}
 	 		Set Body=Body_"<br/>"_Message
 	 	}
Index: vhPowerTools/DOM/VKP/impl/ProductieDagen/LBXProductieDagenDataKlantDefaults.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/VKP/impl/ProductieDagen/LBXProductieDagenDataKlantDefaults.cls.xml	(revision 0)
+++ vhPowerTools/DOM/VKP/impl/ProductieDagen/LBXProductieDagenDataKlantDefaults.cls.xml	(revision 63001)
@@ -0,0 +1,131 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.VKP.impl.ProductieDagen.LBXProductieDagenDataKlantDefaults">
+<Super>%RegisteredObject</Super>
+
+<Method name="UpdateVasteProductiedagenLBX">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LBXBulkProductieDagen:%String,LBXKartonProductieDagen:%String,LBXProboxProductieDagen:%String,LBXVhossProductieDagen:%String</FormalSpec>
+<Implementation><![CDATA[
+	/*  ---  Update SFS - 12486 - Normaal vast D+2 ---  */
+	#dim LBXBulkProductieDagenSFS = LBXBulkProductieDagen - 1
+	#dim SetFilteSFS As %String = "KlantDefaults = '"_LBXBulkProductieDagenSFS_"'"
+	#dim WhereFilterSFS As %String = "element_key = '12486' AND LBXProductieDagenData = 'Bulk'" 
+	Do ..UpdateKalender(SetFilteSFS, WhereFilterSFS)
+	
+	#dim LBXKartonProductieDagenSFS = LBXKartonProductieDagen - 1
+	Set SetFilteSFS = "KlantDefaults = '"_LBXKartonProductieDagenSFS_"'"
+	Set WhereFilterSFS = "element_key = '12486' AND LBXProductieDagenData = 'Karton'"
+	Do ..UpdateKalender(SetFilteSFS, WhereFilterSFS)
+	
+	#dim LBXProboxProductieDagenSFS = LBXProboxProductieDagen - 1
+	Set SetFilteSFS = "KlantDefaults = '"_LBXProboxProductieDagenSFS_"'"
+	Set WhereFilterSFS = "element_key = '12486' AND LBXProductieDagenData = 'Probox'"
+	Do ..UpdateKalender(SetFilteSFS, WhereFilterSFS)
+	
+	#dim LBXVhossProductieDagenSFS = LBXVhossProductieDagen - 1
+	Set SetFilteSFS = "KlantDefaults = '"_LBXVhossProductieDagenSFS_"'"
+	Set WhereFilterSFS = "element_key = '12486' AND LBXProductieDagenData = 'VHOSS'"
+	Do ..UpdateKalender(SetFilteSFS, WhereFilterSFS)
+	/*  -------------------  */
+	
+	/*  ---  Update DARO - 23968 - Normaal vast D+2 ---  */
+	#dim LBXBulkProductieDagenDARO = LBXBulkProductieDagen - 1
+	#dim SetFilteDARO As %String = "KlantDefaults = '"_LBXBulkProductieDagenDARO_"'"
+	#dim WhereFilterDARO As %String = "element_key = '23968' AND LBXProductieDagenData = 'Bulk'" 
+	Do ..UpdateKalender(SetFilteDARO, WhereFilterDARO)
+	
+	#dim LBXKartonProductieDagenDARO = LBXKartonProductieDagen - 1
+	Set SetFilteDARO = "KlantDefaults = '"_LBXKartonProductieDagenDARO_"'"
+	Set WhereFilterDARO = "element_key = '23968' AND LBXProductieDagenData = 'Karton'"
+	Do ..UpdateKalender(SetFilteDARO, WhereFilterDARO)
+	
+	#dim LBXProboxProductieDagenDARO = LBXProboxProductieDagen - 1
+	Set SetFilteDARO = "KlantDefaults = '"_LBXProboxProductieDagenDARO_"'"
+	Set WhereFilterDARO = "element_key = '23968' AND LBXProductieDagenData = 'Probox'"
+	Do ..UpdateKalender(SetFilteDARO, WhereFilterDARO)
+	
+	#dim LBXVhossProductieDagenDARO = LBXVhossProductieDagen - 1
+	Set SetFilteDARO = "KlantDefaults = '"_LBXVhossProductieDagenDARO_"'"
+	Set WhereFilterDARO = "element_key = '23968' AND LBXProductieDagenData = 'VHOSS'"
+	Do ..UpdateKalender(SetFilteDARO, WhereFilterDARO)
+	/*  -------------------  */
+	
+	/*  ---  Update HDE - 32672 - Normaal vast D+3 ---  */
+	#dim LBXKartonProductieDagenHDE = LBXKartonProductieDagen
+	#dim SetFilteHDE = "KlantDefaults = '"_LBXKartonProductieDagenHDE_"'"
+	#dim WhereFilterHDE = "element_key = '32672' AND LBXProductieDagenData = 'Karton'"
+	Do ..UpdateKalender(SetFilteHDE, WhereFilterHDE)
+	
+	#dim LBXProboxProductieDagenHDE = LBXProboxProductieDagen
+	Set SetFilteDARO = "KlantDefaults = '"_LBXProboxProductieDagenHDE_"'"
+	Set WhereFilterDARO = "element_key = '32672' AND LBXProductieDagenData = 'Probox'"
+	Do ..UpdateKalender(SetFilteHDE, WhereFilterHDE)
+	/*  -------------------  */
+	
+	/*  ---  Update Keller Keukens - 1239 - Normaal vast D+2 ---  */
+	#dim LBXBulkProductieDagenKeller = LBXBulkProductieDagen - 1
+	#dim SetFilteKeller As %String = "KlantDefaults = '"_LBXBulkProductieDagenKeller_"'"
+	#dim WhereFilterKeller As %String = "element_key = '1239' AND LBXProductieDagenData = 'Bulk'" 
+	Do ..UpdateKalender(SetFilteKeller, WhereFilterKeller)
+	
+	#dim LBXKartonProductieDagenKeller = LBXKartonProductieDagen - 1
+	Set SetFilteKeller = "KlantDefaults = '"_LBXKartonProductieDagenKeller_"'"
+	Set WhereFilterKeller = "element_key = '1239' AND LBXProductieDagenData = 'Karton'"
+	Do ..UpdateKalender(SetFilteKeller, WhereFilterKeller)
+	
+	#dim LBXProboxProductieDagenKeller = LBXProboxProductieDagen - 1
+	Set SetFilteKeller = "KlantDefaults = '"_LBXProboxProductieDagenKeller_"'"
+	Set WhereFilterKeller = "element_key = '1239' AND LBXProductieDagenData = 'Probox'"
+	Do ..UpdateKalender(SetFilteKeller, WhereFilterKeller)
+	
+	#dim LBXVhossProductieDagenKeller = LBXVhossProductieDagen - 1
+	Set SetFilteKeller = "KlantDefaults = '"_LBXVhossProductieDagenKeller_"'"
+	Set WhereFilterKeller = "element_key = '1239' AND LBXProductieDagenData = 'VHOSS'"
+	Do ..UpdateKalender(SetFilteKeller, WhereFilterKeller)
+	/*  -------------------  */
+	
+	/*  ---  Update LABONORM - 2265 - Normaal vast D+2 ---  */
+	#dim LBXBulkProductieDagenLabonorm = LBXBulkProductieDagen - 1
+	#dim SetFilteLabonorm As %String = "KlantDefaults = '"_LBXBulkProductieDagenLabonorm_"'"
+	#dim WhereFilterLabonorm As %String = "element_key = '2265' AND LBXProductieDagenData = 'Bulk'" 
+	Do ..UpdateKalender(SetFilteLabonorm, WhereFilterLabonorm)
+	
+	#dim LBXKartonProductieDagenLabonorm = LBXKartonProductieDagen - 1
+	Set SetFilteLabonorm = "KlantDefaults = '"_LBXKartonProductieDagenLabonorm_"'"
+	Set WhereFilterLabonorm = "element_key = '2265' AND LBXProductieDagenData = 'Karton'"
+	Do ..UpdateKalender(SetFilteLabonorm, WhereFilterLabonorm)
+	
+	#dim LBXProboxProductieDagenLabonorm = LBXProboxProductieDagen - 1
+	Set SetFilteLabonorm = "KlantDefaults = '"_LBXProboxProductieDagenLabonorm_"'"
+	Set WhereFilterLabonorm = "element_key = '2265' AND LBXProductieDagenData = 'Probox'"
+	Do ..UpdateKalender(SetFilteLabonorm, WhereFilterLabonorm)
+	
+	#dim LBXVhossProductieDagenLabonorm = LBXVhossProductieDagen - 1
+	Set SetFilteLabonorm = "KlantDefaults = '"_LBXVhossProductieDagenLabonorm_"'"
+	Set WhereFilterLabonorm = "element_key = '2265' AND LBXProductieDagenData = 'VHOSS'"
+	Do ..UpdateKalender(SetFilteLabonorm, WhereFilterLabonorm)
+	/*  -------------------  */
+]]></Implementation>
+</Method>
+
+<Method name="UpdateKalender">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>SetFilter:%String,WhereFilter:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim SqlTableName As TECH.String = "DOM_VKP_impl.LBXProductieDagenData_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>
Index: vhPowerTools/DOM/VKP/impl/ProductieDagen/TBXProductieDagenDataKlantDefaults.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/VKP/impl/ProductieDagen/TBXProductieDagenDataKlantDefaults.cls.xml	(revision 0)
+++ vhPowerTools/DOM/VKP/impl/ProductieDagen/TBXProductieDagenDataKlantDefaults.cls.xml	(revision 63001)
@@ -0,0 +1,131 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.VKP.impl.ProductieDagen.TBXProductieDagenDataKlantDefaults">
+<Super>%RegisteredObject</Super>
+
+<Method name="UpdateVasteProductiedagenTBX">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TBXBulkProductieDagen:%String,TBXKartonProductieDagen:%String,TBXProboxProductieDagen:%String,TBXVhossProductieDagen:%String</FormalSpec>
+<Implementation><![CDATA[
+	/*  ---  Update SFS - 12486 - Normaal vast D+2 ---  */
+	#dim TBXBulkProductieDagenSFS = TBXBulkProductieDagen - 1
+	#dim SetFilteSFS As %String = "KlantDefaults = '"_TBXBulkProductieDagenSFS_"'"
+	#dim WhereFilterSFS As %String = "element_key = '12486' AND TBXProductieDagenData = 'Bulk'" 
+	Do ..UpdateKalender(SetFilteSFS, WhereFilterSFS)
+	
+	#dim TBXKartonProductieDagenSFS = TBXKartonProductieDagen - 1
+	Set SetFilteSFS = "KlantDefaults = '"_TBXKartonProductieDagenSFS_"'"
+	Set WhereFilterSFS = "element_key = '12486' AND TBXProductieDagenData = 'Karton'"
+	Do ..UpdateKalender(SetFilteSFS, WhereFilterSFS)
+	
+	#dim TBXProboxProductieDagenSFS = TBXProboxProductieDagen - 1
+	Set SetFilteSFS = "KlantDefaults = '"_TBXProboxProductieDagenSFS_"'"
+	Set WhereFilterSFS = "element_key = '12486' AND TBXProductieDagenData = 'Probox'"
+	Do ..UpdateKalender(SetFilteSFS, WhereFilterSFS)
+	
+	#dim TBXVhossProductieDagenSFS = TBXVhossProductieDagen - 1
+	Set SetFilteSFS = "KlantDefaults = '"_TBXVhossProductieDagenSFS_"'"
+	Set WhereFilterSFS = "element_key = '12486' AND TBXProductieDagenData = 'VHOSS'"
+	Do ..UpdateKalender(SetFilteSFS, WhereFilterSFS)
+	/*  -------------------  */
+	
+	/*  ---  Update DARO - 23968 - Normaal vast D+2 ---  */
+	#dim TBXBulkProductieDagenDARO = TBXBulkProductieDagen - 1
+	#dim SetFilteDARO As %String = "KlantDefaults = '"_TBXBulkProductieDagenDARO_"'"
+	#dim WhereFilterDARO As %String = "element_key = '23968' AND TBXProductieDagenData = 'Bulk'" 
+	Do ..UpdateKalender(SetFilteDARO, WhereFilterDARO)
+	
+	#dim TBXKartonProductieDagenDARO = TBXKartonProductieDagen - 1
+	Set SetFilteDARO = "KlantDefaults = '"_TBXKartonProductieDagenDARO_"'"
+	Set WhereFilterDARO = "element_key = '23968' AND TBXProductieDagenData = 'Karton'"
+	Do ..UpdateKalender(SetFilteDARO, WhereFilterDARO)
+	
+	#dim TBXProboxProductieDagenDARO = TBXProboxProductieDagen - 1
+	Set SetFilteDARO = "KlantDefaults = '"_TBXProboxProductieDagenDARO_"'"
+	Set WhereFilterDARO = "element_key = '23968' AND TBXProductieDagenData = 'Probox'"
+	Do ..UpdateKalender(SetFilteDARO, WhereFilterDARO)
+	
+	#dim TBXVhossProductieDagenDARO = TBXVhossProductieDagen - 1
+	Set SetFilteDARO = "KlantDefaults = '"_TBXVhossProductieDagenDARO_"'"
+	Set WhereFilterDARO = "element_key = '23968' AND TBXProductieDagenData = 'VHOSS'"
+	Do ..UpdateKalender(SetFilteDARO, WhereFilterDARO)
+	/*  -------------------  */
+	
+	/*  ---  Update HDE - 32672 - Normaal vast D+3 ---  */
+	#dim TBXKartonProductieDagenHDE = TBXKartonProductieDagen
+	#dim SetFilteHDE = "KlantDefaults = '"_TBXKartonProductieDagenHDE_"'"
+	#dim WhereFilterHDE = "element_key = '32672' AND TBXProductieDagenData = 'Karton'"
+	Do ..UpdateKalender(SetFilteHDE, WhereFilterHDE)
+	
+	#dim TBXProboxProductieDagenHDE = TBXProboxProductieDagen
+	Set SetFilteDARO = "KlantDefaults = '"_TBXProboxProductieDagenHDE_"'"
+	Set WhereFilterDARO = "element_key = '32672' AND TBXProductieDagenData = 'Probox'"
+	Do ..UpdateKalender(SetFilteHDE, WhereFilterHDE)
+	/*  -------------------  */
+	
+	/*  ---  Update Keller Keukens - 1239 - Normaal vast D+2 ---  */
+	#dim TBXBulkProductieDagenKeller = TBXBulkProductieDagen - 1
+	#dim SetFilteKeller As %String = "KlantDefaults = '"_TBXBulkProductieDagenKeller_"'"
+	#dim WhereFilterKeller As %String = "element_key = '1239' AND TBXProductieDagenData = 'Bulk'" 
+	Do ..UpdateKalender(SetFilteKeller, WhereFilterKeller)
+	
+	#dim TBXKartonProductieDagenKeller = TBXKartonProductieDagen - 1
+	Set SetFilteKeller = "KlantDefaults = '"_TBXKartonProductieDagenKeller_"'"
+	Set WhereFilterKeller = "element_key = '1239' AND TBXProductieDagenData = 'Karton'"
+	Do ..UpdateKalender(SetFilteKeller, WhereFilterKeller)
+	
+	#dim TBXProboxProductieDagenKeller = TBXProboxProductieDagen - 1
+	Set SetFilteKeller = "KlantDefaults = '"_TBXProboxProductieDagenKeller_"'"
+	Set WhereFilterKeller = "element_key = '1239' AND TBXProductieDagenData = 'Probox'"
+	Do ..UpdateKalender(SetFilteKeller, WhereFilterKeller)
+	
+	#dim TBXVhossProductieDagenKeller = TBXVhossProductieDagen - 1
+	Set SetFilteKeller = "KlantDefaults = '"_TBXVhossProductieDagenKeller_"'"
+	Set WhereFilterKeller = "element_key = '1239' AND TBXProductieDagenData = 'VHOSS'"
+	Do ..UpdateKalender(SetFilteKeller, WhereFilterKeller)
+	/*  -------------------  */
+	
+	/*  ---  Update LABONORM - 2265 - Normaal vast D+2 ---  */
+	#dim TBXBulkProductieDagenLabonorm = TBXBulkProductieDagen - 1
+	#dim SetFilteLabonorm As %String = "KlantDefaults = '"_TBXBulkProductieDagenLabonorm_"'"
+	#dim WhereFilterLabonorm As %String = "element_key = '2265' AND TBXProductieDagenData = 'Bulk'" 
+	Do ..UpdateKalender(SetFilteLabonorm, WhereFilterLabonorm)
+	
+	#dim TBXKartonProductieDagenLabonorm = TBXKartonProductieDagen - 1
+	Set SetFilteLabonorm = "KlantDefaults = '"_TBXKartonProductieDagenLabonorm_"'"
+	Set WhereFilterLabonorm = "element_key = '2265' AND TBXProductieDagenData = 'Karton'"
+	Do ..UpdateKalender(SetFilteLabonorm, WhereFilterLabonorm)
+	
+	#dim TBXProboxProductieDagenLabonorm = TBXProboxProductieDagen - 1
+	Set SetFilteLabonorm = "KlantDefaults = '"_TBXProboxProductieDagenLabonorm_"'"
+	Set WhereFilterLabonorm = "element_key = '2265' AND TBXProductieDagenData = 'Probox'"
+	Do ..UpdateKalender(SetFilteLabonorm, WhereFilterLabonorm)
+	
+	#dim TBXVhossProductieDagenLabonorm = TBXVhossProductieDagen - 1
+	Set SetFilteLabonorm = "KlantDefaults = '"_TBXVhossProductieDagenLabonorm_"'"
+	Set WhereFilterLabonorm = "element_key = '2265' AND TBXProductieDagenData = 'VHOSS'"
+	Do ..UpdateKalender(SetFilteLabonorm, WhereFilterLabonorm)
+	/*  -------------------  */
+]]></Implementation>
+</Method>
+
+<Method name="UpdateKalender">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>SetFilter:%String,WhereFilter:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim SqlTableName As TECH.String = "DOM_VKP_impl.TBXProductieDagenData_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>