101 migo过账-采购订单收货（有物料） demo

101 migo过账 demo

          LOOP AT goodsmvt_item.
            CLEAR goodsmvt_item2.
            IF goodsmvt_item-entry_qnt = 0.
              CONTINUE.
            ENDIF.
            goodsmvt_item2-item_text  = goodsmvt_item-item_text.
            goodsmvt_item2-material   = goodsmvt_item-material. " 物料
            goodsmvt_item2-plant      = goodsmvt_item-move_plant."工厂
            goodsmvt_item2-stge_loc   = goodsmvt_item-move_stloc."库存地点
            goodsmvt_item2-entry_qnt  = goodsmvt_item-entry_qnt. "以录入项单位表示的数量
            goodsmvt_item2-move_type  = '101'.                 "移动类型move_type   "20230223-yuchengyi-marked

•            goodsmvt_item2-move_type  = move_type.                                   "20230223-yuchengyi-add
            goodsmvt_item2-po_number  = goodsmvt_item-po_number.         "采购凭证号
            goodsmvt_item2-po_item    = goodsmvt_item-po_item.         "采购凭证的项目编号
            goodsmvt_item2-mvt_ind    = 'B'.            "移动标识  ’B‘为采购收货  ’F ' 生产收货
  
            APPEND goodsmvt_item2.
          ENDLOOP.