如何自定义一个权限对象，然后分配到对应的权限角色中，进行用户权限的控制？

具体实现步骤如下：

1. 创建数据元素

进入事务码： SE11

2. 创建权限字段

进入事务码SU20

3. 创建权限对象类以及权限对象

事务码： SU21

右击权限对象类，选择创建授权对象

点击重新生产SAP_ALL

至此，自定义权限对象创建完成，接下来将该权限对象分配到权限角色中

4. 分配权限对象到权限角色

事务码： PFCG

5. 代码实现

AUTHORITY-CHECK OBJECT 'ZPP_WERKS'
ID 'ZZWERKS' FIELD is_header-werks
ID 'ACTVT' FIELD '03'.
IF sy-subrc <> 0.
   MESSAGE '没有权限处理' TYPE 'E' DISPLAY LIKE 'E'.
ENDIF.

到这里，所以的工作都完成了，接下来就可以测试验证了