103 migo过账 demo

103 migo过账 demo

    move_type = '103'.

    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-po_number      = req_item-ebeln. "采购凭证号
      goodsmvt_item-po_item        = req_item-ebelp."采购凭证的项目编号
      goodsmvt_item-mvt_ind        = 'B'.
      goodsmvt_code = '01'.
      goodsmvt_item-move_type      = move_type.

•      goodsmvt_item-batch          = req_item-charg. "批次号
  

•      goodsmvt_item-entry_uom = req_item-bprme.         "单位
      APPEND goodsmvt_item.
      CLEAR goodsmvt_item.
    ENDLOOP.