Index: AXdixf/Vendor/Vendor.cls.xml
===================================================================
diff -u -r34272 -r34274
--- AXdixf/Vendor/Vendor.cls.xml	(.../Vendor.cls.xml)	(revision 34272)
+++ AXdixf/Vendor/Vendor.cls.xml	(.../Vendor.cls.xml)	(revision 34274)
@@ -22,6 +22,10 @@
 <Property name="LocationRole">
 <Type>%String</Type>
 </Property>
+
+<Property name="CountryRegionId">
+<Type>%String</Type>
+</Property>
 </Class>
 
 
Index: vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml
===================================================================
diff -u -r34272 -r34274
--- vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34272)
+++ vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34274)
@@ -24,6 +24,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefToenaam").DanReturn("Toenaam")
 	Do ..Leverancier.IndienMethodCall("GeefAanspreking").DanReturn("Aanspreking")
 	do ..Leverancier.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Nederlands())
+	do ..Leverancier.IndienMethodCall("GeefLandCodeIso").DanReturn("BEL")
 ]]></Implementation>
 </Method>
 
@@ -136,6 +137,17 @@
 	Do $$$AssertEquals(..AxLeverancier.LocationRole,"Business")
 ]]></Implementation>
 </Method>
+
+<Method name="Test CountryRegionID ">
+<Implementation><![CDATA[
+	Do ..Leverancier.IndienMethodCall("GeefLandCodeIso").DanReturn("BEL")
+
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+		
+	Do $$$AssertEquals(..AxLeverancier.CountryRegionId,"BEL")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34272 -r34274
--- AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34272)
+++ AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34274)
@@ -29,6 +29,7 @@
 	Set AxLeverancier.Name = Leverancier.GeefNaam()_$$$IfLength(Leverancier.GeefToenaam()," ","")_$$$IfLength(Leverancier.GeefAanspreking()," ","")
 	Set AxLeverancier.LanguageID = ..Formatter.FormatLanguageId(Leverancier.GeefTaal())
 	Set AxLeverancier.LocationRole = "Business"
+	Set AxLeverancier.CountryRegionId = Leverancier.GeefLandCodeIso()
 	
 	Quit AxLeverancier
 ]]></Implementation>