[SAP ABAP开发技术总结]权限对象检查

声明： 原创作品， 转载时请注明文章来自 SAP师太 技术博客（ 博/客/园ｗｗｗ.ｃｎｂｌｏｇｓ.ｃｏｍ）：www.cnblogs.com/jiangzhengjun， 并以超链接形式标明文章原始出处， 否则将追究法律责任！原文链接：http://www.cnblogs.com/jiangzhengjun/p/4265610.html

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.