ABAP金额小写转大写（中文）

最新推荐文章于 2024-04-11 15:43:03 发布

原创

最新推荐文章于 2024-04-11 15:43:03 发布 · 496 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一个用于将数值金额转换为汉字大写的ABAP程序。该程序通过定义详细的字段映射关系，实现了从数值输入到带有货币单位（如亿、万、元、角、分等）的汉字表述的转换。通过对每个金额段位的细致处理，确保了输出结果的准确性和规范性。

FUNCTION z_jexx_to_jedx.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(RMBXX) LIKE  BSEG-WRBTR
*"  CHANGING
*"     REFERENCE(RMBDX1) TYPE  C
*"----------------------------------------------------------------------
  DATA: BEGIN OF rmb,
          by TYPE c,
          sy TYPE c,
          y  TYPE c,
          qw TYPE c,
          bw TYPE c,
          sw TYPE c,
          w  TYPE c,
          q  TYPE c,
          b  TYPE c,
          s  TYPE c,
          g  TYPE c,
          d  TYPE c,
          j  TYPE c,
          f  TYPE c,
          n  TYPE c,
        END OF rmb.
  DATA: BEGIN OF rmbdx,
          by(2)  TYPE c,
          by1(4) TYPE c,
          sy(2)  TYPE c,
          sy1(4) TYPE c,
          y(2)   TYPE c,
          y1(2)  TYPE c,
          qw(2)  TYPE c,
          qw1(4) TYPE c,
          bw(2)  TYPE c,
          bw1(4) TYPE c,
          sw(2)  TYPE c,
          sw1(4) TYPE c,
          w(2)

最低0.47元/天解锁文章