创新技术

在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'。