Index: FLOWHALUX.mac.rou
===================================================================
diff -u -r31840 -r42903
--- FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 31840)
+++ FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 42903)
@@ -349,49 +349,52 @@
  ;
  ; Wijzigen van de tandembox en legrabox productiedagen
 ModTBXProdDagen
- New R,sFL,ModFrom,ModTo,From,To,Subject,Body,Bulk,Probox,Karton,VHOSS,K,DisplayOnly
- New BulkVan,ProboxVan,KartonVan,VHOSSVan, AlleVoor
- Set Bulk = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("Bulk")
+ New R,sFL,ModFrom,ModTo,From,To,Subject,Body,K,DisplayOnly
+ New Bulk   , Probox   , Karton   , VHOSS   , TAX 
+ New BulkVan, ProboxVan, KartonVan, VHOSSVan, TAXVan, AlleVoor
+  Set Bulk = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("Bulk")
  Set Probox = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("Probox")
  Set Karton = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("Karton")
  Set VHOSS = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("VHOSS")
- Set AlleVoor = Bulk.GlobaleDefault_D_Probox.GlobaleDefault_D_Karton.GlobaleDefault_D_VHOSS.GlobaleDefault
+ Set TAX = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("TAX")
+ Set AlleVoor = Bulk.GlobaleDefault_D_Probox.GlobaleDefault_D_Karton.GlobaleDefault_D_VHOSS.GlobaleDefault_D_TAX.GlobaleDefault
  Set sFL(1) = AlleVoor
- Set BulkVan=$P(sFL(1),D,1), ProboxVan=$P(sFL(1),D,2), KartonVan=$P(sFL(1),D,3) ,VHOSSVan=$P(sFL(1),D,4)
+ Set BulkVan=$P(sFL(1),D,1), ProboxVan=$P(sFL(1),D,2), KartonVan=$P(sFL(1),D,3) ,VHOSSVan=$P(sFL(1),D,4) ,TAXVan=$P(sFL(1),D,5)
  Set DisplayOnly=0
  Lock +ProductieDagenData:1 Else  Set DisplayOnly=1  
  
- If DisplayOnly
- {
+ If DisplayOnly {
 	 Do DISPLAY^vhScherm("TBXPRODAG")
 	 Set FP=2301 Write @F,"Reeds ingebruik. Druk op <enter> om verder te gaan"
 	 Read K
  }
- Else
- {
+ Else {
 	 Do NIEUW^vhScherm("TBXPRODAG",,,,,,,"A")
-	 If (AlleVoor '= sFL(1))
-	 {
+	 If (AlleVoor '= sFL(1)) {
 	 	Quit:$$^vhTXTPOP("FILE","SAVE2")'="J"
  	
 	 	Set Bulk.GlobaleDefault=$P(sFL(1),D,1)
 	 	Set Probox.GlobaleDefault=$P(sFL(1),D,2)
 	 	Set Karton.GlobaleDefault=$P(sFL(1),D,3)
 	 	Set VHOSS.GlobaleDefault=$P(sFL(1),D,4)
+	 	Set TAX.GlobaleDefault=$P(sFL(1),D,5)
  	
 	 	Do Bulk.Save()
 	 	Do Probox.Save()
 	 	Do Karton.Save()
 	 	Do VHOSS.Save()
+	 	Do TAX.Save()
  	
 	 	Set From=$$$SystemMail("Productie")
 	 	Set To=$LB(##class(TECH.Config.ConfigMgr).Instance().GetString("FLOWHALUX_ModTBXProdDagen_MailTo"))
-		Set Subject="TBX/LBX productiedagen"
+		Set Subject="TBX/LBX/TA'OR productiedagen"
 	 	Set Body="De TBX/LBX productiedagen zijn door "_$$USERNAME^vhUSER(,2)_" gewijzigd.<br/>"
 	 	Set Body=Body_"<br/>Karton: D+"_KartonVan_$S(KartonVan'=Karton.GlobaleDefault:" naar D+"_Karton.GlobaleDefault_".",1:"")
 	 	Set Body=Body_"<br/>Bulk: D+"_BulkVan_$S(BulkVan'=Bulk.GlobaleDefault:" naar D+"_Bulk.GlobaleDefault_".",1:"")
 	 	Set Body=Body_"<br/>Probox: D+"_ProboxVan_$S(ProboxVan'=Probox.GlobaleDefault:" naar D+"_Probox.GlobaleDefault_".",1:"")
 	 	Set Body=Body_"<br/>VHOSS: D+"_VHOSSVan_$S(VHOSSVan'=VHOSS.GlobaleDefault:" naar D+"_VHOSS.GlobaleDefault_".",1:"")
+	 	Set Body="De TA'OR productiedagen zijn door "_$$USERNAME^vhUSER(,2)_" gewijzigd.<br/>"
+	 	Set Body=Body_"<br/> D+"_VHOSSVan_$S(TAXVan'=TAX.GlobaleDefault:" naar D+"_TAX.GlobaleDefault_".",1:"")
 	 	Set R=$$SendMiniMail^vhLib(From,To,Subject,Body,,1)
 	 }
  }