SAP 库存查询

SAP 库存查询

*&---------------------------------------------------------------------*
*& Program Name : ZRP_MM_032 　　　　 *
*& Title : 重点物料库存日报表 *
*& Module Name : PP *
*& Sub-Module : *
*& Author : Mingos *
*& Create Date : 2012-05-03 *
*& Logical DB : NOTHING *
*& Program Type : Report *
*& SAP Release : ECC6.0 *
*&---------------------------------------------------------------------*
*& REVISION LOG *
*& LOG# DATE AUTHOR DESCRIPTION *
*& ---- ---- ---------- ----------- *
*& 001 2012-05-05 Mingos Create
************************************************************************

REPORT ZRP_MM_032.

TYPE-POOLS: slis.
TABLES : MARA,S031.
* Data variable for use of ALV
DATA: i_gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: i_gt_excluding TYPE slis_t_extab.
DATA: v_gt_repid LIKE sy-repid.
DATA: i_gt_events TYPE slis_t_event.
DATA: v_gt_variant LIKE disvariant.
DATA: i_gs_layout TYPE slis_layout_alv.
data: gt_data type alsmex_tabline occurs 0 with header line.
"结果
TYPES : BEGIN OF TY_RESULT,
XH TYPE I,
MATNR LIKE MARA-MATNR,
MAKTX LIKE MAKT-MAKTX,
MEINS LIKE MARA-MEINS, "单位
LABST LIKE MARD-LABST, "期初
DIN LIKE MARD-LABST, "调入
DCS LIKE MARD-LABST, "消耗
DSC LIKE MARD-LABST, "报废
DEX LIKE MARD-LABST, "退仓
DCH LIKE MARD-LABST, "转仓
DTH LIKE MARD-LABST, "其它业务
DSTORE LIKE MARD-LABST, "库存

MONTH LIKE MARD-LABST, "本月期初
MIN LIKE MARD-LABST, "本月调入
MCS LIKE MARD-LABST, "本月消耗
MSC LIKE MARD-LABST, "本月报废
MEX LIKE MARD-LABST, "本月退仓
MCH LIKE MARD-LABST, "本月转仓
MTH LIKE MARD-LABST, "其它业务
MSTORE LIKE MARD-LABST, "本月库存

END OF TY_RESULT.
DATA : WA_RESULT TYPE TY_RESULT,
GT_RESULT TYPE STANDARD TABLE OF TY_RESULT.
DATA : G_BTITLE(20) TYPE C,
G_ETITLE(20) TYPE C,
G_MTITLE(20) TYPE C.

DATA : G_LMONTH LIKE S031-SPMON, "上月
G_LDAY LIKE SY-DATUM, "昨天
G_BDAY LIKE SY-DATUM. "月第一天

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETER : P_DAY LIKE SY-DATUM OBLIGATORY DEFAULT SY-DATUM.
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR.
SELECTION-SC

第1页下一页