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.