Index: cspBasis/GAProdDfls.cls.xml
===================================================================
diff -u -r648 -r652
--- cspBasis/GAProdDfls.cls.xml	(.../GAProdDfls.cls.xml)	(revision 648)
+++ cspBasis/GAProdDfls.cls.xml	(.../GAProdDfls.cls.xml)	(revision 652)
@@ -609,7 +609,11 @@
 <Implementation><![CDATA[
 	#define pcDefaultVPK   $P(pdlMatenDfl,"\",6)
 
-	Set VHKlantIDsMetDefaultV1 = ##class(APPS.TBXWeb.VerpakkingUtils).%New().GeefVHKlantIDsMetDefaultV1()
+	If (..sDomVERW = ##class(APPS.TBXWeb.enu.TBXHandel).VanHoecke()) {	
+		Set VHKlantIDsMetDefaultV1 = ##class(APPS.TBXWeb.VerpakkingUtils).%New().GeefVHKlantIDsMetDefaultV1()
+	} Else {
+		Set VHKlantIDsMetDefaultV1 = ##class(%ListOfDataTypes).%New()
+	}
 	Set WisV1VerpakkingAlsDefault = $$$Not(##class(TECH.ListUtils).Contains(VHKlantIDsMetDefaultV1, ..KLNr))
 	If (WisV1VerpakkingAlsDefault) && ($$$pcDefaultVPK = "S") {
 		Set $$$pcDefaultVPK = ""