SAP MRP MD04运行结果展示

来源：互联网发布：xmind mac 编辑：程序博客网时间：2024/04/28 05:08

内容是MD04中需求和库存的内容。MD04将一个物料显示了一张表，我们现在需要的是一个物料一行的表。

你可以使用function：MD_STOCK_REQUIREMENTS_LIST_API。输入物料号工厂号，他下面所有的表头和行项目信息全部都会取出来。你只需要把function返回给你的信息组织一下，选取一部分放到报表就可以了。

选择屏幕输入：

物料号单值

工厂单值默认0080

MRP area 单值默认0080

报表展示的信息有：

1. MD04中所有信息，除此之外还包括：

2. 表头内容：

Material Number

Plant

Deletion Indicator

Material Description (Short Text)

Material Type

Material Group

Base Unit of Measure

Plant-Specific Material Status

MRP Type

Procurement Type

Special procurement type

Mixed MRP indicator

3. 表行内内容，要求，一个需求一行，MD04内所有有的内容需要在报表里，除此之外，另加入：

需求产生日期，需求产生，需求计划单日期，计划单需求释放日期，采购订单生成日期或生产订单生成日期，发货日期等。总之流程每一个步骤的日期都加上。这些在function返回的内容里都有，你可以拿测试数据取出来看，然后添加到报表中。

报表要求生成ALV，并且双击点击物料的时候，可以链接到物料主数据查看页面（MM03）；点击工单号的时候，可以链接到该工单浏览页面（CO03），点击采购申请或采购订单时，可以链接到采购申请或采购单浏览界面(ME23N)。

[html] view plain copy
*&---------------------------------------------------------------------*  
*& 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.  
  
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.  
  
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.  
  
PARAMETER m_matnr LIKE  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.  
  
  CALL FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API'  
    EXPORTING  
      matnr                    = m_matnr  
      werks                    = m_werks  
    IMPORTING  
      e_mt61d                  = ls_headinfo  
*     E_MDKP                   =  
*     E_CM61M                  =  
*     E_MDSTA                  =  
*     E_ERGBZ                  =  
    TABLES  
      mdpsx                    = lt_innerinfo2  
      mdezx                    = lt_innerinfo  
*     MDSUX                    =  
    EXCEPTIONS  
      material_plant_not_found = 1  
      plant_not_found          = 2  
      OTHERS                   = 3.  
  
  
  LOOP AT lt_innerinfo INTO ls_innerinfo.  
  
    ls_display-dat00 = ls_innerinfo-dat00.  
    ls_display-delb0 = ls_innerinfo-delb0.  
    ls_display-extra = ls_innerinfo-extra.  
    ls_display-umdat = ls_innerinfo-umdat.  
    ls_display-auskt = ls_innerinfo-auskt.  
    ls_display-mng01 = ls_innerinfo-mng01.  
    ls_display-mng02 = ls_innerinfo-mng02.  
    ls_display-lgort = ls_innerinfo-lgort.  
    ls_display-dat01 = ls_innerinfo-dat01.  
    ls_display-dat02 = ls_innerinfo-dat02.  
    ls_display-dat03 = ls_innerinfo-dat03.  
  
    APPEND ls_display TO lt_display.  
  
  ENDLOOP.  
  
  LOOP AT lt_display INTO ls_display WHERE extra NE 'Safety Stock' .  
  
    READ TABLE lt_innerinfo2 INTO ls_innerinfo2 INDEX sy-tabix - 1.  
    IF ls_innerinfo2-delkz = 'LA'.  "//采购订单  
      ls_display-delnr = ls_innerinfo2-delnr.  
    ELSEIF ls_innerinfo2-delkz = 'VC'.  "//销售订单  
      ls_display-zdelnr = ls_innerinfo2-delnr.  
    ELSEIF ls_innerinfo2-delkz = 'AR'.  "//工单  
      ls_display-del12 = ls_innerinfo2-del12.  
    ENDIF.  
  
    MODIFY lt_display FROM ls_display. "//index sy-tabix.  
  
  ENDLOOP.  
  
  LOOP AT lt_display INTO ls_display.  
  
    ls_display-matnr = ls_headinfo-matnr.  
    ls_display-werks = ls_headinfo-werks.  
    ls_display-lvorm = ls_headinfo-lvorm.  
    ls_display-maktx = ls_headinfo-maktx.  
    ls_display-mtart = ls_headinfo-mtart.  
    ls_display-matkl = ls_headinfo-matkl.  
    ls_display-meins = ls_headinfo-meins.  
    ls_display-mmsta = ls_headinfo-mmsta.  
    ls_display-dismm = ls_headinfo-dismm.  
    ls_display-beskz = ls_headinfo-dismm.  
    ls_display-sobsl = ls_headinfo-sobsl.  
    ls_display-miskz = ls_headinfo-miskz.  
  
    MODIFY lt_display FROM ls_display.  
  ENDLOOP.  
  
