BADI的全称是Business Add-in,它的主要技术是基于ABAP的对象来实现增强。SAP中BADI的维护事务代码是SE18和SE19,SE18主要是创建及维护BADI对象,而SE19用于维护BADI的实例,即如何来实现BADI对象的功能。
SAP的BADI因系统版本的差别可能会有不同,R/3中的BADI被称为Classic BADI,而到了SAP Netweaver中ABAP被升级到了7.0版本,新增了BADI Enhancement Spot对象,Classic BADI 的功能被保留,但是Classic BADI所维护的对象也可以移植到新的BADI中进行操作。SAP的BADI不但可以实现对标准功能系统的增强,也可以直接在自定义程序中进行调用。
1、自定义BADI对象的创建及维护实例
下面就开始介绍如何自定义一个BADI对象,并实现在ABAP程序中对该对象的调用,通过实例可以初步的了解BADI维护工具的具体操作及相关属性。
<1>输入事务代码SE18,进入到BADI Builder的维护界面,选择“增强点”(Enhancement Spot)的单选按钮,在输入栏中输入自定义的对象名称,这里我们以“ZBADI_TEST001”为例,如下图所示:
<2>单据工具栏中的“创建”按钮,系统将会弹出“Create Enhancement Spot”对话框,需要维护对象名称及描述,具体如下图所示:
<3>单击“确认”按钮,保存Enhancement Spot对象,进入到Enhancement Spot对象属性维护页面,选择第四个页签“增强点元素定义”,如下图所示:
<4>单击“创建”的空白按钮,系统将会弹出“创建BADI定义”对话框,要求维护自定义BADI的名称及描述,这里我们输入“ZBADI_TEST001”,如下图:
<5>单击“确定”按钮,可以看到操作页面的列表中增加了BADI定义的对象,如下图所示:
<6>单击菜单中的“接口”节点,在屏幕的右边将会出现接口定义的维护字段,在接口字段输入自定义接口名称“ZBADI_TEST_F01”,如下图所示:
<7>将光标定位在接口字段并按下回车键,系统提示“类/接口不存在,是否要创建对象?”,如下图所示:
<8>单击“是”按钮将保存该接口对象,接下来将会进入类别制作器维护页面。在该页面的“方法”字段中维护自定义方法,这里定义名称为“PRINT”,如下图所示:
<9>单击“类别制作器”工具栏中的“参数”按钮,进入所选方法的参数维护页面。为“PRINT”方法分别定义一个输入和一个输出参数,参数名称分别为INPUT和OUTPUT,具体如下图所示:
<10>保存并激活上述操作,返回BADI定义的页面,在BADI对象列表中选择第二个节点“实施”,在节点处单击鼠标右键,将会出现“创建BADI实施”的菜单选项,如下图所示:
<11>将会弹出“Create Enhancement Implementation”对话框,这里新建Enhancement实例名称为“ZBADI_TEST001_IMP”,具体如下图所示:
这里所创建的“Enhancement Implementation”也可以在SE19中查看及维护。
<12>“Create Enhancement Implementation”输入完毕点“确认”之后,系统会弹出“创建BADI实施”的对话框,这里维护BADI的实施名称为“ZBADI_TEST001”,实施类的名称为“ZBADI_TEST001_CLASS”,如下图所示:
<13>确认后进入“Enhancement Implementation”维护界面,如图所示:
<14>双击实施类所对应的方法“ZBADI_TEST_F01~PRINT”,系统将会提示是否创建该实例,单击“确认”按钮后会创建一个新的实例,该方法所对应的实例维护界面如下图所示:
本例在创建接口时,为该方法建立了INPUT和OUTPUT两个参数,在程序中可以直接调用这两个参数,相关的代码如下:
METHOD ZBADI_TEST_F01~PRINT.
CONCATENATE '输入:' INPUT INTO OUTPUT.
ENDMETHOD.
<15>所创建的BADI还可以在ABAP程序中直接调用,如下面所示:
REPORT ZTEST_BADI_001.
DATA : BADI1 TYPE REF TO ZBADI_TEST_F01, "参照接口对象
BADI2 TYPE REF TO ZBADI_TEST001_CLASS."参照实施类
DATA : INSTR TYPE STRING,
OUTSTR TYPE STRING.
START-OF-SELECTION.
CREATE OBJECT BADI2. "创建一个类的实例
BADI1 = BADI2. "对实例赋值
INSTR = 'Test'.
CALL METHOD BADI1->PRINT "调用BADI所生成的类方法
EXPORTING
INPUT = INSTR
IMPORTING
OUTPUT = OUTSTR.
WRITE : OUTSTR.
2、如何查找系统中的BADI
SAP中的源码,相关BADI增强都是通过方法“CL_EXITHANDLER=>GET INSTANCE”来调用的,以客户维护事务代码VD02为例,作相关步骤的讲解:
<1>在VD02的操作页面中执行主菜单中的“系统”-“状态”命令来查看该事务代码的源码程序,可以发现VD02的程序名称为“SAPMF02D”。
<2>进入到程序“SAPMF02D”的代码查看页面,单击工具栏中的“查找”按钮,输入系统调用BADI的方法的前几个字母“CL_EXIT”,如图所示:
<3>单击“确定”按钮后,显示查找的结果:
以上述结果中的某段为例,比如BADI对象为EXIT_NAME的参数“CUSTOMER_ADD_DATA”。
* Instanz setzen
CALL METHOD CL_EXITHANDLER=>GET_INSTANCE
exporting " \TP 563352
exit_name = 'CUSTOMER_ADD_DATA' " \TP 563352
null_instance_accepted = 'X' " \TP 563352
CHANGING
INSTANCE = G_ADDITIONAL_DATA.
还有些代码是直接调用BADI中的类,该类在方法取用时为一个参数的形式,如下图所示:
遇到这类代码,可以直接双击查找的订单,查看源码所在的位置,然后双击类关联的参数,将可以看到参数的定义代码,所查找的类名称通常是以“CL_EX_”作为开头的,BADI名则截取后面的部分。以本例在销售订单中创建事务代码VA01的关联程序中找到了BADI类:if_ex_oij_el_tsw_details,则其关联的BADI对象名称为“oij_el_tsw_details”。
STATICS: l_exit TYPE REF TO if_ex_oij_el_tsw_details.
IF l_exit IS INITIAL.
CALL METHOD cl_exithandler=>get_instance
CHANGING
instance = l_exit.
ENDIF.
所找到的BADI对象可以通过事务代码SE18来查看,以BADI:CUSTOMER_ADD_DATA为例,可以看到其对应的接口类为IF_EX_CUSTOMER_ADD_DATA,如下图所示:
除了通过上面的方法外,也可以通过SE80来查看增强对象,SAP的所有程序都被分配到了一个开发类,例如XD02对应的开发类就是VS,在SE80查看该开发类调用的增强,如下图所示:
3、通过BADI实现客户主数据控制功能的建立
以上面找到的增强对象“CUSTOMER_ADD_DATA”为例,该BADI是在XD02中找到的,关联的业务肯定是与客户主数据的创建和维护有关系,增强实现具体如下。
<1>输入事务代码SE19,输入BADI对象名称“CUSTOMER_ADD_DATA”,如下图所示:
<2>点击“创建实施”按钮,弹出对话框,维护BADI定义的Enhancement Implementation的名称和描述,这里定义为“ZCUSTOMER_ADD_DATA”。
<3>单击“确认”之后需要进一步维护新建BADI对象的实施对象名称及实施类,本例中定义BADI的实施对象名称为“ZCUSTOMER_ADD_DATA”,实施类名称为“ZCL_IM_ZCUSTOMER_ADD_DATA”,然后在下拉菜单中选择该BADI的实施类为“CUSTOMER_ADD_DATA”。
<4>单击“确定”按钮,进入BADI实施对象的维护页面,新建的实施类继承了原有BADI对象所对应的实施类的所有方法,如下图所示:
<5>新建的BADI实施类继承了所有的方法,双击列表中某一个方法,将进入其ABAP编辑页面,可以由用户编写自定义的代码。双击实施类或者通过事务代码SE24可以查看该类所有方法的接口参数信息。
以方法“CHECK_ALL_DATA”为例,从名称上看可以获悉该方法应该适用于对客户数据的检查,查看接口参数,几乎包括了客户主数据维护的所有信息,如下图所示:
下面举例说明,在客户保存的时候,检查该客户的地址信息是否已经维护,当地址信息为空时,提示不允许保存。客户对应的地址信息数据存储在物理表KNA1-STRAS字段中,可以推断其对应的接口参数为S_KNA1-STRAS,双击“CHECK_ALL_DATA”方法,进入到ABAP维护界面,如下图所示:
维护代码:
METHOD IF_EX_CUSTOMER_ADD_DATA~CHECK_ALL_DATA.
IF S_KNA1-STRAS IS INITIAL.
MESSAGE E001(00) WITH '客户的地址信息不可以为空!'.
ENDIF.
ENDMETHOD.
保存并激活增强代码即可。