ABAP 状态栏排除某些按钮

GUI State状态栏

在状态栏这里有这些按钮，现在在导出界面要排除掉这些按钮：

将要排除的按钮追加到gt_code内表：

gt_fcode功能码内表的定义

DATA:gt_fcode    TYPE TABLE OF sy-ucomm,

完整程序

*&---------------------------------------------------------------------*
*& Module STATUS_2000 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_2000 OUTPUT.*  APPEND '&BACK' TO GT_FCODE.IF p_zx = 'X'.APPEND '&CANCEL' TO gt_fcode.SET TITLEBAR  'T2000' WITH '模具分摊执行程序'."lhyELSEIF p_dc = 'X'."APPEND '&CREATE' TO gt_fcode.APPEND '&CREATE' TO gt_fcode.APPEND '&CANCEL' TO gt_fcode.APPEND '&SALL' TO gt_fcode.APPEND '&DALL' TO gt_fcode.SET TITLEBAR  'T2000' WITH '模具分摊导出程序'."lhyELSEIF p_dr = 'X'."APPEND '&CREATE' TO gt_fcode.SET TITLEBAR  'T2000' WITH '模具分摊导入程序'."lhyELSEIF p_cx = 'X'.APPEND '&CREATE' TO gt_fcode.SET TITLEBAR  'T2000' WITH '模具分摊冲销程序'.ELSE.APPEND '&CREATE' TO gt_fcode.APPEND '&CANCEL' TO gt_fcode.SET TITLEBAR  'T2000' WITH '模具分摊汇总查询程序'.ENDIF.SET PF-STATUS 'S2000' EXCLUDING gt_fcode.ENDMODULE.

重点

 SET PF-STATUS 'S2000' EXCLUDING gt_fcode.

EXCLUDING 也就是将gt_fcode的功能码的对应的按钮排除掉。

运行效果

现在上面的那些按钮就被排除了