105 migo过账 demo
goodsmvt_code = '01'.
move_type = '105'.
LOOP AT req_item.
CONCATENATE zbmsid '-' req_item-zbmsun INTO tr_code.
goodsmvt_item-item_text = tr_code.
CLEAR tr_code.
goodsmvt_item-material = req_item-matnr. "物料号
goodsmvt_item-plant = req_item-werks. "工厂
goodsmvt_item-stge_loc = req_item-lgort."库存地点
goodsmvt_item-entry_qnt = req_item-menge. "数量
goodsmvt_item-ref_doc = req_item-rsnum. "参考凭证
goodsmvt_item-Ref_doc_it = req_item-rspos." 参考凭证行
goodsmvt_item-po_number = req_item-ebeln. "采购订单号
goodsmvt_item-po_item = req_item-ebelp. "采购订单行
goodsmvt_item-mvt_ind = 'B'.
goodsmvt_item-move_type = move_type.
goodsmvt_item-spec_stock = req_item-sobkz. "特殊库存标识
IF req_item-ord41 EQ 'X'. "如果是备件库,冻结库存
goodsmvt_item-stck_type = 'S'.
ENDIF.
-
goodsmvt_item-batch = req_item-charg. "批次
-
goodsmvt_item-entry_uom = req_item-bprme. "单位
-
goodsmvt_item-move_stloc = req_item-move_stloc. "收获货仓库 APPEND goodsmvt_item. CLEAR goodsmvt_item. ENDLOOP.