隐藏屏幕上应用工具栏里的按钮

1.隐藏选择屏幕上的执行按钮

DATA IT_EXCLUDE TYPE TABLE OF SY-UCOMM.
PARAMETER P_MATNR TYPE MATNR.

AT SELECTION-SCREEN OUTPUT.

***为什么是"ONLI",用/HS调试就知道了

***SY-PFKEY为当前屏幕GUI STATUS的名字
  APPEND 'ONLI' TO IT_EXCLUDE.
  CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
    EXPORTING
      P_STATUS  = SY-PFKEY
    TABLES
      P_EXCLUDE = IT_EXCLUDE.

 

2.隐藏标准屏幕应用工具栏的按钮

DATA: FCODE LIKE SY-UCOMM OCCURS 0 WITH HEADER LINE.

MODULE PBO_0100 OUTPUT.
  SET TITLEBAR 'PLM4'.
  IF FLAG1 = 'X'.
    APPEND 'APPROVE' TO FCODE.
    APPEND 'MARK' TO FCODE.
    SET PF-STATUS 'PLM4' EXCLUDING FCODE.
  ELSEIF FLAG2 = 'X'.
    APPEND 'DISPLAY' TO FCODE.
    APPEND 'MARK' TO FCODE.
    APPEND 'POSE' TO FCODE.
    SET PF-STATUS 'PLM4' EXCLUDING FCODE.
  ENDIF.
***抽取数据
  IF INIT IS INITIAL.
    INIT = 'X'.
    PERFORM GET_DATA.
  ENDIF.
***初始化树
  CREATE OBJECT G_APPLICATION.
  IF G_TREE IS INITIAL.
    PERFORM CREATE_AND_INIT_TREE.
  ENDIF.
ENDMODULE.                    "PBO_0100 OUTPUT