SAP 货物移动相关Bapi
程序员文章站
2022-05-18 08:08:14
...
货物移动的bapi BAPI_GOODSMVT_CREATE
其中 参数 ： GOODSMVT_CODE 有
GMCODE Table T158G - 01 - MB01 - Goods Receipts for Purchase Order
-
02 - MB31 - Goods Receipts for Prod Order -
03 - MB1A - Goods Issue -
04 - MB1B - Transfer Posting -
05 - MB1C - Enter Other Goods Receipt -
06 - MB11 -
07 - MB04
事物代码MBST凭证冲销 BAPI BAPI_GOODSMVT_CANCEL
获得凭证明细 BAPI BAPI_GOODSMVT_GETDETAIL
根据物料 工厂 移动类型 记账日期 创建人 等查询凭证 BAPI BAPI_GOODSMVT_GETITEMS
SAP内部使用 BAPI BAPI_GOODSMVT_SAPCREATE
这些值存储在表T158G中
参考代码
一、收货(101)
说明：采购订单、生产订单收货
form recvfromord tables pt_tran structure zwttran.
"移库定义
data: goodsmvt_header type bapi2017_gm_head_01,
goodsmvt_code type bapi2017_gm_code,
goodsmvt_headret type bapi2017_gm_head_ret,
materialdocument type bapi2017_gm_head_ret-mat_doc,
matdocumentyear type bapi2017_gm_head_ret-doc_year,
goodsmvt_item type standard table of /afs/bapi2017_gm_item_create,
return type standard table of bapiret2,
w_creturn type bapiret2,
w_goodsmvt_item type /afs/bapi2017_gm_item_create,
w_return type bapiret2.
data:lt_retmsg like table of bapiret2 with header line,
lt_return like table of bapiret2 with header line.
data:l_tran_nbr like zwttran-tran_nbr,
l_tranpo like zwttran-tranpo,
l_matdoc like zwttran-matdoc,
l_flag like zwttran-flag,
l_line_id type i.
data:l_asn_nbr type ze_ref_field, "asn号
l_po type ze_ref_field,"po号
l_po_line(5) type n,"po行号
l_matnr type matnr."货号
data:l_type type char1,"类型
l_afpo type afpo,"生产订单
l_j_3abssi type j_3abssi,"生产订单计划行
l_eket type eket,"采购订单计划行
l_ekpo type ekpo."采购订单行项目
data:lt_bom like table of zwmbom with header line.
refresh:t_tran_nbr.
loop at pt_tran.
clear :t_tran_nbr.
t_tran_nbr-tran_nbr = pt_tran-tran_nbr.
if pt_tran-tran_type = '603' and pt_tran-tran_code = '02' and pt_tran-proc_stat_code = '10' and pt_tran-ref_field_6 = 'P'.
t_tran_nbr-po = pt_tran-ref_field_3.
endif.
append t_tran_nbr.
endloop.
sort t_tran_nbr by tran_nbr po.
delete adjacent duplicates from t_tran_nbr.
loop at t_tran_nbr.
clear:l_tran_nbr,l_matdoc,l_matnr,l_asn_nbr,l_po,l_matnr,l_type,l_afpo,l_j_3abssi,l_eket,l_ekpo,l_tranpo,lt_retmsg,lt_return,pt_tran.
refresh:lt_return.
clear:goodsmvt_header,goodsmvt_code,goodsmvt_headret,materialdocument,matdocumentyear, goodsmvt_item ,return,w_return.
refresh:goodsmvt_item ,return.
"头
goodsmvt_header-pstng_date = sy-datum.
goodsmvt_header-doc_date = sy-datum.
"明细
loop at pt_tran where tran_type = '603' and tran_code = '02' and proc_stat_code = '10' and units_rcvd > 0
and tran_nbr = t_tran_nbr-tran_nbr and ref_field_3 = t_tran_nbr-po.
if pt_tran-ref_field_6 = 'P'.
l_tran_nbr = pt_tran-tran_nbr.
"获取asn号
l_asn_nbr = pt_tran-ref_field_1.
l_po = pt_tran-ref_field_3.
concatenate l_tran_nbr l_po into l_tranpo.
if pt_tran-ref_field_4 is not initial.
l_po_line = pt_tran-ref_field_4.
else.
clear l_po_line.
endif.
l_matnr = pt_tran-matnr.
clear:lt_retmsg.
refresh:lt_retmsg.
call function 'ZLC_GET_PREMOVE101'
EXPORTING
p_matnr = l_matnr
p_po = l_po
p_po_line = l_po_line
IMPORTING
p_type = l_type
p_afpo = l_afpo
p_j_3abssi = l_j_3abssi
p_ekpo = l_ekpo
p_eket = l_eket
TABLES
pt_retmsg = lt_retmsg.
read table lt_retmsg with key type = 'E'.
if sy-subrc <> 0.
case l_type.
when 'E'.
"事务代码
goodsmvt_code-gm_code = '02'. "mb31
"明细
w_goodsmvt_item-line_id = w_goodsmvt_item-line_id + 1.
w_goodsmvt_item-move_type = '101'."移动类型
w_goodsmvt_item-material = l_j_3abssi-matnr."大货号
w_goodsmvt_item-grid_value = l_j_3abssi-j_3asize."网格值
w_goodsmvt_item-plant = g_plant."工厂
w_goodsmvt_item-stge_loc = g_stge_loc."地点
w_goodsmvt_item-entry_qnt = pt_tran-units_rcvd."数量
w_goodsmvt_item-orderid = l_j_3abssi-j_3absnr."订单号
w_goodsmvt_item-order_itno = l_j_3abssi-j_3ahbsp."行项目
w_goodsmvt_item-sched_line_sku = l_j_3abssi-j_3aebsp."计划行项目
w_goodsmvt_item-mvt_ind = 'F'."生产订单
w_goodsmvt_item-stck_type = 'E'.
w_goodsmvt_item-gr_rcpt = pt_tran-user_id.
append w_goodsmvt_item to goodsmvt_item.
when 'F'.
"事务代码
goodsmvt_code-gm_code = '01'. "mb01
"明细
w_goodsmvt_item-line_id = w_goodsmvt_item-line_id + 1.
l_line_id = w_goodsmvt_item-line_id.
w_goodsmvt_item-move_type = '101'."移动类型
w_goodsmvt_item-material = l_ekpo-matnr."大货号
w_goodsmvt_item-grid_value = l_eket-j_3asize."网格值
w_goodsmvt_item-plant = g_plant."工厂
w_goodsmvt_item-stge_loc = g_stge_loc."地点
clear w_goodsmvt_item-vendor.
w_goodsmvt_item-entry_qnt = pt_tran-units_rcvd."数量
clear w_goodsmvt_item-batch.
w_goodsmvt_item-po_number = l_eket-ebeln."采购订单
w_goodsmvt_item-po_item = l_eket-ebelp."采购订单行号
w_goodsmvt_item-sched_line_sku = l_eket-etenr."计划行
clear:w_goodsmvt_item-parent_id,w_goodsmvt_item-line_depth.
w_goodsmvt_item-mvt_ind = 'B'."采购订单
w_goodsmvt_item-stck_type = 'E'."库存类型
w_goodsmvt_item-gr_rcpt = pt_tran-user_id.
append w_goodsmvt_item to goodsmvt_item.
refresh:lt_bom.
call function 'ZLC_GET_BOM'
EXPORTING
p_ebeln = l_eket-ebeln
p_ebelp = l_eket-ebelp
p_etenr = l_eket-etenr
TABLES
pt_bom = lt_bom.
if lines( lt_bom ) > 0.
loop at lt_bom.
w_goodsmvt_item-line_id = w_goodsmvt_item-line_id + 1.
w_goodsmvt_item-move_type = '543'."移动类型
w_goodsmvt_item-material = lt_bom-matnr."货号
if lt_bom-grdv is not initial.
w_goodsmvt_item-grid_value = lt_bom-grdv.
else.
clear w_goodsmvt_item-grid_value.
endif.
w_goodsmvt_item-plant = '1000'."工厂
clear w_goodsmvt_item-stge_loc.
w_goodsmvt_item-vendor = lt_bom-vendor."供应商
w_goodsmvt_item-entry_qnt = lt_bom-entry_qnt * pt_tran-units_rcvd."数量
if lt_bom-charg is not initial.
w_goodsmvt_item-batch = lt_bom-charg.
else.
clear w_goodsmvt_item-batch.
endif.
w_goodsmvt_item-parent_id = l_line_id.
w_goodsmvt_item-line_depth = 1.
w_goodsmvt_item-mvt_ind = 'B'."采购订单
w_goodsmvt_item-stck_type = 'E'."库存类型
w_goodsmvt_item-gr_rcpt = pt_tran-user_id.
append w_goodsmvt_item to goodsmvt_item.
endloop.
endif.
endcase.
else.
append lines of lt_retmsg to lt_return.
endif.
endif.
endloop.
read table lt_return with key type = 'E'.
if sy-subrc <> 0.
if goodsmvt_item[] is not initial.
"删除日志
perform deletepixtranlog using l_tranpo.
"执行操作
call function '/AFS/BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = goodsmvt_header
goodsmvt_code = goodsmvt_code
IMPORTING
goodsmvt_headret = goodsmvt_headret
materialdocument = materialdocument
matdocumentyear = matdocumentyear
TABLES
afs_goodsmvt_item = goodsmvt_item
return = return.
read table return with key type = 'E' into w_return.
if sy-subrc <> 0.
"提交
call function 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
l_flag = 'S'.
l_matdoc = materialdocument.
else.
call function 'BAPI_TRANSACTION_ROLLBACK'.
l_flag = 'F'.
endif.
update zwttran set flag = l_flag matdoc = l_matdoc where tranpo = l_tranpo.
if l_flag = 'F'.
perform writepixtranlog tables return using l_tranpo.
endif.
endif.
else.
update zwttran set flag = 'F' where tranpo = l_tranpo.
perform writepixtranlog tables lt_return using l_tranpo.
endif.
endloop.
endform. "recvfromord
二、移库、冻结、解冻、内部领用、盘点、报废、转包、门店退货等
form dopixtran tables pt_tran structure zwttran.
data: l_tran_nbr like zwttran-tran_nbr,
l_matdoc like zwttran-matdoc,
l_flag like zwttran-flag,
l_mara like mara,
lt_mard like table of mard with header line.
data:goodsmvt_header type bapi2017_gm_head_01,
goodsmvt_code type bapi2017_gm_code,
goodsmvt_headret type bapi2017_gm_head_ret,
materialdocument type bapi2017_gm_head_ret-mat_doc,
matdocumentyear type bapi2017_gm_head_ret-doc_year,
goodsmvt_item type standard table of bapi2017_gm_item_create,
return type standard table of bapiret2,
w_goodsmvt_item type bapi2017_gm_item_create,
w_return type bapiret2.
data:lt_retmsg like table of bapiret2 with header line.
refresh:t_tran_nbr.
loop at pt_tran.
clear:t_tran_nbr.
t_tran_nbr-tran_nbr = pt_tran-tran_nbr.
collect t_tran_nbr.
endloop.
sort t_tran_nbr by tran_nbr.
loop at t_tran_nbr.
"&--------------------------------------------------------------------------------------------------------------&
"& BEGIN 从3,4仓移库到物流中心仓库
"&--------------------------------------------------------------------------------------------------------------&
clear:l_tran_nbr,l_flag,l_matdoc,goodsmvt_header,goodsmvt_code,goodsmvt_headret,materialdocument,matdocumentyear, goodsmvt_item ,return,w_return.
refresh:goodsmvt_item ,return.
"事物码
goodsmvt_code-gm_code = '04'.
"头
goodsmvt_header-pstng_date = sy-datum.
goodsmvt_header-doc_date = sy-datum.
"明细
loop at pt_tran where tran_type = '603' and tran_code = '02' and proc_stat_code = '10' and units_rcvd > 0 and tran_nbr = t_tran_nbr-tran_nbr.
if pt_tran-ref_field_6 = 'Y'.
l_tran_nbr = pt_tran-tran_nbr.
w_goodsmvt_item-move_type = '311'."移库
w_goodsmvt_item-plant = g_plant.
w_goodsmvt_item-stge_loc = pt_tran-ref_field_7.
w_goodsmvt_item-material = pt_tran-matnr.
w_goodsmvt_item-entry_qnt = pt_tran-units_rcvd.
w_goodsmvt_item-move_plant = g_plant.
w_goodsmvt_item-move_stloc = g_stge_loc.
append w_goodsmvt_item to goodsmvt_item.
endif.
endloop.
"执行操作
if goodsmvt_item[] is not initial.
l_flag = 'F'.
call function 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = goodsmvt_header
goodsmvt_code = goodsmvt_code
IMPORTING
goodsmvt_headret = goodsmvt_headret
materialdocument = materialdocument
matdocumentyear = matdocumentyear
TABLES
goodsmvt_item = goodsmvt_item
return = return.
read table return with key type = 'E' into w_return.
if sy-subrc <> 0.
call function 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
if materialdocument is not initial.
l_flag = 'S'.
l_matdoc = materialdocument.
endif.
else.
call function 'BAPI_TRANSACTION_ROLLBACK'.
perform writepixtranlog tables return using l_tran_nbr.
endif.
update zwttran set flag = l_flag matdoc = l_matdoc where tran_nbr = l_tran_nbr.
endif.
"&--------------------------------------------------------------------------------------------------------------&
"& END 移入
"&--------------------------------------------------------------------------------------------------------------&
"&--------------------------------------------------------------------------------------------------------------&
"& BEGIN 从物流中心仓库移至3,4仓
"&--------------------------------------------------------------------------------------------------------------&
clear:l_tran_nbr,l_flag,l_matdoc,goodsmvt_header,goodsmvt_code,goodsmvt_headret,materialdocument,matdocumentyear, goodsmvt_item ,return,w_return.
refresh:goodsmvt_item ,return.
"事物码
goodsmvt_code-gm_code = '04'.
"头
goodsmvt_header-pstng_date = sy-datum.
goodsmvt_header-doc_date = sy-datum.
"明细
loop at pt_tran where tran_type = '300' and tran_code = '01' and actn_code = '07'and invn_adjmt_qty > 0 and tran_nbr = t_tran_nbr-tran_nbr.
if pt_tran-rsn_code = 'YC'.
l_tran_nbr = pt_tran-tran_nbr.
w_goodsmvt_item-move_type = '311'."移库
w_goodsmvt_item-plant = g_plant.
w_goodsmvt_item-stge_loc = g_stge_loc.
w_goodsmvt_item-material = pt_tran-matnr.
w_goodsmvt_item-entry_qnt = pt_tran-invn_adjmt_qty.
w_goodsmvt_item-move_plant = g_plant.
w_goodsmvt_item-move_stloc = pt_tran-ref_field_5.
append w_goodsmvt_item to goodsmvt_item.
endif.
endloop.
"执行操作
if goodsmvt_item[] is not initial.
l_flag = 'F'.
call function 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = goodsmvt_header
goodsmvt_code = goodsmvt_code
IMPORTING
goodsmvt_headret = goodsmvt_headret
materialdocument = materialdocument
matdocumentyear = matdocumentyear
TABLES
goodsmvt_item = goodsmvt_item
return = return.
read table return with key type = 'E' into w_return.
if sy-subrc <> 0.
call function 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
if materialdocument is not initial.
l_flag = 'S'.
l_matdoc = materialdocument.
endif.
else.
call function 'BAPI_TRANSACTION_ROLLBACK'.
perform writepixtranlog tables return using l_tran_nbr.
endif.
update zwttran set flag = l_flag matdoc = l_matdoc where tran_nbr = l_tran_nbr.
endif.
"&--------------------------------------------------------------------------------------------------------------&
"& END 移出
"&--------------------------------------------------------------------------------------------------------------&
"&--------------------------------------------------------------------------------------------------------------&
"& begin 冻结库存
"&--------------------------------------------------------------------------------------------------------------&
clear:l_tran_nbr,l_flag,l_matdoc,goodsmvt_header,goodsmvt_code,goodsmvt_headret,materialdocument,matdocumentyear, goodsmvt_item ,return,w_return.
refresh:goodsmvt_item ,return.
"事物码
goodsmvt_code-gm_code = '04'.
"头
goodsmvt_header-pstng_date = sy-datum.
goodsmvt_header-doc_date = sy-datum.
"明细
loop at pt_tran where tran_type = '300' and tran_code = '01' and actn_code = '05' and invn_adjmt_qty > 0 and tran_nbr = t_tran_nbr-tran_nbr.
l_tran_nbr = pt_tran-tran_nbr.
w_goodsmvt_item-move_type = '344'."冻结库存
w_goodsmvt_item-plant = g_plant.
w_goodsmvt_item-stge_loc = g_stge_loc.
w_goodsmvt_item-material = pt_tran-matnr.
w_goodsmvt_item-entry_qnt = pt_tran-invn_adjmt_qty.
append w_goodsmvt_item to goodsmvt_item.
endloop.
"执行操作
if goodsmvt_item[] is not initial.
l_flag = 'F'.
call function 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = goodsmvt_header
goodsmvt_code = goodsmvt_code
IMPORTING
goodsmvt_headret = goodsmvt_headret
materialdocument = materialdocument
matdocumentyear = matdocumentyear
TABLES
goodsmvt_item = goodsmvt_item
return = return.
read table return with key type = 'E' into w_return.
if sy-subrc <> 0.
call function 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
if materialdocument is not initial.
l_flag = 'S'.
l_matdoc = materialdocument.
endif.
else.
call function 'BAPI_TRANSACTION_ROLLBACK'.
perform writepixtranlog tables return using l_tran_nbr.
endif.
update zwttran set flag = l_flag matdoc = l_matdoc where tran_nbr = l_tran_nbr.
endif.
"&--------------------------------------------------------------------------------------------------------------&
"& END 冻结库存
"&--------------------------------------------------------------------------------------------------------------&
"&--------------------------------------------------------------------------------------------------------------&
"& begin 解冻库存
"&--------------------------------------------------------------------------------------------------------------&
clear:l_tran_nbr,l_flag,l_matdoc,goodsmvt_header,goodsmvt_code,goodsmvt_headret,materialdocument,matdocumentyear, goodsmvt_item ,return,w_return.
refresh:goodsmvt_item ,return.
"事物码
goodsmvt_code-gm_code = '04'.
"头
goodsmvt_header-pstng_date = sy-datum.
goodsmvt_header-doc_date = sy-datum.
"明细
loop at pt_tran where tran_type = '606' and tran_code = '02' and actn_code = '06' and invn_adjmt_qty > 0 and tran_nbr = t_tran_nbr-tran_nbr.
l_tran_nbr = pt_tran-tran_nbr.
w_goodsmvt_item-move_type = '343'."解冻库存
w_goodsmvt_item-plant = g_plant.
w_goodsmvt_item-stge_loc = g_stge_loc.
w_goodsmvt_item-material = pt_tran-matnr.
w_goodsmvt_item-entry_qnt = pt_tran-invn_adjmt_qty.
append w_goodsmvt_item to goodsmvt_item.
endloop.
"执行操作
if goodsmvt_item[] is not initial.
l_flag = 'F'.
call function 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = goodsmvt_header
goodsmvt_code = goodsmvt_code
IMPORTING
goodsmvt_headret = goodsmvt_headret
materialdocument = materialdocument
matdocumentyear = matdocumentyear
TABLES
goodsmvt_item = goodsmvt_item
return = return.
read table return with key type = 'E' into w_return.
if sy-subrc <> 0.
call function 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
if materialdocument is not initial.
l_flag = 'S'.
l_matdoc = materialdocument.
endif.
else.
call function 'BAPI_TRANSACTION_ROLLBACK'.
perform writepixtranlog tables return using l_tran_nbr.
endif.
update zwttran set flag = l_flag matdoc = l_matdoc where tran_nbr = l_tran_nbr.
endif.
"&--------------------------------------------------------------------------------------------------------------&
"& END 解冻库存
"&--------------------------------------------------------------------------------------------------------------&
"&--------------------------------------------------------------------------------------------------------------&
"& BEGIN 内部领用
"&--------------------------------------------------------------------------------------------------------------&
data:l_kostl like csks-kostl,"成本中心
l_prctr like cepc-prctr,"利润中心
l_csks like csks,"成本中心结构
l_cepc like cepc."利润中心结构
data:lt_tpmsg like table of bapiret2 with header line.
clear:l_kostl,l_prctr,l_csks,l_cepc.
clear:l_tran_nbr,l_flag,l_matdoc,goodsmvt_header,goodsmvt_code,goodsmvt_headret,materialdocument,matdocumentyear, goodsmvt_item ,return,w_return,lt_tpmsg,lt_retmsg.
refresh:goodsmvt_item,return,lt_tpmsg,lt_retmsg.
"事物码
goodsmvt_code-gm_code = '03'. "MB1A
"头
goodsmvt_header-pstng_date = sy-datum.
goodsmvt_header-doc_date = sy-datum.
"明细
loop at pt_tran where tran_type = '300' and tran_code = '01' and actn_code = '07'and invn_adjmt_qty > 0 and tran_nbr = t_tran_nbr-tran_nbr.
if pt_tran-rsn_code = 'NL'.
clear:l_kostl,l_csks,lt_tpmsg.
refresh:lt_tpmsg.
l_tran_nbr = pt_tran-tran_nbr.
l_kostl = pt_tran-ref_field_5.
call function 'ZLC_GET_CSKS'
EXPORTING
P_KOKRS = '1000'
P_KOSTL = l_kostl
IMPORTING
p_csks = l_csks
TABLES
pt_retmsg = lt_tpmsg.
read table lt_tpmsg with key type = 'E'.
if sy-subrc <> 0.
w_goodsmvt_item-move_type = '201'."内部领用
w_goodsmvt_item-plant = g_plant.
w_goodsmvt_item-stge_loc = g_stge_loc.
w_goodsmvt_item-material = pt_tran-matnr.
w_goodsmvt_item-entry_qnt = pt_tran-invn_adjmt_qty.
w_goodsmvt_item-costcenter = l_kostl."成本中心
w_goodsmvt_item-profit_ctr = l_csks-prctr."利润中心
append w_goodsmvt_item to goodsmvt_item.
else.
append lines of lt_tpmsg to lt_retmsg.
endif.
endif.
endloop.
"执行操作
read table lt_retmsg with key type = 'E'.
if sy-subrc <> 0.
if goodsmvt_item[] is not initial.
l_flag = 'F'.
call function 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = goodsmvt_header
goodsmvt_code = goodsmvt_code
IMPORTING
goodsmvt_headret = goodsmvt_headret
materialdocument = materialdocument
matdocumentyear = matdocumentyear
TABLES
goodsmvt_item = goodsmvt_item
return = return.
read table return with key type = 'E' into w_return.
if sy-subrc <> 0.
call function 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
if materialdocument is not initial.
l_flag = 'S'.
l_matdoc = materialdocument.
endif.
else.
call function 'BAPI_TRANSACTION_ROLLBACK'.
perform writepixtranlog tables return using l_tran_nbr.
endif.
update zwttran set flag = l_flag matdoc = l_matdoc where tran_nbr = l_tran_nbr.
endif.
else.
update zwttran set flag = 'F' where tran_nbr = l_tran_nbr.
perform writepixtranlog tables lt_retmsg using l_tran_nbr.
endif.
"&--------------------------------------------------------------------------------------------------------------&
"& END 内部领用
"&--------------------------------------------------------------------------------------------------------------&
"&--------------------------------------------------------------------------------------------------------------&
"& BEGIN 内部领用退回
"&--------------------------------------------------------------------------------------------------------------&
clear:l_kostl,l_prctr,l_csks,l_cepc.
clear:l_tran_nbr,l_flag,l_matdoc,goodsmvt_header,goodsmvt_code,goodsmvt_headret,materialdocument,matdocumentyear, goodsmvt_item ,return,w_return,lt_tpmsg,lt_retmsg.
refresh:goodsmvt_item,return,lt_tpmsg,lt_retmsg.
"事物码
goodsmvt_code-gm_code = '03'. "MB1A
"头
goodsmvt_header-pstng_date = sy-datum.
goodsmvt_header-doc_date = sy-datum.
"明细
loop at pt_tran where tran_type = '603' and tran_code = '02' and proc_stat_code = '10' and units_rcvd > 0 and tran_nbr = t_tran_nbr-tran_nbr.
if pt_tran-ref_field_6 = 'N'.
clear:l_kostl,l_csks,lt_tpmsg.
refresh:lt_tpmsg.
l_tran_nbr = pt_tran-tran_nbr.
l_kostl = pt_tran-ref_field_5.
call function 'ZLC_GET_CSKS'
EXPORTING
P_KOKRS = '1000'
P_KOSTL = l_kostl
IMPORTING
p_csks = l_csks
TABLES
pt_retmsg = lt_tpmsg.
read table lt_tpmsg with key type = 'E'.
if sy-subrc <> 0.
w_goodsmvt_item-move_type = '202'."内部领用冲销
w_goodsmvt_item-plant = g_plant.
w_goodsmvt_item-stge_loc = g_stge_loc.
w_goodsmvt_item-material = pt_tran-matnr.
w_goodsmvt_item-entry_qnt = pt_tran-units_rcvd.
w_goodsmvt_item-costcenter = l_kostl."成本中心
w_goodsmvt_item-profit_ctr = l_csks-prctr."利润中心
append w_goodsmvt_item to goodsmvt_item.
else.
append lines of lt_tpmsg to lt_retmsg.
endif.
endif.
endloop.
"执行操作
read table lt_retmsg with key type = 'E'.
if sy-subrc <> 0.
if goodsmvt_item[] is not initial.
l_flag = 'F'.
call function 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = goodsmvt_header
goodsmvt_code = goodsmvt_code
IMPORTING
goodsmvt_headret = goodsmvt_headret
materialdocument = materialdocument
matdocumentyear = matdocumentyear
TABLES
goodsmvt_item = goodsmvt_item
return = return.
read table return with key type = 'E' into w_return.
if sy-subrc <> 0.
call function 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
if materialdocument is not initial.
l_flag = 'S'.
l_matdoc = materialdocument.
endif.
else.
call function 'BAPI_TRANSACTION_ROLLBACK'.
perform writepixtranlog tables return using l_tran_nbr.
endif.
update zwttran set flag = l_flag matdoc = l_matdoc where tran_nbr = l_tran_nbr.
endif.
else.
update zwttran set flag = 'F' where tran_nbr = l_tran_nbr.
perform writepixtranlog tables lt_retmsg using l_tran_nbr.
endif.
"&--------------------------------------------------------------------------------------------------------------&
"& END 内部领用退回
"&--------------------------------------------------------------------------------------------------------------&
"&--------------------------------------------------------------------------------------------------------------&
"& BEGIN 报废
"&--------------------------------------------------------------------------------------------------------------&
clear:l_kostl,l_prctr,l_csks,l_cepc.
clear:l_tran_nbr,l_flag,l_matdoc,goodsmvt_header,goodsmvt_code,goodsmvt_headret,materialdocument,matdocumentyear, goodsmvt_item ,return,w_return,lt_tpmsg,lt_retmsg.
refresh:goodsmvt_item,return,lt_tpmsg,lt_retmsg.
"事物码
goodsmvt_code-gm_code = '03'.
"头
goodsmvt_header-pstng_date = sy-datum.
goodsmvt_header-doc_date = sy-datum.
"明细
loop at pt_tran where tran_type = '300' and tran_code = '01' and actn_code = '07'and invn_adjmt_qty > 0 and tran_nbr = t_tran_nbr-tran_nbr.
if pt_tran-rsn_code = 'BF'.
clear:l_prctr,l_cepc.
refresh:lt_tpmsg.
l_tran_nbr = pt_tran-tran_nbr.
l_prctr = pt_tran-ref_field_5.
call function 'ZLC_GET_CEPC'
EXPORTING
p_kokrs = '1000'
p_prctr = l_prctr
IMPORTING
p_cepc = l_cepc
TABLES
pt_retmsg = lt_tpmsg.
read table lt_tpmsg with key type = 'E'.
if sy-subrc <> 0.
w_goodsmvt_item-move_type = '551'."报废
w_goodsmvt_item-plant = g_plant.
w_goodsmvt_item-stge_loc = g_stge_loc.
w_goodsmvt_item-material = pt_tran-matnr.
w_goodsmvt_item-entry_qnt = pt_tran-invn_adjmt_qty.
w_goodsmvt_item-profit_ctr = l_prctr."利润中心
append w_goodsmvt_item to goodsmvt_item.
else.
append lines of lt_tpmsg to lt_retmsg.
endif.
endif.
endloop.
"执行操作
read table lt_retmsg with key type = 'E'.
if sy-subrc <> 0.
if goodsmvt_item[] is not initial.
l_flag = 'F'.
call function 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = goodsmvt_header
goodsmvt_code = goodsmvt_code
IMPORTING
goodsmvt_headret = goodsmvt_headret
materialdocument = materialdocument
matdocumentyear = matdocumentyear
TABLES
goodsmvt_item = goodsmvt_item
return = return.
read table return with key type = 'E' into w_return.
if sy-subrc <> 0.
call function 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
if materialdocument is not initial.
l_flag = 'S'.
l_matdoc = materialdocument.
endif.
else.
call function 'BAPI_TRANSACTION_ROLLBACK'.
perform writepixtranlog tables return using l_tran_nbr.
endif.
update zwttran set flag = l_flag matdoc = l_matdoc where tran_nbr = l_tran_nbr.
endif.
else.
update zwttran set flag = 'F' where tran_nbr = l_tran_nbr.
perform writepixtranlog tables lt_retmsg using l_tran_nbr.
endif.
"&--------------------------------------------------------------------------------------------------------------&
"& END 报废
"&--------------------------------------------------------------------------------------------------------------&
"&--------------------------------------------------------------------------------------------------------------&
"& BEGIN 转包
"&--------------------------------------------------------------------------------------------------------------&
data:l_lifnr like lfa1-lifnr.
clear:l_lifnr,l_tran_nbr,l_flag,l_matdoc,goodsmvt_header,goodsmvt_code,goodsmvt_headret,materialdocument,matdocumentyear, goodsmvt_item ,return,w_return,lt_tpmsg,lt_retmsg.
refresh:goodsmvt_item,return,lt_tpmsg,lt_retmsg.
"事物码
goodsmvt_code-gm_code = '04'.
"头
goodsmvt_header-pstng_date = sy-datum.
goodsmvt_header-doc_date = sy-datum.
"明细
loop at pt_tran where tran_type = '300' and tran_code = '01' and actn_code = '07'and invn_adjmt_qty > 0 and tran_nbr = t_tran_nbr-tran_nbr.
if pt_tran-rsn_code = 'ZB'.
clear:l_lifnr.
refresh:lt_tpmsg.
l_tran_nbr = pt_tran-tran_nbr.
l_lifnr = pt_tran-ref_field_5.
call function 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = l_lifnr
IMPORTING
output = l_lifnr.
select count(*) from lfa1 where lifnr = l_lifnr.
if sy-subrc <> 0.
lt_tpmsg-type = 'E'.
concatenate '供应商' l_lifnr '不存在!' into lt_tpmsg-message.
append lt_tpmsg.
endif.
read table lt_tpmsg with key type = 'E'.
if sy-subrc <> 0.
w_goodsmvt_item-move_type = '541'."转包
w_goodsmvt_item-plant = g_plant.
w_goodsmvt_item-stge_loc = g_stge_loc.
w_goodsmvt_item-material = pt_tran-matnr.
w_goodsmvt_item-entry_qnt = pt_tran-invn_adjmt_qty.
w_goodsmvt_item-vendor = l_lifnr."供应商
append w_goodsmvt_item to goodsmvt_item.
else.
append lines of lt_tpmsg to lt_retmsg.
endif.
endif.
endloop.
"执行操作
read table lt_retmsg with key type = 'E'.
if sy-subrc <> 0.
if goodsmvt_item[] is not initial.
l_flag = 'F'.
call function 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = goodsmvt_header
goodsmvt_code = goodsmvt_code
IMPORTING
goodsmvt_headret = goodsmvt_headret
materialdocument = materialdocument
matdocumentyear = matdocumentyear
TABLES
goodsmvt_item = goodsmvt_item
return = return.
read table return with key type = 'E' into w_return.
if sy-subrc <> 0.
call function 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
if materialdocument is not initial.
l_flag = 'S'.
l_matdoc = materialdocument.
endif.
else.
call function 'BAPI_TRANSACTION_ROLLBACK'.
perform writepixtranlog tables return using l_tran_nbr.
endif.
update zwttran set flag = l_flag matdoc = l_matdoc where tran_nbr = l_tran_nbr.
endif.
else.
update zwttran set flag = 'F' where tran_nbr = l_tran_nbr.
perform writepixtranlog tables lt_retmsg using l_tran_nbr.
endif.
"&--------------------------------------------------------------------------------------------------------------&
"& END 转包
"&--------------------------------------------------------------------------------------------------------------&
"&--------------------------------------------------------------------------------------------------------------&
"& BEGIN 转包冲销
"&--------------------------------------------------------------------------------------------------------------&
clear:l_lifnr,l_tran_nbr,l_flag,l_matdoc,goodsmvt_header,goodsmvt_code,goodsmvt_headret,materialdocument,matdocumentyear, goodsmvt_item ,return,w_return,lt_tpmsg,lt_retmsg.
refresh:goodsmvt_item,return,lt_tpmsg,lt_retmsg.
"事物码
goodsmvt_code-gm_code = '04'.
"头
goodsmvt_header-pstng_date = sy-datum.
goodsmvt_header-doc_date = sy-datum.
"明细
loop at pt_tran where tran_type = '603' and tran_code = '02' and proc_stat_code = '10' and units_rcvd > 0 and tran_nbr = t_tran_nbr-tran_nbr.
if pt_tran-ref_field_6 = 'T'.
clear:l_lifnr.
refresh:lt_tpmsg.
l_tran_nbr = pt_tran-tran_nbr.
l_lifnr = pt_tran-ref_field_7.
call function 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = l_lifnr
IMPORTING
output = l_lifnr.
select count(*) from lfa1 where lifnr = l_lifnr.
if sy-subrc <> 0.
lt_tpmsg-type = 'E'.
concatenate '供应商' l_lifnr '不存在!' into lt_tpmsg-message.
append lt_tpmsg.
endif.
read table lt_tpmsg with key type = 'E'.
if sy-subrc <> 0.
w_goodsmvt_item-move_type = '542'."转包冲销
w_goodsmvt_item-plant = g_plant.
w_goodsmvt_item-stge_loc = g_stge_loc.
w_goodsmvt_item-material = pt_tran-matnr.
w_goodsmvt_item-entry_qnt = pt_tran-units_rcvd.
w_goodsmvt_item-vendor = l_lifnr."供应商
append w_goodsmvt_item to goodsmvt_item.
else.
append lines of lt_tpmsg to lt_retmsg.
endif.
endif.
endloop.
"执行操作
read table lt_retmsg with key type = 'E'.
if sy-subrc <> 0.
if goodsmvt_item[] is not initial.
l_flag = 'F'.
call function 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = goodsmvt_header
goodsmvt_code = goodsmvt_code
IMPORTING
goodsmvt_headret = goodsmvt_headret
materialdocument = materialdocument
matdocumentyear = matdocumentyear
TABLES
goodsmvt_item = goodsmvt_item
return = return.
read table return with key type = 'E' into w_return.
if sy-subrc <> 0.
call function 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
if materialdocument is not initial.
l_flag = 'S'.
l_matdoc = materialdocument.
endif.
else.
call function 'BAPI_TRANSACTION_ROLLBACK'.
perform writepixtranlog tables return using l_tran_nbr.
endif.
update zwttran set flag = l_flag matdoc = l_matdoc where tran_nbr = l_tran_nbr.
endif.
else.
update zwttran set flag = 'F' where tran_nbr = l_tran_nbr.
perform writepixtranlog tables lt_retmsg using l_tran_nbr.
endif.
"&--------------------------------------------------------------------------------------------------------------&
"& END 转包冲销
"&--------------------------------------------------------------------------------------------------------------&
"&--------------------------------------------------------------------------------------------------------------&
"& BEGIN 盘点
"&--------------------------------------------------------------------------------------------------------------&
data:l_physinv_head type bapi_physinv_create_head,
lt_physinv_item like table of bapi_physinv_create_items with header line.
data:it_count_item like table of bapi_physinv_count_items with header line,
lt_temp like table of bapi_physinv_count_items with header line,
l_invdoc type iblnr,
l_nblnr(10) type c,
l_count type i.
"&--------------------------------------------盘点-------------------------------------------------------------&
"初始化
clear:l_tran_nbr,l_flag,l_matdoc,l_physinv_head,lt_physinv_item, lt_retmsg,it_count_item,lt_temp,l_invdoc,l_nblnr,l_count.
refresh:lt_physinv_item, lt_retmsg,lt_temp,it_count_item.
"盘点单头
l_physinv_head-plant = g_plant.
l_physinv_head-stge_loc = g_stge_loc.
l_physinv_head-doc_date = sy-datum.
l_physinv_head-plan_date = sy-datum.
loop at pt_tran where ( ( tran_type = '300' and ( tran_code = '04' or tran_code = '01') and actn_code = '14' )
or ( tran_type = '300' and tran_code = '04' and actn_code = '' ) ) and invn_adjmt_qty > 0 and tran_nbr = t_tran_nbr-tran_nbr.
clear:lt_temp.
l_tran_nbr = pt_tran-tran_nbr.
"盘点单计数
lt_temp-material = pt_tran-matnr.
case pt_tran-invn_adjmt_type.
when 'A'.
lt_temp-entry_qnt = pt_tran-invn_adjmt_qty.
when 'S'.
lt_temp-entry_qnt = - pt_tran-invn_adjmt_qty.
endcase.
collect lt_temp.
endloop.
loop at lt_temp.
add 1 to l_count.
"初始化
clear:lt_mard.
refresh:lt_mard.
"获取当前库存
call function 'ZLC_GET_STOCK'
EXPORTING
p_matnr = lt_temp-material
p_werks = g_plant
p_lgort = g_stge_loc
TABLES
pt_mard = lt_mard.
read table lt_mard index 1.
"盘点处理
if sy-subrc = 0.
"盘点单物料
lt_physinv_item-material = lt_temp-material.
append lt_physinv_item.
"盘点单计数
it_count_item-item = l_count.
it_count_item-material = lt_temp-material.
it_count_item-entry_qnt = lt_mard-labst + lt_temp-entry_qnt.
clear:l_mara.
call function 'ZLC_GET_MARA'
EXPORTING
p_matnr = lt_temp-material
IMPORTING
p_mara = l_mara.
if l_mara is not initial.
it_count_item-entry_uom = l_mara-meins.
endif.
append it_count_item.
else.
clear:lt_retmsg.
lt_retmsg-type = 'E'.
concatenate '商品' lt_temp-material ',' g_plant ',' g_stge_loc '不存在!' into lt_retmsg-message.
append lt_retmsg.
endif.
endloop.
read table lt_retmsg with key type = 'E'.
if sy-subrc <> 0.
if it_count_item[] is not initial.
l_flag = 'F'.
clear:lt_retmsg.
refresh:lt_retmsg.
call function 'BAPI_MATPHYSINV_CREATE_MULT'"创建盘点凭证
exporting
head = l_physinv_head
tables
items = lt_physinv_item
return = lt_retmsg.
loop at lt_retmsg.
if lt_retmsg-type = 'S' and lt_retmsg-id = 'M7'
and lt_retmsg-number = '710'.
l_nblnr = lt_retmsg-message_v1.
shift l_nblnr right deleting trailing space.
overlay l_nblnr with '0000000000'.
l_invdoc = l_nblnr.
endif.
endloop.
read table lt_retmsg with key type = 'E'.
if sy-subrc <> 0.
call function 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
clear:lt_retmsg.
refresh:lt_retmsg.
call function 'BAPI_MATPHYSINV_COUNT'"输入盘点数量
exporting
physinventory = l_invdoc
fiscalyear = sy-datum+0(4)
count_date = sy-datum
tables
items = it_count_item
return = lt_retmsg.
read table lt_retmsg with key type = 'E'.
if sy-subrc <> 0.
call function 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
clear:lt_retmsg.
refresh:lt_retmsg.
call function 'BAPI_MATPHYSINV_POSTDIFF'"处理差异
exporting
physinventory = l_invdoc
fiscalyear = sy-datum+0(4)
pstng_date = sy-datum
tables
return = lt_retmsg.
read table lt_retmsg with key type = 'E'.
if sy-subrc <> 0.
call function 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
loop at lt_retmsg.
if lt_retmsg-type = 'S' and lt_retmsg-id = 'M7'
and lt_retmsg-number = '716'.
l_nblnr = lt_retmsg-message_v2.
shift l_nblnr right deleting trailing space.
overlay l_nblnr with '0000000000'.
l_matdoc = l_nblnr.
endif.
endloop.
l_flag = 'S'.
else.
call function 'BAPI_TRANSACTION_ROLLBACK'.
endif.
else.
call function 'BAPI_TRANSACTION_ROLLBACK'.
endif.
else.
call function 'BAPI_TRANSACTION_ROLLBACK'.
endif.
update zwttran set flag = l_flag matdoc = l_matdoc iblnr = l_invdoc where tran_nbr = l_tran_nbr.
if l_flag = 'F'.
perform writepixtranlog tables lt_retmsg using l_tran_nbr.
endif.
endif.
else.
update zwttran set flag = 'F' where tran_nbr = l_tran_nbr.
perform writepixtranlog tables lt_retmsg using l_tran_nbr.
endif.
" &--------------------------------------------------------------------------------------------------------------&
" & end 报损、报溢、盘点
" &--------------------------------------------------------------------------------------------------------------&
endloop.
上一篇： 创建销售订单的RFC
下一篇： windows 7 搭建PHP 开发环境
推荐阅读