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>