将数字金额转换为人民币大写字符串

  function zfi_amount_to_upper.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(IN) TYPE  WERT8
*"  EXPORTING
*"     REFERENCE(OUT) TYPE  STRING
*"----------------------------------------------------------------------

  data:
        v_s00(2) value '零',
        v_s01(2) value '壹',
        v_s02(2) value '贰',
        v_s03(2) value '叁',
        v_s04(2) value '肆',
        v_s05(2) value '伍',
        v_s06(2) value '陆',
        v_s07(2) value '柒',
        v_s08(2) value '捌',
        v_s09(2) value '玖',
        v_w00(2) value '',
        v_w01(2) value '拾',
        v_w02(2) value '佰',
        v_w03(2) value '仟',
        v_w04(2) value '万',
        v_w05(4) value '拾',
        v_w06(4) value '佰',
        v_w07(4) value '仟',
        v_w08(2) value '亿',
        v_w09(4) value '拾',
        v_w10(4) value '佰',
        v_w11(4) value '仟',
        v_w12(4) value '万',
        v_sy(2)  value '圆',
        v_sj(2)  value '角',
        v_sf(2)  value '分',
        v_amount(16),"将金额转换成字符型
        v_len type i,"v_amount或out的长度
        v_var(5),"v_s0,v_s1,...,v_w0,v_w1,...
        v_num(2) type n,"每一位的数值
        v_s_num(2),"v_s0,v_s1,...中的值
        v_weight(2) type n,"权数
        v_w_num(4),"v_w0,v_w1,...中的值
        v_flag0 type i value 0,"是否输出'零'，0不输出，1输出
        v_n type i value 0,
        v_index type sy-index.
  v_amount = in.
  shift v_amount left deleting leading space.
  shift v_amount left deleting leading '0'.
*-计算分-----------------------------------------
  v_len = strlen( v_amount ).
  v_len = v_len - 1.
  v_num = v_amount+v_len(1).
  if v_num <> '0'.
    concatenate 'v_s' v_num into v_var.
    write (v_var) to v_s_num.
    concatenate v_s_num v_sf out into out.
  endif.
*-计算角-----------------------------------------
  v_len = strlen( v_amount ).
  v_len = v_len - 2.
  v_num = v_amount+v_len(1).
  if v_num <> '0'.
    concatenate 'v_s' v_num into v_var.
    write (v_var) to v_s_num.
    concatenate v_s_num v_sj out into out.
  endif.
*-输出‘整’字-------------------------------------
  if out = ' '.
    concatenate '整' out into out.
  endif.
*-计算整数---------------------------------------
  v_len = strlen( v_amount ).
  v_len = v_len - 3.
  if v_len = 0.
    exit.
  endif.
  v_amount = v_amount(v_len)." 整数部分
*-输出‘元’字-------------------------------------
  concatenate v_sy out into out.
  v_n = v_len - 1.
  v_weight = 0.
  do v_len times.
    v_index = sy-index.
*   从个位开始
    v_num = v_amount+v_n(1).
    if v_num <> '0'.
      concatenate 'v_s' v_num into v_var.
      write (v_var) to v_s_num.
      concatenate 'v_w' v_weight into v_var.
      write (v_var) to v_w_num.
      concatenate v_s_num v_w_num out into out.
      v_flag0 = 1.
    else.
      if v_flag0 = 1.
        concatenate 'v_s' v_num into v_var.
        write (v_var) to v_s_num.
        concatenate v_s_num out into out.
        v_flag0 = 0.
      endif.

      if v_index = 5  and v_len > 5 and v_len < 9 .
           concatenate '万' out into out.
      elseif v_index = 9 and v_len > 9.
           concatenate '亿' out into out.
      endif.

*      CASE SY-INDEX.
*        WHEN 5.CONCATENATE '万' OUT INTO OUT.
*        WHEN 9.CONCATENATE '亿' OUT INTO OUT.
*      ENDCASE.
    endif.
    v_weight = v_weight + 1.
    v_n = v_n - 1.
  enddo.
*-删除个位可能出现'零'的情况-----------------
  search out for '圆'.
  if sy-subrc = 0.
    v_n = sy-fdpos - 2.
    if v_n >= 0.
      if out+v_n(2) = v_s00.
        v_len = strlen( out ).
        concatenate out(v_n) out+sy-fdpos into out.
      endif.
    endif.
  endif.

endfunction.