前台可以通过MB1B实现物料移动，下面是特殊库存移动(需要输入‘E')，
回车后，输入销售订单，行项目，对应的物料，数量，然后保存实现物料转移。
此过程，可调用BAPI ‘BAPI_GOODSMVT_CREATE’实现。
完整代码：
注意：如果不是特殊库存物料移动，则不用输入’E'和对应的销售订单和行项目。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 |
REPORT z_goods_mov. DATA:lit_return LIKE STANDARD TABLE OF bapiret2, "bapi return lwa_return TYPE bapiret2, "bapi return lit_movs LIKE STANDARD TABLE OF bapi2017_gm_item_create, "mat doc item lwa_movs TYPE bapi2017_gm_item_create, "mat doc item lwa_header LIKE bapi2017_gm_head_01, "mat doc hdr lwa_code LIKE bapi2017_gm_code, "mmim code lwa_header_ret TYPE bapi2017_gm_head_ret. "mat hdr return lwa_code = '04'. "MB1B lwa_header-pr_uname = sy-uname. lwa_header-pstng_date = sy-datum. lwa_header-doc_date = sy-datum. REFRESH:lit_movs. CLEAR:lwa_movs. * MATERIAL lwa_movs-material = '000000000050580071'. * PLANT lwa_movs-plant = '8800'. * Storage loc lwa_movs-stge_loc = '8813'. * MOVE_TYPE lwa_movs-move_type = '311'. * STCK_TYPE lwa_movs-stck_type = ''. * MOVE_STOCK lwa_movs-move_stloc = '8814'. * spec procecument lwa_movs-spec_stock = 'E'. * sales order lwa_movs-val_sales_ord = '0640003056' . * sales item lwa_movs-val_s_ord_item = '000200'. * Qty Open lwa_movs-entry_qnt = 1. * ENTRY_UOM CLEAR:lwa_movs-entry_uom. APPEND lwa_movs TO lit_movs. CALL FUNCTION 'BAPI_GOODSMVT_CREATE' EXPORTING goodsmvt_header = lwa_header goodsmvt_code = lwa_code * TESTRUN = ' ' * GOODSMVT_REF_EWM = * IMPORTING * GOODSMVT_HEADRET = * MATERIALDOCUMENT = * MATDOCUMENTYEAR = TABLES goodsmvt_item = lit_movs[] * GOODSMVT_SERIALNUMBER = return = lit_return[] * GOODSMVT_SERV_PART_DATA = * EXTENSIONIN = . LOOP AT lit_return INTO lwa_return WHERE type = 'E' OR type = 'A' OR type = 'X'. EXIT. ENDLOOP. IF sy-subrc = 0. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. ENDIF. |
以上。
发表评论