Index: vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml
===================================================================
diff -u -r34271 -r34272
--- vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34271)
+++ vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34272)
@@ -127,6 +127,15 @@
 	Do $$$AssertEquals(..AxLeverancier.LanguageID,"nl-be")
 ]]></Implementation>
 </Method>
+
+<Method name="Test LocationRole = Business">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+		
+	Do $$$AssertEquals(..AxLeverancier.LocationRole,"Business")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34271 -r34272
--- AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34271)
+++ AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34272)
@@ -28,6 +28,7 @@
 	Set AxLeverancier.PartyType = "2"
 	Set AxLeverancier.Name = Leverancier.GeefNaam()_$$$IfLength(Leverancier.GeefToenaam()," ","")_$$$IfLength(Leverancier.GeefAanspreking()," ","")
 	Set AxLeverancier.LanguageID = ..Formatter.FormatLanguageId(Leverancier.GeefTaal())
+	Set AxLeverancier.LocationRole = "Business"
 	
 	Quit AxLeverancier
 ]]></Implementation>
Index: AXdixf/Vendor/Vendor.cls.xml
===================================================================
diff -u -r34271 -r34272
--- AXdixf/Vendor/Vendor.cls.xml	(.../Vendor.cls.xml)	(revision 34271)
+++ AXdixf/Vendor/Vendor.cls.xml	(.../Vendor.cls.xml)	(revision 34272)
@@ -18,6 +18,10 @@
 <Property name="LanguageID">
 <Type>%String</Type>
 </Property>
+
+<Property name="LocationRole">
+<Type>%String</Type>
+</Property>
 </Class>