Index: cspBasis/GAProdDfls.cls.xml
===================================================================
diff -u -r622 -r629
--- cspBasis/GAProdDfls.cls.xml	(.../GAProdDfls.cls.xml)	(revision 622)
+++ cspBasis/GAProdDfls.cls.xml	(.../GAProdDfls.cls.xml)	(revision 629)
@@ -462,15 +462,15 @@
 	#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 {
+		Set DefaultVerpakking = ##class(APPS.TBXWeb.TBXContext).GeefDefaultVerpakkingVrVerwerkr(..sDomVERW)
+		Set IsTeWijzigenDefaultVerpakking = (DefaultVerpakking '= ##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen())
+		If IsTeWijzigenDefaultVerpakking {
 			Set:(lbDFL="") lbDFL = $LB($LB(DC,"*",""))
 			For i=1:1:$LL(lbDFL) {
 				Set ListItem = $LI(lbDFL,i)
 				Set pdlMatenDfl = $LG(ListItem,3)
 				If ($$$pcDefaultVPK = "") {
-					Set $$$pcDefaultVPK = "X"
+					Set $$$pcDefaultVPK = DefaultVerpakking
 					Set $LI(ListItem,3) = pdlMatenDfl
 					Set $LI(lbDFL,i) = ListItem
 				}