BTE：移除FB50的“PARK”按钮

原文地址: 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中的某些按钮，同时由于可以写代码，具有较高的灵活性。有兴趣的朋友可以试试去掉别的按钮。