Index: vhDeploy/WV/Deploy20160209xWisDefaultVerpakkingAlleGebruikers.cls.xml
===================================================================
diff -u -r638 -r640
--- vhDeploy/WV/Deploy20160209xWisDefaultVerpakkingAlleGebruikers.cls.xml	(.../Deploy20160209xWisDefaultVerpakkingAlleGebruikers.cls.xml)	(revision 638)
+++ vhDeploy/WV/Deploy20160209xWisDefaultVerpakkingAlleGebruikers.cls.xml	(.../Deploy20160209xWisDefaultVerpakkingAlleGebruikers.cls.xml)	(revision 640)
@@ -17,7 +17,7 @@
 
 <Method name="ExecCode">
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Do ##class(APPS.TBXWeb.Utils).WisDefaultVerpakking(1, ..GeefTBXHandels())
+<Implementation><![CDATA[	Do ##class(APPS.TBXWeb.VerpakkingUtils).%New().WisDefaultVerpakking(1, ..GeefTBXHandels())
 ]]></Implementation>
 </Method>
 
Index: APPS/TBXWeb/VerpakkingUtils.cls.xml
===================================================================
diff -u -r639 -r640
--- APPS/TBXWeb/VerpakkingUtils.cls.xml	(.../VerpakkingUtils.cls.xml)	(revision 639)
+++ APPS/TBXWeb/VerpakkingUtils.cls.xml	(.../VerpakkingUtils.cls.xml)	(revision 640)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="APPS.TBXWeb.VerpakkingUtils">
+<IncludeCode>PRGACNTs</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -10,6 +11,36 @@
 <Private>1</Private>
 </Property>
 
+<Method name="WisDefaultVerpakking">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>AlleenV1Wissen:%Boolean,TeWijzigenHandels:%ListOfDataTypes</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<Implementation><![CDATA[
+	#define pcDefaultVPK                    $P(pdlMatenDfl,"\",6)
+
+	Set AlleenV1Wissen = 1
+	Set Iterator = ##class(TECH.ListIterator).%New(TeWijzigenHandels)
+	While (Iterator.HasNext()) {
+		Set sDomVERW = Iterator.Next()
+		Set KlantID = ""
+		For { Set KlantID = $O($$$GlobalKLData("DFL",sDomVERW,KlantID))  Quit:(KlantID="")
+			Set DCM = "*"   ; Loop niet nodig, want altijd "*" 
+			Set DC = ""
+			For { Set DC = $O($$$GlobalKLData("DFL",sDomVERW,KlantID,"MTN",DCM,DC))  Quit:(DC="")
+				Set DS = "*"   ; Loop niet nodig, want altijd "*" 
+				Set pdlMatenDfl = $$$GlobalKLData("DFL",sDomVERW,KlantID,"MTN",DCM,DC,DS)
+				Set WisDefaultVPK = (AlleenV1Wissen=0) || ($$$pcDefaultVPK = "S")
+				If WisDefaultVPK {
+					Set $$$pcDefaultVPK = ""
+					Set $$$GlobalKLData("DFL",sDomVERW,KlantID,"MTN",DCM,DC,DS) = pdlMatenDfl
+					Write !,"Verpakking aangepast "_$Name($$$GlobalKLData("DFL",sDomVERW,KlantID,"MTN"))_" : "_$P($G($$$GlobalKLData(0,sDomVERW,KlantID)),"\",2)_" --> "_pdlMatenDfl
+				}
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ZetDefaultVerpakkingV1">
 <FormalSpec>KlantIDs:%ListOfDataTypes</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/TBXWeb/Utils.cls.xml
===================================================================
diff -u -r636 -r640
--- APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 636)
+++ APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 640)
@@ -259,36 +259,5 @@
 <Implementation><![CDATA[	Quit $Case(DesignCodeModus, "S":"TBX_Plus", "F":"TBX_Plus", "A":"TBX_Antaro", "I":"TBX_Intivo", "MA":"TBX_Mengvorm", "LBX_Pure":"LBX_Pure", :"TBX_Plus")
 ]]></Implementation>
 </Method>
-
-<Method name="WisDefaultVerpakking">
-<ClassMethod>1</ClassMethod>
-<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(TeWijzigenHandels)
-	While (Iterator.HasNext()) {
-		Set sDomVERW = Iterator.Next()
-		Set KlantID = ""
-		For { Set KlantID = $O($$$GlobalKLData("DFL",sDomVERW,KlantID))  Quit:(KlantID="")
-			Set DCM = "*"   ; Loop niet nodig, want altijd "*" 
-			Set DC = ""
-			For { Set DC = $O($$$GlobalKLData("DFL",sDomVERW,KlantID,"MTN",DCM,DC))  Quit:(DC="")
-				Set DS = "*"   ; Loop niet nodig, want altijd "*" 
-				Set pdlMatenDfl = $$$GlobalKLData("DFL",sDomVERW,KlantID,"MTN",DCM,DC,DS)
-				Set WisDefaultVPK = (AlleenV1Wissen=0) || ($$$pcDefaultVPK = "S")
-				If WisDefaultVPK {
-					Set $$$pcDefaultVPK = ""
-					Set $$$GlobalKLData("DFL",sDomVERW,KlantID,"MTN",DCM,DC,DS) = pdlMatenDfl
-					Write !,"Verpakking aangepast "_$Name($$$GlobalKLData("DFL",sDomVERW,KlantID,"MTN"))_" : "_$P($G($$$GlobalKLData(0,sDomVERW,KlantID)),"\",2)_" --> "_pdlMatenDfl
-				}
-			}
-		}
-	}
-]]></Implementation>
-</Method>
 </Class>
 </Export>
Index: vhDeploy/WV/Deploy20160201xWisDefaultVerpakkingSFS.cls.xml
===================================================================
diff -u -r636 -r640
--- vhDeploy/WV/Deploy20160201xWisDefaultVerpakkingSFS.cls.xml	(.../Deploy20160201xWisDefaultVerpakkingSFS.cls.xml)	(revision 636)
+++ vhDeploy/WV/Deploy20160201xWisDefaultVerpakkingSFS.cls.xml	(.../Deploy20160201xWisDefaultVerpakkingSFS.cls.xml)	(revision 640)
@@ -17,7 +17,7 @@
 
 <Method name="ExecCode">
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Do ##class(APPS.TBXWeb.Utils).WisDefaultVerpakking(1, ..GeefTBXHandels())
+<Implementation><![CDATA[	Do ##class(APPS.TBXWeb.VerpakkingUtils).%New().WisDefaultVerpakking(1, ..GeefTBXHandels())
 ]]></Implementation>
 </Method>