[SAP ABAP開發技術總結]權限對象檢查

 

20.14.             權限檢查

AT SELECTION-SCREEN.
  DATA: BEGIN OF lt_bukrs OCCURS 0,
    bukrs TYPE t001-bukrs,
    END OF lt_bukrs.
  SELECT bukrs FROM t001 INTO CORRESPONDING FIELDS OF TABLE lt_bukrs  WHERE bukrs IN s_bukrs.
  LOOP AT lt_bukrs.
    AUTHORITY-CHECK OBJECT 'ZDABAP'   [ɔ:ˈθɔriti]
           ID 'VKORG' DUMMY                      銷售組織
           ID 'BUKRS' FIELD lt_bukrs-bukrs        公司代碼
           ID 'WERKS' DUMMY                      工廠
           ID 'EKORG' DUMMY                      采購組織
           ID 'KOKRS' DUMMY
           ID 'GSBER' DUMMY
           ID 'SEGMENT' DUMMY.
    IF sy-subrc <> 0."
      MESSAGE s001(00) DISPLAY LIKE 'E' WITH 'You do not have authorization to access company code:' lt_bukrs-bukrs.
      STOP.
    ENDIF.
  ENDLOOP.
ENDFORM.