Index: AXdixf/Vendor/Vendor.cls.xml
===================================================================
diff -u -r34334 -r34401
--- AXdixf/Vendor/Vendor.cls.xml	(.../Vendor.cls.xml)	(revision 34334)
+++ AXdixf/Vendor/Vendor.cls.xml	(.../Vendor.cls.xml)	(revision 34401)
@@ -74,6 +74,14 @@
 <Property name="VATNum">
 <Type>%String</Type>
 </Property>
+
+<Property name="PaymTermId">
+<Type>%String</Type>
+</Property>
+
+<Property name="PaymMode">
+<Type>%String</Type>
+</Property>
 </Class>
 
 
Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml
===================================================================
diff -u -r34367 -r34401
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34367)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34401)
@@ -40,8 +40,8 @@
 	set Custable.TaxGroup = ..FormatTaxGroup(Partij,Klant)
 	
 	set Custable.WebSalesOrderDisplay = "All"
-	set Custable.PaymTermId = ..ConvertPaymTermId(Klant)
-	set Custable.PaymMode = ..ConvertPaymMode(Klant)
+	set Custable.PaymTermId = ..Formatter.ConvertPaymTermId(Klant.GeefBetalingwijze(), Klant.GeefBetalingTermijn())
+	set Custable.PaymMode = ..Formatter.ConvertPaymMode(Klant.GeefBetalingwijze())
 	
 	set DirParty = ##class(AXaif.Customer.AxdEntityDirPartyDirOrganization).%New()
 	set DirParty.class = "entity"
@@ -95,37 +95,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ConvertPaymMode">
-<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
-<Private>1</Private>
-<ReturnType>AXaif.Shared.AxdExtTypeCustPaymTermId</ReturnType>
-<Implementation><![CDATA[
-	quit:Klant.GeefBetalingwijze()=##class(DOM.VKP.enu.Betalingwijze).Incasso() "SEPADD"
-	quit "OVER"
-]]></Implementation>
-</Method>
-
-<Method name="ConvertPaymTermId">
-<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
-<Private>1</Private>
-<ReturnType>AXaif.Shared.AxdExtTypeCustPaymTermId</ReturnType>
-<Implementation><![CDATA[
-	quit:Klant.GeefBetalingwijze()=##class(DOM.VKP.enu.Betalingwijze).Vooruitbetaling() "VOORUIT"
-	quit:Klant.GeefBetalingwijze()=##class(DOM.VKP.enu.Betalingwijze).Rembours() "REMBOURS"
-
-	#dim BetalingTermijn As %String = Klant.GeefBetalingTermijn()
-	
-	if BetalingTermijn'="" {
-		quit:##class(TECH.StringUtils).EndsWith(BetalingTermijn,"D") "NET"_##class(TECH.StringUtils).AlignRight(+BetalingTermijn,0,2)
-		quit:##class(TECH.StringUtils).EndsWith(BetalingTermijn,"DEM") "EOM"_##class(TECH.StringUtils).AlignRight(+BetalingTermijn,0,2)
-		quit:##class(TECH.StringUtils).EndsWith(BetalingTermijn,"MEM") "EOM"_##class(TECH.StringUtils).AlignRight((+BetalingTermijn*30),0,2)
-		quit:##class(TECH.StringUtils).EndsWith(BetalingTermijn,"M") "NET"_##class(TECH.StringUtils).AlignRight((+BetalingTermijn*30),0,2)
-	}
-	
-	quit "NET00"
-]]></Implementation>
-</Method>
-
 <Method name="ConvertContactInfo">
 <FormalSpec>LocationName:%String,Locator:%String,Type:%String,IsPrimary:%Boolean=1</FormalSpec>
 <Private>1</Private>
