原文地址: http://www.itpub.net/thread-1030923-1-1.html#
未测试, 转贴备查.
---------------以下为转贴内容-----------------------------------------
最近测试一个BTE的功能,可以移除FB50等T-code的一些按钮。
*------
需求:
不显示FB50的“PARK”按钮,但是不想用权限实现。
解决方法之一:
采用BTE的Event:1140实现。
步骤:
(1)T-Code BF24 :建立Product 并选择激活。
(2)T-Code SE37 :建立Function module
从标准的SAMPLE_INTERFACE_00001140复制
Sample Code:
FUNCTION z_interface_00001140.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" VALUE(I_PARKED) TYPE XFELD OPTIONAL
*" TABLES
*" T_BKPF STRUCTURE BKPF
*" T_BSEG STRUCTURE BSEG
*" T_EXCTAB STRUCTURE EXCLTAB_LINE
*"----------------------------------------------------------------------
LOOP AT t_bkpf.
IF t_bkpf-bukrs = '1000'.
IF sy-tcode = 'FB50' OR
sy-tcode = 'FB60' OR
sy-tcode = 'FB70'.
CLEAR t_exctab.
REFRESH t_exctab.
t_exctab-okcod = 'BP'.
APPEND t_exctab.
ENDIF.
ELSE.
CONTINUE.
ENDIF.
ENDLOOP.
ENDFUNCTION.
(3)T-code BF34 : 分配
结束语:
通过Event 1140 可以去掉FB50等T-code中的某些按钮,同时由于可以写代码,具有较高的灵活性。有兴趣的朋友可以试试去掉别的按钮。