更新《SAP MRP MD04运行结果展示》,物料号由原来的单值,变成了范围值。增加了“计划工单”事件及其相关内容。
*&---------------------------------------------------------------------*
*& Report XXXXXXXX
*&---------------------------------------------------------------------*
*&PROGRAM NAME : <ZPP003>
*---------------------------------------------------------------------*
* VERSION: V1.0
* DATE CREATED : 2016/07/26
* CREATED BY : Ma Haifeng
* TRANSPORT REQUEST: XXXXXXXXXX
* DESCRIPTION : Stock Requirements List
* request raised by: Li honghua
REPORT zpp003.
********************************
* INNITIALIZATION
********************************
TABLES : marc,mdlv,plaf.
TYPES : BEGIN OF ltype_marc,
matnr TYPE marc-matnr,
werks TYPE marc-werks,
END OF ltype_marc.
TYPES : BEGIN OF ltype_malv,
berid TYPE mdlv-berid,
END OF ltype_malv.
TYPES : BEGIN OF ltype_plaf,
plnum TYPE plaf-plnum,
matnr TYPE plaf-matnr,
psttr TYPE plaf-psttr,
pedtr TYPE plaf-pedtr,
pertr TYPE plaf-pertr,
END OF ltype_plaf.
TYPES : BEGIN OF ltype_makt,
matnr TYPE makt-matnr,
maktx TYPE makt-maktx,
END OF ltype_makt.
DATA : lt_plaf TYPE TABLE OF ltype_plaf,
ls_plaf LIKE LINE OF lt_plaf.
DATA : lt_makt TYPE TABLE OF ltype_makt,
ls_makt LIKE LINE OF lt_makt.
DATA : lt_display TYPE TABLE OF zspp_require_list,
ls_display LIKE LINE OF lt_display.
********************************
* SELECTION-SCREEN
********************************
SELECTION-SCREEN BEGIN OF BLOCK blk01 WITH FRAME.
SELECT-OPTIONS:
m_matnr FOR marc-matnr.
PARAMETER m_werks LIKE marc-werks DEFAULT '0080'.
SELECTION-SCREEN END OF BLOCK blk01.
PERFORM frm_get_data.
PERFORM frm_alv_display.
********************************
* START OF SELECTION
********************************
*&---------------------------------------------------------------------*
*& Form FRM_GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_get_data .
DATA : lt_innerinfo TYPE TABLE OF mdez,
ls_innerinfo LIKE LINE OF lt_innerinfo.
DATA : lt_headinfo TYPE TABLE OF mt61d,
ls_headinfo LIKE LINE OF lt_headinfo.
DATA : lt_innerinfo2 TYPE TABLE OF mdps,
ls_innerinfo2 LIKE LINE OF lt_innerinfo2.
DATA : num TYPE c.
DATA : l_matnr TYPE marc-matnr.
DATA : lt_mdisplay TYPE TABLE OF zspp_require_list."中间表
IF m_matnr IS INITIAL .
MESSAGE 'Please input matnr!' TYPE 'E'.
ELSE.
DO." num TIMES.
"补0函数
IF m_matnr-low IS NOT INITIAL.
CALL FUNCTION 'CONV