Index: APPS/TBXWeb/Utils.cls.xml
===================================================================
diff -u -r548 -r624
--- APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 548)
+++ APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 624)
@@ -1,8 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="APPS.TBXWeb.Utils">
-<IncludeCode>vhLib.Macro</IncludeCode>
-<Super>%RegisteredObject</Super>
+<IncludeCode>PRGACNTs</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="IsGroepOrder">
@@ -259,5 +259,45 @@
 <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</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())
+	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="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>