ABAP 根據權限顯示或隱藏狀態欄的按鈕


1.判斷是否具有打印權限:

 1 * 打印權限
 2   AUTHORITY-CHECK OBJECT 'ZPP_AUTH'                        
 3            ID 'ZACTVT' FIELD '07'                          
 4            ID 'TCODE' FIELD 'ZPP007'                       
 5            ID 'ZWERKS' DUMMY
 6            ID 'ZDISPO' DUMMY
 7            ID 'ZFEVOR' DUMMY.
 8   IF sy-subrc = 0. 
 9     gv_print = 'X'. 
10   ENDIF.   

具有權限則將 gv_print 賦值為 ‘X’。

2.在設置狀態欄時,如果沒有權限則隱藏對應的按鈕:

 1 *----------------------------------------------------------------------*
 2 FORM frm_set_status USING rt_extab TYPE slis_t_extab .
 3   DATA lt_exfcode TYPE TABLE OF sy-ucomm.  
 4 
 5 * 無打印權限時隱藏打印按鈕
 6   IF gv_print IS INITIAL.
 7     APPEND 'ZPRINT' TO lt_exfcode. 
 8     APPEND '&PRIN' TO lt_exfcode.  
 9   ENDIF. 
10 
11   SET PF-STATUS 'STANDARD' EXCLUDING lt_exfcode. 
12 
13 ENDFORM. 
14 *&---------------------------------------------------------------------*

完成

 


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM