最后

我在这些代码中使用了 Authority-Check 。

最好的问候

" ---------------------------------
 BREAK mdkhanevadeg。

 数据：xRestriction类型char1。
 数据：xWERKS类型的LIPS-WERKS。
 常量：lv_table（6）VALUE'％G00 []'。
 字段符号：类型表，
                键入任何，
                键入任何。
 "-
 将（lv_table）分配给。

 如果已分配。
 在处分配。
      "-
      将结构的组件'LIPS-WERKS'分配给。
      如果已分配。
         xWERKS = <数据1>。
         UNASSIGN <数据1>。
      万一。
      "-
      clear：sy-subrc。
      授权检查对象" Z_LIPS_WRK"
      ID" LIPS_WERKS" FIELD xWERKS。
      大小写sy-subrc。
      为" 0"时。
      当" 12"。
      为" 4"时。
            ='X'。
           从修改。
           提交工作。
           xRestriction ='X'。
      当别人。
      尾箱。
      "-
 结束循环。


 排序。
 从删除相邻的重复项。
 提交工作。
 ...
 在处分配。
      如果 eq'X'。
         删除索引：sy-tabix。
         提交工作。
      万一。
 结束循环。
 ...
 如果xRestriction eq'X'。
    消息"数据受" Z_LIPS_WRK"授权对象限制。" 输入" I"。
 万一。
 ...
 万一。