将数字转换为英文输出的SAP程序(for abap)

最新推荐文章于 2023-09-04 15:56:16 发布
最新推荐文章于 2023-09-04 15:56:16 发布
阅读量1.2k 收藏
点赞数
文章标签： sap div report
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/fanweijun/article/details/3021424
版权
*&---------------------------------------------------------------------*
*& Report  ZTEST
*&
*&---------------------------------------------------------------------*
*&
*& create by 冲击波   2008.10.06
*&---------------------------------------------------------------------*

REPORT  ztest.

DATA num(16) TYPE p DECIMALS 0  .

DATA temp1 TYPE i .
DATA temp2 TYPE i .
DATA temp3 TYPE i .
DATA temp4 TYPE i .

DATA tempq TYPE i .
DATA tempw TYPE i .
DATA tempe TYPE i .
DATA tempr TYPE i .


DATA temp(16) TYPE p DECIMALS 0  .
DATA tempii TYPE i .
****
num = 123456789123 .
****
*************************************************
temp = num .

temp1 = temp DIV 1000000000 .
temp = temp MOD 1000000000 .

temp2 = temp DIV 1000000 .
temp = temp MOD 1000000 .

temp3 = temp DIV 1000 .
temp = temp MOD 1000 .

temp4 = temp .
********************************************************
IF temp1 <> 0 .
  tempii = temp1 .

  tempw = tempii DIV 100 .
  tempii = tempii MOD 100 .

  tempe = tempii DIV 10 .
  tempii = tempii MOD 10 .

  tempr = tempii .
*********************
  IF tempw <> 0 .
    tempii = tempw .
    CASE tempii.

      WHEN  1 .
        WRITE 'one' .
      WHEN  2 .
        WRITE 'two' .
      WHEN  3 .
        WRITE 'three' .
      WHEN  4 .
        WRITE 'four' .
      WHEN  5 .
        WRITE 'five' .
      WHEN  6 .
        WRITE 'six' .
      WHEN  7 .
        WRITE 'seven' .
      WHEN  8 .
        WRITE 'eight' .
      WHEN  9 .
        WRITE 'nine' .
    ENDCASE.
    WRITE 'hundred' .
  ENDIF .
*********************

  tempii = tempe .
  CASE tempii.
    WHEN  1 .
      tempii = temp1 MOD 100.

      CASE tempii.

        WHEN  11 .
          WRITE 'eleven' .
        WHEN  12 .
          WRITE 'twelve' .
        WHEN  13 .
          WRITE 'thirteen' .
        WHEN  14 .
          WRITE 'fourteen' .
        WHEN  15 .
          WRITE 'fifteen' .
        WHEN  16 .
          WRITE 'sixteen' .
        WHEN  17 .
          WRITE 'seventeen' .
        WHEN  18 .
          WRITE 'eighteen' .
        WHEN  19 .
          WRITE 'nineteen' .


      ENDCASE.

    WHEN  0 .

      IF tempr <> 0 .
        WRITE 'and'.
        tempr = tempii .
        CASE tempii.

          WHEN  1 .
            WRITE 'one' .
          WHEN  2 .
            WRITE 'two' .
          WHEN  3 .
            WRITE 'three' .
          WHEN  4 .
            WRITE 'four' .
          WHEN  5 .
            WRITE 'five' .
          WHEN  6 .
            WRITE 'six' .
          WHEN  7 .
            WRITE 'seven' .
          WHEN  8 .
            WRITE 'eight' .
          WHEN  9 .
            WRITE 'nine' .
        ENDCASE.

      ENDIF .

    WHEN  2 .
      WRITE 'twenty' .
    WHEN  3 .
      WRITE 'thirty' .
    WHEN  4 .
      WRITE 'fourty' .
    WHEN  5 .
      WRITE 'fifty' .
    WHEN  6 .
      WRITE 'sixty' .
    WHEN  7 .
      WRITE 'seventy' .
    WHEN  8 .
      WRITE 'eighty' .
    WHEN  9 .
      WRITE 'ninty' .
  ENDCASE.

