* Program Name : ZGER_BAPI_17 *
* describe: *
* Created by : *
* Created on : *
* *
*------------------------------------------------------------*
REPORT zger_bapi_17.
TABLES:mseg, mkpf, rm07m, t158b,t001l, msegk.
"凭证段：物料 抬头：物料凭证 输入输出字段：模块存储SAPMM07M
"检查表: 业务处理码的移动类型 仓储地点 物料部分的帐户分配字段
DATA: mat_doc LIKE bapi2017_gm_head_ret-mat_doc."物料凭证编号
DATA:save_code LIKE sy-ucomm,
ok_code LIKE sy-ucomm,
loc_msg(50),
gmnga LIKE afru-gmnga,
mtsnr LIKE rm07m-mtsnr,
errflag..
DATA:BEGIN OF gt_afpo OCCURS 0.
INCLUDE STRUCTURE afpo.
DATA:END OF gt_afpo.
DATA:gmhead LIKE bapi2017_gm_head_01.
DATA: BEGIN OF gmcode. "为 BAPI 货物移动分配事务代码
INCLUDE STRUCTURE bapi2017_gm_code.
DATA: END OF gmcode.
DATA: BEGIN OF mthead.
INCLUDE STRUCTURE bapi2017_gm_head_ret. "物料凭证编号年度
DATA: END OF mthead.
DATA: BEGIN OF itab OCCURS 100.
INCLUDE STRUCTURE bapi2017_gm_item_create.
DATA: END OF itab.
DATA: BEGIN OF errmsg OCCURS 10.
INCLUDE STRUCTURE bapiret2.
DATA: END OF errmsg.
SELECTION-SCREEN BEGIN OF BLOCK block WITH FRAME.
PARAMETERS: p_01 TYPE ebeln."采购订单
PARAMETERS: p_02 TYPE t001l-lgort."库存地点
PARAMETERS: p_03 TYPE erfmg."录入数量
SELECTION-SCREEN END OF BLOCK block.
INITIALIZATION.
t001l-lgort = \'3000\'. "仓储地点-库存地点
mseg-lgort = \'3000\'. "库存地点
mseg-werks = \'2010\'. "工厂
t158b-bwart = \'101\'. "移动类型(库存管理)
rm07m-werks = \'2010\'. "工厂
rm07m-lgort = \'3000\'. "库存地点
mseg-erfme = \'ST\'. "条目单位
gmcode-gm_code = \'05\'. "为 BAPI 货物移动分配事务代码
gmhead-pstng_date = sy-datum."mkpf-bldat.
gmhead-doc_date = sy-datum."mkpf-budat.
gmhead-pr_uname = sy-uname.
itab-material = \'000000000000001217\'."物料编号
itab-plant = \'2010\'."工厂
itab-stge_loc = \'3000\'."仓储
itab-move_type = \'101\'."移动类型(库存管理)
"ITAB-SPEC_STOCK = \'BG01\'.
itab-entry_qnt = \'5\'."以录入项单位表示的数量
itab-entry_uom = \'ST\'."条目单位
itab-po_number = p_01."采购订单号
itab-po_item =