ABAP 金额大小写转换函数

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

我命由我，截然不同

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

阅读量744

点赞数

本文链接：https://blog.csdn.net/J2724731264/article/details/100513957

版权

这段代码展示了如何使用ABAP编写一个函数，将输入的金额数字转换为大写形式。函数通过计算数值的整数和小数部分，然后调用另一个函数将小写字母数字转换为大写。最后，通过特定规则组合整数和小数部分，形成完整的金额大写字符串。

摘要由CSDN通过智能技术生成

在这里插入图片描述

源码：
FUNCTION ZMM_FI_DEV_ZFIF001.
*"----------------------------------------------------------------------
"“本地接口：
*” IMPORTING
*" REFERENCE(MONEYIN) TYPE DMBTR
*" EXPORTING
*" REFERENCE(MONEYOUT) TYPE C
*"----------------------------------------------------------------------
DATA: ipos TYPE i,
iwan TYPE i,
imod TYPE i,
pin TYPE p DECIMALS 2,
strint TYPE c LENGTH 10,
strdec TYPE c LENGTH 3,
strintt TYPE c,
strintd TYPE c,
strintu TYPE c LENGTH 40,
strdect TYPE c,
strdecd TYPE c,
strdecu TYP