ENDFORM.                    " FRM_GET_DATA  
*&---------------------------------------------------------------------*  
*&      Form  FRM_ALV_DISPLAY  
*&---------------------------------------------------------------------*  
*       text  
*----------------------------------------------------------------------*  
*  -->  p1        text  
*  <--  p2        text  
*----------------------------------------------------------------------*  
FORM frm_alv_display .  
  
  
  DATA : ls_layout   TYPE slis_layout_alv.  
  DATA : lt_fieldcat TYPE slis_t_fieldcat_alv.  
  DATA : l_repid     TYPE sy-repid.  
  PERFORM frm_build_fieldcat CHANGING lt_fieldcat.  
  PERFORM frm_build_layout CHANGING ls_layout.  
  
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'  
    EXPORTING  
      i_callback_program       = sy-repid  
      it_fieldcat              = lt_fieldcat  
      is_layout                = ls_layout  
      i_callback_user_command  = 'FRM_USER_COMMAND'  
*     i_callback_pf_status_set = 'FRM_PF_STATUS_SET'  
    TABLES  
      t_outtab                 = lt_display.  
  
ENDFORM.                    " FRM_ALV_DISPLAY  
*&---------------------------------------------------------------------*  
*&      Form  frm_build_fieldcat  
*&---------------------------------------------------------------------*  
*       text  
*----------------------------------------------------------------------*  
*      -->CT_FIELDCAT  text  
*----------------------------------------------------------------------*  
FORM frm_build_fieldcat  CHANGING ct_fieldcat TYPE slis_t_fieldcat_alv.  
  
    DATA : ls_fieldcat LIKE LINE OF ct_fieldcat.  
    REFRESH ct_fieldcat.  
  
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'  
    EXPORTING  
      i_structure_name = 'ZSPP_REQUIRE_LIST'  
    CHANGING  
      ct_fieldcat      = ct_fieldcat.  
  
   LOOP AT ct_fieldcat INTO ls_fieldcat.  
  
    CASE ls_fieldcat-fieldname.  
      WHEN 'ZDELNR'.  
        IF sy-langu = '1'.  
          ls_fieldcat-seltext_l = '销售订单'.  
        ELSE.  
          ls_fieldcat-seltext_l = 'Sales Order'.  
          ls_fieldcat-seltext_m = 'Sales Order'.  
          ls_fieldcat-seltext_s = 'Sales Order'.  
        ENDIF.  
  
      WHEN 'DELNR'.  
        IF sy-langu = '1'.  
          ls_fieldcat-seltext_l = '采购订单'.  
        ELSE.  
          ls_fieldcat-seltext_l = 'Purchase Order'.  
          ls_fieldcat-seltext_m = 'Purchase Order'.  
          ls_fieldcat-seltext_s = 'Purchase Order'.  
        ENDIF.  
  
       WHEN 'DEL12'.  
        IF sy-langu = '1'.  
          ls_fieldcat-seltext_l = '工单'.  
        ELSE.  
          ls_fieldcat-seltext_l = 'Work Order'.  
          ls_fieldcat-seltext_m = 'Work Order'.  
          ls_fieldcat-seltext_s = 'Work Order'.  
        ENDIF.  
    ENDCASE.  
  
    MODIFY ct_fieldcat FROM ls_fieldcat TRANSPORTING seltext_l seltext_m seltext_s.  
  
  ENDLOOP.  
ENDFORM.                    "frm_build_fieldcat  
*&---------------------------------------------------------------------*  
*&      Form  frm_build_layout  
*&---------------------------------------------------------------------*  
*       text  
*----------------------------------------------------------------------*  
*      -->CS_LAYOUT  text  
*----------------------------------------------------------------------*  
FORM frm_build_layout  CHANGING cs_layout TYPE slis_layout_alv.  
  
  CLEAR cs_layout.  
  MOVE 'X' TO cs_layout-detail_popup.  
  MOVE 'X' TO cs_layout-colwidth_optimize.  
  MOVE 'COLOR' TO cs_layout-info_fieldname.  
*  MOVE 'SELECTED' TO cs_layout-box_fieldname.  
  
ENDFORM.                    " FRM_BUILD_LAYOUT  
*&---------------------------------------------------------------------*  
*&      Form  sub_user_command  
*&---------------------------------------------------------------------*  
*       text  
*----------------------------------------------------------------------*  
*      -->R_UCOMM           text  
*      -->US_SELECTE_FIELD  text  
*----------------------------------------------------------------------*  
FORM frm_user_command USING r_ucomm LIKE sy-ucomm  
                      us_selecte_field TYPE slis_selfield.  
  CASE r_ucomm.  
    WHEN '&IC1'.                 "双击事件的功能码  
      READ TABLE lt_display INTO ls_display INDEX us_selecte_field-tabindex.  
  
      IF us_selecte_field-fieldname = 'MATNR'.  
  
        SET PARAMETER ID 'MAT' FIELD ls_display-matnr.  
        CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.  
  
      ELSEIF us_selecte_field-fieldname = 'DEL12'.  
  
        SET PARAMETER ID 'ANR' FIELD ls_display-del12.  
        CALL TRANSACTION 'CO03' AND SKIP FIRST SCREEN.  
  
      ELSEIF us_selecte_field-fieldname = 'DELNR'.  
  
        SET PARAMETER ID 'BES' FIELD ls_display-delnr.  
        CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.  
  
      ELSEIF us_selecte_field-fieldname = 'ZDELNR'.  
  
        SET PARAMETER ID 'AUN' FIELD ls_display-zdelnr.  
        CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.  
  
      ENDIF.  
  
  ENDCASE.  
ENDFORM.                    " SUB_USER_COMMAND  

0 0