sap库存查询SAP库存查询.doc

sap库存查询（SAP库存查询）
*与
*项目名称：zrp_mm_032 *
标题：重点物料库存日报表* *
*模块名称：PP *
*和子模块：*
*与作者：明戈斯
*与创建日期:2012-05-03 *
*逻辑DB：无*
title modified id g2.
selection screen comment / 5 (50) known modified id g2.
selection screen comment / 5 (50) notel modified id g2.
initialization.
title =提示：.
notes = 1. 【铝锭】与【水口料】可用【y01002y *】通配符方式查 询.
notel = 2.【漆包线】可用【y010080 *】通配符方式查询.
* start of selection
start of selection.
〃处理相关日期
perform get _ last month.
”取月期初库存 perform get _ store _ value.
if gt _ result [] is not initial.
perform get _ bom _ matnr.
else.
the message the.
exit.
endif.
end -of - selection.
perform fieldcat _ init.
perform ouput _ alv.
&
*
& form fieldcat _ init
&
*
* initialization fieldcatalog definition of heading.
* fieldnames and ref _ fieldnames must be upper case! !
* *
- > pl text
〈 - p2 text
* *
form fieldcat _ init.
clear the _ gt _ fieldcat [].
perform process _ field _ desc.
perform eOl _ fieldcat _ init using:
is xi's 序号（4） * x '' ''s''''''''
is matnr's 物料号 ^，，'乂'.
is maktx's 描述 30 * x，，’，s，，’’’’’’’’.
is meins s 单位（4） * x s .
is iabst g _ btitie 15 x,
is ding's 当天调入 12 '' ''s'' '' '' '' '' '' '' 'x,
's des is 当天报产消耗 15 '' ''s'' '' '' '' '' '' '' 'x,
's dscs 当天报废 12 ''s'' '' '' '' '' '' '' 'x,
dex is'当天退仓12 ® ® ® ® ®®・’x,
is dch's 当天转仓 12 '' ''s'' '' '' '' '' '' '' 'x,
〃dth ''其它业务，，12，，，，，，，，，，，，，，，，，，，，，x ')
dstore g _ etitie 15 x )
month g _ mtitie 15 x )
'min''本月调入'，12 ® ® ® ® ® ® ® ® ® ® 'x')
〃mcs〃本月报产消耗’15'，，，，，，，，，，，，，，，，，，，，x，)
msc 本月报废，12 x )
'mex''本月退仓'，12 ® ® ® ® ® ® ® ® ® ® 'x')
〃mch〃 本月转仓，，12，，，，，，，，，，，，，，，，，，，，，x ')
〃mth ''本月其它业务，，12，，，，，，，，，，，，，，，，，，，，，x ')
mstore 不月绪存 15 x .
endform. " fieldcat init basme
*
& form call _ vat
&
*
text
*
*
- - > pl.
*〈 _ _ p2.
* form ouput _ vat.
i _ gs _ layout info _ fieldname = "color”.
call function 'reuse _ vat _ grid _ display'
exporting
i _ s _ program = sy - cprog
* i _ s _ user _ command = ' c _ user _ command