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 *&---------------------------------------------------------------------*
完成