DATA:l_physinv_head type bapi_physinv_create_head,
lt_retmsg like table of bapiret2 with header line,
lt_physinv_item like table of bapi_physinv_create_items with header line.
" 盘点单头
l_physinv_head-plant = p_werks.
l_physinv_head-stge_loc = p_lgort.
l_physinv_head-doc_date = sy-datum.
l_physinv_head-plan_date = sy-datum.
" 盘点项目
loop at p_itab into wa.
lt_physinv_item-material = wa-matnr.
lt_physinv_item-batch = wa-charg.
append lt_physinv_item.
endloop.
" 创建盘点凭证
call function 'BAPI_MATPHYSINV_CREATE_MULT'
exporting
head = l_physinv_head
tables
items = lt_physinv_item
return = lt_retmsg.
READ TABLE return WITH KEY type = 'S' id = 'M7' number = '710'.
IF sy-subrc = 0.
ls_physinventory = return-message_v1.
ENDIF.
