Index: AX/Uitgaand/AKP/Leverancier/impl/DixfGenerator.cls.xml
===================================================================
diff -u -r34465 -r34483
--- AX/Uitgaand/AKP/Leverancier/impl/DixfGenerator.cls.xml	(.../DixfGenerator.cls.xml)	(revision 34465)
+++ AX/Uitgaand/AKP/Leverancier/impl/DixfGenerator.cls.xml	(.../DixfGenerator.cls.xml)	(revision 34483)
@@ -16,6 +16,7 @@
 	Do Headers.InsertKeyValue("AXdixf.Vendor.Vendor", "AccountNum")
 	Do Headers.InsertKeyValue("AXdixf.Vendor.Vendor", "PartyType")
 	Do Headers.InsertKeyValue("AXdixf.Vendor.Vendor", "Name")
+	Do Headers.InsertKeyValue("AXdixf.Vendor.Vendor", "VendGroup")
 	Do Headers.InsertKeyValue("AXdixf.Vendor.Vendor", "LanguageID")
 	Do Headers.InsertKeyValue("AXdixf.Vendor.Vendor", "LocationRole")
 	Do Headers.InsertKeyValue("AXdixf.Vendor.Vendor", "CountryRegionId")
Index: vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml
===================================================================
diff -u -r34466 -r34483
--- vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34466)
+++ vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34483)
@@ -471,119 +471,138 @@
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Vooruitbetaling())
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("")
+	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"VOORUIT")
-	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"SEPA")
 ]]></Implementation>
 </Method>
 
 <Method name="Test Betalingwijze - Rembours">
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Rembours())
-	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("")
+	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)	
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"REMBOURS")
-	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"SEPA")
 ]]></Implementation>
 </Method>
 
 <Method name="Test Betalingwijze - Termijn - 30D">
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("30D")
+	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)	
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"NET30")
-	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"SEPA")
 ]]></Implementation>
 </Method>
 
 <Method name="Test Betalingwijze - Termijn - 8D">
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("8D")
+	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"NET08")
-	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"SEPA")
 ]]></Implementation>
 </Method>
 
 <Method name="Test Betalingwijze - Termijn - 30DEM">
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("30DEM")
+	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)	
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"EOM30")
-	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"SEPA")
 ]]></Implementation>
 </Method>
 
 <Method name="Test Betalingwijze - Termijn - 1M">
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("1M")
+	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"NET30")
-	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"SEPA")
 ]]></Implementation>
 </Method>
 
 <Method name="Test Betalingwijze - Termijn - 2M">
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("2M")
+	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"NET60")
-	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"SEPA")
 ]]></Implementation>
 </Method>
 
 <Method name="Test Betalingwijze - Termijn - 1MEM">
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("1MEM")
+	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"EOM30")
-	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"SEPA")
 ]]></Implementation>
 </Method>
 
 <Method name="Test Betalingwijze - Termijn - 2MEM">
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("2MEM")
+	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"EOM60")
-	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"SEPA")
 ]]></Implementation>
 </Method>
 
+<Method name="Test Betalingwijze - niet EURO">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("GBP")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"SWIFT")
+]]></Implementation>
+</Method>
+
 <Method name="Test: KortingContant variaties - Geen korting contant CashDisc is leeg">
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefKortingKontant").DanReturn(0)
Index: AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34453 -r34483
--- AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34453)
+++ AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34483)
@@ -43,7 +43,7 @@
 	Set AxLeverancier.EnterpriseNumber = ..Formatter.FormatEnterpriseNumber(Partij.GeefBTWNr())
 	Set AxLeverancier.VATNum = ..Formatter.FormatVATNum(Partij.GeefBTWNr())
 	Set AxLeverancier.PaymTermId = ..Formatter.ConvertPaymTermId(Leverancier.GeefBetaalwijze(),Leverancier.GeefBetaalTermijn())
-	Set AxLeverancier.PaymMode = ..Formatter.ConvertPaymMode(Leverancier.GeefBetaalwijze())
+	Set AxLeverancier.PaymMode = $Select(Partij.GeefMunt()="EUR":"SEPA",1:"SWIFT")
 	Set AxLeverancier.UseCashDisc = ..Formatter.FormatCashDiscount(Leverancier.GeefKortingKontant(),Leverancier.GeefTermijnKortingKontant())
 	Set:$$$HasLength(Leverancier.GeefBankRekeningNr()) AxLeverancier.BankAccount = "1"
 	
Index: AXdixf/Vendor/Vendor.cls.xml
===================================================================
diff -u -r34405 -r34483
--- AXdixf/Vendor/Vendor.cls.xml	(.../Vendor.cls.xml)	(revision 34405)
+++ AXdixf/Vendor/Vendor.cls.xml	(.../Vendor.cls.xml)	(revision 34483)
@@ -15,6 +15,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="VendGroup">
+<Type>%String</Type>
+</Property>
+
 <Property name="LanguageID">
 <Type>%String</Type>
 </Property>