***********************
IF tempr <> 0 and tempe <> 0.
        tempii = tempr .
        CASE tempii.

          WHEN  1 .
            WRITE 'one' .
          WHEN  2 .
            WRITE 'two' .
          WHEN  3 .
            WRITE 'three' .
          WHEN  4 .
            WRITE 'four' .
          WHEN  5 .
            WRITE 'five' .
          WHEN  6 .
            WRITE 'six' .
          WHEN  7 .
            WRITE 'seven' .
          WHEN  8 .
            WRITE 'eight' .
          WHEN  9 .
            WRITE 'nine' .
        ENDCASE.

      ENDIF .

***********************


  write 'billion' .
  write / .
ENDIF .

***************************************************************
IF temp2 <> 0 .
WRITE 'and' .
tempii = temp2 .



tempw = tempii DIV 100 .
tempii = tempii mod 100 .

tempe = tempii DIV 10 .
tempii = tempii mod 10 .

tempr = tempii .
*********************
IF tempw <> 0 .
  tempii = tempw .
  CASE tempii.

    WHEN  1 .
      WRITE 'one' .
    WHEN  2 .
      WRITE 'two' .
    WHEN  3 .
      WRITE 'three' .
    WHEN  4 .
      WRITE 'four' .
    WHEN  5 .
      WRITE 'five' .
    WHEN  6 .
      WRITE 'six' .
    WHEN  7 .
      WRITE 'seven' .
    WHEN  8 .
      WRITE 'eight' .
    WHEN  9 .
      WRITE 'nine' .
  ENDCASE.
  WRITE 'hundred' .
ENDIF .
*********************

tempii = tempe .
CASE tempii.
  WHEN  1 .
 tempii =   temp2 mod 100 .

    CASE tempii.

      WHEN  11 .
        WRITE 'eleven' .
      WHEN  12 .
        WRITE 'twelve' .
      WHEN  13 .
        WRITE 'thirteen' .
      WHEN  14 .
        WRITE 'fourteen' .
      WHEN  15 .
        WRITE 'fifteen' .
      WHEN  16 .
        WRITE 'sixteen' .
      WHEN  17 .
        WRITE 'seventeen' .
      WHEN  18 .
        WRITE 'eighteen' .
      WHEN  19 .
        WRITE 'nineteen' .


    ENDCASE.

  WHEN  0 .

    IF tempr <> 0 .
      WRITE 'and' .
      tempr = tempii .
      CASE tempii.

        WHEN  1 .
          WRITE 'one' .
        WHEN  2 .
          WRITE 'two' .
        WHEN  3 .
          WRITE 'three' .
        WHEN  4 .
          WRITE 'four' .
        WHEN  5 .
          WRITE 'five' .
        WHEN  6 .
          WRITE 'six' .
        WHEN  7 .
          WRITE 'seven' .
        WHEN  8 .
          WRITE 'eight' .
        WHEN  9 .
          WRITE 'nine' .
      ENDCASE.

    ENDIF .

  WHEN  2 .
    WRITE 'twenty' .
  WHEN  3 .
    WRITE 'thirty' .
  WHEN  4 .
    WRITE 'fourty' .
  WHEN  5 .
    WRITE 'fifty' .
  WHEN  6 .
    WRITE 'sixty' .
  WHEN  7 .
    WRITE 'seventy' .
  WHEN  8 .
    WRITE 'eighty' .
  WHEN  9 .
    WRITE 'ninty' .
ENDCASE.

***********************
IF tempr <> 0 and tempe <> 0.
        tempii = tempr .
        CASE tempii.

          WHEN  1 .
            WRITE 'one' .
          WHEN  2 .
            WRITE 'two' .
          WHEN  3 .
            WRITE 'three' .
          WHEN  4 .
            WRITE 'four' .
          WHEN  5 .
            WRITE 'five' .
          WHEN  6 .
            WRITE 'six' .
          WHEN  7 .
            WRITE 'seven' .
          WHEN  8 .
            WRITE 'eight' .
          WHEN  9 .
            WRITE 'nine' .
        ENDCASE.

      ENDIF .

***********************
  write 'million' .
  write / .
ENDIF .



***************************************************************
IF temp3 <> 0 .
WRITE 'and' .
tempii = temp3 .

tempw = tempii DIV 100 .
tempii = tempii mod 100 .

tempe = tempii DIV 10 .
tempii = tempii mod 10 .

