需求朔源——MD_PEGGING_NODIALOG

Posted 2020-12-08 stephenamell

MD04供需状况：

 

 

代码：

*&---------------------------------------------------------------------*
*& Report ZPPRTEST4
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZPPRTEST4.

TYPE-POOLS: slis.
DATA: gs_layout TYPE slis_layout_alv,
          gt_fieldcat TYPE slis_t_fieldcat_alv,
          wa_fieldcat TYPE slis_fieldcat_alv.

DATA: lt_mdrq TYPE TABLE OF mdrq,
      lt_mdrq_fc LIKE mdrq OCCURS 0 WITH HEADER LINE.

CALL FUNCTION ‘MD_PEGGING_NODIALOG‘
  EXPORTING
    edelkz                      = ‘FE‘ "MRP元素
    edelnr                      = ‘000020019183‘ "MRP元素號碼
    edelps                     = ‘000001‘     "MRP 元素項目
    ematnr                      = ‘CTYB0757-P1‘ "物料编号
    ewerks                      = ‘2000‘  "工厂
    eberid                      = ‘2000‘   "MRP范围
  TABLES
    imdrqx                      = lt_mdrq
 EXCEPTIONS
   error                       = 1
   no_requirements_found       = 2
   order_not_found             = 3
   OTHERS                      = 4.

CALL FUNCTION ‘REUSE_ALV_FIELDCATALOG_MERGE‘
    EXPORTING
      i_program_name         = sy-repid
      i_internal_tabname     = ‘LT_MDRQ_FC‘
      i_inclname             = sy-repid
    CHANGING
      ct_fieldcat            = gt_fieldcat
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.

gs_layout-colwidth_optimize = ‘X‘.

CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY‘
  EXPORTING
    i_callback_program       = sy-repid
    is_layout                = gs_layout
    it_fieldcat              = gt_fieldcat[]
    i_save                   = ‘A‘
  TABLES
    t_outtab            =  lt_mdrq
  EXCEPTIONS
    program_error            = 1
    OTHERS                   = 2.

效果：