SAP MRP MD04运行结果展示(二)

更新《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