SAP BOM 更改记录

最新推荐文章于 2025-02-17 18:53:56 发布

IT养家和SAP养家

最新推荐文章于 2025-02-17 18:53:56 发布

阅读量4k

点赞数

分类专栏： IT养家 ABAP PP

本文链接：https://blog.youkuaiyun.com/ityangjia/article/details/89393914

版权

这是一个SAP程序，用于检索并显示物料BOM（物料清单）的更改记录。程序从MAST和STPO表中获取数据，然后通过CDPOS和CDHDR表获取更改详情。结果以ALV网格形式展示，包括更改日期、时间、用户名、更改类型、字段名、新值和旧值等信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

*&---------------------------------------------------------------------*
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