tempr = tempii .
*********************
IF tempw <> 0 .
tempii = tempw .
CASE tempii.

  WHEN  1 .
    WRITE 'one' .
  WHEN  2 .
    WRITE 'two' .
  WHEN  3 .
    WRITE 'three' .
  WHEN  4 .
    WRITE 'four' .
  WHEN  5 .
    WRITE 'five' .
  WHEN  6 .
    WRITE 'six' .
  WHEN  7 .
    WRITE 'seven' .
  WHEN  8 .
    WRITE 'eight' .
  WHEN  9 .
    WRITE 'nine' .
ENDCASE.
WRITE 'hundred' .
ENDIF .
*********************

tempii = tempe .
CASE tempii.
WHEN  1 .
  tempii = temp3 mod 100 .

  CASE tempii.

    WHEN  11 .
      WRITE 'eleven' .
    WHEN  12 .
      WRITE 'twelve' .
    WHEN  13 .
      WRITE 'thirteen' .
    WHEN  14 .
      WRITE 'fourteen' .
    WHEN  15 .
      WRITE 'fifteen' .
    WHEN  16 .
      WRITE 'sixteen' .
    WHEN  17 .
      WRITE 'seventeen' .
    WHEN  18 .
      WRITE 'eighteen' .
    WHEN  19 .
      WRITE 'nineteen' .


  ENDCASE.

WHEN  0 .

  IF tempr <> 0 .
    WRITE 'and' .
tempr = tempii .
    CASE tempii.

      WHEN  1 .
        WRITE 'one' .
      WHEN  2 .
        WRITE 'two' .
      WHEN  3 .
        WRITE 'three' .
      WHEN  4 .
        WRITE 'four' .
      WHEN  5 .
        WRITE 'five' .
      WHEN  6 .
        WRITE 'six' .
      WHEN  7 .
        WRITE 'seven' .
      WHEN  8 .
        WRITE 'eight' .
      WHEN  9 .
        WRITE 'nine' .
    ENDCASE.

  ENDIF .

WHEN  2 .
  WRITE 'twenty' .
WHEN  3 .
  WRITE 'thirty' .
WHEN  4 .
  WRITE 'fourty' .
WHEN  5 .
  WRITE 'fifty' .
WHEN  6 .
  WRITE 'sixty' .
WHEN  7 .
  WRITE 'seventy' .
WHEN  8 .
  WRITE 'eighty' .
WHEN  9 .
  WRITE 'ninty' .
ENDCASE.

***********************
IF tempr <> 0 and tempe <> 0.
        tempii = tempr .
        CASE tempii.

          WHEN  1 .
            WRITE 'one' .
          WHEN  2 .
            WRITE 'two' .
          WHEN  3 .
            WRITE 'three' .
          WHEN  4 .
            WRITE 'four' .
          WHEN  5 .
            WRITE 'five' .
          WHEN  6 .
            WRITE 'six' .
          WHEN  7 .
            WRITE 'seven' .
          WHEN  8 .
            WRITE 'eight' .
          WHEN  9 .
            WRITE 'nine' .
        ENDCASE.

      ENDIF .

***********************
  write 'thound' .
  write / .

ENDIF .




***************************************************************

IF temp4 <> 0 .
WRITE 'and' .
tempii = temp4 .

tempw = tempii DIV 100 .
tempii = tempii mod 100 .

tempe = tempii DIV 10 .
tempii = tempii mod 10 .

tempr = tempii .
*********************
IF tempw <> 0 .
tempii = tempw .
CASE tempii.

WHEN  1 .
  WRITE 'one' .
WHEN  2 .
  WRITE 'two' .
WHEN  3 .
  WRITE 'three' .
WHEN  4 .
  WRITE 'four' .
WHEN  5 .
  WRITE 'five' .
WHEN  6 .
  WRITE 'six' .
WHEN  7 .
  WRITE 'seven' .
WHEN  8 .
  WRITE 'eight' .
WHEN  9 .
  WRITE 'nine' .
ENDCASE.
WRITE 'hundred' .
ENDIF .
*********************

tempii = tempe .
CASE tempii.
WHEN  1 .
tempii = temp2 mod 100.

CASE tempii.

  WHEN  11 .
    WRITE 'eleven' .
  WHEN  12 .
    WRITE 'twelve' .
  WHEN  13 .
    WRITE 'thirteen' .
  WHEN  14 .
    WRITE 'fourteen' .
  WHEN  15 .
    WRITE 'fifteen' .
  WHEN  16 .
    WRITE 'sixteen' .
  WHEN  17 .
    WRITE 'seventeen' .
  WHEN  18 .
    WRITE 'eighteen' .
  WHEN  19 .
    WRITE 'nineteen' .


