Index: AX/Uitgaand/Klant/impl/AifConverter.cls.xml
===================================================================
diff -u -r33703 -r33708
--- AX/Uitgaand/Klant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 33703)
+++ AX/Uitgaand/Klant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 33708)
@@ -24,12 +24,15 @@
 	set Custable.TaxGroup = ..FormatTaxGroup(Partij)
 	
 	set Custable.WebSalesOrderDisplay = "All"
+	set Custable.PaymTermId = ..ConvertPaymTermId(Klant)
+	set Custable.PaymMode = ..ConvertPaymMode(Klant)
 	
 	set DirParty = ##class(AXaif.Customer.AxdEntityDirPartyDirOrganization).%New()
 	set DirParty.class = "entity"
 	set DirParty.LanguageId = ..FormatLanuageId(Partij.GeefTaal())
 	set DirParty.Name = $$$Trim(Partij.GeefNaam()_$$$IfLength(Partij.GeefToenaam()," ",""))
 	
+		
 	set OrganizationName = ##class(AXaif.Customer.AxdEntityOrganizationName).%New()
 	set OrganizationName.class = "entity"
 	set OrganizationName.Name = DirParty.Name
@@ -54,6 +57,36 @@
 ]]></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() "SEPA DD"
+	quit:Klant.GeefBetalingwijze()=##class(DOM.VKP.enu.Betalingwijze).Vooruitbetaling() "VOORUIT"
+	quit:Klant.GeefBetalingwijze()=##class(DOM.VKP.enu.Betalingwijze).Rembours() "REMBOURS"
+	quit "OVER"
+]]></Implementation>
+</Method>
+
+<Method name="ConvertPaymTermId">
+<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXaif.Shared.AxdExtTypeCustPaymTermId</ReturnType>
+<Implementation><![CDATA[
+	#dim BetalingTermijn As %String = Klant.GeefBetalingTermijn()
+	
+	if BetalingTermijn'="" {
+		quit:##class(TECH.StringUtils).EndsWith(BetalingTermijn,"D") "NET"_+BetalingTermijn
+		quit:##class(TECH.StringUtils).EndsWith(BetalingTermijn,"DEM") "EOM"_+BetalingTermijn
+		quit:##class(TECH.StringUtils).EndsWith(BetalingTermijn,"MEM") "EOM"_(+BetalingTermijn*30)
+		quit:##class(TECH.StringUtils).EndsWith(BetalingTermijn,"M") "NET"_(+BetalingTermijn*30)
+	}
+	
+	quit "NET00"
+]]></Implementation>
+</Method>
+
 <Method name="ConvertContactInfo">
 <FormalSpec>LocationName:%String,Locator:%String,Type:%String,IsPrimary:%Boolean=1</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/AX/Uitgaand/Klant/impl/AifConverter.cls.xml
===================================================================
diff -u -r33703 -r33708
--- vhUnitTest/AX/Uitgaand/Klant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 33703)
+++ vhUnitTest/AX/Uitgaand/Klant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 33708)
@@ -40,6 +40,8 @@
 	do ..Klant.IndienMethodCall("GeefKortingContantPercentage").DanReturn(3)
 	do ..Klant.IndienMethodCall("GeefKortingContantTermijn").DanReturn("10D")
 	do ..Klant.IndienMethodCall("GeefRegio").DanReturn(9)
+	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
+	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("30D")
 ]]></Implementation>
 </Method>
 
@@ -670,6 +672,119 @@
 	do $$$AssertEquals(CustTable.Blocked,$$$True)
 ]]></Implementation>
 </Method>
+
+<Method name="Test Betalingwijze -Betalingwijze - Vooruitbetaling">
+<Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Vooruitbetaling())
+	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	do $$$AssertEquals(CustTable.PaymTermId,"NET00")
+	do $$$AssertEquals(CustTable.PaymMode,"VOORUIT")
+]]></Implementation>
+</Method>
+
+<Method name="Test Betalingwijze -Betalingwijze - Rembours">
+<Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Rembours())
+	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("")
+
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	do $$$AssertEquals(CustTable.PaymTermId,"NET00")
+	do $$$AssertEquals(CustTable.PaymMode,"REMBOURS")
+]]></Implementation>
+</Method>
+
+<Method name="Test Betalingwijze -Betalingwijze - Termijn - 30D">
+<Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
+	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("30D")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	do $$$AssertEquals(CustTable.PaymTermId,"NET30")
+	do $$$AssertEquals(CustTable.PaymMode,"OVER")
+]]></Implementation>
+</Method>
+
+<Method name="Test Betalingwijze -Betalingwijze - Termijn - 30DEM">
+<Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
+	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("30DEM")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	do $$$AssertEquals(CustTable.PaymTermId,"EOM30")
+	do $$$AssertEquals(CustTable.PaymMode,"OVER")
+]]></Implementation>
+</Method>
+
+<Method name="Test Betalingwijze -Betalingwijze - Termijn - 1M">
+<Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
+	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("1M")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	do $$$AssertEquals(CustTable.PaymTermId,"NET30")
+	do $$$AssertEquals(CustTable.PaymMode,"OVER")
+]]></Implementation>
+</Method>
+
+<Method name="Test Betalingwijze -Betalingwijze - Termijn - 2M">
+<Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
+	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("2M")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	do $$$AssertEquals(CustTable.PaymTermId,"NET60")
+	do $$$AssertEquals(CustTable.PaymMode,"OVER")
+]]></Implementation>
+</Method>
+
+<Method name="Test Betalingwijze -Betalingwijze - Termijn - 1MEM">
+<Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
+	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("1MEM")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	do $$$AssertEquals(CustTable.PaymTermId,"EOM30")
+	do $$$AssertEquals(CustTable.PaymMode,"OVER")
+]]></Implementation>
+</Method>
+
+<Method name="Test Betalingwijze -Betalingwijze - Termijn - 2MEM">
+<Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
+	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("2MEM")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	do $$$AssertEquals(CustTable.PaymTermId,"EOM60")
+	do $$$AssertEquals(CustTable.PaymMode,"OVER")
+]]></Implementation>
+</Method>
 </Class>