REPORT zmb31.
TABLES:mseg, mkpf, rm07m, t158b,t001l, msegk.
DATA: mat_doc LIKE bapi2017_gm_head_ret-mat_doc.
DATA:save_code LIKE sy-ucomm,
ok_code LIKE sy-ucomm,
loc_msg(50),
gmnga LIKE afru-gmnga,
mtsnr LIKE rm07m-mtsnr,
errflag..
DATA:BEGIN OF gt_afpo OCCURS 0.
INCLUDE STRUCTURE afpo.
DATA:END OF gt_afpo.
DATA:gmhead LIKE bapi2017_gm_head_01.
DATA: BEGIN OF gmcode.
INCLUDE STRUCTURE bapi2017_gm_code.
DATA: END OF gmcode.
DATA: BEGIN OF mthead.
INCLUDE STRUCTURE bapi2017_gm_head_ret.
DATA: END OF mthead.
DATA: BEGIN OF itab OCCURS 100.
INCLUDE STRUCTURE bapi2017_gm_item_create.
DATA: END OF itab.
DATA: BEGIN OF errmsg OCCURS 10.
INCLUDE STRUCTURE bapiret2.
DATA: END OF errmsg.
INITIALIZATION.
t001l-lgort = ' BG01'.
mseg-lgort = ' BG01'.
mseg-werks = '1103'.
mkpf-bldat = sy-datum.
mkpf-budat = sy-datum.
t158b-bwart = '101'.
* rm07m-sobkz = ''. "特殊库存
rm07m-werks = '1103'.
rm07m-lgort = ' BG01'.
mseg-erfme = 'PC'.
gmcode-gm_code = '02'.
***********gmcode-gm_code取值含义*******
********01 MB01
********02 MB31
********03 MB1A
********04 MB1B
********05 MB1C
********06 MB11
********07 MB04
gmhead-pstng_date = sy-datum."mkpf-bldat.
gmhead-doc_date = sy-datum."mkpf-budat.
gmhead-pr_uname = sy-uname.
itab-material = '000000003000000098'.
itab-plant = '1103'.
itab-stge_loc = 'BG01'.
itab-move_type = '101'.
itab-spec_stock = 'BG01'..
itab-entry_qnt = '6'.
itab-entry_uom = 'EA'.
itab-po_number = '4500000097'.
itab-po_item = '00010'.
itab-mvt_ind = 'B'.
itab-move_mat = '3000000098'.
itab-move_plant = '1103'.
itab-move_stloc = 'BG01'.
itab-nb_slips = 1.
APPEND itab.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = gmhead
goodsmvt_code = gmcode
IMPORTING
goodsmvt_headret = mthead
materialdocument = mat_doc
TABLES
goodsmvt_item = itab
return = errmsg.
LOOP AT errmsg.
CLEAR loc_msg.
CONCATENATE '过帐成功!' errmsg-message INTO loc_msg.
IF errmsg-type EQ 'E'.
MESSAGE errmsg-message TYPE 'E'.
errflag = 'X'.
ELSE.
MESSAGE loc_msg TYPE 'S'.
ENDIF.
ENDLOOP.
IF errflag IS INITIAL.
COMMIT WORK AND WAIT.
CLEAR loc_msg.
IF sy-subrc NE 0.
MESSAGE '过帐操作出现错误,请稍后重试!' TYPE 'E'.
EXIT.
ELSE.
CONCATENATE '物料凭证:' mat_doc '已成功创建!' INTO loc_msg.
MESSAGE i000(znyj13) WITH loc_msg.
gmhead-ref_doc_no = ''.
gmhead-header_txt = ''.
mseg-matnr = ''.
msegk-mat_kdauf = ''.
msegk-mat_kdpos = ''.
mseg-erfmg = ''.
rm07m-mtsnr = ''.
gmnga = ''.
mkpf-bktxt = ''.
ENDIF.
ELSE.
MESSAGE '这不是正确的发料单或者已经创建凭证!' TYPE 'E'.
ENDIF.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
------------------------------261 /262 生产订单收退料------------------------
REPORT test.
*物料凭证的抬头数据
DATA:
li_gm_head TYPE STANDARD TABLE OF bapi2017_gm_head_01,
l_gm_head LIKE bapi2017_gm_head_01,
*为BAPI货物移动分配事务代码
li_gm_code TYPE STANDARD TABLE OF bapi2017_gm_code,
l_gm_code LIKE bapi2017_gm_code,
*返回单据号码
l_mat_doc LIKE bapi2017_gm_head_ret-mat_doc,
*凭证项目
li_gm_item TYPE STANDARD TABLE OF bapi2017_gm_item_create,
l_gm_item LIKE bapi2017_gm_item_create,
*-------------------------
li_return TYPE STANDARD TABLE OF bapiret2,
l_return TYPE bapiret2,
*Error flag
l_errflag(1) TYPE c.
*&---------------------------------------------------------------------*
*& Form CALLBAPI
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*填写表头数据
l_gm_head-pstng_date = sy-datum.
l_gm_head-doc_date = sy-datum.
APPEND l_gm_head TO li_gm_head.
*分配事务代码
l_gm_code-gm_code = '03'.
APPEND l_gm_code TO li_gm_code.
*发货明细
l_gm_item-material = '000000003102000245'. "10 410A
l_gm_item-plant = '1201'.
l_gm_item-stge_loc = '1006'.
l_gm_item-move_type = '261'. "移动类型（库存管理）
* l_gm_item-mvt_ind = 'F'.
l_gm_item-entry_qnt = '1'.
l_gm_item-entry_uom = 'EA'.
l_gm_item-orderid = '000010003579'. "MO号
l_gm_item-reserv_no = '0000107118'. "预留/相关需求的编号 RESB~RSNUM
l_gm_item-res_item = '0019'. " 预留 / 相关需求的项目编号 RESB~RSPOS
* l_gm_item-XSTOB = 'X'. “冲销标志，不修改移动类型261，做完以后也是262；使用262,但此处不设置还是261.
gm_code = 03 和 05 此处都是对的，不知道是不是bugger
APPEND l_gm_item TO li_gm_item.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = l_gm_head
goodsmvt_code = '03'
* RETURN
IMPORTING
* GOODSMVT_HEADRET = L_MAT_DOC
materialdocument = l_mat_doc
TABLES
goodsmvt_item = li_gm_item
return = li_return
.
CLEAR l_errflag.
MESSAGE i005(ymess) WITH l_mat_doc.
IF l_errflag IS INITIAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
ELSE.
MESSAGE i005(ymess) WITH 'ERROR'.
ENDIF.