SAP SCDO 表的修改日志记录

1、SAP系统中,如果有需要对自建表的数据记录修改日志的,可以创建文档记录,由系统自动记录表字段的修改. 程序中只需要传入修改前和修改后的数据即可. 需要显示日志时,只需要读出修改记录,显示即可.一. SE11 进入要记录修改日志的自建表,进入需要记录修改的字段的数据元素中,在further characteristic页面中,勾选 更改文档二. TCODE : SCDO输入文档对象 ZMG_TEST001,点击继续输入描述,及需要记录日志的表名字注:如果是对比单条记录的修改,则不需要勾选 复制为内部表.(如抬头信息)如果需要批量对比多条记录的修改,则需要打勾.(如行项目信息)然后点击: 插入条目

2、来到如下屏幕菜单栏 :实用程序 -> 生成更新程序 系统将自动生成一个可以记录修改日志的更新函数，只需将修改前及修改后的记录填入函数相关参数中，系统会自动判断此次对哪些字段（数据元素中更改文档已打勾）做了修改，并记录下来点击保存.然后退出回到前一屏点击: 生成信息文档修改对象创建完成红框中的函数名即为更新程序三. 在程序中, (修改前的字段内容和修改后的字段内容)调用更新函数来记录修改日志.      call function ' ZMG_TEST001_WRITE_DOCUMENT'

3、60;       exporting          objectid                = lv_obid“对象值 如PO号          

4、;tcode                   = sy-tcode“修改记录的tocde          utime               

5、;    = sy-uzeit“当前时间          udate                   = sy-datum“当前日期         &#

6、160;username                = sy-uname“修改人          object_change_indicator = 'U'          n_zmms

7、p1                = zmmsp1 “修改后的数据记录(单条)          o_zmmsp1                = zmms

8、p1_old“修改前的数据记录(单条)          upd_zmmsp3              = 'U'        tables         &

9、#160;icdtxt_zmm_sp           = icdtxt          xzmmsp2                 = zmmsp2_new“修改后的数据记录(多条)

10、0;         yzmmsp2                 = zmmsp2_old.“修改前的数据记录(多条)四. SE37创建读出日志并显示的函数Z_READ_HISTORY函数相关属性如下：IMPORTTABLESSource code  data:editpos type 

11、;table of cdred  with header line,       aeditpos type table of cdred with header line.  data:wk_repid type repid.  if tablekey is initial.  

12、0; call function 'CHANGEDOCUMENT_READ'      exporting        objectclass                = objectclass   

13、60;    objectid                   = objectid        username             &#

14、160;     = username        tablename                  = tablename      tables    

15、0;   editpos                    = aeditpos      exceptions        no_position_found    

16、60;     = 1        wrong_access_to_archive    = 2        time_zone_conversion_error = 3        others  &#

17、160;                  = 4.  else.    loop at tablekey .      call function 'CHANGEDOCUMENT_READ'  

18、0;     exporting          objectclass                = objectclass          objectid 

19、                  = objectid          tablekey                  &

20、#160;= tablekey-tabkey          tablename                  = tablename          username  

21、                 = username        tables          editpos          &#

22、160;         = editpos        exceptions          no_position_found          = 1    &

23、#160;     wrong_access_to_archive    = 2          time_zone_conversion_error = 3          others       &#

24、160;             = 4.      loop at editpos.        append editpos to aeditpos.      endloop.  &

25、#160; endloop.  endif.  if aeditpos is initial.    message s010(zac00).  else.    if tcode ne space.      delete aeditpos where tcode ne

26、0;tcode.    endif.    wk_repid = objectclass.    call function 'CHANGEDOCUMENT_DISPLAY'      exporting        i_applicationid = wk_r

27、epid        i_objectclas    = objectclass      tables        i_cdred         = aeditpos.  endif.注: 修改日志在AEDITPOS表中,可以按需自己定义输入的屏幕,不需要调用函数CHANGEDOCUMENT_DISPLAY输出五.