ENDCASE.

WHEN  0 .

IF tempr <> 0 .
  WRITE 'and' .
tempr = tempii .
  CASE tempii.

    WHEN  1 .
      WRITE 'one' .
    WHEN  2 .
      WRITE 'two' .
    WHEN  3 .
      WRITE 'three' .
    WHEN  4 .
      WRITE 'four' .
    WHEN  5 .
      WRITE 'five' .
    WHEN  6 .
      WRITE 'six' .
    WHEN  7 .
      WRITE 'seven' .
    WHEN  8 .
      WRITE 'eight' .
    WHEN  9 .
      WRITE 'nine' .
  ENDCASE.

ENDIF .

WHEN  2 .
WRITE 'twenty' .
WHEN  3 .
WRITE 'thirty' .
WHEN  4 .
WRITE 'fourty' .
WHEN  5 .
WRITE 'fifty' .
WHEN  6 .
WRITE 'sixty' .
WHEN  7 .
WRITE 'seventy' .
WHEN  8 .
WRITE 'eighty' .
WHEN  9 .
WRITE 'ninty' .
ENDCASE.


***********************
IF tempr <> 0 and tempe <> 0.
        tempii = tempr .
        CASE tempii.

          WHEN  1 .
            WRITE 'one' .
          WHEN  2 .
            WRITE 'two' .
          WHEN  3 .
            WRITE 'three' .
          WHEN  4 .
            WRITE 'four' .
          WHEN  5 .
            WRITE 'five' .
          WHEN  6 .
            WRITE 'six' .
          WHEN  7 .
            WRITE 'seven' .
          WHEN  8 .
            WRITE 'eight' .
          WHEN  9 .
            WRITE 'nine' .
        ENDCASE.

      ENDIF .

***********************

ENDIF .



