*&---------------------------------------------------------------------*
*& Program Title: 内蒙古亿阳、备件转储单 *
*& Report name: Sales Analysis Report *
*&---------------------------------------------------------------------*
*& Author : GuoDongYang *
*& Create date : 2004/05/12 *
*& Program type : Report *
*& Message class : *
*& Modifications : *
*&---------------------------------------------------------------------*
REPORT YMMR0001 MESSAGE-ID YY04 "程序中会用到的Message Class
NO STANDARD PAGE HEADING "输出的报表不使用标准的页标题
LINE-SIZE 120. "输出的报表每页的字符宽度
**********表定义
TABLES: MSEG, "凭证部分：商品
MARA, "常规物料数据
EKET, "计划协议计划行
MAKT, "商品描述
T023T, "物料组描述
MKPF, "抬头：物料管理
USER_ADDR, "根据地址数据的用户
CSKT. "成本中心说明文本
*********数据定义
DATA: BEGIN OF G_I_BILLING OCCURS 0,
MBLNR LIKE MKPF-MBLNR, "物料凭证编号
BLART LIKE MKPF-BLART, "凭证类型
MJAHR LIKE MKPF-MJAHR, "物料凭证的年份
BUDAT LIKE MKPF-BUDAT, "凭证记帐日期
USNAM LIKE MKPF-USNAM, "用户名
WEMPF LIKE MSEG-WEMPF, "收货者
BWART LIKE MSEG-BWART, "移动类型
KOSTL LIKE MSEG-KOSTL, "成本中心
KTEXT LIKE CSKT-KTEXT, "成本中心描述
WERKS LIKE MSEG-WERKS, "工厂
LGORT LIKE MSEG-LGORT, "库存地点
LGOBE LIKE T001L-LGOBE, "仓储地点的描述(调出方)
UMLGO LIKE MSEG-UMLGO, "收货/发货库存地点
JSF LIKE T001L-LGOBE, "收货库存地点描述(调入方)
MATNR LIKE MSEG-MATNR, "物料号码
MAKTX LIKE MAKT-MAKTX, "商品名称
MENGE LIKE MSEG-MENGE, "数量
MEINS LIKE MSEG-MEINS, "基本计量单位
MSEHL LIKE T006A-MSEHL, "单位描述
MATKL LIKE MARA-MATKL, "物料组
BISMT LIKE MARA-BISMT, "厂家代码
WGBEZ LIKE T023T-WGBEZ, "物料组的描述
SUMNUM LIKE MSEG-MENGE, "数量合计
ITEM(7) TYPE C, "项目
PAGE(10) TYPE C, "页码
NAME_FIRST LIKE USER_ADDR-NAME_FIRST, "名
NAME_LAST LIKE USER_ADDR-NAME_LAST, "性
END OF G_I_BILLING.
DATA: G_I_BILLINGPRT LIKE G_I_BILLING,
G_TITLE(40),
G_PAGE(10) TYPE C,
XING(4) TYPE C,
MING(10) TYPE C,
ZHIDANREN(14) TYPE C.
SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-BL1.
SELECTION-SCREEN SKIP 1.
