Index: vhDeploy/D20181123xAantalProductieDagen.cls.xml
===================================================================
diff -u
--- vhDeploy/D20181123xAantalProductieDagen.cls.xml	(revision 0)
+++ vhDeploy/D20181123xAantalProductieDagen.cls.xml	(revision 54064)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20181123xAantalProductieDagen">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aantal productie dagen, admin scherm updaten</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	kill ^SD("D","TBXPRODAG")
+	
+	set ^SD("D","TBXPRODAG")="1`""Productie dagen""`H`80`92`15"
+	
+	set ^SD("D","TBXPRODAG","F",1)="``LBX Bulk`U`3`20`1`N+`L`2``:```LBXPRODDAGEN"
+	set ^SD("D","TBXPRODAG","F",2)="``LBX Probox`U`4`20`2`N+`L`2`11`:```LBXPROBOX"
+	set ^SD("D","TBXPRODAG","F",3)="``LBX Karton``5`20`3`N+`L`2``:```LBXKARTON"
+	set ^SD("D","TBXPRODAG","F",4)="``LBX VHOSS`U`6`20`4`N+`L`2``:```LBXKAST"
+
+	set ^SD("D","TBXPRODAG","F",5)="``TBX Bulk`U`8`20`5`N+`L`2``:```TBXPRODDAGEN"
+	set ^SD("D","TBXPRODAG","F",6)="``TBX Probox`U`9`20`6`N+`L`2`11`:```TBXPROBOX"
+	set ^SD("D","TBXPRODAG","F",7)="``TBX Karton``10`20`7`N+`L`2``:```TBXKARTON"
+	set ^SD("D","TBXPRODAG","F",8)="``TBX VHOSS`U`11`20`8`N+`L`2``:```TBXKAST"
+	
+	set ^SD("D","TBXPRODAG","F",9)="``TAOR Probox`U`13`20`9`N+`L`2`11`:```TAORPROBOX"
+	set ^SD("D","TBXPRODAG","F",10)="``TAOR Karton``14`20`10`N+`L`2``:```TAORKARTON"
+	
+	Set $Piece(^KBA("MENU",112,20),"\",1) = "Productiedagen"
+	Set $Piece(^KBA("MENU",612,20),"\",1) = "Productiedagen"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: FLOWHALUX.mac.rou
===================================================================
diff -u -r48613 -r54064
--- FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 48613)
+++ FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 54064)
@@ -355,17 +355,40 @@
  ;
  ; Wijzigen van de tandembox en legrabox productiedagen
 ModTBXProdDagen
- New R,sFL,ModFrom,ModTo,From,To,Subject,Body,Bulk,Probox,Karton,VHOSS,K,DisplayOnly,TAX
- New BulkVan,ProboxVan,KartonVan,VHOSSVan, AlleVoor,TAXVan
- 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 TAX = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("TAX")
- Set AlleVoor = Bulk.GlobaleDefault_D_Probox.GlobaleDefault_D_Karton.GlobaleDefault_D_VHOSS.GlobaleDefault_D_TAX.GlobaleDefault
+ New R,sFL,ModFrom,ModTo,From,To,Subject,Body,K,DisplayOnly,TAX,TAXVan
+ New AlleVoor
+ 
+ New LBXBulk,LBXProbox,LBXKarton,LBXVHOSS
+ New LBXBulkVan,LBXProboxVan,LBXKartonVan,LBXVHOSSVan
+ New TBXBulk,TBXProbox,TBXKarton,TBXVHOSS
+ New TBXBulkVan,TBXProboxVan,TBXKartonVan,TBXVHOSSVan
+ New TAORProboxVan,TAORKartonVan
+ New TAORProbox,TAORKarton
+ 
+ Set LBXBulk = ##class(DOM.VKP.impl.LBXProductieDagenData).OpenId("Bulk")
+ Set LBXProbox = ##class(DOM.VKP.impl.LBXProductieDagenData).OpenId("Probox")
+ Set LBXKarton = ##class(DOM.VKP.impl.LBXProductieDagenData).OpenId("Karton")
+ Set LBXVHOSS = ##class(DOM.VKP.impl.LBXProductieDagenData).OpenId("VHOSS")
+
+ Set TBXBulk = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("Bulk")
+ Set TBXProbox = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("Probox")
+ Set TBXKarton = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("Karton")
+ Set TBXVHOSS = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("VHOSS")
+
+ Set TAORProbox = ##class(DOM.VKP.impl.TAORProductieDagenData).OpenId("Probox")
+ Set TAORKarton = ##class(DOM.VKP.impl.TAORProductieDagenData).OpenId("Karton")
+ 
+ Set AlleVoor = LBXBulk.GlobaleDefault_D_LBXProbox.GlobaleDefault_D_LBXKarton.GlobaleDefault_D_LBXVHOSS.GlobaleDefault 
+ Set AlleVoor = AlleVoor _D_TBXBulk.GlobaleDefault_D_TBXProbox.GlobaleDefault_D_TBXKarton.GlobaleDefault_D_TBXVHOSS.GlobaleDefault 
+ Set AlleVoor = AlleVoor _D_TAORProbox.GlobaleDefault_D_TAORKarton.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) ,TAXVan=$P(sFL(1),D,5)
+ Set LBXBulkVan=$P(sFL(1),D,1), LBXProboxVan=$P(sFL(1),D,2), LBXKartonVan=$P(sFL(1),D,3) ,LBXVHOSSVan=$P(sFL(1),D,4)
+ Set TBXBulkVan=$P(sFL(1),D,5), TBXProboxVan=$P(sFL(1),D,6), TBXKartonVan=$P(sFL(1),D,7) ,TBXVHOSSVan=$P(sFL(1),D,8)
+ Set TAORProboxVan=$P(sFL(1),D,9), TAORKartonVan=$P(sFL(1),D,10)
+ 
  Set DisplayOnly=0
