Index: vhTest/Integratie/Webshop/Offerte/Levertermijn/Test.cls.xml
===================================================================
diff -u -r43220 -r54302
--- vhTest/Integratie/Webshop/Offerte/Levertermijn/Test.cls.xml	(.../Test.cls.xml)	(revision 43220)
+++ vhTest/Integratie/Webshop/Offerte/Levertermijn/Test.cls.xml	(.../Test.cls.xml)	(revision 54302)
@@ -28,17 +28,87 @@
 <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="OnBeforeAllTests">
 <Implementation><![CDATA[
- 	do ##super()
+ 	Do ##super()
  	
- 	do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(##class(DOM.enu.Taal).Nederlands())
+ 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(##class(DOM.enu.Taal).Nederlands())
  	
-	set ..ExterneVerkoopService = ##class(WS.EC.ExterneVerkoopService).%New()
-	set ..WinkelkarService = ##class(WS.EC.Winkelkar.ExterneWinkelkarService).%New()
+	Set ..ExterneVerkoopService = ##class(WS.EC.ExterneVerkoopService).%New()
+	Set ..WinkelkarService = ##class(WS.EC.Winkelkar.ExterneWinkelkarService).%New()
+
+	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()
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -79,15 +149,39 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestTBXLeverdagenOpAlleWerkdagenGLS">
+<Implementation><![CDATA[
+	Do ..MaakKlant("DI1;1`DI1;2`DI1;3`DI1;4`DI1;5")
+	Do ..MaakOfferte()
+	Do ..VoegToeMaatwerkAanOfferte(##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerken).StandaardLade())
+	#dim MogelijkeLeverdatums As %ListOfDataTypes = ..VerwerkOfferteEnGeefMogelijkeLeverdatums()
+	Do $$$AssertEqualsDate(MogelijkeLeverdatums.GetAt(1),"09.10.2014")
+	Do $$$AssertEqualsDate(MogelijkeLeverdatums.GetAt(2),"10.10.2014")
+	Do $$$AssertEquals(MogelijkeLeverdatums.Count(),"17")
+]]></Implementation>
+</Method>
+
+<Method name="TestTBXLeverdagenOpMaandagGLS">
+<Implementation><![CDATA[
+	Do ..MaakKlant("DI1;1")
+	Do ..MaakOfferte()
+	Do ..VoegToeMaatwerkAanOfferte(##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerken).StandaardLade())
+	#dim MogelijkeLeverdatums As %ListOfDataTypes = ..VerwerkOfferteEnGeefMogelijkeLeverdatums()
+	Do $$$AssertEqualsDate(MogelijkeLeverdatums.GetAt(1),"13.10.2014")
+	Do $$$AssertEqualsDate(MogelijkeLeverdatums.GetAt(2),"20.10.2014")
+	Do $$$AssertEquals(MogelijkeLeverdatums.Count(),"4")
+]]></Implementation>
+</Method>
+
 <Method name="TestTAORLeverdagenOpAlleWerkdagenGLS">
 <Implementation><![CDATA[
 	Do ..MaakKlant("DI1;1`DI1;2`DI1;3`DI1;4`DI1;5")
 	Do ..MaakOfferte()
 	Do ..VoegToeMaatwerkAanOfferte(##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade())
 	#dim MogelijkeLeverdatums As %ListOfDataTypes = ..VerwerkOfferteEnGeefMogelijkeLeverdatums()
-	Do $$$AssertEqualsDate(MogelijkeLeverdatums.GetAt(1),"08.10.2014")
-	Do $$$AssertEqualsDate(MogelijkeLeverdatums.GetAt(2),"09.10.2014")
-	Do $$$AssertEquals(MogelijkeLeverdatums.Count(),"18")
+	Do $$$AssertEqualsDate(MogelijkeLeverdatums.GetAt(1),"09.10.2014")
+	Do $$$AssertEqualsDate(MogelijkeLeverdatums.GetAt(2),"10.10.2014")
+	Do $$$AssertEquals(MogelijkeLeverdatums.Count(),"17")
 ]]></Implementation>
 </Method>
 
@@ -137,6 +231,37 @@
 	Do ..Klant.Save()
 ]]></Implementation>
 </Method>
+
+<Method name="SetProductieDagenData">
+<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>