Index: vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r48352 -r48390
--- vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 48352)
+++ vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 48390)
@@ -14,6 +14,12 @@
 <Type>%Integer</Type>
 </Property>
 
+<Method name="ZetMuntAankoop">
+<FormalSpec>MuntCode:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="GeefDummyVeldOm1NodeTeBewaren">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ""
@@ -28,26 +34,22 @@
 
 <Method name="ZetActiefStatus">
 <FormalSpec>ActiefStatus:DOM.PM.enu.ActiefStatus</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="ZetDummyVeldOm1NodeTeBewaren">
 <FormalSpec>Waarde:%String</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="ZetLinkType">
 <FormalSpec>LinkType:%String</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="ZetOpslagZone">
 <FormalSpec>Zone:%String</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="IsBasisProduct">
Index: AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter.cls.xml
===================================================================
diff -u -r48383 -r48390
--- AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter.cls.xml	(.../ProductItemConverter.cls.xml)	(revision 48383)
+++ AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter.cls.xml	(.../ProductItemConverter.cls.xml)	(revision 48390)
@@ -79,6 +79,7 @@
 			Do Product.ZetIdentNr(..BepaalIdentNr(ProductItem)) ;alleen bij nieuw product aangezien we bij een update het product vinden via identnummer....
 			; Bij een nieuw product defaulten we Opslagzone op 9
 			Do Product.ZetOpslagZone("9")
+			Do Product.ZetMuntAankoop("EUR")
 			Do ..UpdateProduct(ProductItem,Product,LegalEntity)
 			Do ..StuurDoorNaarEWMS(Product)
 		}
Index: vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r48352 -r48390
--- vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 48352)
+++ vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 48390)
@@ -562,6 +562,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetMuntAankoop">
+<FormalSpec>MuntCode:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetMuntAankoop",MuntCode)
+]]></Implementation>
+</Method>
+
 <Method name="ZetOpslagZone">
 <FormalSpec>Zone:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetOpslagZone",Zone)
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)