bom更改编号 sap_SAP中如何查找BOM修改记录

「爱情、让人受尽委屈。」 2022-12-31 15:29 246阅读 0赞

1.0 相关BOM介绍

方案一：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值的新旧对比记录

2.0 相关BOM代码

\-------------------------------------------------求SAP系统用ABAP开发关于BOM的修改记录或日志报表\[程序未测试\]------------------------------------------

1 concatenate sy-mandt 'M' itab\_bom-stlnr into objectid.2 clear itab\_cdhdr.3 refresh itab\_cdhdr.4 clear change\_data.5 refresh change\_data.6 7   CALL FUNCTION 'CHANGEDOCUMENT\_READ\_HEADERS'8       EXPORTING9         DATE\_OF\_CHANGE    = '00000000'10         OBJECTCLASS       = 'STUE'11         OBJECTID          =objectid12         TIME\_OF\_CHANGE    = '000000'13         USERNAME          = ''14       TABLES15         I\_CDHDR           =ICDHDR16       EXCEPTIONS17         NO\_POSITION\_FOUND = 118         OTHERS            = 2.19 20   if icdhdr\[\] is notinitial.21     loop at icdhdr where udate >= s\_erdat-low.22       itab\_cdhdr-objectclas = icdhdr-objectclas.23       itab\_cdhdr-objectid = icdhdr-objectid.24       itab\_cdhdr-changenr = icdhdr-changenr.25       itab\_cdhdr-udate = icdhdr-udate.26 append itab\_cdhdr.27 28       CALL FUNCTION 'CHANGEDOCUMENT\_READ\_POSITIONS'29         EXPORTING30           CHANGENUMBER      = ICDHDR-CHANGENR31 \*TABLEKEY          = TABKEY

32           TABLENAME         = 'STPO'33         IMPORTING34           HEADER            =CDHDR35         TABLES36           EDITPOS           =ICDSHW37        EXCEPTIONS38          NO\_POSITION\_FOUND = 139          OTHERS            = 2.40 \*

41 \*select objectclas objectid changenr tabname tabkey fname chngind

42 \*value\_new value\_old from cdpos into table change\_data

43 \*where objectclas = 'STUE' and objectid = bom\_temp-objectid

44 \*and tabkey = bom\_temp-tabkey and tabname = 'STPO' and

45 \*( fname = 'IDNRK' or fname = 'MENGE' or fname = 'KEY' ).

46 47      if icdshw\[\] is notinitial.48 loop at icdshw.49          MOVE itab\_cdhdr-objectclas  TO change\_data-objectclas.50          MOVE itab\_cdhdr-objectid  TO change\_data-objectid.51          MOVE itab\_cdhdr-changenr  TO change\_data-changenr.52          MOVE itab\_cdhdr-udate TO change\_data-udate.53          MOVE ICDSHW-TABNAME TO change\_data-tabname.54          MOVE ICDSHW-TABKEY TO change\_data-tabkey.55          MOVE ICDSHW-FNAME TO change\_data-fname.56          MOVE ICDSHW-F\_OLD TO change\_data-value\_old.57          MOVE ICDSHW-F\_NEW TO change\_data-value\_new.58          MOVE ICDSHW-CHNGIND TO change\_data-chngind.59          APPENDchange\_data.60 endloop.61 endif.62 endloop.63   endif.