dtcms 微服务 json csv sharepoint extjs sqlalchemy webforms angularjs版本 vue钩子函数 jquery获取下一个元素 bootstrap时间轴 grep不是内部命令 spark算法 mysql设置自增初始值 matlab中axis mysql数据库驱动 phpstorm插件 python环境 python循环 python编程教程 java遍历集合 java替换字符 java获取ip地址 java中tostring方法 linux启动 网页游戏代码 python源码 骁龙660和625 小米5c拆机 手机电脑模拟器 苹果x银色 ABViewer 脚本网站 压枪软件 设备管理器在哪 mysql退出命令 服务器系统安装教程 抖音表白代码 sql四舍五入
当前位置: 首页 > 学习教程  > 编程语言

ABAP——工厂,采购组织权限检查

2020/12/5 10:25:10 文章标签:

采购组织权限检查 SELECT ekorgFROM EINEINTO TABLE DATA(lt_ekorg)WHERE ekorg eq pa_ekorg.LOOP AT lt_ekorg INTO DATA(ls_ekorg).AUTHORITY-CHECK OBJECT M_EINF_EKOID ACTVT FIELD 03ID EKORG FIELD ls_ekorg-ekorg.IF sy-subrc NE 0.MESSAGE: s000 WITH 没有权限查看采购…

采购组织权限检查

  SELECT ekorg
    FROM EINE
    INTO TABLE @DATA(lt_ekorg)
    WHERE ekorg eq @pa_ekorg.

  LOOP AT lt_ekorg INTO DATA(ls_ekorg).

    AUTHORITY-CHECK OBJECT 'M_EINF_EKO'
           ID 'ACTVT' FIELD '03'
           ID 'EKORG' FIELD ls_ekorg-ekorg.
    IF sy-subrc NE 0.
      MESSAGE: s000 WITH '没有权限查看采购组织' pa_ekorg DISPLAY LIKE 'E'.
      STOP.
    ENDIF.

  ENDLOOP.

工厂权限检查

  SELECT werks
    FROM t001w
    INTO TABLE @DATA(lt_werks)
    WHERE werks IN @so_werks.

  LOOP AT lt_werks INTO DATA(ls_werks).
    AUTHORITY-CHECK OBJECT 'M_MSEG_WWA'
             ID 'ACTVT' FIELD '03'
             ID 'WERKS' FIELD ls_werks-werks.
    IF sy-subrc <> 0.
      MESSAGE s001(zmm) WITH ls_werks-werks DISPLAY LIKE 'E'.
      LEAVE LIST-PROCESSING.
    ENDIF.
  ENDLOOP.

本文链接: http://www.dtmao.cc/news_show_450214.shtml

附件下载

相关教程

    暂无相关的数据...

共有条评论 网友评论

验证码: 看不清楚?