REPORT ztest_y001.* Type-poolsTYPE-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 SK