SAP生产订单更改记录

素颜马尾好姑娘i 2022-02-17 07:57 348阅读 0赞

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1][]

![20190419095142145.png][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 2][]

\*&---------------------------------------------------------------------\*  
\*& 包含               ZXCO1U01  
\*&---------------------------------------------------------------------\*  
  
  TABLES:caufv,resb.  
  DATA: BEGIN OF old\_resb OCCURS 0, "更改后未保存之RESB.  
          aufnr LIKE resb-aufnr,  
          posnr LIKE resb-posnr,  
          matnr LIKE resb-matnr,  
          rsnum LIKE resb-rsnum,  
          rspos LIKE resb-rspos,  
          xloek LIKE resb-xloek,  
          bdmng LIKE resb-bdmng,  
          objnr LIKE resb-objnr,  
        END OF old\_resb.  
  DATA: BEGIN OF new\_resb OCCURS 0. "数据库中的RESB.  
      INCLUDE STRUCTURE old\_resb.  
  DATA: END OF new\_resb.  
  DATA: BEGIN OF obj\_resb OCCURS 0. "插入的RESB  
      INCLUDE STRUCTURE old\_resb.  
  DATA: END OF obj\_resb.  
  DATA: i\_zpco02 LIKE zpco002 OCCURS 0 WITH HEADER LINE.  
  DATA: i\_temp LIKE zpco002 OCCURS 0 WITH HEADER LINE.  
  DATA: iporg     LIKE msxxlist-hostadr,  
        ipdec(16) TYPE c,  
        host(18)  TYPE c.  
  DATA:char1(20) TYPE c,  
       char2(20) TYPE c.  
  DATA: inst\_flg TYPE c VALUE 'N',  
        chan\_had TYPE c VALUE  'N'.  
  
  
  CHECK sy-tcode EQ 'CO02'.  
\*\* Get user IP,hostname  
  CALL FUNCTION 'TH\_USER\_INFO'  " Get user IP,hostname  
    EXPORTING  
      client   = sy-mandt  
      user     = sy-uname  
    IMPORTING  
      hostaddr = iporg  
      terminal = host  
    EXCEPTIONS  
      OTHERS   = 1.  
\*\*"Conv.IP addr to format "xxx.xxx.xxx.xxx"  
  CALL FUNCTION 'GWY\_IPADR2STRING'   "Conv.IP addr  
    EXPORTING  
      ipadr  = iporg  
    IMPORTING  
      string = ipdec.  
