Enhancement记录更改Order Operation

最新推荐文章于 2023-09-17 15:29:35 发布

crx5828

最新推荐文章于 2023-09-17 15:29:35 发布

阅读量122

点赞数

Enhancement: PPCO0019 Checks for changes to order operations
Function module : EXIT_SAPLCOVG_001
INCLUDE ZXCO1U19 .
case sy-mandt.
      when '105' or '305' or '505' or '605' or '805'.
        if IS_header-werks = 'MYL1' or
           IS_header-werks = 'MYLA' or
           IS_header-werks = 'MYLT' .

           DATA: L_OBJNR LIKE JEST-OBJNR,
                 L_LINE LIKE BSVX-STTXT.

           IF IS_HEADER-AUFNR NS '%'.
            CONCATENATE 'OR' IS_HEADER-AUFNR INTO L_OBJNR.
            CALL FUNCTION 'STATUS_TEXT_EDIT' EXPORTING BJNR = L_OBJNR
                                                       SPRAS = 'E'
                                             IMPORTING LINE = L_LINE.

            CONCATENATE '' L_LINE '' INTO L_LINE SEPARATED BY ' '.
            IF L_LINE CS ' REL ' .
              IF IS_OPERATION_NEW-ARBID <> IS_OPERATION_OLD-ARBID OR
                 IS_OPERATION_NEW-STEUS <> IS_OPERATION_OLD-STEUS OR
                 IS_OPERATION_NEW-ARBPL <> IS_OPERATION_OLD-ARBPL.
                 MESSAGE ID '00' TYPE 'E' NUMBER 208
           WITH 'Order has released, Modify is forbidden!'.
              ENDIF.
            ENDIF.
          ENDIF.

        endif.
    endcase.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/15117617/viewspace-557561/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/15117617/viewspace-557561/