创新技术

在SQ02中，我创建一个参数" 植物"，并在" 开始选择"代码部分中添加替换" AUTHORITY-CHECK OBJECT"的技术。/p> 所有abap开发人员的最佳问候

 BREAK mdkhanevadeg。
 数据：xControl类型Char1。
 xControl ='1'。
 " ----
 数据：it_AGR_1251类型带有标题行的AGR_1251标准表。
 "-
 刷新：it_AGR_1251。
 选择 *
 来自AGR_1251
 到表it_AGR_1251
 其中对象eq'Z_LIPS_WRK'。
 " ----
 如果it_AGR_1251 []是初始的。
    xControl ='0'。
 万一。
 " ----
 如果xControl eq为'1'。
    数据：it_AGR_USERS输入带有标题行的AGR_USERS标准表。
    刷新：it_AGR_USERS。
    "-
    选择 *
    来自AGR_USERS
    到表it_AGR_USERS
    对于it_AGR_1251中的所有条目
    其中AGR_USERS〜UNAME eq sy-uname
    和AGR_USERS〜AGR_NAME等于it_AGR_1251-AGR_NAME。
    "-
    如果sy-subrc ne 0。
       "出口。
    万一。
    " ----
 万一。  " xControl eq'1'。
 " ----
 如果it_AGR_USERS []是初始的。
    xControl ='0'。
 万一。
 " ----
 如果xControl ='1'。
    数据：it_T001K型带标题行的T001K标准表。
    数据：wa_T001K，类似于it_T001K的行。
    "-
     在it_AGR_1251处循环播放。
          ...
          如果it_AGR_1251-LOW ne'*'并且
             it_AGR_1251-LOW是初始的
             it_AGR_1251-HIGH是初始的。
               ...
               消息"授权对象Z_LIPS_WRK没有任何值！" 输入'E'。
          万一。
          ...
          如果it_AGR_1251-LOW ne'*'并且
             it_AGR_1251-LOW不是初始的
             it_AGR_1251-HIGH是初始的。
               ...
               选择单*
               从T001K
               入wa_T001K
               其中BWKEY等于it_AGR_1251-LOW。
               ...
               将wa_T001K附加到it_T001K。
          万一。
          ...
          如果it_AGR_1251-LOW ne'*'并且
             it_AGR_1251-LOW不是初始的
             it_AGR_1251-HIGH不是初始的。
               ...
               选择 *
               从T001K
               入wa_T001K
               其中BWKEY GE it_AGR_1251-LOW
               和BWKEY LE it_AGR_1251-HIGH。
                    ...
                    将wa_T001K附加到it_T001K。
               ENDSELECT。
          万一。
     结束循环。

     在it_AGR_1251处循环播放。
          if_AGR_1251-LOW eq'*'。
             xControl ='0'。
             出口。
          万一。
     结束循环。
     "-
 endif。" xControl ='1'。


 如果xControl ='1'。

 ***数据：带有标题行的it_T001K类型T001K标准表。
 ***"-
 ***清除：it_T001K。
 ***   选择 *
 ***从T001K
 ***进入表it_T001K
 ***其中bukrs等于'1800'。
 ***" xPLANT中的BWKEY。
    "-
 清除：xPLANT。
 刷新：xPLANT。
 "-
 在it_T001K循环。
     """授权检查对象" Z_LIPS_WRK"
     """ ID'LIPS_WERKS'FIELD it_T001K-BWKEY。
     如果sy-subrc eq 0。
        xPLANT-sign ='I'。
        xPLANT-option ='EQ'。
        xPLANT-低= it_T001K-BWKEY。
        xPLANT-high =空间。
        附加xPLANT。
     其他。
     万一。
 结束循环。
 "-
 如果xPLANT []是初始的。
    消息ID'未找到数据'键入'E'编号'001'。
 万一。
 endif。" xControl ='1'。

 

7 _我希望sq02中的内置增强功能可以自动在授权对象上工作

您好 madjied khanevadegi ，

将必填字段传递到标准表TOBJ，您将获得所需的详细信息。

问候，

Satish

不，我不认为它像这样...

Did 您查看类和方法吗？

系统如何知道您要针对新创建的对象 和执行查询查询 （如果您没有在任何地方指定此权限，则授权检查失败）？

madjied khanevadegi 我刚刚看过CL_QUERY_TAB_ACCESS_AUTHORITY。 在运行查询时将调用它，以确保您对查询的表或视图具有授权（S_TABU_DIS等）。 因此，它绝对与您尝试的内容无关。

最后

我在这些代码中使用了 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"。
 万一。
 ...
 万一。