Index: vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml
===================================================================
diff -u -r34483 -r34485
--- vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34483)
+++ vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34485)
@@ -33,9 +33,7 @@
 	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Dummy.DOM.VKP.LeverAdres).%New())
 	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Nederlands())
 	do ..Partij.IndienMethodCall("GeefAanspreking").DanReturn("")
-	do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
-	
-	
+	do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")	
 	do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("")
 	do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("")
 	do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("")
@@ -48,6 +46,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefKortingKontant").DanReturn(0)
 	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("")
 	Do ..Leverancier.IndienMethodCall("GeefBankRekeningNr").DanReturn("BE23571113171923")
+	Do ..Leverancier.IndienMethodCall("IsIntraCommunautair").DanReturn($$$False)
 ]]></Implementation>
 </Method>
 
@@ -672,6 +671,50 @@
 	Do $$$AssertEquals(..AxLeverancier.BankAccount,"")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: LeveranciersCategorie - Lid BTW eenheid - IC">
+<Implementation><![CDATA[
+	Do ..Leverancier.IndienMethodCall("IsIntraCommunautair").DanReturn($$$true)
+
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.VendGroup,"IC")
+]]></Implementation>
+</Method>
+
+<Method name="Test: LeveranciersCategorie - Belgisch adres - BE">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.VendGroup,"BE")
+]]></Implementation>
+</Method>
+
+<Method name="Test: LeveranciersCategorie - EU lid - EU">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid())
+
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.VendGroup,"EU")
+]]></Implementation>
+</Method>
+
+<Method name="Test: LeveranciersCategorie - geen EU lid - EX">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).NietEuLid())
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.VendGroup,"EX")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34483 -r34485
--- AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34483)
+++ AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34485)
@@ -27,6 +27,7 @@
 	Set AxLeverancier.AccountNum = ..Formatter.FormatAccountNumber(Partij.GeefCode())
 	Set AxLeverancier.PartyType = "2"
 	Set AxLeverancier.Name = ..Formatter.FormatPartyName(Partij)
+	Set AxLeverancier.VendGroup = ..ConvertVendGroup(Partij, Leverancier)
 	Set AxLeverancier.LanguageID = ..Formatter.FormatLanguageId(Partij.GeefTaal())
 	Set AxLeverancier.LocationRole = "Business"
 	#dim Adres As DOM.common.Adres = Partij.GeefAdres()
@@ -72,6 +73,17 @@
 	Set AxLeverancier.Phone = ##class(TECH.ListUtils).ListToPieces(PhoneNrs,",")
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertVendGroup">
+<FormalSpec>Partij:DOM.PARTIJ.Partij,Leverancier:DOM.AKP.Leverancier</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	quit:Leverancier.IsIntraCommunautair() "IC"
+	quit:Partij.GeefAdres().GeefLand().GeefCode()="BE" "BE"
+	quit:Partij.GeefAdres().GeefLand().IsLidVanEU() "EU"
+	quit "EX"
+]]></Implementation>
+</Method>
 </Class>