SAP SCDO 表的修改日志记录(2)

TABLES

Source code

data:editpos type table of cdred with header line, aeditpos type table of cdred with header line. data:wk_repid type repid.

if tablekey[] is initial.

call function 'CHANGEDOCUMENT_READ' exporting

objectclass = objectclass objectid = objectid username = username tablename = tablename tables

editpos = aeditpos exceptions

no_position_found = 1 wrong_access_to_archive = 2 time_zone_conversion_error = 3 others = 4.

else.

loop at tablekey .

call function 'CHANGEDOCUMENT_READ' exporting

objectclass = objectclass objectid = objectid

tablekey = tablekey-tabkey tablename = tablename

username = username tables

editpos = editpos exceptions

no_position_found = 1 wrong_access_to_archive = 2 time_zone_conversion_error = 3 others = 4.

loop at editpos.

append editpos to aeditpos. endloop. endloop. endif.

if aeditpos[] is initial. message s010(zac00). else.

if tcode ne space.

delete aeditpos where tcode ne tcode. endif.

wk_repid = objectclass.

call function 'CHANGEDOCUMENT_DISPLAY' exporting

i_applicationid = wk_repid i_objectclas = objectclass tables

i_cdred = aeditpos. endif.

注: 修改日志在AEDITPOS表中,

可以按需自己定义输入的屏幕,不需要调用函数CHANGEDOCUMENT_DISPLAY输出

五. 在程序中. 条用Z_READ_HISTORY来显示修改日志.

call function 'Z_READ_HISTORY' exporting

objectclass = ' ZMG_TEST001' objectid = lv_objid tablename = lv_tabname * USERNAME = * TCODE = tables

tablekey = tablekey .

“文档对象 “对象值 如PO号 “表名