Chinaunix首页 | 论坛 | 博客
  • 博客访问: 52789
  • 博文数量: 3
  • 博客积分: 657
  • 博客等级: 上士
  • 技术积分: 160
  • 用 户 组: 普通用户
  • 注册时间: 2007-04-12 13:31
文章分类

全部博文(3)

文章存档

2009年(1)

2008年(2)

我的朋友
最近访客

分类:

2008-09-12 16:12:33

---BADI 的应用---
1.定义BADI
   1) T-Code:  SE18     Business Add-In Define.
   2) 输入要创建的BADI的名字,点击"Create"。
   3) 输入BADI的描述性文本,在"Interface"选项卡上输入接口的名字,也可以采用SAP建议的接口的名字。同时,BADI类也        会被创建。
     例如:对于BADI "ZTEST",SAP会建议"ZIF_EX_TEST"作为接口的名字,"ZCL_EX_TEST"作为类的名字。
   4) 保存BADI。
   5) 双击接口的名字,会跳转到Class Builder界面,在这里你可以定义接口的方法。
   6) 保存并激活接口。
 
 
 
2.实现BADI
   1) T-Code:  SE19     Business Add-In Implementation
   2.输入BADI实现的名字,点击"Create"。
   3.输入BADI定义的名字。
   4.输入实现的描述性文本,在"Interface"选项卡上输入实现类的名字。可以采用SAP建议的名字。
    例如:"ZIMPTEST",SAP会建议"ZCL_IM_IMPTEST"。
   5.保存实现。
   6.双击某一方法名会跳转到Class Builder界面,在这里你可以添加代码来重定义接口方法。
   7.激活实现。
 
 
 
 
3. 程序中调用BADI
 1)先用类型参照引用出要调用的BADI
 
 2)实例化BADI
 
 3)实例化后就可以任意调用BADI 中的方法了。

REPORT  ZZW_BAPI_01                                                 .
data exit type ref to ZIF_EX_ZW_BD_TEST.

call method cl_exithandler=>get_instance
     changing
        instance = exit.

call method exit->Z_ZW_01.

==》
badi 小记
BADI作为SAP的第三代用户出口,他的应用也越来越广泛,但如何找到合适的badi是许多abap程序员的困惑。我这里就介绍一下我个人的应用的经验,供大家参考。
1、badi对象的信息存储在SXS_INTER, SXC_EXIT, SXC_CLASS 和SXC_ATTR 这四个表中(参见SECE包);
2、sap程序都会调用cl_exithandler=>get_instance来判断对象是否存在,并返回实例;其实get_instance就是对上述几个表和他们的视图(V_EXT_IMP 和 V_EXT_ACT)进行查询和搜索。
3、基于这个机理,我查用ST05来监控一个TCODE来跟踪,然后选择查找有关上述几个表和视图的操作,就可获得相关BADI。
4、se18 查找接口,se19 实现接口就可以实现用户增强。
示例:用LE_SHP_DELIVERY_PROC控制跨月Cancel
METHOD IF_EX_LE_SHP_DELIVERY_PROC~CHANGE_DELIVERY_HEADER .
data : thismonth(2) type c.
data : wa_likp type line of SHP_LIKP_T.
data : wa_log type line of SHP_BADI_ERROR_LOG_T.
clear ct_log[],thismonth.
thismonth = sy-datum+4(2). "----->這一個月的月份
loop at it_xlikp into wa_likp.
check IS_V50AGL-WARENAUSG_STORNO ='X'."--->代表作GI cancel
if wa_likp-WADAT_IST+4(2) < thismonth.
wa_log-VBELN = cs_likp-vbeln.
wa_log-MSGTY = 'E'. "錯誤訊息
wa_log-MSGID = 'ZDN_ERROR'. "這一個class要自己建
wa_log-MSGNO = '001'.
append wa_log to ct_log. "Error log寫入
endif.
endloop.
ENDMETHOD.
阅读(1164) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~