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.

上一篇:.NET Core 控制台应用程序使用异步(Async)Main方法


下一篇:Linux安装/卸载软件教程