SAPBADI屏幕增強(qiáng)實(shí)例

1、以下根據(jù)系統(tǒng)實(shí)例做的最終效果：1、 SE11建立數(shù)據(jù)表，主要是用于存放附加的數(shù)據(jù)；MANDTMANDTCLNT30客戶端 MBLNRMBLNRCHAR100物料憑證編號(hào)MJAHRMJAHRNUMC40物料憑證年度ZEILE MBLPONUMC40物料憑證中的項(xiàng)目BADI_ERFMGERFMGQUAN133以輸入單位計(jì)的數(shù)量 BADI_ERFMEERFMEUNIT30條目單位2、 建立結(jié)構(gòu)，在屏幕數(shù)據(jù)交換時(shí)使用3、 建立表類型設(shè)置關(guān)鍵字段：4、 SE80建立函數(shù)組創(chuàng)建屏幕1000，設(shè)計(jì)格式，插入附加字段創(chuàng)建function: ZJIM_BADI_EXAMPLE_GET_DATA*-*Locali

2、nterface:*EXPORTING*REFERENCE(ES_MIGO_BADI_SCREEN_FIELDS)TYPE*ZJIM_BADI_EXAMPLE_SCREEN_FIELD*-*Getalldatafromfieldsofexternalscreen*Firstmoveallcustomer-fieldsMOVE-CORRESPONDINGzjim_badi_examplTOes_migo_badi_screen_fields.*SecondmoveallGOITEM-fields(displayedonexternalscreen)function: ZJIM_BADI_EXAM

3、PLE_PUT_DATA*-*Localinterface:*IMPORTING*REFERENCE(IS_MIGO_BADI_SCREEN_FIELDS)TYPE*ZJIM_BADI_EXAMPLE_SCREEN_FIELD*-*Putalldatafromfieldstoexternalscreen*Firstfillallcustomer-fieldsMOVE-CORRESPONDINGis_migo_badi_screen_fieldsTOZJIM_badi_exampl.*secondfillallGOITEM-fields(displayedonexternalscreen)fun

4、ction: ZJIM_BADI_EXAMPLE_UPDATE_DATA*-*Updatefunctionmodule:*Localinterface:*TABLES*IT_MIGO_BADI_EXAMPLESTRUCTUREZJIM_BADI_EXAMPL*-*Databseupdate:INSERTzjim_BADI_EXAMPLFROMTABLEIT_MIGO_BADI_EXAMPLE.IFsy-subrc0.MESSAGEa398(00)WITHErrorupdateMIGO_BADI_EXAMPL.ENDIF.INCLUDE : LZJIM_BADI001TOPTABLES:Zjim

5、_badi_exampl.到這里增強(qiáng)的準(zhǔn)備工作就做完了，下面開始創(chuàng)建實(shí)現(xiàn)：5、 SE19創(chuàng)建實(shí)現(xiàn)6、 創(chuàng)建執(zhí)行類ZCL_IM_JIM_MIGO_BADI，激活ZJIM_MIGO_BADI雙擊類維護(hù)類屬性GT_EXTDATA 用于數(shù)據(jù)交換，類型為ZJIM_TY_T_EXTDATA表類型，7、 激活以下方法并維護(hù)：methodIF_EX_MB_MIGO_BADIINIT.*RegristrationofBAdI-Implementation:*AppendclassattributeGF_CLASS_ID(=MIGO_BADI_IMPLEMENTATION1)to*regristrationtab

6、le.APPENDgf_class_idTOct_init.endmethod.METHODIF_EX_MB_MIGO_BADIPBO_DETAIL.DATA:ls_extdataTYPEzjim_badi_example_screen_field.*Thischeckisobligatory,otherwisetheprogramflowisincorrect*(IftherewouldbemorethanoneimplementationofBAdIMB_MIGO_BADI,*onlyonesubscreenwouldbedisplayed).CHECKi_class_id=gf_clas

7、s_id.*ShowscreenonlyifthereisanitemCHECKi_line_id0.*Externalsubscreen:*ThecontentofglobalfieldG_NO_INPUT(setinmethodMODE_SET)will*influencethenumberofexternalsubsreen:ifg_no_inputisinitial.e_cprog=SAPLZJIM_BADI001(006). 程序名為定義的函數(shù)組的名稱前加“SAPL“。e_dynnr=1000.Externalfields:Inpute_heading=ZJIM(004). 顯示標(biāo)簽

8、的名稱endif.*SetG_LINE_ID(=line_idofitemdisplayedondetail-tabstrip)g_line_id=i_line_id.*ReaddataREADTABLEgt_extdataINTOls_extdataWITHTABLEKEYline_id=i_line_id.*Exportdatatofunctiongroup(fordisplayonsubscreen)CALLFUNCTIONZJIM_BADI_EXAMPLE_PUT_DATAEXPORTINGis_migo_badi_screen_fields=ls_extdata.ENDMETHOD.

