同一屏幕上两个ALV

REPORT ztest_y001.


* Type-pools

TYPE-POOLS: slis.

TABLES: mseg, ekbe, ekko, t024, lfa1,makt.

DATA: t_fieldcatalog1 TYPE slis_t_fieldcat_alv.

DATA: t_fieldcatalog2 TYPE slis_t_fieldcat_alv.

DATA: v_repid TYPE syrepid.

DATA: s_layout TYPE slis_layout_alv.

DATA: v_tabname TYPE slis_tabname.

DATA: t_events TYPE slis_t_event.
DATA: BEGIN OF wa_table ,
        bukrs  LIKE ekko-bukrs,    "工厂
        ebeln  LIKE ekko-ebeln,   "采购订单编号
        ekorg  LIKE ekko-ekorg,   "采购组织
        ekgrp  LIKE ekko-ekgrp,    "采购组
        lifnr  LIKE ekko-lifnr,   "供应商帐户号
        ebelp  LIKE ekpo-ebelp,   "采购订单行项目编号
        matnr  LIKE ekpo-matnr,   "采购订单行项目物料号
        budat  LIKE ekbe-budat,    "过帐日期
        menge  LIKE ekbe-menge,   "入库数量
        ernam  LIKE ekbe-ernam,    "创建者
        etenr  LIKE eket-etenr,  "计划行
        eindt  LIKE eket-eindt,  "交货日期
        slfdt  LIKE eket-slfdt,  "相关交货日期
        wemng  LIKE eket-wemng,  "已交货数量
        banfn  LIKE eket-banfn,  "采购申请

      END OF wa_table.
DATA: it_table LIKE TABLE OF wa_table WITH HEADER LINE.

DATA: BEGIN OF gw_table ,
        mjahr  LIKE  mseg-mjahr,  "凭证年度
        mblnr  LIKE  mseg-mblnr,  "凭证号
        zeile  LIKE  mseg-zeile,   "凭证项目
        bwart  LIKE  mseg-bwart,   "移动类型（库存管理）
        lgort  LIKE  mseg-lgort,    "库存地点
        menge  LIKE  mseg-menge,  "以输入单位计的数量
        meins  LIKE  mseg-meins,   "采购订单单位
        ebeln  LIKE  mseg-ebeln,  "采购订单
        budat_mkpf  LIKE  mseg-budat_mkpf, "入库日
      END OF gw_table.

DATA: gt_table LIKE TABLE OF gw_table WITH HEADER LINE..

SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE b_title1 .
PARAMETERS: p_bukrs LIKE ekko-bukrs OBLIGATORY DEFAULT 3500 . "公司代码
SELECT-OPTIONS: s_lifnr FOR mseg-lifnr MEMORY ID lif ,          "供应商编号
    s_ebeln FOR mseg-ebeln MEMORY ID bes ,          "采购订单
    s_matnr FOR mseg-matnr MEMORY ID mat .          "物料代码
SELECTION-SCREEN END OF BLOCK block1.

SELECTION-SCREEN SKIP.