+ 
  Lock +ProductieDagenData:1 Else  Set DisplayOnly=1  
  
  If DisplayOnly
@@ -381,27 +404,54 @@
 	 {
 	 	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)
+	 	Set LBXBulk.GlobaleDefault=$P(sFL(1),D,1)
+	 	Set LBXProbox.GlobaleDefault=$P(sFL(1),D,2)
+	 	Set LBXKarton.GlobaleDefault=$P(sFL(1),D,3)
+	 	Set LBXVHOSS.GlobaleDefault=$P(sFL(1),D,4)
+
+	 	Set TBXBulk.GlobaleDefault=$P(sFL(1),D,5)
+	 	Set TBXProbox.GlobaleDefault=$P(sFL(1),D,6)
+	 	Set TBXKarton.GlobaleDefault=$P(sFL(1),D,7)
+	 	Set TBXVHOSS.GlobaleDefault=$P(sFL(1),D,8)
+
+	 	Set TAORProbox.GlobaleDefault=$P(sFL(1),D,9)
+	 	Set TAORKarton.GlobaleDefault=$P(sFL(1),D,10)
  	
-	 	Do Bulk.Save()
-	 	Do Probox.Save()
-	 	Do Karton.Save()
-	 	Do VHOSS.Save()
-	 	Do TAX.Save()
+	 	Do LBXBulk.Save()
+	 	Do LBXProbox.Save()
+	 	Do LBXKarton.Save()
+	 	Do LBXVHOSS.Save()
+
+	 	Do TBXBulk.Save()
+	 	Do TBXProbox.Save()
+	 	Do TBXKarton.Save()
+	 	Do TBXVHOSS.Save()
+
+	 	Do TAORProbox.Save()
+	 	Do TAORKarton.Save()
  	
 	 	Set From=$$$SystemMail("Productie")
 	 	Set To=$LB(##class(TECH.Config.ConfigMgr).Instance().GetString("FLOWHALUX_ModTBXProdDagen_MailTo"))
 		Set Subject="TBX/LBX/TA'OR productiedagen"
 	 	Set Body="De TBX/LBX/TA'OR 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=Body_"<br/>TA'OR: D+"_TAXVan_$S(TAXVan'=TAX.GlobaleDefault:" naar D+"_TAX.GlobaleDefault_".",1:"")
+	 	
+	 	Set Body=Body_"<br/>LBX Karton: D+"_LBXKartonVan_$S(LBXKartonVan'=LBXKarton.GlobaleDefault:" naar D+"_LBXKarton.GlobaleDefault_".",1:"")
+	 	Set Body=Body_"<br/>LBX Bulk: D+"_LBXBulkVan_$S(LBXBulkVan'=LBXBulk.GlobaleDefault:" naar D+"_LBXBulk.GlobaleDefault_".",1:"")
+	 	Set Body=Body_"<br/>LBX Probox: D+"_LBXProboxVan_$S(LBXProboxVan'=LBXProbox.GlobaleDefault:" naar D+"_LBXProbox.GlobaleDefault_".",1:"")
+	 	Set Body=Body_"<br/>LBX VHOSS: D+"_LBXVHOSSVan_$S(LBXVHOSSVan'=LBXVHOSS.GlobaleDefault:" naar D+"_LBXVHOSS.GlobaleDefault_".",1:"")
+	 	
+	 	Set Body=Body_"<br/>"
+
+	 	Set Body=Body_"<br/>TBX Karton: D+"_TBXKartonVan_$S(TBXKartonVan'=TBXKarton.GlobaleDefault:" naar D+"_TBXKarton.GlobaleDefault_".",1:"")
+	 	Set Body=Body_"<br/>TBX Bulk: D+"_TBXBulkVan_$S(TBXBulkVan'=TBXBulk.GlobaleDefault:" naar D+"_TBXBulk.GlobaleDefault_".",1:"")
+	 	Set Body=Body_"<br/>TBX Probox: D+"_TBXProboxVan_$S(TBXProboxVan'=TBXProbox.GlobaleDefault:" naar D+"_TBXProbox.GlobaleDefault_".",1:"")
+	 	Set Body=Body_"<br/>TBX VHOSS: D+"_TBXVHOSSVan_$S(TBXVHOSSVan'=TBXVHOSS.GlobaleDefault:" naar D+"_TBXVHOSS.GlobaleDefault_".",1:"")
+
+	 	Set Body=Body_"<br/>"
+	 	
+	 	Set Body=Body_"<br/>TAOR Karton: D+"_TAORKartonVan_$S(TAORKartonVan'=TAORKarton.GlobaleDefault:" naar D+"_TAORKarton.GlobaleDefault_".",1:"")
+	 	Set Body=Body_"<br/>TAOR Probox: D+"_TAORProboxVan_$S(TAORProboxVan'=TAORProbox.GlobaleDefault:" naar D+"_TAORProbox.GlobaleDefault_".",1:"")
+	 	
 	 	Set R=$$SendMiniMail^vhLib(From,To,Subject,Body,,1)
 	 }
  }