ABAP 根据权限显示或隐藏状态栏的按钮

1.判断是否具有打印权限：

* 打印权限
  AUTHORITY-CHECK OBJECT 'ZPP_AUTH'                        
           ID 'ZACTVT' FIELD '07'                          
           ID 'TCODE' FIELD 'ZPP007'                       
           ID 'ZWERKS' DUMMY
           ID 'ZDISPO' DUMMY
           ID 'ZFEVOR' DUMMY.
  IF sy-subrc = 0. 
    gv_print = 'X'. 
  ENDIF.   

具有权限则将 gv_print 赋值为 ‘X’。

2.在设置状态栏时，如果没有权限则隐藏对应的按钮：

*----------------------------------------------------------------------*
FORM frm_set_status USING rt_extab TYPE slis_t_extab .
  DATA lt_exfcode TYPE TABLE OF sy-ucomm.  

* 无打印权限时隐藏打印按钮
  IF gv_print IS INITIAL.
    APPEND 'ZPRINT' TO lt_exfcode. 
    APPEND '&PRIN' TO lt_exfcode.  
  ENDIF. 

  SET PF-STATUS 'STANDARD' EXCLUDING lt_exfcode. 

ENDFORM. 
*&---------------------------------------------------------------------*

完成