ITPub博客

首页 > Linux操作系统 > Linux操作系统 > Enhancement记录更改Order Operation

Enhancement记录更改Order Operation

原创 Linux操作系统 作者:ytfsrs2008 时间:2009-02-24 14:22:34 0 删除 编辑
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/,如需转载,请注明出处,否则将追究法律责任。

下一篇: 增强的实现步骤
请登录后发表评论 登录
全部评论

注册时间:2008-10-31

  • 博文量
    52
  • 访问量
    50349