***************************************************************
fanweijun
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
SAP_ABAP_选择屏幕的DIV布局功能实现步骤 && SAP资产负债表的实现步骤
java_zhong1990的专栏
12-28 598
1 实现效果： 2 代码实现片段： INITIALIZATION. l_txt = '资产：' && cl_abap_char_utilities=>cr_lf && ' 流动资产：' && cl_abap_char_utilities=>cr_lf && ' 货币资金：1001*+1002*+1012*+1132*' && cl_abap_char_utilities=>cr
SAP_ABAP_MM_物料视图维护监控报表（自定义开发）
最新发布
java_zhong1990的专栏
11-29 1038
当物料编码存在MSTA-MATNR,且MSTA-WERKS=工厂 + MSTA-STATM=L +当物料编码存在MARC-MATNR,且MARC-DISMM=PD和MARC-DISPO≠空。当物料编码存在MARC-MATNR,且MARC-EKGRP≠空。当物料编码存在MARA-MATNR。则对应工厂此字段则勾选或者显示是。则对应工厂此字段则勾选或者显示是。则对应工厂此字段则勾选或者显示是。则对应工厂此字段则勾选或者显示是。则对应工厂此字段则勾选或者显示是。则对应工厂此字段则勾选或者显示是。
英文字母与数字的相互转换
05-22
英文字母与数字的相互转换如： A->1 AA->27 26->Z 28->AB
SAP ABAP 将数字金额转换为英文
Qunending的博客
06-28 900
主要运用了SPELL_AMOUNT函数，但是这个函数无法识别小数点，只好手动将金额字段拆解为整数部分和小数部分，然后分别调用函数。 SPLITLV_NUAT'.'INTOLV_ZHENSLV_XIAOS. CALLFUNCTION'SPELL_AMOUNT' EXPORTING AMOUNT=LV_ZHENS *CURRENCY='' *FILLER='' LANGUAGE='...
<一> SAP ABAP 将数字转换成本地语言（中文、英文）大写
王小磊
09-14 3630
由于打印invoice和packing list等时需要将数量和金额转换成英文大写，所以写了段代码进行转换。利用此段代码可以将所有数字类型的值转换成英文大写。源代码如下： iftotal_amountne0. performget_num_lenusingtotal_amount changingintegerpointleng1leng2. perform...
ABAP 将数字转换成中文、英文
qq_38715987的博客
07-21 508
ABAP 将数字转换成中文、英文
SAP ABAP 金额或数字转换成英文
only_oy的博客
07-18 738
DATA:GV_JE TYPE SPELL. CLEAR:I_JE. CALL FUNCTION 'SPELL_AMOUNT' EXPORTING amount = T_AMOUNT currency = '232,323.84' language = 'E' IMPORTING in_words = GV_JE EXCEPTIONS not_found = 1 too_large = 2 OTHERS = 3. I.
SAP ABAP smartforms 创建并实现调用源码（下）
qq_41757790的博客
05-30 909
SAP ABAP SMARTFORMS 智能表单的创建和调用源码
SAP_ABAP_MM_采购发票查询_设计方案+实现代码（RBKP_RSEG）
java_zhong1990的专栏
09-04 1557
查询统计采购发票、采购订单的数量、单价、含税金额、未含税金额、发票号、会计凭证编号以及发票的一些行项目信息等。 1.2.2 涉及含税的计算公式
SAP_ABAP_FUNCTION_ALV案例
java_zhong1990的专栏
08-29 564
基于退货采购订单创建，解释FUNCTION_ALV开发的程序结构与代码模板参考
SAP ABAP数字金额转中文大写源代码
07-01
SAP ABAP数字金额转中文大写源代码
一个将数字金额转成英文大写金额的函数字母也是大写
12-22
一个将数字金额转成英文大写金额的函数字母也是大写，有源代码，学习起来非常简单，希望给大家带来帮助。相互学习，共同进步
数字转换为英文
averyboy的博客
03-22 3604
实验都是大模拟之数字转换为英文：这个题本来想直接打表到999的，可是作为一个单身狗，哪里敢想999啊。。 英文是以三位数来读的，所以写一个函数来表示每三位数的读法，加上单位就行了，不过我还学到了英文的数量单位：我只要1quadrillion就够了（生无可恋。。） thousand million billion quadrillion quintillion sextillion s
<二>SAP ABAP将数字转换为本地语言（中文、英文）大写 - 函数SPELL_AMOUNT
王小磊
09-14 7108
SAP  处理实际业务中会遇到需求：将数字或者金额转换为 中文大写或者英文大写等其他一系列语言的大写形式。 我们可以调用系统标准函数SPELL_AMOUNT 1、想将金额转换为大写的英文描述。       注意点：1.转化金额字段时，AMOUNT参数必须有两位小数，如果为整数的话，函数会自动除以100，以达到两                          位小数的要求
ABAP 金额大写使用SPELL_AMOUNT 无法转换小数位的解决方法
Nathan的博客
09-24 1147
ABAP 金额大写使用SPELL_AMOUNT 无法转换小数位的解决方法 当使用SPELL_AMOUNT函数转换金额大写时会发现小数位会被忽略 这里我们需要参考SPELL_AMOUNT自行创建一个转换函数，其代码如下 FUNCTIONYNF_SPELL_AMOUNT.*"----------------------------------------------------...
ABAP常用function 收藏
少年休闲海
10-22 1430
ABAP常用function 收藏 ----------------------------------------------------- 获取生产定单状态 ----------------------------------------------------- call function 'STATUS_TEXT_EDIT' EXPORTING flg_user_stat =
EXCEL 中如何将数字转换成英文
热门推荐
gloria_64的专栏
08-30 2万+
财务部提出在EXCEL中输入一个数字，可以自动转换成英文。这样可以节约他们很多重复劳动的时间。其实呢，这个问题不是我的职责范围拉，不过好像同事有EXCEL的问题都会来问问我的，我觉得帮助他们其实我自己也可以得到提高，所以我就研究了一下这个问题，发现其实通过自定义函数还是很容易解决的。1.创建一个模块： 在SHEET上，右键－》查看代码。选中“模块”－》插入模块。2.写代码：Opti
SAP BW转换中ABAP例行程序的使用指南
2. **集成到转换**：在SAP BW的转换对象中，将ABAP日常添加到适当的步骤，例如输入处理、主处理或输出处理。 3. **参数传递**：根据需要设置和使用输入/输出参数，以便与转换的其他部分交互。 4. **调试与测试**：...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值