自定义权限控制

1业务场景

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

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

2自定义权限对象

2.1创建数据元素

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

在域中维护值

2.2维护权限

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

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

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

 保存后点击重新生成SAL_ALL

分配给用户的角色

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.

效果如下

 

定期更文，欢迎关注

posted @ 2023-03-20 15:05  斌将军  阅读(45)  评论(0)  编辑  收藏  举报