SAPBADI屏幕增强实例

1、以下根据系统实例做的最终效果：1、 SE11建立数据表，主要是用于存放附加的数据；MANDTMANDTCLNT30客户端 MBLNRMBLNRCHAR100物料凭证编号MJAHRMJAHRNUMC40物料凭证年度ZEILE MBLPONUMC40物料凭证中的项目BADI_ERFMGERFMGQUAN133以输入单位计的数量 BADI_ERFMEERFMEUNIT30条目单位2、 建立结构，在屏幕数据交换时使用3、 建立表类型设置关键字段：4、 SE80建立函数组创建屏幕1000，设计格式，插入附加字段创建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.到这里增强的准备工作就做完了，下面开始创建实现：5、 SE19创建实现6、 创建执行类ZCL_IM_JIM_MIGO_BADI，激活ZJIM_MIGO_BADI双击类维护类属性GT_EXTDATA 用于数据交换，类型为ZJIM_TY_T_EXTDATA表类型，7、 激活以下方法并维护：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). 程序名为定义的函数组的名称前加“SAPL“。e_dynnr=1000.Externalfields:Inpute_heading=ZJIM(004). 显示标签

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