SAP MD04相关报表开发

场景描述：MD04是MRP的运行结果，逻辑复杂，功能比较强大。平时可能会遇到业务人员想要将MD04里面某些字段取出来用ALV展示的需求，比如库存短缺报表等，可以用下面的方式来取MD04里面的数据，这个需求比较简单，有复杂需求可以在此基础上增加逻辑。

下面的例子是一个简单的库存短缺报表，将MD04中的部分字段直接取出来展示：

*&---------------------------------------------------------------------*
*& Report  ZMMR034
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZMMR034.

TYPE-POOLS:SLIS.
TABLES:MARA,SSCRFIELDS,MARC.

*----------------------------------------------------------------------*
*       ALV定义
*----------------------------------------------------------------------*
DATA: GW_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
      GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      G_LAYOUT    TYPE SLIS_LAYOUT_ALV.

*----------------------------------------------------------------------*
* 内表和工作区定义
*----------------------------------------------------------------------*
TYPES:BEGIN OF TY_ALV,
        SEL    TYPE CHAR1,
        WERKS  TYPE MARC-WERKS,
        MATNR  TYPE MARC-MATNR,
        MAKTX  TYPE MAKT-MAKTX,
        MEINS  TYPE MARA-MEINS,
        DAT00  TYPE MDEZ-DAT00,
        DELB0  TYPE MDEZ-DELB0,
        EXTRA  TYPE MDEZ-EXTRA,
        UMDAT  TYPE MDEZ-UMDAT,
        AUSKT  TYPE MDEZ-AUSKT,
        MNG01  TYPE MDEZ-MNG01,
        MNG02  TYPE MDEZ-MNG02,
      END OF TY_ALV.


DATA:GT_ALV TYPE TABLE OF TY_ALV,
     WA_ALV TYPE TY_ALV,
     GT_OUT TYPE TABLE OF TY_ALV,
     WA_OUT TYPE TY_ALV,
     LT_HEADINFO TYPE TABLE OF MT61D,
     LS_HEADINFO LIKE LINE OF LT_HEADINFO,
     LT_INNERINFO TYPE TABLE OF MDEZ,
     LS_INNERINFO LIKE LINE OF LT_INNERINFO.

*----------------------------------------------------------------------*
* 选择屏幕
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
 SELECT-OPTIONS:
"PARAMETERS:
S_MATNR FOR MARA-MATNR,            "物料号
S_WERKS FOR MARC-WERKS OBLIGATORY DEFAULT '8200'.            "工厂

SELECTION-SCREEN END OF BLOCK B1.


*----------------------------------------------------------------------*
* Initialization
*----------------------------------------------------------------------*
INITIALIZATION.


*----------------------------------------------------------------------*
* at selection screen
*----------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.

AT SELECTION-SCREEN.
*----------------------------------------------------------------------*
* Event top of page
*----------------------------------------------------------------------*


TOP-OF-PAGE.
*----------------------------------------------------------------------*
* event Start of Selection
*----------------------------------------------------------------------*
START-OF-SELECTION.

  PERFORM FRM_GET_DATA.
  PERFORM FRM_LAYOUT_BUILD.
  PERFORM FRM_FIELD_BUILD.
  PERFORM FRM_DATA_OUT.

*----------------------------------------------------------------------*
*EVENT End-of selection
*----------------------------------------------------------------------*
END-OF-SELECTION.

*----------------------------------------------------------------------*
*EVENT  End-of page
*----------------------------------------------------------------------*
END-OF-PAGE.
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
** forms
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  FRM_CHECK_AUTHORITY
*&---------------------------------------------------------------------*
*       "  检查权限
*----------------------------------------------------------------------*
FORM FRM_CHECK_AUTHORITY.

ENDFORM.                    "FRM_CHECK_AUTHORITY


*----------------------------------------------------------------------*
** forms
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  FRM_LAYOUT_BUILD
*&---------------------------------------------------------------------*
*       "  设置表格样式
*----------------------------------------------------------------------*
FORM FRM_LAYOUT_BUILD .
  G_LAYOUT-BOX_FIELDNAME        = 'SEL'.  " 选择模式，在最左端有选择按钮
  G_LAYOUT-COLWIDTH_OPTIMIZE    = 'X'.    " 自动调整列宽
  G_LAYOUT-ZEBRA                = 'X'.    " 表格斑马线
  "G_LAYOUT-EDIT = 'X'.                     "可编辑
  G_LAYOUT-INFO_FIELDNAME       = 'CLR'.
ENDFORM.                    "FRM_LAYOUT_BUILD
*&---------------------------------------------------------------------*
*&      Form  FRM_FIELD_BUILD
*&---------------------------------------------------------------------*
*       "  建立表头数据
*----------------------------------------------------------------------*
FORM FRM_FIELD_BUILD .
  CLEAR GT_FIELDCAT.
  PERFORM FIELD_SET:
                     USING 'WERKS'  '工厂'   '15' '' ,
                     USING 'MATNR'  '物料编码'   '15' 'X' ,
                     USING 'MAKTX'  '物料描述'   '15' '' ,
                     USING 'MEINS'  '单位'   '15' '' ,
                     USING 'DAT00'  '日期'   '15' '' ,
                     USING 'DELB0'  'MRP元素'   '15' '' ,
                     USING 'EXTRA'  'MRP元素数据'   '15' '' ,
                     USING 'UMDAT'  '再计划日期'   '15' '' ,
                     USING 'AUSKT'  '例外'   '15' '' ,
                     USING 'MNG01'  '收货/需求'   '15' '' ,
                     USING 'MNG02'  '可用数量'   '15' ''.
