Code listing for: ZMM035
Description: 库存转储出库单打印
Description: 库存转储出库单打印
*&---------------------------------------------------------------------* * 程序名称: 库存转储出库单打印 * 程序名 :ZMM035 * 开发日期:2013-09-27 * 创建者 :张晨宇 * 申请者 :徐佳良 *----------------------------------------------------------------------* REPORT ZMM035. ***************************************************************** *Tables ***************************************************************** TABLES:MKPF,MSEG,T001W,MAKT,T001L,ADRC,T001K,T001,ADR2,ADR3. ***************************************************************** *TYPE DECLARATION ***************************************************************** TYPES:BEGIN OF TY_DATA, BUDAT TYPE MKPF-BUDAT, MBLNR TYPE MKPF-MBLNR, BWART TYPE MSEG-BWART, WERKS TYPE MSEG-WERKS, NAME1 TYPE T001W-NAME1, ZEILE TYPE MSEG-ZEILE, MATNR TYPE MSEG-MATNR, MAKTX TYPE MAKT-MAKTX, LGORT TYPE MSEG-LGORT, LGOBE TYPE T001L-LGOBE, ERFME TYPE MSEG-ERFME, ERFMG TYPE MSEG-ERFMG, CHARG TYPE MSEG-CHARG, USNAM TYPE MKPF-USNAM, BKTXT TYPE MKPF-BKTXT, BUTXT TYPE T001-BUTXT, "公司描述 1 STRAS TYPE STRING, "地址+街道4 3 UMLGO TYPE MSEG-UMLGO, "转储入库库存地点 4 SGTXT TYPE MSEG-SGTXT, "地址 6 TEL_NUMBER TYPE ADR2-TEL_NUMBER, FAX_NUMBER TYPE ADR3-FAX_NUMBER, MJAHR TYPE MKPF-MJAHR, FLAG TYPE N, "打印分页标识 SUM_ERFMG TYPE MSEG-ERFMG, "重量合计 CHECKBOX TYPE C, END OF TY_DATA. TYPES:BEGIN OF TY_MKPF, BUDAT TYPE MKPF-BUDAT, MBLNR TYPE MKPF-MBLNR, USNAM TYPE MKPF-USNAM, BKTXT TYPE MKPF-BKTXT, MJAHR TYPE MKPF-MJAHR, END OF TY_MKPF. TYPES:BEGIN OF TY_MSEG, MBLNR TYPE MSEG-MBLNR, BWART TYPE MSEG-BWART, WERKS TYPE MSEG-WERKS, ZEILE TYPE MSEG-ZEILE, MATNR TYPE MSEG-MATNR, LGORT TYPE MSEG-LGORT, ERFME TYPE MSEG-ERFME, ERFMG TYPE MSEG-ERFMG, CHARG TYPE MSEG-CHARG, MJAHR TYPE MSEG-MJAHR, UMLGO TYPE MSEG-UMLGO, SGTXT TYPE MSEG-SGTXT, PARENT_ID TYPE MSEG-PARENT_ID, END OF TY_MSEG. TYPES:BEGIN OF TY_T001, BUKRS TYPE T001-BUKRS, BUTXT TYPE T001-BUTXT, END OF TY_T001. TYPES:BEGIN OF TY_T001K, BWKEY TYPE T001K-BWKEY, BUKRS TYPE T001K-BUKRS, END OF TY_T001K. TYPES:BEGIN OF TY_T001W, WERKS TYPE T001W-WERKS, NAME1 TYPE T001W-NAME1, ADRNR TYPE T001W-ADRNR, STRAS TYPE T001W-STRAS, END OF TY_T001W. TYPES:BEGIN OF TY_T001L, WERKS TYPE T001L-WERKS, LGORT TYPE T001L-LGORT, LGOBE TYPE T001L-LGOBE, END OF TY_T001L. TYPES:BEGIN OF TY_MAKT, MATNR TYPE MAKT-MATNR, MAKTX TYPE MAKT-MAKTX, END OF TY_MAKT. TYPES:BEGIN OF TY_ADRC, ADDRNUMBER TYPE ADRC-ADDRNUMBER, STR_SUPPL3 TYPE ADRC-STR_SUPPL3, END OF TY_ADRC. TYPES:BEGIN OF TY_ADR2, ADDRNUMBER TYPE ADR2-ADDRNUMBER, TEL_NUMBER TYPE ADR2-TEL_NUMBER, END OF TY_ADR2. TYPES:BEGIN OF TY_ADR3, ADDRNUMBER TYPE ADR3-ADDRNUMBER, FAX_NUMBER TYPE ADR3-FAX_NUMBER, END OF TY_ADR3. ************************************************************************ * DATA DECLARATION ************************************************************************ *-----------------------内表声明---------------------------------- DATA: