Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r48352 -r48390
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 48352)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 48390)
@@ -137,6 +137,7 @@
 		For NodeIndex = 0,1,2,3,4,5,15,"I1","J","G" {
 			Do $method($property($this,"Data"_NodeIndex),"Save")
 		}	
+		Set ^KPR(..ProductNummer, "J") = ""
 		Do BLDIND^PRODUKT2(..ProductNummer)
 		If ..IsNieuwProduct { Do Gemaakt^PRODUKT2(..ProductNummer) } Else { Do Gewijzigd^PRODUKT2(..ProductNummer) }
 		Set ..IsNieuwProduct = $$$False
@@ -844,6 +845,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetMuntAankoop">
+<FormalSpec>MuntCode:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..DataJ.ZetPiece(17, MuntCode)
+]]></Implementation>
+</Method>
+
 <Method name="GeefDummyVeldOm1NodeTeBewaren">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Data1.GeefPiece(26)