Question

怎样用BAPI_GOODSMVT_CREATE实现MIGO_GR过程？

我想用BAPI_GOODSMVT_CREATE来实现MIGO_GR的过程，其中gmcode-gm_code = '01'， itemitab-mvt_ind = 'B'.bapi完成后，生成了一个document，但是该document在MKPF这个table中的Transaction Code(MKPF-TCODE2)栏位为MB01，并不是我希望的MIGO_GR。请问该怎么弄才可以实现呢?我查看了T158G这个table，当中并没有一个GM_code对应MIGO_GR这个Transaction Code.

Answer 1

用BDC或BAPI都行的..DATA: BEGIN OF gmhead. INCLUDE STRUCTURE bapi2017_gm_head_01. DATA: END OF gmhead. 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 item OCCURS 100. INCLUDE STRUCTURE bapi2017_gm_item_create. DATA: END OF item. DATA: BEGIN OF errmsg OCCURS 10. INCLUDE STRUCTURE bapiret2. DATA: END OF errmsg. DATA: wmenge LIKE iseg-menge, errflag. DATA: mat_doc LIKE bapi2017_gm_head_ret-mat_doc, doc_year LIKE bapi2017_gm_head_ret-doc_year.**** 不是新增,而且未进行过帐 IF NOT zblko-btbh IS INITIAL AND zblko-gz IS INITIAL. IF NOT zblko-lldat IS INITIAL. gmhead-pstng_date = zblko-lldat. gmhead-doc_date = zblko-lldat. ELSE. gmhead-pstng_date = sy-datum. gmhead-doc_date = sy-datum. ENDIF. gmhead-pr_uname = sy-uname. gmhead-header_txt = zblko-bktxt. gmcode-gm_code = '04'. "04 - MB1B LOOP AT g_z_tab_itab INTO g_z_tab_wa. item-material = g_z_tab_wa-matnr. item-plant = '1000'. item-stge_loc = zblko-lgort_f. item-move_type = '311'. item-entry_qnt = g_z_tab_wa-sfs. item-move_plant = '1000'. item-move_stloc = zblko-lgort_s. IF NOT g_z_tab_wa-sfs IS INITIAL. APPEND item. ENDIF. ENDLOOP.**************输出* LOOP AT item.* WRITE:/ item-material,item-plant,item-stge_loc,item-move_type,* item-entry_qnt,item-move_plant,item-move_stloc.* ENDLOOP.*************调用BAPI创建 CALL FUNCTION 'BAPI_GOODSMVT_CREATE' EXPORTING goodsmvt_header = gmhead goodsmvt_code = gmcode* TESTRUN = ' ' IMPORTING goodsmvt_headret = mthead materialdocument = mat_doc matdocumentyear = doc_year TABLES goodsmvt_item = item* GOODSMVT_SERIALNUMBER = return = errmsg . LOOP AT errmsg. CLEAR loc_msg. CONCATENATE '过帐成功!' errmsg-message INTO loc_msg. IF errmsg-type EQ 'E'.* WRITE:/'Error in function', errmsg-message. MESSAGE errmsg-messageTYPE 'E'. errflag = 'X'. ELSE.* WRITE:/ errmsg-message. MESSAGE loc_msg TYPE 'S'. ENDIF. ENDLOOP. ENDIF. IF errflag IS INITIAL. COMMIT WORK AND WAIT. CLEAR loc_msg. IF sy-subrc NE 0.* WRITE:/ 'Error in updating'. MESSAGE '过帐操作出现错误,请稍后重试!' TYPE 'E'. EXIT. ELSE.* WRITE:/ mthead-mat_doc, mthead-doc_year. CONCATENATE '物料凭证:' mat_doc '已成功创建!' INTO loc_msg. MESSAGE loc_msg TYPE 'S'. IF NOT mat_doc IS INITIAL. PERFORM upd_sta USING mat_doc zblko-btbh zblko-mbbh. ENDIF. zblko-mblnr = mat_doc. ENDIF. ELSE. MESSAGE '这不是正确的发料单或者已经创建凭证!' TYPE 'E'. ENDIF.ENDIF. 查看原帖>>