Index: AX/common/impl/Formatter.cls.xml
===================================================================
diff -u -r34367 -r34401
--- AX/common/impl/Formatter.cls.xml	(.../Formatter.cls.xml)	(revision 34367)
+++ AX/common/impl/Formatter.cls.xml	(.../Formatter.cls.xml)	(revision 34401)
@@ -106,6 +106,33 @@
 	Quit LandCodeUit
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertPaymTermId">
+<FormalSpec>Betalingwijze:%String,BetalingTermijn:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:Betalingwijze=##class(DOM.VKP.enu.Betalingwijze).Vooruitbetaling() "VOORUIT"
+	Quit:Betalingwijze=##class(DOM.VKP.enu.Betalingwijze).Rembours() "REMBOURS"
+	
+	If BetalingTermijn'="" {
+		Quit:##class(TECH.StringUtils).EndsWith(BetalingTermijn,"D") "NET"_##class(TECH.StringUtils).AlignRight(+BetalingTermijn,0,2)
+		Quit:##class(TECH.StringUtils).EndsWith(BetalingTermijn,"DEM") "EOM"_##class(TECH.StringUtils).AlignRight(+BetalingTermijn,0,2)
+		Quit:##class(TECH.StringUtils).EndsWith(BetalingTermijn,"MEM") "EOM"_##class(TECH.StringUtils).AlignRight((+BetalingTermijn*30),0,2)
+		Quit:##class(TECH.StringUtils).EndsWith(BetalingTermijn,"M") "NET"_##class(TECH.StringUtils).AlignRight((+BetalingTermijn*30),0,2)
+	}
+	
+	Quit "NET00"
+]]></Implementation>
+</Method>
+
+<Method name="ConvertPaymMode">
+<FormalSpec>Betalingwijze:%String</FormalSpec>
+<ReturnType>AXaif.Shared.AxdExtTypeCustPaymTermId</ReturnType>
+<Implementation><![CDATA[
+	quit:Betalingwijze=##class(DOM.VKP.enu.Betalingwijze).Incasso() "SEPADD"
+	quit "OVER"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34335 -r34401
--- AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34335)
+++ AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34401)
@@ -39,8 +39,10 @@
 	Set:Leverancier.GeefTelefax()'="" AxLeverancier.TeleFaxName = "Fax"
 	Set AxLeverancier.TeleFax = $$$Trim(Leverancier.GeefTelefax())
 	Set AxLeverancier.Currency = Leverancier.GeefMuntkode()
-	set AxLeverancier.EnterpriseNumber = ..Formatter.FormatEnterpriseNumber(Leverancier.GeefBTWnr())
-	set AxLeverancier.VATNum = ..Formatter.FormatVATNum(Leverancier.GeefBTWnr())
+	Set AxLeverancier.EnterpriseNumber = ..Formatter.FormatEnterpriseNumber(Leverancier.GeefBTWnr())
+	Set AxLeverancier.VATNum = ..Formatter.FormatVATNum(Leverancier.GeefBTWnr())
+	Set AxLeverancier.PaymTermId = ..Formatter.ConvertPaymTermId(Leverancier.GeefBetaalwijze(),Leverancier.GeefBetaalTermijn())
+	Set AxLeverancier.PaymMode = ..Formatter.ConvertPaymMode(Leverancier.GeefBetaalwijze())	
 	
 	Quit AxLeverancier
 ]]></Implementation>
Index: vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml
===================================================================
diff -u -r34334 -r34401
--- vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34334)
+++ vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34401)
@@ -35,6 +35,8 @@
 	Do ..Leverancier.IndienMethodCall("GeefTelefax").DanReturn(" 03/112.101")
 	Do ..Leverancier.IndienMethodCall("GeefMuntkode").DanReturn("EUR")
 	Do ..Leverancier.IndienMethodCall("GeefBTWnr").DanReturn("BE0402775276")
+	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
+	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("30D")
 ]]></Implementation>
 </Method>
 
@@ -422,6 +424,123 @@
 	Do $$$AssertEquals(..AxLeverancier.VATNum,"")
 ]]></Implementation>
 </Method>
+
+<Method name="Test Betalingwijze - Vooruitbetaling">
+<Implementation><![CDATA[
+	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Vooruitbetaling())
+	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"VOORUIT")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+]]></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("")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)	
+	
+	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"REMBOURS")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+]]></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")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)	
+	
+	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"NET30")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+]]></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")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"NET08")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+]]></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")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)	
+	
+	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"EOM30")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+]]></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")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"NET30")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+]]></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")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"NET60")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+]]></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")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"EOM30")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+]]></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")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"EOM60")
+	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
+]]></Implementation>
+</Method>
 </Class>