Index: vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml
===================================================================
diff -u -r43375 -r43377
--- vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml	(.../Envelope.cls.xml)	(revision 43375)
+++ vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml	(.../Envelope.cls.xml)	(revision 43377)
@@ -19,6 +19,7 @@
 	Set OrderHeader.CustomerRef = "Mijn orderreferentie"
 	Set OrderHeader.CreatedDateTimeHeader = ##class(AXif.Dynamics.SalesOrderIn.MessageParts.AxdExtTypeCreatedDateTime).%New()
 	Set OrderHeader.CreatedDateTimeHeader.content = ##class(TECH.DateTime).HorologToTimeStamp("64482,43844")
+	Set OrderHeader.CurrencyCode = "EUR"
 	
 	Do StandaardOrder.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.Insert(OrderHeader)
 	
Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r43376 -r43377
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 43376)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 43377)
@@ -56,7 +56,8 @@
 	Do Order.ZetDocumentReferenties(..MaakOrderReferentie(OrderHeader))	
 	Do Order.ZetAfleveradres(..MaakLeverAdres(OrderHeader))
 	Do Order.ZetCreatieDatum(..MaakCreatieDatum(OrderHeader))
-
+	Do Order.ZetMunt(OrderHeader.CurrencyCode)
+	
 	// Enkel nog maar productLijn.
 	Set OrderLineIterator = ##class(TECH.ListIterator).%New(OrderHeader.OrderLine)
 	While OrderLineIterator.HasNext() {
Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml
===================================================================
diff -u -r43375 -r43377
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 43375)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 43377)
@@ -6,13 +6,13 @@
 <Method name="Test: Een standaard order zonder lijnen wordt verwerkt en bewaard">
 <Implementation><![CDATA[
 	#dim AfleverAdres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
-	#dim VerwachteCreatieDatum As %Date = 64482
 	Set OrderDocRef = ##class(DOM.VKP.DocumentReferenties).%New()
 	
 	Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
 	Do OrderMock.VerwachtMethodCall("ZetAfleveradres", ..Matches.Object(AfleverAdres)).ExactAantalKeer(1)
 	Do OrderMock.VerwachtMethodCall("ZetDocumentReferenties", OrderDocRef).ExactAantalKeer(1)
-	Do OrderMock.VerwachtMethodCall("ZetCreatieDatum", VerwachteCreatieDatum).ExactAantalKeer(1)
+	Do OrderMock.VerwachtMethodCall("ZetCreatieDatum", 64482).ExactAantalKeer(1)
+	Do OrderMock.VerwachtMethodCall("ZetMunt", "EUR").ExactAantalKeer(1)
 		
 	Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
 	Do OrderAPIMock.VerwachtMethodCall("Bewaar", OrderMock).ExactAantalKeer(1)
@@ -45,6 +45,7 @@
 	Do OrderMock.IndienMethodCall("ZetAfleveradres", $$$ElkeWaarde).DanDoeNiks()
 	Do OrderMock.IndienMethodCall("ZetDocumentReferenties", $$$ElkeWaarde).DanDoeNiks()
 	Do OrderMock.IndienMethodCall("ZetCreatieDatum", $$$ElkeWaarde).DanDoeNiks()
+	Do OrderMock.IndienMethodCall("ZetMunt", $$$ElkeWaarde).DanDoeNiks()
 	Do OrderMock.VerwachtMethodCall("GeefKlantID").DanReturn("DummyKlantID")
 	
 	Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()