Index: APPS/VKP/impl/BeschikbaarheidBepaler/TAORProductieTermijnBepaler.cls.xml
===================================================================
diff -u -r29059 -r42903
--- APPS/VKP/impl/BeschikbaarheidBepaler/TAORProductieTermijnBepaler.cls.xml	(.../TAORProductieTermijnBepaler.cls.xml)	(revision 29059)
+++ APPS/VKP/impl/BeschikbaarheidBepaler/TAORProductieTermijnBepaler.cls.xml	(.../TAORProductieTermijnBepaler.cls.xml)	(revision 42903)
@@ -3,6 +3,17 @@
 <Class name="APPS.VKP.impl.BeschikbaarheidBepaler.TAORProductieTermijnBepaler">
 <Super>APPS.VKP.impl.BeschikbaarheidBepaler.ProductieTermijnBepaler</Super>
 
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..DefaultAantalDagenHalux = (##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("TAX").GlobaleDefault)-1
+	quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BepaalProductieTermijn">
 <FormalSpec>Product:DOM.PM.TAORProduct.impl.TAORLadeImpl,RefDate:%String,KLNr:%String=""</FormalSpec>
 <ReturnType>%List</ReturnType>
Index: DOM/VKP/impl/TBXProductieDagenData.cls.xml
===================================================================
diff -u -r29059 -r42903
--- DOM/VKP/impl/TBXProductieDagenData.cls.xml	(.../TBXProductieDagenData.cls.xml)	(revision 29059)
+++ DOM/VKP/impl/TBXProductieDagenData.cls.xml	(.../TBXProductieDagenData.cls.xml)	(revision 42903)
@@ -12,7 +12,7 @@
 <Property name="VerpakkingSoort">
 <Type>%String</Type>
 <Private>1</Private>
-<Parameter name="VALUELIST" value=",Bulk,Karton,Probox,VHOSS"/>
+<Parameter name="VALUELIST" value=",Bulk,Karton,Probox,VHOSS,TAX"/>
 </Property>
 
 <Property name="GlobaleDefault">
@@ -61,11 +61,11 @@
 
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
-<DataLocation>^DOM.VKP.impl.TBXProducti42D3D</DataLocation>
+<DataLocation>^DOM.VKP.ProdDagenDataD</DataLocation>
 <DefaultData>TBXProductieDagenDataDefaultData</DefaultData>
-<IdLocation>^DOM.VKP.impl.TBXProducti42D3D</IdLocation>
-<IndexLocation>^DOM.VKP.impl.TBXProducti42D3I</IndexLocation>
-<StreamLocation>^DOM.VKP.impl.TBXProducti42D3S</StreamLocation>
+<IdLocation>^DOM.VKP.ProdDagenDataD</IdLocation>
+<IndexLocation>^DOM.VKP.ProdDagenDataI</IndexLocation>
+<StreamLocation>^DOM.VKP.ProdDagenDataS</StreamLocation>
 <Data name="KlantDefaults">
 <Attribute>KlantDefaults</Attribute>
 <Structure>subnode</Structure>
Index: vhTest/Integratie/Productie/TermijnBerekening/Base.cls.xml
===================================================================
diff -u -r29059 -r42903
--- vhTest/Integratie/Productie/TermijnBerekening/Base.cls.xml	(.../Base.cls.xml)	(revision 29059)
+++ vhTest/Integratie/Productie/TermijnBerekening/Base.cls.xml	(.../Base.cls.xml)	(revision 42903)
@@ -16,17 +16,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProductieDagenData">
-<Type>%Integer</Type>
-<Collection>array</Collection>
-<Private>1</Private>
-</Property>
-
-<Property name="QueryUitvoerder">
-<Type>TECH.Query.QueryUitvoerder</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -39,33 +28,9 @@
 	Do ProductAPIStub.IndienMethodCall("BestaatProduct", ..GeefPRNr()).DanReturn(Product)
 	Do ProductAPIStub.IndienMethodCall("GeefGentype", ..GeefPRNr()).DanReturn(GenType)
 	Set ..RefDate = $Select(..IsOrder():##class(TECH.DateTime).TimeStampToHorolog("2014-02-17 09:00:00"),1:"")
-	
-	Set ..ProductieDagenData = ##class(%ArrayOfDataTypes).%New()
-	Set ..QueryUitvoerder = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder()
-	#dim Query As %String = "SELECT * FROM DOM_VKP_impl.TBXProductieDagenData"
-	#dim ResultSet As TECH.ResultSet = ..QueryUitvoerder.VoerUit(Query, $ListBuild())
-	While ResultSet.Next() {
-		Do ..ProductieDagenData.SetAt(ResultSet.Data("GlobaleDefault"),ResultSet.Data("ID"))
-	}
-	Set Query = "UPDATE DOM_VKP_impl.TBXProductieDagenData SET GlobaleDefault=4"
-	Do ..QueryUitvoerder.VoerUit(Query, $ListBuild())
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ##super(aTestName)
-	Set ProductieDagenDataIt = ##class(TECH.ListIterator).%New(..ProductieDagenData)
-	While ProductieDagenDataIt.HasNext() {
-		#dim Dagen As %Integer = ProductieDagenDataIt.Next()
-		#dim Query As %String = "UPDATE DOM_VKP_impl.TBXProductieDagenData SET GlobaleDefault=? WHERE ID=?"
-		#dim Params As %List = $ListBuild(Dagen, ProductieDagenDataIt.Key())
-		Do ..QueryUitvoerder.VoerUit(Query, Params)
-	}
-]]></Implementation>
-</Method>
-
 <Method name="Test">
 <Implementation><![CDATA[
 	Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(..#KLNr, "")
Index: APPS/VKP/impl/BeschikbaarheidBepaler/ProductieTermijnBepaler.cls.xml
===================================================================
diff -u -r32499 -r42903
--- APPS/VKP/impl/BeschikbaarheidBepaler/ProductieTermijnBepaler.cls.xml	(.../ProductieTermijnBepaler.cls.xml)	(revision 32499)
+++ APPS/VKP/impl/BeschikbaarheidBepaler/ProductieTermijnBepaler.cls.xml	(.../ProductieTermijnBepaler.cls.xml)	(revision 42903)
@@ -3,11 +3,12 @@
 <Class name="APPS.VKP.impl.BeschikbaarheidBepaler.ProductieTermijnBepaler">
 <Super>TECH.RegisteredObject</Super>
 
-<Parameter name="DefaultAantalDagenHalux">
+<Property name="DefaultAantalDagenHalux">
 <Description>
 Voor D+3 moet de parameter ingesteld worden op waarde 2 </Description>
-<Default>2</Default>
-</Parameter>
+<InitialExpression>2</InitialExpression>
+<Private>1</Private>
+</Property>
 
 <Property name="RefDate">
 <Type>%String</Type>
@@ -30,7 +31,7 @@
 <FormalSpec>ExtraTermijn:%Integer=0</FormalSpec>
 <Private>1</Private>
 <ReturnType>%List</ReturnType>
-<Implementation><![CDATA[	Quit $ListBuild(..#DefaultAantalDagenHalux+ExtraTermijn,"A")
+<Implementation><![CDATA[	Quit $ListBuild(..DefaultAantalDagenHalux+ExtraTermijn,"A")
 ]]></Implementation>
 </Method>
 
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)
 	 }
  }
Index: vhTest/Integratie/Webshop/Offerte/Levertermijn/Test.cls.xml
===================================================================
diff -u -r38256 -r42903
--- vhTest/Integratie/Webshop/Offerte/Levertermijn/Test.cls.xml	(.../Test.cls.xml)	(revision 38256)
+++ vhTest/Integratie/Webshop/Offerte/Levertermijn/Test.cls.xml	(.../Test.cls.xml)	(revision 42903)
@@ -3,11 +3,6 @@
 <Class name="vhTest.Integratie.Webshop.Offerte.Levertermijn.Test">
 <Super>vhTest.Integratie.TestCase</Super>
 
-<Parameter name="Productiedagen">
-<Type>%Integer</Type>
-<Default>4</Default>
-</Parameter>
-
 <Property name="OfferteID">
 <Type>%String</Type>
 <Private>1</Private>
@@ -33,27 +28,11 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProductieDagenData">
-<Type>%Integer</Type>
-<Collection>array</Collection>
-<Private>1</Private>
-</Property>
-
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
  	do ##super()
 	set ..ExterneVerkoopService = ##class(WS.EC.ExterneVerkoopService).%New()
 	set ..WinkelkarService = ##class(WS.EC.Winkelkar.ExterneWinkelkarService).%New()
-	
-	Set ..ProductieDagenData = ##class(%ArrayOfDataTypes).%New()
-	#dim QueryUitvoerder As TECH.Query.QueryUitvoerder  = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder()
-	#dim Query As %String = "SELECT * FROM DOM_VKP_impl.TBXProductieDagenData"
-	#dim ResultSet As TECH.ResultSet = QueryUitvoerder.VoerUit(Query, $ListBuild())
-	While ResultSet.Next() {
-		Do ..ProductieDagenData.SetAt(ResultSet.Data("GlobaleDefault"),ResultSet.Data("ID"))
-	}
-	Set Query = "UPDATE DOM_VKP_impl.TBXProductieDagenData SET GlobaleDefault="_..#Productiedagen
-	Do QueryUitvoerder.VoerUit(Query, $ListBuild())
 ]]></Implementation>
 </Method>
 
@@ -73,20 +52,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterAllTests">
-<Implementation><![CDATA[
-	Do ##super()
-	Set ProductieDagenDataIt = ##class(TECH.ListIterator).%New(..ProductieDagenData)
-	#dim QueryUitvoerder As TECH.Query.QueryUitvoerder  = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder()
-	While ProductieDagenDataIt.HasNext() {
-		#dim Dagen As %Integer = ProductieDagenDataIt.Next()
-		#dim Query As %String = "UPDATE DOM_VKP_impl.TBXProductieDagenData SET GlobaleDefault=? WHERE ID=?"
-		#dim Params As %List = $ListBuild(Dagen, ProductieDagenDataIt.Key())
-		Do QueryUitvoerder.VoerUit(Query, Params)
-	}
-]]></Implementation>
-</Method>
-
 <Method name="TestLBXLeverdagenOpAlleWerkdagenGLS">
 <Implementation><![CDATA[
 	Do ..MaakKlant("DI1;1`DI1;2`DI1;3`DI1;4`DI1;5")
Index: DOM/VKP/impl/TBXProductieDagenHistoriek.cls.xml
===================================================================
diff -u -r29059 -r42903
--- DOM/VKP/impl/TBXProductieDagenHistoriek.cls.xml	(.../TBXProductieDagenHistoriek.cls.xml)	(revision 29059)
+++ DOM/VKP/impl/TBXProductieDagenHistoriek.cls.xml	(.../TBXProductieDagenHistoriek.cls.xml)	(revision 42903)
@@ -18,7 +18,7 @@
 <Property name="VerpakkingSoort">
 <Type>%String</Type>
 <Private>1</Private>
-<Parameter name="VALUELIST" value=",Bulk,Karton,Probox,VHOSS"/>
+<Parameter name="VALUELIST" value=",Bulk,Karton,Probox,VHOSS,TAX"/>
 </Property>
 
 <Property name="GlobaleDefault">
Index: vhDeploy/D20170703xAantalProductieDagen.cls.xml
===================================================================
diff -u
--- vhDeploy/D20170703xAantalProductieDagen.cls.xml	(revision 0)
+++ vhDeploy/D20170703xAantalProductieDagen.cls.xml	(revision 42903)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20170703xAantalProductieDagen">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aantal productie dagen</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	if ##class(TECH.Config.ConfigMgr).Instance().GeefOmgeving()="DEV"{
+		set ^DOM.VKP.impl.TBXProducti42D3D("Bulk")=$lb("",4)
+		set ^DOM.VKP.impl.TBXProducti42D3D("Bulk","KlantDefaults",1239)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("Bulk","KlantDefaults",2265)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("Bulk","KlantDefaults",6279)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("Bulk","KlantDefaults",12486)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("Bulk","KlantDefaults",23968)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("Karton")=$lb("",4)
+		set ^DOM.VKP.impl.TBXProducti42D3D("Karton","KlantDefaults",1239)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("Karton","KlantDefaults",2265)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("Karton","KlantDefaults",6279)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("Karton","KlantDefaults",12486)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("Karton","KlantDefaults",23968)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("Probox")=$lb("",4)
+		set ^DOM.VKP.impl.TBXProducti42D3D("Probox","KlantDefaults",1239)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("Probox","KlantDefaults",2265)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("Probox","KlantDefaults",6279)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("Probox","KlantDefaults",12486)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("Probox","KlantDefaults",23968)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("VHOSS")=$lb("",4)
+		set ^DOM.VKP.impl.TBXProducti42D3D("VHOSS","KlantDefaults",1239)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("VHOSS","KlantDefaults",2265)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("VHOSS","KlantDefaults",6279)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("VHOSS","KlantDefaults",12486)=2
+		set ^DOM.VKP.impl.TBXProducti42D3D("VHOSS","KlantDefaults",23968)=2
+	}
+
+	set ^DOM.VKP.impl.TBXProducti42D3D("TAX")=$lb("",3)
+	
+	Merge ^DOM.VKP.ProdDagenDataD=^DOM.VKP.impl.TBXProducti42D3D
+	Kill ^DOM.VKP.impl.TBXProducti42D3D
+	
+	set ^SD("D","TBXPRODAG")="1`""TBX productie dagen""`H`80`92`15"
+	set ^SD("D","TBXPRODAG","E",1,"T")="tussen 3 en 9"
+	set ^SD("D","TBXPRODAG","E",1,"V")="S:X<3!(X>9) sEr=""Moet liggen tussen 3 en 9 dagen"""
+	set ^SD("D","TBXPRODAG","E",2,"T")="tussen 3 en 9`"
+	set ^SD("D","TBXPRODAG","E",2,"V")="S:X<3!(X>9) sEr=""Moet liggen tussen 3 en 9 dagen"""
+	set ^SD("D","TBXPRODAG","E",3,"T")="Tussen 3 en 9`"
+	set ^SD("D","TBXPRODAG","E",3,"V")="S:X<3!(X>9) sEr=""Moet liggen tussen 3 en 9 dagen"""
+	set ^SD("D","TBXPRODAG","E",4,"T")="tussen 3 en 9`"
+	set ^SD("D","TBXPRODAG","E",4,"V")="S:X<3!(X>9) sEr=""Moet liggen tussen 3 en 9 dagen"""
+	set ^SD("D","TBXPRODAG","E",5,"T")="tussen 3 en 9`"
+	set ^SD("D","TBXPRODAG","E",5,"V")="S:X<3!(X>9) sEr=""Moet liggen tussen 3 en 9 dagen"""
+	set ^SD("D","TBXPRODAG","F",1)="``Bulk`U`3`20`1`N+`L`1``:```PRODDAGEN"
+	set ^SD("D","TBXPRODAG","F",2)="``Probox`U`4`20`2`N+`L`1`11`:```PROBOX"
+	set ^SD("D","TBXPRODAG","F",3)="``Karton``5`20`3`N+`L`1``:```KARTON"
+	set ^SD("D","TBXPRODAG","F",4)="``VHOSS`U`6`20`4`N+`L`1``:```KAST"
+	set ^SD("D","TBXPRODAG","F",5)="``TA'OR`U`7`20`5`N+`L`1``:```TA'OR"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>