ABAP 单位转换函数封装

最新推荐文章于 2025-06-18 15:13:26 发布

原创最新推荐文章于 2025-06-18 15:13:26 发布 · 126 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#ABAP

ABAP 专栏收录该内容

45 篇文章

订阅专栏

CLASS ztest_01 DEFINITION
  PUBLIC
  FINAL
  CREATE PUBLIC .

  PUBLIC SECTION.

    METHODS unit_conversion_simple
      IMPORTING
        !iv_input        TYPE hoehe
        !iv_round_sign   TYPE boolean DEFAULT 'X'
        !iv_unit_in      TYPE t006-msehi
        !iv_unit_out     TYPE t006-msehi DEFAULT 'M'
      RETURNING
        VALUE(rv_output) TYPE hoehe .
  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.



CLASS ZTEST_01 IMPLEMENTATION.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZTEST_01->UNIT_CONVERSION_SIMPLE
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_INPUT                       TYPE        HOEHE
* | [--->] IV_ROUND_SIGN                  TYPE        BOOLEAN (default ='X')
* | [--->] IV_UNIT_IN                     TYPE        T006-MSEHI
* | [--->] IV_UNIT_OUT                    TYPE        T006-MSEHI (default ='M')
* | [<-()] RV_OUTPUT                      TYPE        HOEHE
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD unit_conversion_simple.
    CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
      EXPORTING
        input                = iv_input
        round_sign           = iv_round_sign
        unit_in              = iv_unit_in
        unit_out             = iv_unit_out
      IMPORTING
        output               = rv_output
      EXCEPTIONS
        conversion_not_found = 01
        division_by_zero     = 02
        input_invalid        = 03
        output_invalid       = 04
        overflow             = 05
        units_missing        = 06
        unit_in_not_found    = 07
        unit_out_not_found   = 08.
    IF sy-subrc IS NOT INITIAL.
      CLEAR rv_output.
    ENDIF.

  ENDMETHOD.
ENDCLASS.