9、IF_EX_MB_MIGO_BADIPBO_DETAILMETHODIF_EX_MB_MIGO_BADIPAI_DETAIL.*-*ChangingparameterE_FORCE_CHANGEcanbesettoX.Inthiscase*methodLINE_MODIFYiscalled.*ATTENTION:*DONOTSETparameterE_FORCE_CHANGE=.Inthiscaseyoumight*overwriteparameterE_FORCE_CHANGEofanotherBAdIimplementation.*-DATA:ls_extdata_newTYPEzjim_

10、badi_example_screen_field,ls_extdata_oldTYPEzjim_badi_example_screen_field.*OnlyifalineexistsCHECKi_line_id0.*GetdatafromexternalscreenCALLFUNCTIONZJIM_BADI_EXAMPLE_GET_DATAIMPORTINGes_migo_badi_screen_fields=ls_extdata_new.*ComparenewdatawitholddataREADTABLEgt_extdataINTOls_extdata_oldWITHTABLEKEYl

11、ine_id=i_line_id.ls_extdata_new-line_id=i_line_id.IFls_extdata_oldls_extdata_new.*Iftherewereanychanges,itsobligatorytoforceMIGOtotrigger*methodLINE_MODIFY.e_force_change=X.ENDIF.ENDMETHOD.IF_EX_MB_MIGO_BADIPAI_DETAILMETHODIF_EX_MB_MIGO_BADILINE_MODIFY.DATA:ls_extdata_oldTYPEzjim_badi_example_screen

12、_field,ls_extdata_newTYPEzjim_badi_example_screen_field,ls_migo_badi_examplTYPEzjim_badi_exampl,l_subrcTYPEsy-subrc.*Getexternaldatafrominternaltable:READTABLEgt_extdataINTOls_extdata_oldWITHTABLEKEYline_id=i_line_id.l_subrc=sy-subrc.*Updatedataininternaltable:IFl_subrc0.*Lineisnew:IfGOITEMhasarefer

13、encetoamaterialdocument,*thealreadyexistingexternaldatacanberead.IFNOTcs_goitem-mblnrISINITIALANDNOTcs_goitem-mjahrISINITIALANDNOTcs_goitem-zeileISINITIAL.SELECTSINGLE*FROMzjim_badi_examplINTOls_migo_badi_examplWHEREmblnr=cs_goitem-mblnrANDmjahr=cs_goitem-mjahrANDzeile=cs_goitem-zeile.IFsy-subrc=0.M

14、OVE-CORRESPONDINGls_migo_badi_examplTOls_extdata_new.ENDIF.ENDIF.*ls_extdata_new-sgtxt=cs_goitem-sgtxt.ls_extdata_new-line_id=i_line_id.INSERTls_extdata_newINTOTABLEgt_extdata.ELSE.*Lineexists:GetexternaldataenteredonBAdI-subscreeen,butonly*ifline_modifywascalledfortheitemdisplayedinthe*detailtabstr

15、ip.checkg_line_id=i_line_id.CALLFUNCTIONZJIM_BADI_EXAMPLE_GET_DATAIMPORTINGes_migo_badi_screen_fields=ls_extdata_new.ls_extdata_new-line_id=i_line_id.*ifls_extdata_new-sgtxtls_extdata_old-sgtxt.*Fieldwaschangedonexternalscreen*cs_goitem-sgtxt=ls_extdata_new-sgtxt.*else.*TakedatafromGOITEM*ls_extdata

16、_new-sgtxt=cs_goitem-sgtxt.*endif.MODIFYTABLEgt_extdataFROMls_extdata_new.ENDIF.ENDMETHOD.IF_EX_MB_MIGO_BADILINE_MODIFYMETHODIF_EX_MB_MIGO_BADILINE_DELETE.DELETETABLEgt_extdataWITHTABLEKEYline_id=i_line_id.ENDMETHOD.IF_EX_MB_MIGO_BADILINE_DELETEMETHODIF_EX_MB_MIGO_BADIPOST_DOCUMENT.DATA:ls_migo_badi

17、_exampleTYPEZJIM_badi_exampl,lt_migo_badi_exampleTYPETABLEOFzjim_badi_exampl,ls_extdataTYPEzjim_badi_example_screen_field,ls_xmsegTYPEmseg.FIELD-SYMBOLS:TYPEmigo_badi_example_screen_field.*TransactionMIGOwillnowpostamaterialdocument.*AnyerrorshereMUSTbeissuedasA-message(better:X-message)*Copydatafro

18、mmaterialdocumentintointernaltableLOOPATgt_extdataINTOls_extdata.IFg_cancelISINITIAL.READTABLEit_msegINTOls_xmsegWITHKEYline_id=ls_extdata-line_id.ELSE.READTABLEit_msegINTOls_xmsegWITHKEYsmbln=ls_extdata-mblnrsmblp=ls_extdata-zeilesjahr=ls_extdata-mjahr.ENDIF.IFsy-subrcISINITIAL.MOVE-CORRESPONDINGls_extdataTOls_migo_badi_example.MOVE-CORRESPONDINGls_xmsegTOls_migo_badi_example.APPENDls_migo_badi_exampleTOlt_migo_badi_examp