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>