*&-----------------------------------------------------------------* *& 批量BOM反查 *&-----------------------------------------------------------------* REPORT YPPR0043 NO STANDARD PAGE HEADING. TYPE-POOLS: SLIS. TABLES: MARA, MAKT. DATA: STB LIKE STPOX OCCURS 0 WITH HEADER LINE, WA_ALV_FIELD TYPE SLIS_FIELDCAT_ALV, "列描述内表，列清单 WA_ALV_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, "定义内表 LAYOUT TYPE SLIS_LAYOUT_ALV, GS_LAYOUT TYPE SLIS_LAYOUT_ALV, GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER, COUNTER TYPE I VALUE 0, G_REPID LIKE SY-REPID, G_USER_COMMAND TYPE SLIS_FORMNAME VALUE 'USER_COMMAND'. DATA: BEGIN OF MY_DATA, MATNR LIKE MARA-MATNR, "子零件编码 MAKTX(80) TYPE C, "子零件描述 IDNRK LIKE MARA-MATNR, "子零件编码 MAKTR(80) TYPE C, "子零件描述 SEL TYPE C, END OF MY_DATA. DATA: IT_DATA LIKE MY_DATA OCCURS 0. DATA: BEGIN OF DLLH_DATA, MATNR LIKE MARA-MATNR, "物料编码 BMENG TYPE I, "BOM中的基本数量 END OF DLLH_DATA. DATA: TDLLH_DATA LIKE DLLH_DATA OCCURS 0. DATA: BEGIN OF USEDTAB OCCURS 100. INCLUDE STRUCTURE STPOV. DATA: END OF USEDTAB. DATA: BEGIN OF EQUICAT OCCURS 100. INCLUDE STRUCTURE CSCEQUI. DATA: END OF EQUICAT. DATA: BEGIN OF KNDCAT OCCURS 100. INCLUDE STRUCTURE CSCKND. DATA: END OF KNDCAT. DATA: BEGIN OF MATCAT OCCURS 100. INCLUDE STRUCTURE CSCMAT. DATA: END OF MATCAT. DATA: BEGIN OF STDCAT OCCURS 100. INCLUDE STRUCTURE CSCSTD. DATA: END OF STDCAT. DATA: BEGIN OF TPLCAT OCCURS 100. INCLUDE STRUCTURE CSCTPL. DATA: END OF TPLCAT. DATA: BEGIN OF WLXX_DATA, MATNR LIKE MARA-MATNR, "物料编码 NORMT LIKE MARA-NORMT, "延伸机种，即机型 MAKTX(80) TYPE C, "物料描述 GROES LIKE MARA-GROES, "描述补充 END OF WLXX_DATA. DATA: TWLXX_DATA LIKE WLXX_DATA OCCURS 0. SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME. SELECT-OPTIONS: S_MATNR FOR MARA-MATNR, "物料...
