金额末尾去0 封装

最新推荐文章于 2022-10-26 08:52:44 发布

Bitter、

最新推荐文章于 2022-10-26 08:52:44 发布

阅读量190

点赞数

分类专栏： ABAP 文章标签： sap abap

本文链接：https://blog.csdn.net/qq_44304062/article/details/122714433

版权

ABAP 专栏收录该内容

13 篇文章 0 订阅

订阅专栏

@78\QImporting@	value( IM_FIELD )	TYPE CLIKE	
@78\QImporting@	IM_CONDENSE_FIELD_NOZERO	TYPE CHAR01 OPTIONAL	压缩为 ‘0’ 或 空
@79\QExporting@	value( EX_FIELD )	TYPE CLIKE	

  METHOD set_decimal_nozero.

    DATA: result_tab TYPE match_result_tab.
    FIND ALL OCCURRENCES OF '.' IN im_field RESULTS result_tab.
    IF sy-subrc = 0.
      SHIFT im_field RIGHT DELETING TRAILING space.
      SHIFT im_field RIGHT DELETING TRAILING '0'.
      SHIFT im_field RIGHT DELETING TRAILING '.'.
      CONDENSE im_field NO-GAPS.
    ENDIF.
    ex_field = im_field.
    IF ex_field = '0' AND im_condense_field_nozero = 'X'.
      ex_field = ''.
    ENDIF.
    IF ex_field IS INITIAL AND im_condense_field_nozero = ''.
      ex_field = '0'.
    ENDIF.

  ENDMETHOD.