105 migo过账 demo

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.