201 migo过账 demo

201 migo过账 demo

        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-reserv_no       = req_item-rsnum.  "预留号
          goodsmvt_item-res_item        = req_item-rspos.  "预留行号
          goodsmvt_item-costcenter = req_item-kostl.       "成本中心
          goodsmvt_item-spec_stock     = req_item-sobkz. "特殊库存标识
          goodsmvt_item-move_type = move_type.                "移动类型
          APPEND goodsmvt_item.
          CLEAR goodsmvt_item.
          CLEAR stocktype.
        ENDLOOP.