Index: vhTest/Integratie/Webshop/Offerte/Levertermijn/Test.cls.xml
===================================================================
diff -u -r31563 -r38256
--- vhTest/Integratie/Webshop/Offerte/Levertermijn/Test.cls.xml	(.../Test.cls.xml)	(revision 31563)
+++ vhTest/Integratie/Webshop/Offerte/Levertermijn/Test.cls.xml	(.../Test.cls.xml)	(revision 38256)
@@ -19,7 +19,7 @@
 </Property>
 
 <Property name="WinkelkarService">
-<Type>WS.EC.Winkelkar.WinkelkarService</Type>
+<Type>WS.EC.Winkelkar.ExterneWinkelkarService</Type>
 <Private>1</Private>
 </Property>
 
@@ -39,6 +39,24 @@
 <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>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -55,6 +73,20 @@
 ]]></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")
@@ -128,39 +160,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OnBeforeAllTests">
-<Implementation><![CDATA[
- 	do ##super()
-	set ..ExterneVerkoopService = ##class(WS.EC.ExterneVerkoopService).%New()
-	set ..WinkelkarService = ##class(WS.EC.Winkelkar.WinkelkarService).%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>
-
-<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="MaakKlant">
 <FormalSpec>VerzendingWijze:%String</FormalSpec>
 <Implementation><![CDATA[
Index: WS/EC/Winkelkar/ExterneWinkelkarService.cls.xml
===================================================================
diff -u -r38236 -r38256
--- WS/EC/Winkelkar/ExterneWinkelkarService.cls.xml	(.../ExterneWinkelkarService.cls.xml)	(revision 38236)
+++ WS/EC/Winkelkar/ExterneWinkelkarService.cls.xml	(.../ExterneWinkelkarService.cls.xml)	(revision 38256)
@@ -61,15 +61,15 @@
 </Method>
 
 <Method name="VoegToeMaatwerkEnGeefWinkelkarTerug">
-<FormalSpec>Applicatie:APPS.common.dto.Applicatie="",WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%String</FormalSpec>
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie="",WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%String=""</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[	Quit ##super(Applicatie, WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, ProjectReferentie)
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeMaatwerk">
-<FormalSpec>Applicatie:APPS.common.dto.Applicatie="",WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%String</FormalSpec>
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie="",WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[	Quit ##super(Applicatie, WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, ProjectReferentie)