Enhancement(1)--BTEs
最近一个同事碰到一个FI的增强,要用BTEs实现,我也是第一次接触到这种增强,所以跟着他一起做了一下。写一个这方面的小节。
BTEs(Business Transaction Events),是SAP的一种增强方式,技术上讲是介于Customer Exits和BAdIs的产物。
它主要有两种类型的接口:
Publish and Subscribe Interface
Process Interface
其比较核心的理念是,使一个接口重复利用,多种实现并且互不干扰。而技术实现的时候,就采用在标准程序中Call固定的一个functioin,然后再用 这个function动态调用自己定义的增强function,从而达到预期目的。
这样的接口,在标准程序中常常是以OPEN_FI_PERFORM_或者OUTBOUND_CALL_开头的function。
由于采用这种技术架构,SAP就使这些接口,分为Made by SAP, Made by SAP's Partner, Made by SAP's Customer,三方可以个取所需。
至于Publish and Subscribe Interface和Process Interface的区别,主要还是用途上的。前者,使给外部软件提供信息的,而后者主要用于R/3流程的。不过前者也可以生成或修改一些 additional data。
BTEs主要用于总帐,应收应付和销售分销模块。
我做的那个是Process Interface,说来也很简单,就是在billing posting的时候,把Head的text改掉。
下面,我来说一下流程。
- T-code: FIBF 进入BTEs的界面
- Environment->Infosystem(Processes)-> 运行->Process 00001120->Sample function module, 然后复制这个function到自己的Z或Y程序中->编辑新复制的程序,加入自己的代码
- 回到FIFB界面,Settings->Products->...of customer->New Entries加入自己的product,并激活
- 回到FIFB界面,Settings->Process Modules->... of customer->新建主键是 00001120的Process,并将刚才建立的function module和product写到相应栏位。
之后,运行相应的过账程序,诸如T-CODE VF01或是FB01,生成财务凭证,察看凭证的HEAD TEXT是否被修改。
原代码不方便贴,就放些关键的代码。
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } LOOP AT T_BKPFSUB.
T_BKPFSUB-BKTXT = 'KEVIN BTEs' .
MODIFY T_BKPFSUB INDEX SY-TABIX.
ENDLOOP .
Enhancement(2)--Dictionary Elements
对于透明表及结构的增强,主要两种。一种是Append Structure,还有一种就是Include形式。
Append Structure可以扩展原来的表结构,但是并不是在原来的表上加字段,而是再建一个附加的结构,物理上,数据是存在两处的。而且,一个Append Structure只能有一张表结构。如果把有Append Structure结构的表进行复制的话,那么在新的表中,原有的Append Structure就变成了固定字段,物理表也变成了一张。
Include格式,多见于由于增强而自动生成的表字段,比如做屏幕增强的时候。当然,你也可以自己定义。相比Append Structure, Include就可以包含多张表结构(Include的Data Elements可以Append Structure)。它不具有Append Structure的‘复制’性能,即使复制,还是会以原结构存在于新表中。
当你做完增强后,如果想所加字段在SM30表维护中也出现,那么需要通过以下路径生成表维护程序:
SE11->进入相应表,并做完增强->Utilities->Table Maintenance Generator
如果你要反复地更改增强,比如改变某一字段的长度。那么在减少字段时,需用SE14进行物理表的修改,否则无法激活。
有一种情况要注意,原有数据表中存在数据时,Append Structure或Include增强,不会影响原有数据,只会在原有的数据中加上相应的空白字段。如果,将字段的长度减少时,数据的就会丢失,一般是 从尾部开始丢失。所以不建议,在已有数据的情况下,减少字段长度。
下面将以下我碰到的一个实际例子。
由于业务的需要,一个标准表的标准字段长度不够,这时候就要增强字段长度。我那时候想了3套方案。
1.直接增加字段长度。
(由于这个字段有一定的命名规则,程序会截取字符进行进行判断,直接增加字段长度,直接修改代价比较大)
2.Apend一个附加字段,在逻辑判断的时候,将附加字段和原有字段综合起来进行判断。
(要修改相应的程序)
3.由于这个字段是用来Mapping的,有它一定的命名规则。改变原有的命名规则,延长这个字段的使用寿命。
现在还没定出来使用哪个。不过个人感觉,如果一开始架构的时候能对业务增长有一个比较可靠的估计,那么碰到这种情况的概率也会大大减少。毕竟,上线后再做 修改和增强,已经属于费力的工程了。
对于字典文档的增强,可以在以下路径中做:
CMOD->GoTo->Text enhancements->Data elements/Keywords
Enhancement(3)--User Exits
User Exits是SAP第一代增强技术,其技术原理就是在程序中预先置放一个Form...EndForm的子程序,并在事物运行时Call这个Form。当 然,如果这个Form是空的,那么不执行任何操作,反之,执行相应的动作。User Exits的写法,和修改标准程序是一致的,要有向SAP申请Access Key才能对这些程序进行修改。与修改标程的区别在于,在SAP做升级的时候,User Exits会自动保留,标程的修改如果不做特殊处理,就会被覆盖。
在做这样的增强时,要养成一个习惯,那就是把你所要添加的代码都写在自己以Z开头的function中,然后在Form中调用这个function。
例如:
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style: italic; color: #808080; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } FORM Add .
CALL FUNCTION 'ZGDTEST'
EXPORTING
I_CHAR =
I_FLOAT =
* IMPORTING
* E_DATE =
* E_CHAR =
* E_VAR =
.
ENDFORM .
下面来讲一下,如何找到此类出口:
方法 1:
SPRO -> SAP Reference IMG ,按
, Search Term 中填入 ’USER EXIT’ 就可以查到每个模块相应的出口了,每个出口SAP 都 会有相应的使用说明。
例子:
User Exits In Sales Document Processing
程序: MV45AFZZ
出口名: USEREXIT_SAVE_DOCUMENT
使用说明:
Use this user exit to fill user-specific statistics update tables.
The user exit is called up by the FORM routine BELEG-SICHERN before the COMMIT command.
Note
If a standard field is changed, the field r185d-dataloss is set to X. The system queries this indicator at the beginning of the safety routine. This is why this indicator must also be set during the maintenance of user-specific tables that are also to be saved.
方法二
进入你要做增强的那个 screen ,找到相应的程序名,例 : va01 以下屏幕的程序就是 SAPMV45A
用 T-CODE: SE38, 输入程序名 SAPMV45A ,进入,按下
,屏幕左部出现以下对话框。
选择 Subroutines 进行扩展,那些以 USEREXIT 开头的 routines 就是我们要找的出口,这里可以很方便地找到USEREXIT_SAVE_DOCUMENT ,和之前的方法效果是一样的。
Enhancement(4)--Customer Exits
Customer Exits, 顾名思义,就是用户自定义出口。
有3类这样的出口:Function Module Exits; Menu Exits; Screen Exits
有两个常用的T-code:
CMOD: 用于增强项目的管理
SMOD: 增强项目的具体实现
Function Module Exits: 就是在标准程序中预置有形如call customer-function 'NNN'的call function语句,来动态调用相关的出口程序。'NNN'是3位数字,而实际的出口函数命名方式为:EXIT_<program name>_<exit number>。寻找这样的可以用SMOD的查询功能,同时也有一个程序可以用T-CODE来帮助查找,在老白的博客上应该有这个程序。这个出口形 式比较简单,所以就不举例子了。
Menu Exits: 个人觉得是用得比较少的一种出口,项目上很少使用,SAP预留的出口也很少。抓住几点关键就可以了,Menu Exits会有一个预留的function code 比如+PGE什么的。你要在做增强的程序中发现这样的句子:
CASE: OK_CODE.
...
WHEN '+PGE'.
CALL CUSTOMER-FUNCTION '001'.
...
ENDCASE.
这样就可以在相应的出口里编写你想要的东西了。
Screen Exits: 相对比较繁琐。举一个例子来说明一下。
SMOD: AIST0002
EXIT_SAPLAIST_002 中加入代码 SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } ANLU = I_ANLU.
EXIT_SAPLAIST_003 中加入代码 SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } E_ANLU = ANLU.
在Include tables中建立一张表 CI_ANLU,结构如下:
ZKEVIN CHAR 20
讲一下以上函数及表的一下作用,大家看一下参数就应该就比较明白了。
EXIT_SAPLAIST_002 是从事务程序将数据传入出口程序
EXIT_SAPLAIST_003 是将出口程序处理后的数据传到事务程序
CI_ANLU 就是在屏幕上加的结构
T-code SE80->function group XAIS 建立Subscreen 9001,并画出相应的屏幕、完成逻辑流。
T-code AOLA->COPY标准SAP TAB LAYOUT->修改其General tab->增加一个Group box, 选U9001。
T-code AOLK->选择class 1000->General Assignment of Layout->将刚刚新建的Layout替换掉原来Asset accountant的Tab layout。
T-code AS01/AS02/AS03 进行相应的测试。
SMOD: CNEX0006
这个是自带屏幕,不需要配置的。制作的方法,和之前的例子相似。测试T-code:CJ01。
以上是两种常见的屏幕增强,当然还有BAdI形式的,这个下一节再讲。
Enhancement(5)--Field Exits
Field Exits,我想了一下还是单独拿出来写一下比较好。
虽然技术上来讲有点像Customer Exits(两者都是通过function来实现出口的),但是其原理和用途又有很大不同,而且Field Exits,SAP在4.6之后就不再支持了,如果没有用过这个技术,想要用,还要重新启动PRD才行,很麻烦,所以这里只是做个介绍性来谈谈这种出口方 式。
大家可以在SE38里,运行程序RSMODPRF来寻找已经存在的Field Exits,同时也可以进入Field Exits的管理界面。
还有一种方法,就是在CMODZ界面,在T-CODE栏中键入PRFB也可以进入Field Exits的管理界面。
Field Exit->Create 就可以新建一个Field Exits,只要有相应的Data Element在数据库中存在,就能建立出针对这个Data Element的Field Exits。同时会要生成一个FIELD_EXIT_开头的function,用以做相应的增强。里面有两个参数,Input和Output,这两个参数 是固定的,不能修改。Input是将屏幕字段的值传到出口程序,而Output则是传出。
出口程序中,有些ABAP语句是受限制的
call screen, call dialog, call transaction, submit
commit work, rollback work
communication receive
exit from step-loop
message i, message w
stop, reject
所以也种出口的功能带来了限制。同时,debug是field exit会被忽略,所以对纠错来说也是一个不利,你只能做单元测试,而不能做集成测试。
要对Field Exits做得更细,那就要给它分配,程序及其对应的屏幕号,否则你做出来的就是全局的,对于用到你所定义的Element的数据都有效,这是不一定是我 们愿意看到的。
最后就是要记住激活,这样才能保证它生效。
大家可以做一个例子试试,还是比较简单的。
Enhancement(6)--BAdIs
BAdIs(Business Add-Ins)是SAP在R/3 release 4.6A后增加的增强技术。总的来说,BAdIs克服了之前出口的所有缺点,并且还是用最新的OO技术实现,可谓是万千宠爱于一身。不过在项目中,用 BAdIs的顾问还是比较少,多数是用Customer Exit和User Exit完成。
T-code se18 BAdI Definition
T-code se19 BAdI Implement
BAdIs可以实现,Program/Menu/Screen Exit,同时还有BTEs的重复使用的特性。但是不管如何,它在标准程序中的实现有一定格式:
这个图可以有助于我们理解BAdI的实现方式。同时,它也给我提供了一个寻找事务BAdI的一个途径。在事务执行时,如果事务中存在BAdI,类 cl_exithandler=>get_instance方法就会执行。所以大家就可以,用se24->cl_exithandler-& amp; gt;双击GET_INSTANCE进入方法-> 在如下语句上设置断点 SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S52 { color: #0000FF; } CALL METHOD cl_exithandler=>get_class_name_by_interface->运行相应的事务,比 如MIGO,MM02等,程序就会停在断点处,这样就可以查到相关事务的BAdI了。
其实,BAdI就是综合了SAP之前一些增强技术的之长,在标准程序预留了出口,通过面向对象的接口技术,使增强更加灵活。一个出口,可以有多个实现,但 是一个client的话,只有一个是起作用的,我试下来,是按创建的先后顺序及是否active来判断的,不过一般一个实现就够了,所以也不必那么麻烦, 只能说SAP的技术架构确实是比较先进。
下面来举个例子说明一下:
se19->MB_MIGO_BADI->创建一个实现->Interface->PBO_DETAIL 键入如下代码
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S33 { color: #4DA619; } E_CPROG = 'ZKEVIN_MIGO'.
E_DYNNR = '1111'.
E_HEADING = 'kevin sub'.
'ZKEIVN_MIGO'是一个自建的程序,'1111'是这个程序中自建的屏幕,'kevin sub'是Tab的标签。
你可以在自建的程序中增加PBO和PAI程序,同时在自定义屏幕中添加自己的屏幕元素及逻辑流。在BAdIs中的POST_DOCUMENT方法,可以在 生成标准数据时,也在自己的Z表中插入数据,功能很强大。
做出来效果是这样的,T-code MIGO
BAdI在实现时,还有可能要做一些congfigure,不同的出口方式可能不同,不过SAP会有相应的文档,到时候多看看就行了,万变不离其宗,只要 搞明白BAdI的实现机制,那么一切都不是难事。