1业务场景

在程序中某些选项不能让某些用户使用，需要进行权限控制，并且没有标准的权限对象，就需要自己自定义权限对象进行控制。

例如：在选择配置容差时，不允许某些用户使用。

自定义权限控制_自定义

2自定义权限对象

2.1创建数据元素

SE11创建一个带域的数据元素

自定义权限控制_数据_02

在域中维护值

自定义权限控制_权限对象_03

2.2维护权限

维护权限字段，事务代码SU20，点击新建

自定义权限控制_自定义_04

 维护权限对象，事务代码SU21

自定义权限控制_权限对象_05

在权限对象中维护事务代码和数据元素

自定义权限控制_自定义_06

 保存后点击重新生成SAL_ALL

分配给用户的角色

自定义权限控制_数据_07

2.3代码示例

IF r_pz = 'X'. 
    AUTHORITY-CHECK OBJECT 'ZECHECK' 
    ID 'TCD' FIELD sy-tcode ID 'ZECHECK' FIELD '1'.
    IF sy-subrc <> 0.
      MESSAGE s019(zmsd) DISPLAY LIKE 'E'.
      STOP.
    ENDIF.
  ENDIF.

效果如下

自定义权限控制_权限对象_08

 

定期更文，欢迎关注

自定义权限控制_自定义_09