关于小写金额转换成大写金额

wsfeng1981

我现在想把销售订单和采购订单处,打印的时候,合计的小写金额转换成大写金额,请问,如何操作?

pshen

没有现成的，可以自己写个oracle function, 不难。

pshen

create or replace function spell_number( p_number in number )
  return varchar2
  
  as
      type myArray is table of varchar2(255);
      l_str    myArray := myArray( '',
                             ' THOUSAND ', ' MILLION ',
                             ' BILLION ', ' TRILLION ',
                             ' QUADRILLION ', ' QUINTILLION ',
                             ' SEXTILLION ', ' SEQTILLION ',
                             ' OCTILLION ', ' NONILLION ',
                             ' DECILLION ', ' UNDECILLION ',
                             ' DUODECILLION ' );
      l_num varchar2(50) default trunc( p_number );
      l_return varchar2(4000);
  begin
      for i in 1 .. l_str.count
      loop
          exit when l_num is null;
  
          if ( substr(l_num, length(l_num)-2, 3) <> 0 )
          then
              l_return := to_char(
                              to_date(
                               substr(l_num, length(l_num)-2, 3),
                                 'J' ),
                          'JSP' ) || l_str(i) || l_return;
          end if;
          l_num := substr( l_num, 1, length(l_num)-3 );
      end loop;
  
      -- beginning of section added to include decimal places:
      if to_char( p_number ) like '%.%'
      then
          l_num := substr( to_char(p_number,
          '9999999999999999999999999.99')
          , instr( to_char(p_number,
          '9999999999999999999999999.99'), '.' )+1 ,2);
          if l_num > 0
          then
              if l_num <> '00'
              then
                  l_return := l_return || ' AND CENT ';
                  l_return := l_return || to_char(to_date(l_num,'J' ),'JSP' );
              end if;
          end if;
      end if;
      -- end of section added to include decimal places
  
      return l_return || ' ONLY ';
  end spell_number;


运行结果：
select spell_number(19203344.76) from dual
返回
NINETEEN MILLION TWO HUNDRED THREE THOUSAND THREE HUNDRED FORTY-FOUR AND CENT SEVENTY-SIX ONLY

然后，在表里新加一个字段，用virtual column， 内容是spell_number(column name)， 就可以在打印里，使用了。

wsfeng1981

函数已经完成
就是该如何跟COMPIERE结合,请指教?

wsfeng1981

已经解决
谢谢

jojoz

