*&---------------------------------------------------------------------*
*& Report ZPPR001
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zppr001.
TYPE-POOLS: slis.
DATA: gt_mrp TYPE TABLE OF zmrp_control WITH HEADER LINE,
gs_user TYPE zmrp_user.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
gs_fieldcat TYPE slis_fieldcat_alv,
gs_layout TYPE slis_layout_alv,
gs_ucomm TYPE slis_formname VALUE 'USER_COMMAND',
gs_status TYPE slis_formname VALUE 'FRM_PF_STATUS_SET',
l_grid TYPE REF TO cl_gui_alv_grid.
START-OF-SELECTION.
PERFORM process_data.
PERFORM output_data.
*&---------------------------------------------------------------------*
*& Form PROCESS_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM process_data .
SELECT SINGLE * FROM zmrp_user
INTO CORRESPONDING FIELDS OF gs_user
WHERE uname = sy -uname.
SELECT * FROM zmrp_control
INTO CORRESPONDING FIELDS OF TABLE gt_mrp
WHERE werks = gs_user -werks
AND cumrp = 'Y'.
*& Report ZPPR001
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zppr001.
TYPE-POOLS: slis.
DATA: gt_mrp TYPE TABLE OF zmrp_control WITH HEADER LINE,
gs_user TYPE zmrp_user.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
gs_fieldcat TYPE slis_fieldcat_alv,
gs_layout TYPE slis_layout_alv,
gs_ucomm TYPE slis_formname VALUE 'USER_COMMAND',
gs_status TYPE slis_formname VALUE 'FRM_PF_STATUS_SET',
l_grid TYPE REF TO cl_gui_alv_grid.
START-OF-SELECTION.
PERFORM process_data.
PERFORM output_data.
*&---------------------------------------------------------------------*
*& Form PROCESS_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM process_data .
SELECT SINGLE * FROM zmrp_user
INTO CORRESPONDING FIELDS OF gs_user
WHERE uname = sy -uname.
SELECT * FROM zmrp_control
INTO CORRESPONDING FIELDS OF TABLE gt_mrp
WHERE werks = gs_user -werks
AND cumrp = 'Y'.

该博客主要介绍了SAP中自定义报告ZPPR001的功能,该报告用于处理MRP控制数据。通过查询ZMRP_USER和ZMRP_CONTROL表,获取用户的工作工厂及其MRP运行状态。博客详细展示了如何使用ALV网格显示数据,允许用户编辑并保存MRP控制字段,如REMARD, WERKS, RUNFG, MRPLK和ALWED,同时提供了审批(Approve, Reject)操作。"
105132294,9140979,解决Jupyter Notebook闪退问题,"['Python', '数据科学', '开发工具', 'anaconda', '环境配置']
最低0.47元/天 解锁文章
1603

被折叠的 条评论
为什么被折叠?



