Index: APPS/PM/ProductService.cls.xml
===================================================================
diff -u -r49032 -r49808
--- APPS/PM/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 49032)
+++ APPS/PM/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 49808)
@@ -208,7 +208,7 @@
 	#dim PakketReferenties As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID)
 	#dim PAKNr As %String = $O(^PAKKET("IP",ProductID,KlantNr,""))
-	Quit:$Length(PAKNr) $P($Data(^PAKKET("D",PAKNr)),"\",2)
+	Quit:$Length(PAKNr) $P($Get(^PAKKET("D",PAKNr)),"\",2)
 	Quit ""
 	;Er kwam iets te veel info bij 1-N pakketten
 ]]></Implementation>