物料转移过账BAPI_GOODSMVT_CREATE

最新推荐文章于 2023-05-31 16:20:12 发布

最新推荐文章于 2023-05-31 16:20:12 发布 · 574 阅读

文章标签：

物料转移过账BAPI_GOODSMVT_CREATE

REPORTzppmm_mb1b.
TABLES:mseg,
mkpf,
rm07m,
t158b,
t001l,
msegk.

DATA:mat_docLIKEbapi2017_gm_head_ret-mat_doc.

DATA:save_codeLIKEsy-ucomm,
ok_codeLIKEsy-ucomm,
loc_msg(50),
gmngaLIKEafru-gmnga,
mtsnrLIKErm07m-mtsnr,
errflag..

DATA:BEGINOFgt_afpoOCCURS0.
INCLUDESTRUCTUREafpo.
DATA:ENDOFgt_afpo.

DATA:gmheadLIKEbapi2017_gm_head_01.

DATA:BEGINOFgmcode.
INCLUDESTRUCTUREbapi2017_gm_code.
DATA:ENDOFgmcode.

DATA:BEGINOFmthead.
INCLUDESTRUCTUREbapi2017_gm_head_ret.
DATA:ENDOFmthead.

DATA:BEGINOFitabOCCURS100.
INCLUDESTRUCTUREbapi2017_gm_item_create.
DATA:ENDOFitab.

DATA:BEGINOFerrmsgOCCURS10.
INCLUDESTRUCTUREbapiret2.
DATA:ENDOFerrmsg.

INITIALIZATION.
t001l-lgort='1051'.
mseg-lgort='1050'.
mseg-werks='1000'.
mkpf-bldat=sy-datum.
mkpf-budat=sy-datum.
t158b-bwart='311'.
rm07m-sobkz='E'.
rm07m-werks='1000'.
rm07m-lgort='1050'.
mseg-erfme='PC'.
gmcode-gm_code='04'."MB1B
CALLSCREEN100.

*&----------------------------------------------------*
*&ModuleSTATUS_0100OUTPUT
*&-----------------------------------------------------*
*text
*--------------------------------------------------------*
MODULEstatus_0100OUTPUT.
SETPF-STATUS'FOR0100'.
SETTITLEBAR'100'.

ENDMODULE."STATUS_0100OUTPUT
*&--------------------------------------------------*
*&ModuleUSER_COMMAND_0100INPUT
*&----------------------------------------------------*
*text
*-----------------------------------------------------*
MODULEuser_command_0100INPUT.
save_code=ok_code.
CLEARok_code.
CASEsave_code.
WHEN'SAVE'.
PERFORMform_save.
WHEN'EXIT'OR'BACK'.
LEAVETOSCREEN0.
WHEN'CLOSE'.
LEAVEPROGRAM.
ENDCASE.
ENDMODULE."USER_COMMAND_0100INPUT
*&-----------------------------------------------------*
*&FormFORM_SAVE
*&-------------------------------------------------*
*text
*---------------------------------------------------------*
*-->p1text
*<--p2text
*---------------------------------------------------*
FORMform_save.
IFmkpf-bldat=''
ORmkpf-budat=''
ORrm07m-mtsnr=''
ORmseg-matnr=''
ORmseg-lgort=''
ORmseg-erfmg=''
ORmseg-erfme=''
ORt001l-lgort=''
ORmsegk-mat_kdauf=''
ORmsegk-mat_kdpos=''.
MESSAGEi000(znyj13)WITH'信息不完整'.
RETURN.
ENDIF.
IFgmnga<mseg-erfmg.
MESSAGEi000(znyj13)WITH'移动数量应小于确认数量'.
mseg-erfmg=''.
RETURN.
ENDIF.
gmhead-pstng_date=sy-datum."mkpf-bldat.
gmhead-doc_date=sy-datum."mkpf-budat.
gmhead-ref_doc_no=rm07m-mtsnr.
gmhead-pr_uname=sy-uname.
gmhead-header_txt=mkpf-bktxt.
*APPENDgmhead.

