Index: cspBasis/GAProdDfls.cls.xml
===================================================================
diff -u -r620 -r621
--- cspBasis/GAProdDfls.cls.xml	(.../GAProdDfls.cls.xml)	(revision 620)
+++ cspBasis/GAProdDfls.cls.xml	(.../GAProdDfls.cls.xml)	(revision 621)
@@ -446,7 +446,36 @@
 	. Else  If Type="MTN" Do
 	. . Set:(DC'?1(1"S",1"I",1"A")) DC=$S(DCM="I":"I", DCM="A":"A", 1:"S")
 	. . Set lbDFL=..GetKlantDefaultsRAW("MTN","*",DC,"*")
+	
+	Quit ..GeefAangepasteOpgehaldeDefaults(lbDFL, Type)
+]]></Implementation>
+</Method>
 
+<Method name="GeefAangepasteOpgehaldeDefaults">
+<Description>
+Method naam GeefAangepasteOpgehaaldeDefaults is langer dan 31 tekens  :-( </Description>
+<FormalSpec>lbDFL:%String,Type:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define pcDefaultVPK   $P(pdlMatenDfl,"\",6)
+
+	If Type = "MTN" {
+		Set ZetDefaultVerpakkingOpProbox = (..sDomVERW = ##class(APPS.TBXWeb.enu.TBXHandel).SFS())
+		 ;s ZetDefaultVerpakkingOpProbox = 1   ; Tijdelijk, om te kunnen testen op VH-domein (en andere) 
+		If ZetDefaultVerpakkingOpProbox {
+			For i=1:1:$LL(lbDFL) {
+				Set ListItem = $LI(lbDFL,i)
+				Set pdlMatenDfl = $LG(ListItem,3)
+				If ($$$pcDefaultVPK = "") {
+					Set $$$pcDefaultVPK = "X"
+					Set $LI(ListItem,3) = pdlMatenDfl
+					Set $LI(lbDFL,i) = ListItem
+				}
+			}
+		}
+	}	
 	Quit lbDFL
 ]]></Implementation>
 </Method>