原帖由 pshen 于 2007-2-28 13:51 发表
create or replace function spell_number( p_number in number )
  return varchar2
  
  as
      type myArray is table of varchar2(255);
      l_str    myArray := myArray( '',
                 ...

这个....好熟悉啊,呵呵

pshen

不好意思，忘了申明一下版权了。

以上代码原作者是Jojo.

jojoz

嘻嘻,不是我写的,是从asktom.com上抄下来的

compierenewbie

/**
* @author wu 将一个数字转化为金额
*/
public class ConvertNumber {
/** 定义数组存放数字对应的大写 */

private final static String[] STR_NUMBER = { "零", "壹", "贰", "叁", "肆", "伍",
   "陆", "柒", "捌", "玖" };

/** 定义数组存放位数的大写 */
private final static String[] STR_MODIFY = { "", "拾", "佰", "仟", "万", "拾",
   "佰", "仟", "亿", "拾", "佰", "仟" };

/**
  * 转化整数部分
  *
  * @param tempString
  * @return 返回整数部分
  */
private static String getInteger(String tempString) {
  /** 用来保存整数部分数字串 */
  String strInteger = null;//
  /** 记录"."所在位置 */
  int intDotPos = tempString.indexOf(".");
  int intSignPos = tempString.indexOf("-");
  if (intDotPos == -1)
   intDotPos = tempString.length();
  /** 取出整数部分 */
  strInteger = tempString.substring(intSignPos + 1, intDotPos);
  strInteger = new StringBuffer(strInteger).reverse().toString();

  StringBuffer sbResult = new StringBuffer();
  for (int i = 0; i < strInteger.length(); i++) {
   sbResult.append(STR_MODIFY);
   sbResult.append(STR_NUMBER[strInteger.charAt(i) - 48]);
  }

  sbResult = sbResult.reverse();

  replace(sbResult, "零拾", "零");
  replace(sbResult, "零佰", "零");
  replace(sbResult, "零仟", "零");
  replace(sbResult, "零万", "万");
  replace(sbResult, "零亿", "亿");

  replace(sbResult, "零零", "零");
  replace(sbResult, "零零零", "零");
  /** 这两句不能颠倒顺序 */
  replace(sbResult, "零零零零万", "");
  replace(sbResult, "零零零零", "");
  /** 这样读起来更习惯. */
  replace(sbResult, "壹拾亿", "拾亿");
  replace(sbResult, "壹拾万", "拾万");
  /** 删除个位上的零 */
  if (sbResult.charAt(sbResult.length() - 1) == '零'
    && sbResult.length() != 1)
   sbResult.deleteCharAt(sbResult.length() - 1);

  if (strInteger.length() == 2) {
   replace(sbResult, "壹拾", "拾");
  }
  /** 将结果反转回来. */
  return sbResult.toString();
}

/**
  * 转化小数部分 例：输入22.34返回叁肆
  *
  * @param tempString
  * @return
  */
private static String getFraction(String tempString) {
  String strFraction = null;
  int intDotPos = tempString.indexOf(".");
  /** 没有点说明没有小数，直接返回 */
  if (intDotPos == -1)
   return "";
  strFraction = tempString.substring(intDotPos + 1);
  StringBuffer sbResult = new StringBuffer(strFraction.length());
  /*
  for (int i = 0; i < strFraction.length(); i++) {
   sbResult.append(STR_NUMBER[strFraction.charAt(i) - 48]);
  }
  */
  
  for (int i = 0; i < strFraction.length(); i++) {
   sbResult.append(STR_NUMBER[strFraction.charAt(i) - 48]);
   if ( i == 0 ) sbResult.append("角");
   if ( i == 1 ) sbResult.append("分");
   if ( i == 2 ) sbResult.append("厘");
  }
  
  
  return sbResult.toString();
}

/**
  * 判断传入的字符串中是否有.如果有则返回点
  *
  * @param tempString
  * @return
  */
private static String getDot(String tempString) {
  return tempString.indexOf(".") == -1 ? "圆整" : "圆";
}

/**
  * 判断传入的字符串中是否有-如果有则返回负
  *
  * @param tempString
  * @return
  */
private static String getSign(String tempString) {
  return tempString.indexOf("-") != -1 ? "负" : "";
}

/**
  * 将一个数字转化为金额
  *
  * @param tempNumber
  *            传入一个double的变量
  * @return 返一个转换好的字符串
  */
public static String numberToChinese(double tempNumber) {
  java.text.DecimalFormat df = new java.text.DecimalFormat("#.#########");
  String pTemp = String.valueOf(df.format(tempNumber));
  StringBuffer sbResult = new StringBuffer(getSign(pTemp)
    + getInteger(pTemp) + getDot(pTemp) + getFraction(pTemp));
  return sbResult.toString();
}

/**
  * 替代字符
  *
  * @param pValue
  * @param pSource
  * @param pDest
  */
private static void replace(StringBuffer pValue, String pSource,
   String pDest) {
  if (pValue == null || pSource == null || pDest == null)
   return;
  /** 记录pSource在pValue中的位置 */
  int intPos = 0;
  do {
   intPos = pValue.toString().indexOf(pSource);
   /** 没有找到pSource */
   if (intPos == -1)
    break;
   pValue.delete(intPos, intPos + pSource.length());
   pValue.insert(intPos, pDest);
  } while (true);
}

/**
  * @param args
  */
public static void main(String[] args) {
  // TODO Auto-generated method stub
  System.out.println( numberToChinese(Double.parseDouble(args[0])));

}

}

netrio

如果是报表和打印的话，还有一种办法，可以下载Jasper源码，扩充支持类型。