\*\*\*Common var.  
  MOVE: sy-mandt TO i\_temp-mandt,  
  sy-uname TO i\_temp-aenam,  
  sy-datum TO i\_temp-laeda,  
  sy-uzeit TO i\_temp-times,  
  sy-tcode TO i\_temp-tcode,  
  ipdec TO i\_temp-hostip,  
  host TO i\_temp-host,  
  header\_table-aufnr TO i\_temp-aufnr.  
  
  
  SELECT SINGLE gamng gstrp INTO (caufv-gamng, caufv-gstrp)  
  FROM caufv WHERE aufnr EQ header\_table-aufnr.  
  
  IF header\_table-gamng NE caufv-gamng.  
    MOVE: caufv-gamng TO char1, header\_table-gamng TO char2.  
    MOVE-CORRESPONDING i\_temp TO i\_zpco02.  
    MOVE: '更改工单总数' TO i\_zpco02-filed,  
    'U' TO i\_zpco02-chnid,  
    char1 TO i\_zpco02-value\_old,  
    char2 TO i\_zpco02-value\_new.  
    APPEND i\_zpco02.  
    inst\_flg = 'Y'.  
    chan\_had = 'Y'.  
  ENDIF.  
  
  IF header\_table-gstrp NE caufv-gstrp.  
    MOVE-CORRESPONDING i\_temp TO i\_zpco02.  
    MOVE: '更改开工日期' TO i\_zpco02-filed,  
    'U' TO i\_zpco02-chnid,  
    caufv-gstrp TO i\_zpco02-value\_old,  
    header\_table-gstrp TO i\_zpco02-value\_new.  
    APPEND i\_zpco02.  
    inst\_flg = 'Y'.  
  ENDIF.  
  IF inst\_flg = 'Y'.  
    INSERT zpco002 FROM TABLE i\_zpco02 ACCEPTING DUPLICATE KEYS.  
    inst\_flg = 'N'.  
  ENDIF.  
  
  LOOP AT component\_table WHERE vbkz EQ 'U'  
  OR vbkz EQ 'I'  
  OR vbkz EQ 'D'.  
    CASE component\_table-vbkz.  
      WHEN 'I'.  
        MOVE-CORRESPONDING i\_temp TO i\_zpco02.  
        MOVE: '新增组件' TO i\_zpco02-filed,  
        'I' TO i\_zpco02-chnid,  
        '' TO i\_zpco02-value\_old, "old\_resb-matnr  
        component\_table-matnr TO i\_zpco02-value\_new,  
        '新增的组件' TO i\_zpco02-matnr,  
        component\_table-alpos TO i\_zpco02-alpos,  
        sy-tabix TO i\_zpco02-loopid.  
        APPEND i\_zpco02.  
        inst\_flg = 'Y'.  
      WHEN 'D'.  
        MOVE-CORRESPONDING i\_temp TO i\_zpco02.  
        MOVE: '删除组件' TO i\_zpco02-filed,  
        'D' TO i\_zpco02-chnid,  
        resb-xloek TO i\_zpco02-value\_old,  
        component\_table-xloek TO i\_zpco02-value\_new,  
        component\_table-matnr TO i\_zpco02-matnr,  
        component\_table-alpos TO i\_zpco02-alpos,  
        sy-tabix TO i\_zpco02-loopid.  
        APPEND i\_zpco02.  
        inst\_flg = 'Y'.  
      WHEN 'U'.  
        SELECT SINGLE matnr bdmng INTO (resb-matnr, resb-bdmng)  
        FROM resb WHERE aufnr EQ component\_table-aufnr  
        AND posnr EQ component\_table-posnr  
        AND matnr EQ component\_table-matnr  
        AND rsnum EQ component\_table-rsnum  
        AND rspos EQ component\_table-rspos.  
        IF component\_table-matnr NE resb-matnr.  
          MOVE-CORRESPONDING i\_temp TO i\_zpco02.  
          MOVE: '更改组件' TO i\_zpco02-filed,  
          'U' TO i\_zpco02-chnid,  
          resb-matnr TO i\_zpco02-value\_old,  
          component\_table-matnr TO i\_zpco02-value\_new,  
          '更改的工单组件' TO i\_zpco02-matnr,  
          component\_table-alpos TO i\_zpco02-alpos,  
          sy-tabix TO i\_zpco02-loopid.  
          APPEND i\_zpco02.  
          inst\_flg = 'Y'.  
        ELSEIF component\_table-bdmng NE resb-bdmng.  
          CHECK chan\_had NE 'Y'.  
          MOVE: component\_table-bdmng TO char1, resb-bdmng TO char2.  
          MOVE-CORRESPONDING i\_temp TO i\_zpco02.  
          MOVE: '需求数量' TO i\_zpco02-filed,  
          'U' TO i\_zpco02-chnid,  
          char2 TO i\_zpco02-value\_old,  
          char1 TO i\_zpco02-value\_new,  
          component\_table-matnr TO i\_zpco02-matnr,  
          component\_table-alpos TO i\_zpco02-alpos,  
          sy-tabix TO i\_zpco02-loopid.  
          APPEND i\_zpco02.  
          inst\_flg = 'Y'.  
        ENDIF.  
    ENDCASE.  
  ENDLOOP.  
  IF inst\_flg = 'Y'.  
    INSERT zpco002 FROM TABLE i\_zpco02 ACCEPTING DUPLICATE KEYS.  
    IF sy-subrc EQ 0.  
      inst\_flg = 'N'.  
      chan\_had = 'N'.  
\* MESSAGE ID "ZX" TYPE "W"  
\* NUMBER "000" WITH "SAP系统已记录您的更改!".  
    ENDIF.  
  ENDIF.

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 3][]

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20220217/5874a6ddd7e8422c8f64b79d800a26f5.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1]: /images/20220217/c86f5729c36d480d9ee8c9450e3cae86.png
[20190419095142145.png]: /images/20220217/86dbf1177d3045b89bdeffdb0d773e42.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 2]: /images/20220217/58ca87da86b14b42a03a38dbc05f7fa6.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 3]: /images/20220217/45bc67ac75684e7ead9c7ce9a0eb09a7.png