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輸出五.