matinal：OB08维护汇率数据到TCURR的BAPI

最新推荐文章于 2024-08-23 23:16:38 发布

SAPmatinal

最新推荐文章于 2024-08-23 23:16:38 发布

阅读量282

点赞数

分类专栏： ABAP技术文章标签： javascript 开发语言 ecmascript 数据库服务器

本文链接：https://blog.csdn.net/SAPmatinal/article/details/131675183

版权

ABAP技术专栏收录该内容

1028 篇文章 135 订阅

订阅专栏

直接上代码

**&&OB08BAPI参数
  DATA: exch_rate  LIKE bapi1093_0   OCCURS 1 WITH HEADER LINE,
        rettab       LIKE bapiret2   OCCURS 1 WITH HEADER LINE.

exch_rate-rate_type = ls_item_input-extype.
            exch_rate-from_curr = ls_item_input-domcurr.
            exch_rate-to_currncy = ls_item_input-forcurr.
            exch_rate-valid_from = ls_item_input-date.
            exch_rate-exch_rate = ls_item_input-rate.
            exch_rate-from_factor = '1'.
            exch_rate-to_factor   = '1'.
            APPEND exch_rate.
            CALL FUNCTION 'BAPI_EXCHANGERATE_CREATE'
              EXPORTING
                exch_rate        = exch_rate
*               UPD_ALLOW        = ' '                "如果需要更新汇率  此参数值设置为X
*               CHG_FIXED        = ' '
*               DEV_ALLOW        = '000'
             IMPORTING
               return           = ret2
*               RATE_TYPE        =
*               FROM_CURR        =
*               TO_CURRNCY       =
                      .
            IF ret2[] IS INITIAL .
              CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
                EXPORTING
                  wait = 'X'.
              lt_return-msgty = 'S' .
              APPEND lt_return.
              CLEAR lt_return.
            ELSE.
              LOOP AT ret2.
                CASE ret2-type.
                  WHEN 'A' OR 'E' OR 'X'.
                    CALL METHOD cl_soap_commit_rollback=>rollback.
                    lt_return-msgty = 'E'.
                    CONCATENATE ret2-id ret2-number ret2-message
                    INTO lt_return-msgtx.
                    APPEND lt_return.
                    CLEAR lt_return.
                  WHEN 'W'.
                    CALL METHOD cl_soap_commit_rollback=>commit.
                    lt_return-msgty = 'S' .
                    APPEND lt_return.
                    CLEAR lt_return.
                  WHEN OTHERS.
                    CALL METHOD cl_soap_commit_rollback=>commit.
                    lt_return-msgty = 'S' .
                    APPEND lt_return.
                    CLEAR lt_return.
                ENDCASE.
              ENDLOOP.
            ENDIF.