Index: APPS/TBXWeb/Utils.cls.xml
===================================================================
diff -u -r624 -r636
--- APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 624)
+++ APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 636)
@@ -262,14 +262,14 @@
 
 <Method name="WisDefaultVerpakking">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>AlleenV1Wissen:%Boolean</FormalSpec>
+<FormalSpec>AlleenV1Wissen:%Boolean,TeWijzigenHandels:%ListOfDataTypes</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
 	#define pcDefaultVPK                    $P(pdlMatenDfl,"\",6)
 
 	;#dim AlleenV1Wissen As %Boolean = $$$True
 	Set AlleenV1Wissen = 1
-	Set Iterator = ##class(TECH.ListIterator).%New(..GeefTBXHandels())
+	Set Iterator = ##class(TECH.ListIterator).%New(TeWijzigenHandels)
 	While (Iterator.HasNext()) {
 		Set sDomVERW = Iterator.Next()
 		Set KlantID = ""
@@ -290,14 +290,5 @@
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="GeefTBXHandels">
-<ClassMethod>1</ClassMethod>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).CreateListOfDataTypes(##class(APPS.TBXWeb.enu.TBXHandel).SFS())
-]]></Implementation>
-</Method>
 </Class>
 </Export>
Index: vhDeploy/WV/Deploy20160201xWisDefaultVerpakkingSFS.cls.xml
===================================================================
diff -u -r625 -r636
--- vhDeploy/WV/Deploy20160201xWisDefaultVerpakkingSFS.cls.xml	(.../Deploy20160201xWisDefaultVerpakkingSFS.cls.xml)	(revision 625)
+++ vhDeploy/WV/Deploy20160201xWisDefaultVerpakkingSFS.cls.xml	(.../Deploy20160201xWisDefaultVerpakkingSFS.cls.xml)	(revision 636)
@@ -17,8 +17,17 @@
 
 <Method name="ExecCode">
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Do ##class(APPS.TBXWeb.Utils).WisDefaultVerpakking(1)
+<Implementation><![CDATA[	Do ##class(APPS.TBXWeb.Utils).WisDefaultVerpakking(1, ..GeefTBXHandels())
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTBXHandels">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).CreateListOfDataTypes(##class(APPS.TBXWeb.enu.TBXHandel).SFS())
+]]></Implementation>
+</Method>
 </Class>
 </Export>