Index: vhTest/Integratie/Productie/TermijnBerekening/TestOrderTAOR.cls.xml
===================================================================
diff -u -r54044 -r54307
--- vhTest/Integratie/Productie/TermijnBerekening/TestOrderTAOR.cls.xml	(.../TestOrderTAOR.cls.xml)	(revision 54044)
+++ vhTest/Integratie/Productie/TermijnBerekening/TestOrderTAOR.cls.xml	(.../TestOrderTAOR.cls.xml)	(revision 54307)
@@ -20,7 +20,7 @@
 <Method name="GeefVerwachtAantal">
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit 2
+<Implementation><![CDATA[	Quit 3
 ]]></Implementation>
 </Method>
 
Index: vhTest/Integratie/Webshop/Offerte/Levertermijn/Test.cls.xml
===================================================================
diff -u -r54302 -r54307
--- vhTest/Integratie/Webshop/Offerte/Levertermijn/Test.cls.xml	(.../Test.cls.xml)	(revision 54302)
+++ vhTest/Integratie/Webshop/Offerte/Levertermijn/Test.cls.xml	(.../Test.cls.xml)	(revision 54307)
@@ -105,7 +105,9 @@
 </Method>
 
 <Method name="OnAfterAllTests">
-<Implementation><![CDATA[	Do ..SetProductieDagenData()
+<Implementation><![CDATA[
+	Do ..SetProductieDagenData()
+ 	Do ##super()
 ]]></Implementation>
 </Method>
 
Index: vhTest/Integratie/Productie/TermijnBerekening/Base.cls.xml
===================================================================
diff -u -r54043 -r54307
--- vhTest/Integratie/Productie/TermijnBerekening/Base.cls.xml	(.../Base.cls.xml)	(revision 54043)
+++ vhTest/Integratie/Productie/TermijnBerekening/Base.cls.xml	(.../Base.cls.xml)	(revision 54307)
@@ -16,6 +16,56 @@
 <Private>1</Private>
 </Property>
 
+<Property name="TBXProductieDagenKarton">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TBXProductieDagenProbox">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TBXProductieDagenBulk">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TBXProductieDagenVHOSS">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LBXProductieDagenKarton">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LBXProductieDagenProbox">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LBXProductieDagenBulk">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LBXProductieDagenVHOSS">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TAORProductieDagenKarton">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TAORProductieDagenProbox">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -28,9 +78,39 @@
 	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:"")
+	Do ..VerwijderProductieDagenHistoriek()
 ]]></Implementation>
 </Method>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	
+	Set ..TBXProductieDagenKarton = 4
+	Set ..TBXProductieDagenProbox = 4
+	Set ..TBXProductieDagenBulk = 4
+	Set ..TBXProductieDagenVHOSS = 4
+
+	Set ..LBXProductieDagenKarton = 4
+	Set ..LBXProductieDagenProbox = 4
+	Set ..LBXProductieDagenBulk = 4
+	Set ..LBXProductieDagenVHOSS = 4
+
+	Set ..TAORProductieDagenKarton = 4
+	Set ..TAORProductieDagenProbox = 4
+	
+	Do ..SetProductieDagenData()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ..SetProductieDagenData()
+	Do ..VerwijderProductieDagenHistoriek()
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
 <Method name="Test">
 <Implementation><![CDATA[
 	Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(..#KLNr, "")
@@ -72,6 +152,47 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="VerwijderProductieDagenHistoriek">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(DOM.VKP.impl.TBXProductieDagenHistoriek).%DeleteExtent()
+	Do ##class(DOM.VKP.impl.LBXProductieDagenHistoriek).%DeleteExtent()
+	Do ##class(DOM.VKP.impl.TAORProductieDagenHistoriek).%DeleteExtent()
+]]></Implementation>
+</Method>
+
+<Method name="SetProductieDagenData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..TBXProductieDagenKarton = ..UpdateProductieDagen(##class(DOM.VKP.impl.TBXProductieDagenData).%ClassName(1), "Karton", ..TBXProductieDagenKarton)
+	Set ..TBXProductieDagenProbox = ..UpdateProductieDagen(##class(DOM.VKP.impl.TBXProductieDagenData).%ClassName(1), "Probox", ..TBXProductieDagenProbox)
+	Set ..TBXProductieDagenBulk = ..UpdateProductieDagen(##class(DOM.VKP.impl.TBXProductieDagenData).%ClassName(1), "Bulk", ..TBXProductieDagenBulk)
+	Set ..TBXProductieDagenVHOSS = ..UpdateProductieDagen(##class(DOM.VKP.impl.TBXProductieDagenData).%ClassName(1), "VHOSS", ..TBXProductieDagenVHOSS)
+	                                
+	Set ..LBXProductieDagenKarton = ..UpdateProductieDagen(##class(DOM.VKP.impl.LBXProductieDagenData).%ClassName(1), "Karton", ..LBXProductieDagenKarton)
+	Set ..LBXProductieDagenProbox = ..UpdateProductieDagen(##class(DOM.VKP.impl.LBXProductieDagenData).%ClassName(1), "Probox", ..LBXProductieDagenProbox)
+	Set ..LBXProductieDagenBulk = ..UpdateProductieDagen(##class(DOM.VKP.impl.LBXProductieDagenData).%ClassName(1), "Bulk", ..LBXProductieDagenBulk)
+	Set ..LBXProductieDagenVHOSS = ..UpdateProductieDagen(##class(DOM.VKP.impl.LBXProductieDagenData).%ClassName(1), "VHOSS", ..LBXProductieDagenVHOSS)
+	                                
+	Set ..TAORProductieDagenKarton = ..UpdateProductieDagen(##class(DOM.VKP.impl.TAORProductieDagenData).%ClassName(1), "Karton", ..TAORProductieDagenKarton)
+	Set ..TAORProductieDagenProbox = ..UpdateProductieDagen(##class(DOM.VKP.impl.TAORProductieDagenData).%ClassName(1), "Probox", ..TAORProductieDagenProbox)
+]]></Implementation>
+</Method>
+
+<Method name="UpdateProductieDagen">
+<FormalSpec>ClassName:%String,VerpakkingSoort:%String,ProductieDagen:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim HuidigeWaarde As %Integer = 0 	 
+	Set ProductieDagenData = $classmethod(ClassName, "OpenId", VerpakkingSoort)
+	Set HuidigeWaarde = ProductieDagenData.GlobaleDefault
+	Set ProductieDagenData.GlobaleDefault = ProductieDagen
+	Do ProductieDagenData.Save()
+	Quit HuidigeWaarde
+]]></Implementation>
+</Method>
 </Class>