ENDFORM.                    "FRM_FIELD_BUILD

*&---------------------------------------------------------------------*
*&      Form  FRM_DATA_OUT
*&---------------------------------------------------------------------*
*       输出数据
*----------------------------------------------------------------------*
FORM FRM_DATA_OUT.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = SY-REPID
      IS_LAYOUT                = G_LAYOUT
      IT_FIELDCAT              = GT_FIELDCAT
      I_SAVE                   = 'X'
      I_CALLBACK_PF_STATUS_SET = 'FRM_STATE'
      I_CALLBACK_USER_COMMAND  = 'FRM_USER_COMMAND'
    TABLES
      T_OUTTAB                 = GT_OUT
    EXCEPTIONS
      PROGRAM_ERROR            = 1
      OTHERS                   = 2.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.


ENDFORM.                    "FRM_DATA_OUT
*&---------------------------------------------------------------------*
*&      Form  FRM_SET_PF_STATUS
*&---------------------------------------------------------------------*
FORM FRM_STATE USING RT_EXTAB TYPE SLIS_T_EXTAB.
  SET PF-STATUS 'STANDARD'.
ENDFORM.                    "FRM_STATE
*&---------------------------------------------------------------------*
*&      Form  FRM_USER_COMMAND
*&---------------------------------------------------------------------*
FORM FRM_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
                             RS_SELFIELD TYPE SLIS_SELFIELD.
  READ TABLE GT_ALV INTO WA_ALV INDEX RS_SELFIELD-TABINDEX.
  CHECK SY-SUBRC = 0.

ENDFORM.                    "FRM_USER_COMMAND

*&---------------------------------------------------------------------*
*&      Form  FIELD_SET
*&---------------------------------------------------------------------*
FORM FIELD_SET USING P_FIELDNAME
                     P_SELTEXT_L
                     P_OUTPUTLEN
                     P_HOTSPOT.
  GW_FIELDCAT-FIELDNAME     = P_FIELDNAME .
  GW_FIELDCAT-SELTEXT_L     = P_SELTEXT_L .
  GW_FIELDCAT-OUTPUTLEN     = P_OUTPUTLEN .
  GW_FIELDCAT-HOTSPOT   = P_HOTSPOT.
  APPEND GW_FIELDCAT TO GT_FIELDCAT.
  CLEAR GW_FIELDCAT.
ENDFORM.                    "FIELD_SET
*&---------------------------------------------------------------------*
*&      Form  FRM_GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_GET_DATA .

  SELECT MATNR WERKS
  INTO CORRESPONDING FIELDS OF TABLE GT_ALV
  FROM MARC
  WHERE MATNR IN S_MATNR AND WERKS IN S_WERKS.

  IF GT_ALV IS INITIAL.
    MESSAGE '没有找到满足条件的数据' TYPE 'E'.
  ENDIF.

  LOOP AT GT_ALV INTO WA_ALV.


    CALL FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API'
      EXPORTING
        MATNR                    = WA_ALV-MATNR
        WERKS                    = WA_ALV-WERKS
      IMPORTING
        E_MT61D                  = LS_HEADINFO
      TABLES
        MDEZX                    = LT_INNERINFO
      EXCEPTIONS
        MATERIAL_PLANT_NOT_FOUND = 1
        PLANT_NOT_FOUND          = 2
        OTHERS                   = 3.




   LOOP AT LT_INNERINFO INTO LS_INNERINFO.

      WA_OUT-WERKS = WA_ALV-WERKS.
      WA_OUT-MATNR = WA_ALV-MATNR.
      WA_OUT-MAKTX = LS_HEADINFO-MAKTX.
      WA_OUT-MEINS = LS_HEADINFO-MEINS.

      WA_OUT-DAT00 = LS_INNERINFO-DAT00.
      WA_OUT-DELB0 = LS_INNERINFO-DELB0.
      WA_OUT-EXTRA = LS_INNERINFO-EXTRA.
      WA_OUT-UMDAT = LS_INNERINFO-UMDAT.
      WA_OUT-AUSKT = LS_INNERINFO-AUSKT.
      WA_OUT-MNG01 = LS_INNERINFO-MNG01.
      WA_OUT-MNG02 = LS_INNERINFO-MNG02.


      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
        EXPORTING
          INPUT  = WA_OUT-MATNR
        IMPORTING
          OUTPUT = WA_OUT-MATNR.

      APPEND WA_OUT TO GT_OUT.
      CLEAR:WA_OUT,LS_INNERINFO.

   ENDLOOP.

   CLEAR:WA_ALV,LS_HEADINFO.

  ENDLOOP.

  SORT GT_OUT BY WERKS MATNR.


ENDFORM.                    "FRM_GET_DATA