ABAP BOM的修改记录

&---------------------------------------------------------------------
*& 包含 ZPPR012_TOP
&---------------------------------------------------------------------

TABLES: mast,stpo.
DATA:BEGIN OF gs_stpo,
mandt LIKE mast-mandt,
werks LIKE mast-werks,
stlty LIKE stpo-stlty, "物料清单类别
matnr LIKE mast-matnr,
stlnr LIKE mast-stlnr, "物料单
stlan LIKE mast-stlan, "STLAN
stlkn LIKE stpo-stlkn, "BOM 项目节点号
stpoz LIKE stpo-stpoz, "内部计数器
datuv LIKE stpo-datuv, "有效起始日期
aennr LIKE stpo-aennr, "更改编号
vgknt LIKE stpo-vgknt, "父节点
vgpzl LIKE stpo-vgpzl, "前一项目计数器
postp LIKE stpo-postp, "项目类别
posnr LIKE stpo-posnr, "项目号
idnrk LIKE stpo-idnrk, "BOM 组件
objectid LIKE cdpos-objectid,
tabkey LIKE cdpos-tabkey,
END OF gs_stpo.

DATA:BEGIN OF gs_cdpos,
objectid LIKE cdpos-objectid, "对象值
tabkey LIKE cdpos-tabkey, "表键值
fname LIKE cdpos-fname, "字段名
chngind LIKE cdpos-chngind, "更改类型
value_new LIKE cdpos-value_new,
value_old LIKE cdpos-value_old,
udate LIKE cdhdr-udate,
utime LIKE cdhdr-utime,
username LIKE cdhdr-username, "用户名
END OF gs_cdpos.

DATA:BEGIN OF wa_item,
werks LIKE mast-werks,
stlan LIKE mast-stlan,
stlnr LIKE mast-stlnr,
matnr LIKE mast-matnr,
udate LIKE cdhdr-udate,
utime LIKE cdhdr-utime,
username LIKE cdhdr-username, "用户名
chngind LIKE cdpos-chngind, "更改类型
fname LIKE cdpos-fname, "字段名
value_new LIKE cdpos-value_new,
value_old LIKE cdpos-value_old,
posnr LIKE stpo-posnr, "项目号
idnrk LIKE stpo-idnrk, "BOM 组件
objectid LIKE cdpos-objectid,
tabkey LIKE cdpos-tabkey,
END OF wa_item.

DATA:gt_stpo LIKE TABLE OF gs_stpo,
gt_cdpos LIKE TABLE OF gs_cdpos,
gt_item LIKE TABLE OF wa_item.

DATA: it_fieldcat TYPE slis_t_fieldcat_alv, &#