*&---------------------------------------------------------------------*
REPORT zppr029 MESSAGE-ID zhele.
INCLUDE zppr029_top.
INCLUDE zppr029_scr.
INCLUDE zppr029_frm.
INITIALIZATION.
START-OF-SELECTION.
PERFORM frm_get_dat.
PERFORM frm_dis_dat.
*&---------------------------------------------------------------------*
*& 包含 ZPPR029_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 cdp