itab-material=mseg-matnr.
itab-plant='1000'.
itab-stge_loc=mseg-lgort.
itab-move_type=t158b-bwart."rm07m-bwartwa.
itab-spec_stock=rm07m-sobkz.
itab-entry_qnt=mseg-erfmg.
itab-entry_uom=mseg-erfme.
*itab-batch=mseg-charg.
*itab-orderid=rm07m-mtsnr.
*itab-order_itno=msegk-mat_kdpos.
itab-move_mat=mseg-matnr.
itab-move_plant='1000'.
itab-move_stloc=t001l-lgort.
itab-val_sales_ord=msegk-mat_kdauf.
itab-val_s_ord_item=msegk-mat_kdpos.
itab-nb_slips=1.

APPENDitab.
CALLFUNCTION'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header=gmhead
goodsmvt_code=gmcode
IMPORTING
goodsmvt_headret=mthead
materialdocument=mat_doc
TABLES
goodsmvt_item=itab
return=errmsg.

LOOPATerrmsg.
CLEARloc_msg.
CONCATENATE'过帐成功!'errmsg-messageINTOloc_msg.
IFerrmsg-typeEQ'E'.

MESSAGEerrmsg-messageTYPE'E'.
errflag='X'.
ELSE.
MESSAGEloc_msgTYPE'S'.
ENDIF.
ENDLOOP.

IFerrflagISINITIAL.
COMMITWORKANDWAIT.
CLEARloc_msg.
IFsy-subrcNE0.

MESSAGE'过帐操作出现错误,请稍后重试!'TYPE'E'.
EXIT.
ELSE.

CONCATENATE'物料凭证:'mat_doc'已成功创建!'INTOloc_msg.
MESSAGEi000(znyj13)WITHloc_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.

CALLFUNCTION'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait='X'.

ENDFORM."FORM_SAVE
*&-----------------------------------------------*
*&ModuleRM07M-MTSNRINPUT
*&----------------------------------------------*
*text
*------------------------------------------------*
MODULErm07m-mtsnrINPUT.
CONCATENATE'0000'rm07m-mtsnrINTOmtsnr.
*SELECTSINGLEgmngaINTOgmngaFROMafruWHEREaufnr=rm07m-mtsnr.
IFsy-subrc=0.
SELECT*INTOCORRESPONDINGFIELDSOFTABLEgt_afpo
FROMafpo
WHEREaufnr=mtsnr.
IFsy-subrc=0.
READTABLEgt_afpoINDEX1.
msegk-mat_kdauf=gt_afpo-kdauf.
msegk-mat_kdpos=gt_afpo-kdpos.
mseg-matnr=gt_afpo-matnr.
gmnga=gt_afpo-wemng.
ENDIF.
ELSE.
CONCATENATE'订单:'rm07m-mtsnr'不存在!'INTOloc_msg.
MESSAGEi000(znyj13)WITHloc_msg.

RETURN.
ENDIF.
ENDMODULE."RM07M-MTSNRINPUT

PROCESSBEFOREOUTPUT.
MODULESTATUS_0100.
*
PROCESSAFTERINPUT.
MODULEUSER_COMMAND_0100.
FIELDRM07M-MTSNRMODULERM07M-MTSNRONREQUEST.

* BAPI TO Upload Inventory Data
*
* GMCODE Table T158G - 01 - MB01 - Goods Receipts for Purchase Order
* 02 - MB31 - Goods Receipts for Prod Order
* 03 - MB1A - Goods Issue
* 04 - MB1B - Transfer Posting
* 05 - MB1C - Enter Other Goods Receipt
* 06 - MB11
*
* Domain: KZBEW - Movement Indicator
* Goods movement w/o reference
* B - Goods movement for purchase order
* F - Goods movement for production order
* L - Goods movement for delivery note
* K - Goods movement for kanban requirement (WM - internal only)
* O - Subsequent adjustment of "material-provided" consumption
* W - Subsequent adjustment of proportion/product unit material

GMCODE Table T158G - 01 - MB01 - Goods Receipts for Purchase Order
* 02 - MB31 - Goods Receipts for Prod Order
* 03 - MB1A - Goods Issue
* 04 - MB1B - Transfer Posting
* 05 - MB1C - Enter Other Goods Receipt
* 06 - MB11