SAPBADI屏幕增强实例_第1页
SAPBADI屏幕增强实例_第2页
SAPBADI屏幕增强实例_第3页
SAPBADI屏幕增强实例_第4页
SAPBADI屏幕增强实例_第5页
已阅读5页,还剩6页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

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

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论