Index: vhDeploy/WV/Deploy20160209xZetEnkeleKlantenDefaultVerpakkingV1.cls.xml
===================================================================
diff -u
--- vhDeploy/WV/Deploy20160209xZetEnkeleKlantenDefaultVerpakkingV1.cls.xml	(revision 0)
+++ vhDeploy/WV/Deploy20160209xZetEnkeleKlantenDefaultVerpakkingV1.cls.xml	(revision 639)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.WV.Deploy20160209xZetEnkeleKlantenDefaultVerpakkingV1">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Default verpakking V1 wissen voor alle gebruikers van TBoxWeb (VH+klanten + handels)</Default>
+</Parameter>
+
+<Parameter name="DoetDataWijzigingen">
+<Type>%Boolean</Type>
+<Default>1</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(APPS.TBXWeb.VerpakkingUtils).%New().ZetDefaultVerpakkingV1(..GeefVHKlantIDs())
+]]></Implementation>
+</Method>
+
+<Method name="GeefVHKlantIDs">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set KlantIDs = ##class(%ListOfDataTypes).%New()
+	Do KlantIDs.Insert(4645)
+	Do KlantIDs.Insert(1000)
+	Quit KlantIDs
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/TBXWeb/VerpakkingUtils.cls.xml
===================================================================
diff -u
--- APPS/TBXWeb/VerpakkingUtils.cls.xml	(revision 0)
+++ APPS/TBXWeb/VerpakkingUtils.cls.xml	(revision 639)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.TBXWeb.VerpakkingUtils">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="TBoxWebDefaultsBepaler">
+<Type>cspBasis.GAProdDfls</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="ZetDefaultVerpakkingV1">
+<FormalSpec>KlantIDs:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	#define pcDefaultVPK                    $P(pdlMatenDfl,"\",6)
+
+	Set sDomVERW = ##class(APPS.TBXWeb.enu.TBXHandel).VanHoecke()
+	Set Verpakking = ##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen()
+	Set DC = "A"
+	Set DS = "*"
+		
+	Set Iterator = ##class(TECH.ListIterator).%New(KlantIDs)
+	While (Iterator.HasNext()) {
+		Set KlantID = Iterator.Next()
+		Set ..TBoxWebDefaultsBepaler = ..GeefTBoxWebDefaultsBepaler(KlantID, sDomVERW)
+		Set pdlMatenDfl = ..GeefMatenDefaultsPdl(DC)
+		Write !,"Verpakking Defaults voor klant "_KlantID_" : '"_pdlMatenDfl_"' --> verpakking wordt gewijzigd naar '"_Verpakking_"'."
+
+		Set $$$pcDefaultVPK = Verpakking   ; Nieuwe waarde invullen 
+		
+		Do ..BewaarMatenDefaults(pdlMatenDfl,DC,DS)
+		Do ..TBoxWebDefaultsBepaler.Close()   ; Oldschool :-P 
+	}
+	
+	Write !!
+]]></Implementation>
+</Method>
+
+<Method name="GeefTBoxWebDefaultsBepaler">
+<FormalSpec>KlantID:%String,sDomVERW:APPS.TBXWeb.enu.TBXHandel</FormalSpec>
+<Private>1</Private>
+<ReturnType>cspBasis.GAProdDfls</ReturnType>
+<Implementation><![CDATA[
+	Set DCM = "A"
+	Set Taal = ""
+		
+	Set blTBoxDfl=##class(cspBasis.GAProdDfls).Instantiate()
+	Do blTBoxDfl.Init(KlantID,sDomVERW,DCM,Taal)
+	
+	Quit blTBoxDfl
+]]></Implementation>
+</Method>
+
+<Method name="GeefMatenDefaultsPdl">
+<FormalSpec>DC:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set pdlMatenDfl = ""
+	
+	Set lbDFL = ..TBoxWebDefaultsBepaler.GetKlantDefaultsRAW("MTN","*",DC,"*")
+	
+	If $LL(lbDFL) > 0 {
+		Set tmpLB = $LI(lbDFL,1)   ; alleen het eerste list-item 
+		;Set DC = $LI(tmpLB,1)
+		;Set DS = $LI(tmpLB,2)
+		Set pdlMatenDfl = $LI(tmpLB,3)
+	}
+	Quit pdlMatenDfl
+]]></Implementation>
+</Method>
+
+<Method name="BewaarMatenDefaults">
+<FormalSpec>pdlMatenDfl:%String,DC:%String,DS:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set sc=..TBoxWebDefaultsBepaler.SetKlantDefaults("MTN", DC, DS, pdlMatenDfl)
+	If $$$ISERR(sc) {
+		Write !,"ERROR bij bewaren van de Default maten. "_$$ParseStatus^vhLib(sc),!
+		// Throw exception ... 
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>