ABAP 出库单打印

Code listing for: ZMM035  
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: