SAP BADI 入门篇
1.1 BADIs
| BADIName |
/KJEPS/BADI2 |
| Description |
BADI for change visibility of EPSfields |
| Dev.Class |
/KJEPS/JD |
1.1.1 MethodSET_SCREEN_COND_VBAP
Overview:
| MethodName |
SET_SCREEN_COND_VBAP |
| Description |
Change field visibility for Sales orderitem screen |
| Function |
Called from PBO module of SAPMV45A 8450 andreturn EX_SCREEN_VISIBLE |
Interface:
ImportingParameters
| Field Name |
Reference |
Description |
Mandatory |
| IN_VBAK |
VBAK |
Sales Order Header |
X |
| IN_VBAP |
VBAP |
Processing SalesOrder Item |
|
| IN_TRTYP |
TRTYP |
Transactiontype |
|
| IN_XVBAP |
VA_VBAPVB_T |
Document Structure for XVBAP/YVBAP (Salesorder item) |
|
| IN_XVBEP |
VA_VBEPVB_T |
Structure of Document for XVBEP/YVBEP(schedule line) |
|
| IN_XVBKD |
VA_VBKDVB_T |
Reference structure for XVBKD/YVBKD(business data) |
|
| IN_XVBPA |
VA_VBPAVB_T |
(partnerfunction) |
Changing Parameters
| Field Name |
Reference |
Description |
Mandatory |
| EX_SCREEN_VISIBLE |
C |
‘X’ = EPS screen isvisible Space = EPS screen is notvisible |
以上一个是BADI的定义, 那么什么是BADI呢, 说土点就是现在你定义个接口类,但是这个接口
类有一些方法,但是这些方法都是空的,这些方法也有都自己的IMPORTING,EXPORTING,
CHANING参数.但是这些方法没有被实现, 而你却还要在自己当前写的程序中去调用这个
没有被实现的方法, 这里就出现了一堆问题,
为什么要调用它?
为什么这个BADI是空的?
为什么要做这样的一个空的东西?
下面将回答这些问题, 因为比较偷懒所以没找到比较好的例子, 以下是一个SAP的业务场景:
SALES ORDER的ITEM数据行的DETAIL信息,SAP系统给客户留了一个BADI, 这个
BADI被系统的标准程序调用过,显示一个SUBSCREEN, 里面包含一些信息, 如下:
如果某个用户实施了SAP的产品,不希望出现这个SUBSCREEN的话, 客户想把这个屏幕给隐
藏掉, 所以给客户预留了一个BADI的DEFINITION. 也就是最上面的那个表.
使用SE18可以看到这个定义.
这三个方法在标准的程序中是怎么被调用的.
以下是系统标准程序
************************************************************************************
*Defineclass load
classcl_exithandler definition load.
*Definethe Sales Order Control Table instance
data:lds_soctrl type/kjeps/soctrl,
ldf_screen_visible(1)type C value space,
ldf_pre_existingtype c,
exittype ref to/KJEPS/IF_EX_BADI2,
ldf_badi_nametype exit_def value'/KJEPS/BADI2'.
*Chckthe BADI whether was implemented.
*检查BADI是否被用户给实现过了,传入BADI的定义名字和接口类名
CALLMETHOD CL_EXITHANDLER=>GET_INSTANCE
EXPORTING
EXIT_NAME= ldf_badi_name
NULL_INSTANCE_ACCEPTED= space
IMPORTING
ACT_IMP_EXISTING= ldf_pre_existing
CHANGING
INSTANCE= exit.
*IFthe BADI has implemented, and then call correspondingmethod.
*如果这个BADI被用户实现了,下面的这个参数会等于’X’
*如果实现了,就调用客户实现的方法.
ifldf_pre_existing = gcf_on.
CALLMETHOD EXIT->SET_SCREEN_COND_VBAP
EXPORTING
IN_VBAK= vbak
IN_VBAP= vbap
IN_TRTYP= t180-trtyp
IN_XVBAP= xvbap[]
IN_XVBEP= xvbep[]
IN_XVBKD= xvbkd[]
IN_XVBPA= xvbpa[]
CHANGING
EX_SCREEN_VISIBLE= ldf_screen_visible.
endif.
ifldf_screen_visible = space.
loopat screen.
screen-active= '0'.
modifyscreen.
endloop.
endif.
************************************************************************************
那么这里客户如何是实现这个BADI的DEFINITION呢,使用SE19
其中的SET_SCREEN_COND_VBAP被实现了,把SUBSCREEN的显示的一个变量清除了.
这就表示,用户不想看见那个显示数据的SUBSCREEN, 然后看上面的系统中的程序. 执行到
这里的时候会判断这个变量是否被用户的程序给修改了,如果修改了就不显示SUBSCREEN了.
*******************************************************************if ldf_screen_visible = space.
loopat screen.
screen-active= '0'.
modifyscreen.
endloop.
endif.*******************************************************************
~完~