生产订单修改记录增强 PPCO0001

桃扇骨 2021-12-20 11:25 231阅读 0赞

PPCO0001

![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][]

*\*&---------------------------------------------------------------------\**  
*\*& **包含**               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]: /images/20211220/07b93641cc914934854de645588b15f6.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1]: /images/20211220/1a6b410045d64a1f9af5b4eaf92d9cde.png