这里对sap Classic Badi 做一下总结,虽然已经是过时的技术了.
- Classic BADI的创建
- Classic BADI的实施
- Classic BADI的调用及运行原理
- New BADI
- FCODE增强
- 屏幕增强
- Classic BADI的创建
事务代码:SE18
由于Classic Badi 已经是过时的技术了,现在提倡用4代增强NEW BADI.所有三代增强的创建入口被隐藏在实用程序下边.
入口 SE18--Utilities--Create classic BAdi.
填写必要字段
注意一下系统自动生成的类 ZCL_EX_TEST_OLD_BADI2.这个类是BADI运行的关键.后面会讲到.
Multiple Use 如果打勾了,那么这个Badi可以同时存在多个激活的实例.但实例执行的顺序是没有规律的.
如果Multiple Use打勾了,则该BADI定义就不能有按键增强和子屏幕增强了.
Filter-Depend如果打勾了,需要填写一个过滤器类型,过滤器类型有如下限制: 是char类型的数据元素;长度不能超过30位;具有搜索帮助;有一个具有固定值或者值表的域.
如果启用了过滤器,则所有BADI接口的方法的参数中会自动(也必须)包含一个输入参数(importing):FLT_VAL.
如果Filter-Depend打勾了,则该BAID就不能有按键增强.
在创建BADI时系统会自动根据BADI的名称建议一个接口名称,该名称和自动生成的BADI类只是前缀不同.当然接口名称可以修改.
双击接口名称就可以创建该接口,在接口创建界面定义方法和属性值.
如果启用了过滤器,则所有BADI接口的方法的参数中会自动(也必须)包含一个输入参数(importing):FLT_VAL.
此处创建的接口将作为BADI实施类的接口.
当激活BAID时,系统将会根据接口生成有一个上边提到的BADI类ZCL_EX_TEST_OLD_BADI2,自然该类将包含接口中的所有方法及属性.
关于按键增强(状态栏增强)及子屏幕增强将在后边讲.
2. Classic BADI的实施
事务码:SE19.
在Create Implementation 框中,选择Classic BAdI.输入BADI名称,点击Create按键创建BADI实施.
指定BADI实施名称,继续.
如果BADI包含过滤器FILTER.则在BADI实施的属性页中必须指定过滤值Filter value(可以是多值).只有在在调用BADI的类的接口方法时,传入给参数FLT_VAL的值等于该实施的 Filter value 时,该实施对应的方法才会被调用.详情见BADI的调用.
然后可以在interface页中重写所有BADI接口的方法了. 没有问题后激活,则badi实施就完成了.
如果BADI不是多次使用的.则同时只能有一个实施是激活的.
3. Classic BADI的调用,运行原理及相关数据库透明表.
与三代之前的增强相关的内容都放在包SECE(Enhancement concept)中.
其中与三代BADI相关的视图或者表如下:
视图BADI_DATA:包含了BADI名称,过滤器Filter的数据元素,是否可以重复可以多次使用,BADI接口,BADI类等信息
视图:V_EXT_ACT 包含了BADI对应的活动的实施
BADI调用时,需要先定义一个类型为BADI接口的参考变量.当然类型为BADI类也可以.
然后调用类cl_exithandler的静态方法get_instance.
然后用返回的参考变量调用方法就可以了.
DATA gr_test_odl_badi TYPE REF TO zif_ex_test_old_badi. DATA gv_string TYPE string. PARAMETERS p_bukrs TYPE bukrs. START-OF-SELECTION. CALL METHOD cl_exithandler=>get_instance * EXPORTING * exit_name = * null_instance_accepted = SEEX_FALSE * IMPORTING * act_imp_existing = CHANGING instance = gr_test_odl_badi "需要注意的时此时返回的参考变量为BADI类的参考变量,而不是实施类的参考变量. * EXCEPTIONS * no_reference = 1 * no_interface_reference = 2 * no_exit_interface = 3 * class_not_implement_interface = 4 * single_exit_multiply_active = 5 * cast_error = 6 * exit_not_existing = 7 * data_incons_in_exit_managem = 8 * others = 9 . IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. CALL METHOD gr_test_odl_badi->get_butxt EXPORTING flt_val = p_bukrs CHANGING butxt = gv_string.
前边我们提到过,在激活BADI时系统会自动生成一个BADI的类(这个类也是参考BADI接口创建的)及其方法.
使用cl_exithandler=>get_instance归回的参考变量就是BADI类的参考变量.
该方法通过cl_abap_typedescr=>describe_by_data 获取changing参数gr_test_odl_badi类型对应的接口.
通过接口在表SXS_INTER中找到BADI名称.然后通过拼接获取BADI对应类的名称.
之后我们调用的方法gr_test_odl_badi->get_butxt就是激活BADI时,系统自动生成的方法.
该方法的作用在于检查该BADI是否有激活的实施.
如果存在,则依次调用每个实施类的相同的方法.