SAP生产订单更改记录

107 阅读 0 评论 71 点赞

我是靠谱客的博主风趣糖豆，最近开发中收集的这篇文章主要介绍SAP生产订单更改记录，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

*&---------------------------------------------------------------------*
*& 包含               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.