* 该程序可以检测出系统所有被激活的用户增强. * By Stone Fu. on 2006/11/07 . * Used to find out all the activated user-exit of SAP . report zfindactexit . tables: modsap,tfdir. data : begin of itab_exit occurs 0, funcname like tfdir-funcname, mand like tfdir-mand, name like modsap-name, end of itab_exit . data : field1(30). _select a~funcname a~mand b~name into table itab_exit from tfdir as a inner join modsap as b on a~funcname = b~member where a~mand = 'C' and a~funcname = b~member . format color col_heading intensified on. write:/1 sy-vline, 2 'Enhancement Name', 21 sy-vline , 22 'Activated Exit Function', 95 sy-vline. write:/(95) sy-uline. loop at itab_exit. format color col_normal intensified off. write:/1 sy-vline, 2 itab_exit-name hotspot on, 21 sy-vline , 22 itab_exit-funcname, 95 sy-vline. endloop. at line-selection. get cursor field field1. set parameter id 'MON' field sy-lisel+1(10). call transaction 'SMOD' and skip first screen. 有一种直接有效的查找 用户出口增强的方法，就是使用函数MODX_FUNCTION_ACTIVE_CHECK，如 图 1。 图1中的判断语句If tfdir-mand = aktiv_flag(常数C)则出口函数active标志=’X’,表示该用户出口被激活,处理逻辑将从标准程序转入出口函数，在该语句设置断点然后运行任一个事务码，都会调用该函数判断是否存在用户出口。 ( 四）增强应用实例 业务背景:如果采购订单已经做了发票校验后,则不再允许用户修改价格。 相关程序：MM06EFPO_POT_FUELLEN| MM06EF0C_CUSTSCR1_ITEM_SET_DAT 相关Tcode:SMOD|CMOD 如果没有启动采购审批功能，SAP标准功能是允许用户随时修改采购价格的，不同的企业有对采购价格控制有不同的策略，甲企业规模较小为了省事可能为以后数月的采购开了一个大采购单，如果中途材料价格变动则直接修改价格就行，乙集团则严格控制采购价格，采购价格由总部集中维护，各企业采购员只需要维护采购数量等信息等，真因如此，ERP系统显然不会去禁止用户修改价格，如果企业确实需要如此，则可通过增强实现。 前面已经介绍过如何通过在函数MODX_FUNCTION_ACTIVE_CHECK设置断点跟踪系统每个事务预留的用户出口，你很快将发现增强 MM06E005的 EXIT_SAPMM06E_017 用户出口非常适合此业务背景。 首先来看看增强的 EXIT_SAPMM06E_017 用户出口( 以下称017 出口)处理流程,Include程序MM06EFPO_POT_FUELLEN被专门用来处理增强出口,调用了子程序CUSTSCR1_ITEM_SET_DATA_ PAI( 对应下一级Include 程序MM06EF0C_CUSTSCR1_ITEM_SET_DAT),分析Include程序MM06EF0C_CUSTSCR1_ITEM_SET_DAT的代码,如下表,这个程序是从系统原本Copy出来的,注意本人所加的附注 粗体部分:
*----------------------------------------------------------------------- * User-Exit für Positionsfelder versorgen (PAI) FORM custscr1_item_set_data_pai USING im_no_screen LIKE fc_call. "770427 DATA: l_ucomm LIKE sy-ucomm, l_enj_call TYPE c. STATICS: first_call(1) TYPE c VALUE 'X', active LIKE sy-calld. ENHANCEMENT-POINT CUSTSCR1_ITEM_SET_DATA_PAI_02 SPOTS ES_MM06EF0C_CUSTSCR1_I_SET_DAT INCLUDE BOUND . *$*$-Start: CUSTSCR1_ITEM_SET_DATA_PAI_02-------------------------------------------------------$*$* ENHANCEMENT 1 OI0_COMMON_MM06EF0C_ITEM_S_DAT. "active version * C5030897 I.Twardowski Implementation of BADI for OGSD PERFORM OI0_BADISCR1_ITEM_SET_DATA_PAI. ENDENHANCEMENT. *$*$-End: CUSTSCR1_ITEM_SET_DATA_PAI_02-------------------------------------------------------$*$* IF NOT first_call IS INITIAL. CLEAR first_call. * 注释: MODX_FUNCTION_ACTIVE_CHECK 用来检查017 出口是否被激活, 如果激活则执行之. CALL FUNCTION 'MODX_FUNCTION_ACTIVE_CHECK' EXPORTING cprogname = 'SAPMM06E' funcnumber = '017' IMPORTING active = active EXCEPTIONS not_found = 1 OTHERS = 2. IF NOT sy-subrc IS INITIAL. CLEAR active. ENDIF. ENDIF. CHECK NOT active IS INITIAL. IF fc_vorga EQ cva_en. l_enj_call = 'X'. ELSE. l_enj_call = space. ENDIF. *-Define Data: DATA: lt_usr_tekpo LIKE bekpo OCCURS 0, lt_usr_teket LIKE beket OCCURS 0, lt_usr_tekkn LIKE ekknu OCCURS 0, lt_usr_tkomv LIKE tkomv OCCURS 0. *-Copy Tables: lt_usr_tekpo[] = pot[]. lt_usr_teket[] = ett[]. lt_usr_tekkn[] = knt[]. lt_usr_tkomv[] = tkomv[]. l_ucomm = ok-code. * 注释: 调用出口的一般步骤是先定义数据(Define Data), 多为内表或工作区, 再将参数赋予这些内表(Copy Tables), 相当于* 建立了原始参数的一个镜象. *-User Exit: * 如果017 出口增强被激活则执行它. CALL FUNCTION 'EXIT_SAPMM06E_017' EXPORTING i_ekpo = ekpo i_ekpo_old = *ekpo i_ekko = ekko i_aktyp = aktyp i_bstyp = ekko-bstyp i_no_screen = im_no_screen "770427 i_lfa1 = lfa1 i_lfm1 = lfm1 i_rekpo = rekpo i_kekpo = kekpo i_aekpo = aekpo i_reban = reban i_mt06e = mt06e i_eina = *eina i_eine = *eine i_komp = komp i_ucomm = l_ucomm i_enj_call = l_enj_call TABLES tekpo = lt_usr_tekpo teket = lt_usr_teket tekkn = lt_usr_tekkn tkomv = lt_usr_tkomv EXCEPTIONS OTHERS = 0. ENDFORM. "CUSTSCR1_ITEM_SET_DATA_PAI 上面的程序代码非常简单，相信聪明的读者看了对ERP增强的设计思路会开始有一定了解。 现在你可以通俗理解， 增强就是 ERP 设计者在合适的地点设置了一些合适的游戏规则并提供了一些有意义的游戏给用户自己玩耍！独乐乐，与人乐乐，孰乐？好玩的东西应该留点给用户自己乐呵乐呵。 接下来开始编写增强程序,可以使用Tcode:SMOD直接激活增强或CMOD建立一个项目包含一个或多个增强,如 图 2,输入增强 MM06E005并激活它,然后在 EXIT_SAPMM06E_017出口函数中编写代码。 在 图 2中，我们发现增强 MM06E005包括用户出口和屏幕增强（Screen Exit），屏幕增强允许用户在采购订单自定义用户界面，从而使采购订单包含更多企业客户化的信息，这种屏幕增强在固定资产模块中更始发挥到极致。 EXIT_SAPMM06E_017包含程序 ZXM06U42，程序 ZXM06U42示例代码如下表，这段客户化代码逻辑十分简单，为了方便说明，本人注释出该出口函数的输入参数，该出口没有输出参数，也就是说，你只能根据输入参数进行判断而不能更改任何数据：
*增强 ZXM06U42的示例代码 *By Stone.Fu 2007/01/02 *"*"Lokale Schnittstelle: *IMPORTING/TABLES 是输入的单个参数和输入的内表参数 *" IMPORTING *" VALUE(I_EKPO) LIKE EKPO STRUCTURE EKPO *" VALUE(I_AKTYP) *" VALUE(I_BSTYP) LIKE EKKO-BSTYP *" VALUE(I_NO_SCREEN) *" VALUE(I_LFA1) LIKE LFA1 STRUCTURE LFA1 *" VALUE(I_LFM1) LIKE LFM1 STRUCTURE LFM1 *" VALUE(I_EKKO) LIKE EKKO STRUCTURE EKKO *" VALUE(I_REKPO) LIKE EKPO STRUCTURE EKPO OPTIONAL *" VALUE(I_KEKPO) LIKE EKPO STRUCTURE EKPO OPTIONAL *" VALUE(I_AEKPO) LIKE EKPO STRUCTURE EKPO OPTIONAL *" VALUE(I_REBAN) LIKE EBAN STRUCTURE EBAN OPTIONAL *" VALUE(I_MT06E) LIKE MT06E STRUCTURE MT06E OPTIONAL *" VALUE(I_EINA) LIKE EINA STRUCTURE EINA OPTIONAL *" VALUE(I_EINE) LIKE EINE STRUCTURE EINE OPTIONAL *" VALUE(I_EKPO_OLD) LIKE EKPO STRUCTURE EKPO OPTIONAL *" VALUE(I_KOMP) LIKE KOMP STRUCTURE KOMP OPTIONAL *" VALUE(I_UCOMM) LIKE SY-UCOMM OPTIONAL *" VALUE(I_ENJ_CALL) OPTIONAL *" TABLES *" TEKPO STRUCTURE BEKPO OPTIONAL *" TEKET STRUCTURE BEKET OPTIONAL *" TEKKN STRUCTURE EKKNU OPTIONAL *" TKOMV STRUCTURE KOMV OPTIONAL *"---------------------------------------------------------------------- * 判断程序代码如下： DATA ZWATEKPO like BEKPO. TABLES EKBE . * 输入的内表参数TEKPO 记录该采购单所有的原始旧数据 . * 输入的I_EKPO 参数表示当前处理的PO 行项目，其包含的是采购行项目的最新更新数据 . READ TABLE TEKPO INTO ZWATEKPO WITH KEY EBELP = I_EKPO-EBELP . *** 只对ME21N/22/23 才生效. check SY-TCODE = 'ME22N ' or SY-TCODE = 'ME22N' or SY-TCODE = 'ME23N' . ***EKBE 是PO history 表, 如有Q,R 表示有发票校验历史, 不允许更改价## SELECT SINGLE_ * FROM EKBE WHERE EBELN = I_EKPO-EBELN AND EBELP = I_EKPO-EBELP AND ( BEWTP = 'Q' OR BEWTP = 'R' ) . * 如果SY-SUBRC =0 表示发票已经校验，不允许更改价格。 CHECK SY-SUBRC = 0 . * 判断数据更改后新采购行项目的单价是否和从数据库读出的原始行项目单价一致 IF I_EKPO-NETPR <> ZWATEKPO-NETPR . MESSAGE E001(00) with ' 采购订单行项目已经进行发票校验，不再允许修改价格 ENDIF. 如果你熟悉增强，你会发现一些用户出口都会传入旧数据和更新后的新数据以方便两者比较，和财务模块的替代（ Substitution）不同，ERP系统一般对增强保留严谨态度，通常只允许在出口中做 检查工作，这一点类似财务模块的检查（ Validation）。 ( 五）再次浅析增强 企业实施ERP的目的之一就是实现各部门信息共享,避免数据孤岛,以一个简单的采购收货为实例,仓库人员只要在收货时输入采购订号,收货日期,物料收货数量和仓位,系统将自动产生各模块数据,对财务数据,系统根据输入的采购订单号找到采购订单主数据中的工厂,通过在组织结构中设置的工厂和公司代码的对应关系找到相应公司代码;通过收货物料的Valuation class和收货的移动类型找到对应科目,通过收货数量*采购单价得到本次该料库存金额,通过物料主数据获得业务范围和利润中心,这样财务凭证数据自动收集完毕;如果物料采用标准价格出现采购差异并将差异科目的模认成本对象对应到获利分析段,则将数据写入利润分析模块等等;我要说的是,在这些复杂的逻辑背后,任何一个模块收集过程中存在校验,任何校验失败ERP系统都将停止业务交易,比如说校验收货日期不在物料期间或会计期间允许范围,校验失败向用户提示错误,比如预算模块找不到对应基金中心提示错误中止交易等,当所有的校验完毕,系统将数据Commit到数据库,这些校验是系统标准的,而增强则是系统预留给用户的,和系统的校验一样，在任何模块的增强中只要是出现错误都将停止本次业务交易。在 图 3中出现的检查/替代/增强/字段移动/推导等关键词，实际上这些东东都可看成系统增强，即使用客户化代码增强标准功能。 有趣的是，SAP的各种增强的代码编写都是极其简单的，象检查/替代/字段移动/推导/派生用户甚至只要简单将对应的源字段和目标字段拖拖拽拽关联关联就行，代码是自动生成的，即使涉及Coding也是非常简单的。神奇的是，作为SAP顾问你甚至可以对编程和数据库毫不了解，实际上很都SAP顾问的确如此，你只要专注于业务蓝图实现就行，这一点值得国内管理软件设计同行学习，在管理软件设计过程中，同样是细节决定成败。 新一代增强BADI (Tcode:SE17|SE18) BADI(Business Add-In)是一种新的功能增强概念，它使用类、接口及方法等面向对象的概念,采用一种使用面向对象的方法来进行SAP 增强 相关资源：SAP屠夫作品汇总
