进行sap物料移库时,返回错误信息"订单 .... 未找到或不允许货物移动".
bapihead1-pstng_date = date. "过账日期
bapihead1-doc_date = date. "凭证日期
bapihead1-ref_doc_no = is_tab-EBELN.
bapihead1-GR_GI_SLIP_NO = is_tab-EBELN.
bapihead1-header_txt = '采购订单跨工厂移库' . "凭证抬头文本
CLEAR it_item1.
CLEAR errmsg1.
LOOP AT it_tab INTO is_tab.
is_item1-material = is_tab-matnr.
is_item1-entry_qnt = is_tab-MENGE.
is_item1-po_pr_qnt = is_tab-MENGE.
is_item1-stge_loc = '3100'. "原有物品的库存地点
is_item1-move_plant = is_tab-WERKS_SC ."需要移动到的地方
is_item1-move_stloc = '3100'.
is_item1-move_type = '301' . "移动类型
is_item1-plant = is_tab-werks.
is_item1-PO_NUMBER = is_tab-EBELN.
is_item1-ORDERID = is_tab-VBELN_SC.
is_item1-ORDER_ITNO = is_tab-POSNR_SC.
is_item1-PO_ITEM = is_tab-EBELP.
is_item1-no_more_gr = 'X'.
is_item1-MVT_IND = 'F'.
is_item1-entry_uom = i_tab-VRKME.
is_item1-BATCH = is_tab-EBELN.
APPEND is_item1 TO it_item1.
ENDLOOP.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = bapihead1
goodsmvt_code = '04'
IMPORTING
materialdocument = lh_input_mblnr
TABLES
goodsmvt_item = it_item1
return = errmsg1.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.