如何使用SMOD和CMOD進行SD的使用者增強
1、關於增強的簡單介紹
1.1 SMOD包含具體的增強,而CMOD是包含一組SMOD編寫的增強.
1.2 User exits (Function module exits)是sap提供出口,它的命名規則如下:
EXIT_<program name><3 digitsuffix>
示例:
sd的VA01事務,對應的程式是SAPMV45A ,你會在程式裡查到(用CALL CUSTOMER-FUNCTION字串)如下程式碼:
CALL CUSTOMER-FUNCTION '003'
exporting
xvbak = vbak
xvbuk = vbuk
xkomk = tkomk
importing
lvf_subrc = lvf_subrc
tables
xvbfa = xvbfa
xvbap = xvbap
xvbup = xvbup.
則exit callsfunction module的名稱就是:EXIT_SAPMV45A_003
2、先試用SMOD建立一個SAP增強
2.1、選擇一個增強,如:SDVFX001 ,點選修改,進入sap增強維護螢幕;
2.2、點選“元件”按鈕,進入元件維護屏;
2.3、將游標移到“功能模組名”,輸入模組名,如:EXIT_SAPLV60B_001;
2.4、選擇“程式碼修改”按鈕進入函式模組;
2.5、雙擊函式模組的包含單元,進入包含單元加入自定義程式碼並激活儲存;
3、使用CMOD建立增強專案
3.1、輸入自定義的專案名,點選“建立”;
3.2、進入增強專案,選擇“配置增強”,進入增強配置螢幕;
3.3、輸入增強名如:SDVFX001
3.4、儲存,並退出;
4、使用CMOD將增強專案啟用,便大工告成。
如何查詢
*判斷是否存在相應增強的定義(SMOD)
select single name from modsapa into mod0-name
where name = 'PPCO0002'.
ifsy-subrc = 0.
endif.
select single * from tadir into ps_tadir_db
where pgmid = 'R3TR'
and object = 'SMOD'
and obj_name = 'PPCO0002'.
*判斷是否存在相應增強專案的定義(CMOD)
SELECT SINGLE name FROM MODATTR into mod0-name
WHERE NAME = 'PPCO0002'..
*提取增強的定義的元件 (可以用此反查增強定義)
select * from modsap
where name = 'PPCO0002'.
*判斷該增強是否移植到BADI實現
*Enhancement & has already beenmigrated in Business Add-In definition
select single migrated badi_def into (migrated, exit_name)
from modsapa where name = modname.
ifsy-subrc = 0 and migrated = seex_true.
message s621 with modname exit_name.
check mode ne 'CHAM'.
endif.
MODTYP 型別:
E : 功能退出
S : 螢幕
T : 表
C : GUI程式碼
sap增強存在MODSAP表內
*獲取增強元件的參見函式MOD_SAP_MEMBER_TEXT
*獲得退出功能模組的資訊
select single * from tftit
where "SPRAS" = '1' AND "FUNCNAME" ='EXIT_SAPLCORE_001'
if sy-subrc = 0.
endif.
*值得學習的函式
MOD_KUN_ACTIVATE(會操作相關報表)
本文來自CSDN部落格,轉載請標明出處:http://blog.csdn.net/CompassButton/archive/2006/08/31/1150258.aspx