Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r1619 -r1645
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1619)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1645)
@@ -351,5 +351,11 @@
 	Quit ActiefStatus
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLeverancierReferentie">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..DataJ,"\",3)
+]]></Implementation>
+</Method>
 </Class>
 </Export>