BAPI_GOODSMVT_CREATE物料凭证增强字段

目的：增加字段LSMNG LSMEH的赋值

项目MSEG 的 BAPI 表增强结构  BAPI_TE_XMSEG

抬头MKPF 的 BAIP 表增强 BAPI_TE_XMKPF

• 1. 在结构BAPI_TE_XMSEG中appending structure附加结构 ZMSEG_001，增加字段LSMNG，

LSMEH

In The method IF_EX_MB_Hi, you can update LSMNG quantity using EXTENSIONIN structures of BAPI_GOODSMVT_CREATE. The steps are the following: Add LSMNG field in BAPI_TE_XMSEG structure create an appending structure (char field) By SE19 transaction create the Enhancement Spot starting from MB_GOODSMOVEMENT Define the Badi Implementation choosing MB_BAPI_GOODSMVT_CREATE Badi Definition implementing a new customer class.

借鉴 https://www.shangyexinzhi.com/article/2112799.html

METHOD IF_EX_MB_BAPI_GOODSMVT_CREATE~EXTENSIONIN_TO_MATDOC.DATA:C_LENSTRUC        TYPE I VALUE 30,WA_BAPI_MB_HEADER TYPE BAPI_TE_XMKPF,WA_BAPI_MB_ITEM   TYPE BAPI_TE_XMSEG,WA_EXTENSION_IN   TYPE BAPIPAREX.FIELD-SYMBOLS:<FS_IMSEG>          TYPE IMSEG.CHECK NOT EXTENSION_IN[] IS INITIAL.* Analyze IMSEG for document structure and assign LINE_IDs if necessaryCALL METHOD CL_MMIM_LINE_ID_MANAGER=>ANALYZE_MB_CREATECHANGINGCT_IMSEG          = CT_IMSEG[]EXCEPTIONSDUPLICATE_LINE_ID = 1OTHERS            = 2.LOOP AT EXTENSION_IN INTO WA_EXTENSION_IN.CASE WA_EXTENSION_IN-STRUCTURE.
* extension of MKPFWHEN 'BAPI_TE_XMKPF'.MOVE WA_EXTENSION_IN+C_LENSTRUC TO WA_BAPI_MB_HEADER.MOVE WA_EXTENSION_IN+14(50) TO WA_BAPI_MB_HEADER-ZWMSID.MOVE WA_EXTENSION_IN+64(20) TO WA_BAPI_MB_HEADER-ZCHARGER.MOVE-CORRESPONDING WA_BAPI_MB_HEADER TO CS_IMKPF.
* extension of MSEGWHEN 'BAPI_TE_XMSEG'.MOVE WA_EXTENSION_IN+C_LENSTRUC TO WA_BAPI_MB_ITEM.READ TABLE CT_IMSEGWITH KEY LINE_ID = WA_BAPI_MB_ITEM-MATDOC_ITMASSIGNING <FS_IMSEG>.IF SY-SUBRC EQ 0.MOVE-CORRESPONDING WA_BAPI_MB_ITEM TO <FS_IMSEG>.ENDIF.ENDCASE.ENDLOOP.ENDMETHOD.