ABAP SAP 千分位 处理

这篇博客详细介绍了如何使用ABAP代码进行货币转换,并将结果格式化为标准的外部表示,包括处理小数点和逗号的插入,确保数值的正确显示。主要涉及的编程操作包括调用BAPI函数、字符串操作以及循环结构的应用。
摘要由CSDN通过智能技术生成

代码参见

DATA lv_curr TYPE bapicurr-bapicurr.
*统一转换给外部数据,保留精度
  CALL FUNCTION 'BAPI_CURRENCY_CONV_TO_EXTERNAL'
    EXPORTING
      currency        = ''
      amount_internal = lv_price
    IMPORTING
      amount_external = lv_curr.

  CLEAR lv_currc.
  lv_currc = lv_curr.
  SPLIT lv_currc AT '.' INTO DATA(lv_tmp1) DATA(lv_tmp2).
  CONDENSE:lv_tmp1,lv_tmp2.
  DATA(lv_len) = strlen( lv_tmp1 ).
  DATA(lv_len1) = lv_len MOD 3.

  DATA(lv_len2) = lv_len DIV 3.

*根据整除保留的整数进行循环,无偏移时最后一次不用循环默认为0
  DO lv_len2 TIMES.
*小于1和无偏移时,最后一次的逗号不用加
    IF lv_len = 3 OR ( lv_len1 = 0 AND sy-index = lv_len2 ).
      EXIT.
    ENDIF.

*偏移按照第一次进行偏移
    IF lv_len1 <> 0.
      DATA(lv_len3) = lv_len1 + sy-index - 4 + 3 * sy-index .
    ENDIF.

*无偏移3的倍数+当前次数-1,1为第一次偏移
    IF lv_len1 = 0.
      lv_len3 = 3 * sy-index + sy-index - 1.
    ENDIF.
*从中间插入
    DATA(lv_len4) = strlen( lv_tmp1 ) - lv_len3.
    CONCATENATE lv_tmp1+0(lv_len3) ',' lv_tmp1+lv_len3(lv_len4) INTO lv_tmp1.
  ENDDO.
*保留2位小数
  lv_currc = lv_tmp1 && '.' && lv_tmp2+0(2).
  CONDENSE lv_currc.

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值