SAP中如何檢視BOM的修改記錄呢?

SAPmatinal發表於2020-07-07

方案一:se38:RCS00100,F8執行(DATUM表示開始日期,tabname:BOM的Header,填寫STKO;如落實到item級別,填寫STPO)。然後再執行即可看到00104708該使用者所做得建立,修改,刪除bom得所有記錄(哈哈很簡單把,我也覺得很簡單,而且結果確實看到了,我所做得關於bom得每一筆資料,測試成功!)


方案二:se11/se12:CDHDR【CDHDR是記錄Header層面的Change,CDPOS記錄item級別的Change】(實用程式-表內容-顯示)


 


第一步:SE12,Table=CDHDR,Table Contents。欄位選擇如下填寫: 


Change doc. object=STUE(排他性的) 


Date:起止日期,自己確定,日期段落越大,執行時間越長 


Transaction:CS02(除了CS02變更BOM之外,我想不出還有什麼刪除BOM的方法) 


Appl.obj.change:U(只能是U,但我本人也很迷惑為什麼刪除了的BOM不能是D)執行。系統將顯示有關的記錄,記錄下有關的Object value的號碼。 


 


第二步:SE12,Table=CDPOS,Table Contents。欄位選擇如下填寫: 


Change doc. object=STUE(排他性的) 


Object Value:從第一步獲得 


Table name:STPO(排他性的) 


Change ID:D,U反映的是item值的新舊對比記錄

concatenate sy-mandt 'M' itab_bom-stlnr into objectid.
  clear itab_cdhdr.
  refresh itab_cdhdr.
  clear change_data.
  refresh change_data.
 
  CALL FUNCTION 'CHANGEDOCUMENT_READ_HEADERS'
      EXPORTING
        DATE_OF_CHANGE    = '00000000'
        OBJECTCLASS       = 'STUE'
        OBJECTID          = objectid
        TIME_OF_CHANGE    = '000000'
        USERNAME          = ''
      TABLES
        I_CDHDR           = ICDHDR
      EXCEPTIONS
        NO_POSITION_FOUND = 1
        OTHERS            = 2.
 
  if icdhdr[] is not initial.
    loop at icdhdr where udate >= s_erdat-low.
      itab_cdhdr-objectclas = icdhdr-objectclas.
      itab_cdhdr-objectid = icdhdr-objectid.
      itab_cdhdr-changenr = icdhdr-changenr.
      itab_cdhdr-udate = icdhdr-udate.
      append itab_cdhdr.
 
      CALL FUNCTION 'CHANGEDOCUMENT_READ_POSITIONS'
        EXPORTING
          CHANGENUMBER      = ICDHDR-CHANGENR
*          TABLEKEY          = TABKEY
          TABLENAME         = 'STPO'
        IMPORTING
          HEADER            = CDHDR
        TABLES
          EDITPOS           = ICDSHW
       EXCEPTIONS
         NO_POSITION_FOUND = 1
         OTHERS            = 2.
*
*    select objectclas objectid changenr tabname tabkey fname chngind
*           value_new value_old from cdpos into table change_data
*     where objectclas = 'STUE' and objectid = bom_temp-objectid
*       and tabkey = bom_temp-tabkey and tabname = 'STPO' and
*           ( fname = 'IDNRK' or fname = 'MENGE' or fname = 'KEY' ).
 
     if icdshw[] is not initial.
       loop at icdshw.
         MOVE itab_cdhdr-objectclas  TO change_data-objectclas.
         MOVE itab_cdhdr-objectid  TO change_data-objectid.
         MOVE itab_cdhdr-changenr  TO change_data-changenr.
         MOVE itab_cdhdr-udate TO change_data-udate.
         MOVE ICDSHW-TABNAME TO change_data-tabname.
         MOVE ICDSHW-TABKEY TO change_data-tabkey.
         MOVE ICDSHW-FNAME TO change_data-fname.
         MOVE ICDSHW-F_OLD TO change_data-value_old.
         MOVE ICDSHW-F_NEW TO change_data-value_new.
         MOVE ICDSHW-CHNGIND TO change_data-chngind.
         APPEND change_data.
       endloop.
     endif.
    endloop.
  endif.


來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/69901557/viewspace-2702971/,如需轉載,請註明出處,否則將追究法律責任。

相關文章