MB_CHANGE_DOCUMENT使用方法

2014-11-24 07:44:54 来源: 作者: 浏览: 3
MB_CHANGE_DOCUMENT使用方法
            REFRESH IT_MSEG.
            CLEAR IT_MSEG.

            SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_MSEG
                     FROM MSEG WHERE MBLNR = TITAB-MBLNR
                                 AND MJAHR = TITAB-MJAHR
                                 AND ZEILE = TITAB-ZEILE.
            LOOP AT IT_MSEG.
                  IF IT_MSEG-SGTXT = ''.
                     IT_MSEG-SGTXT = '1'.
                  ELSE.
                     IT_MSEG-SGTXT = IT_MSEG-SGTXT + 1.
                  ENDIF.
                  MODIFY IT_MSEG.
                  CLEAR IT_MSEG.
            ENDLOOP.

            CALL FUNCTION 'MB_CHANGE_DOCUMENT'
              TABLES
                ZMKPF         = IT_MKPF
                ZMSEG         = IT_MSEG.
            IF SY-SUBRC = 0.
                 CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
                 EXPORTING
                   WAIT          = 'X'.
            ELSE.
                 CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
            ENDIF.


-->

评论

帐  号: 密码: (新用户注册)
验 证 码:
表  情:
内  容: