Index: FLOWHALUX.mac.rou
===================================================================
diff -u -r59780 -r61584
--- FLOWHALUX.mac.rou (.../FLOWHALUX.mac.rou) (revision 59780)
+++ FLOWHALUX.mac.rou (.../FLOWHALUX.mac.rou) (revision 61584)
@@ -424,6 +424,12 @@
Do TAORProbox.Save()
Do TAORKarton.Save()
+
+ If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("TAOR_VasteAantalProductiedagen_SyncroniserenmetGewoneAantalProductieDagen") {
+ Set TAORProboxProductieDagen = $P(sFL(1),D,9)
+ Set TAORKartonProductieDagen = $P(sFL(1),D,10)
+ Do ##class(vhPowerTools.DOM.VKP.impl.ProductieDagen.TAORProductieDagenDataKlantDefaults).%New().UpdateVasteProductiedagenTAOR(TAORProboxProductieDagen, TAORKartonProductieDagen)
+ }
Set From=$$$SystemMail("Productie")
Set To=$LB(##class(TECH.Config.ConfigMgr).Instance().GetString("FLOWHALUX_ModTBXProdDagen_MailTo"))
@@ -447,6 +453,16 @@
Set Body=Body_"
TAOR Karton: D+"_TAORKartonVan_$S(TAORKartonVan'=TAORKarton.GlobaleDefault:" naar D+"_TAORKarton.GlobaleDefault_".",1:"")
Set Body=Body_"
TAOR Probox: D+"_TAORProboxVan_$S(TAORProboxVan'=TAORProbox.GlobaleDefault:" naar D+"_TAORProbox.GlobaleDefault_".",1:"")
+ Set Body=Body_"
"
+
+ 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 Body=Body_"
"_Message
+ }
+
Set R=$$SendMiniMail^vhLib(From,To,Subject,Body,,1)
}
}