Index: AX/common/impl/Formatter.cls.xml
===================================================================
diff -u -r33963 -r34009
--- AX/common/impl/Formatter.cls.xml	(.../Formatter.cls.xml)	(revision 33963)
+++ AX/common/impl/Formatter.cls.xml	(.../Formatter.cls.xml)	(revision 34009)
@@ -38,6 +38,18 @@
 <Implementation><![CDATA[	quit ..Formatter.FormatDate(Date,"JJJJ-MM-DD")
 ]]></Implementation>
 </Method>
+
+<Method name="FormatCashDiscount">
+<FormalSpec>Percentage:%String,Length:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	quit:Percentage=0 ""
+	
+	#dim ContantTermijn As %String = Length
+	if ##class(TECH.StringUtils).Equals(ContantTermijn,"0D","") set ContantTermijn = "8D"
+	quit ( ##class(TECH.StringUtils).AlignRight(ContantTermijn,0,3) ) _ Percentage _"%"
+]]></Implementation>
+</Method>
 </Class>