Index: vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTest.cls.xml
===================================================================
diff -u -r44702 -r44703
--- vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTest.cls.xml	(.../DataMToeleveringTest.cls.xml)	(revision 44702)
+++ vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTest.cls.xml	(.../DataMToeleveringTest.cls.xml)	(revision 44703)
@@ -194,6 +194,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test Wijzigen Munt">
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Do $$$AssertEquals(Toelevering.GeefMunt(),"EUR")
+	Do Toelevering.ZetMunt("USD")
+	Do Toelevering.Save()
+	Set Toelevering = ""
+	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Do $$$AssertEquals(Toelevering.GeefMunt(),"USD")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Wijzig Product">
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)