**&&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.