检查工厂、库存地的权限对象

最新推荐文章于 2024-07-12 16:27:40 发布

山上很优雅

最新推荐文章于 2024-07-12 16:27:40 发布

阅读量54

点赞数

文章标签：后端

本文链接：https://blog.csdn.net/qq_33435016/article/details/134313662

版权


  SELECT * FROM T001W WHERE WERKS IN S_WERKS.
*    AUTHORITY-CHECK OBJECT 'M_MATE_WRK'
    AUTHORITY-CHECK OBJECT 'ZMM_WERKS'
    ID 'ZMM_CKQX' FIELD T001W-WERKS.
    IF SY-SUBRC NE 0.
      P_FLG = 'E'.
      MESSAGE S000(OO) WITH '没有工厂' T001W-WERKS '的权限' DISPLAY LIKE 'E'.
      RETURN.
    ENDIF.
  ENDSELECT.


  SELECT * FROM T001L WHERE LGORT IN S_LGORT.
*    AUTHORITY-CHECK OBJECT 'M_MSEG_LGO'
    AUTHORITY-CHECK OBJECT 'ZMM_LGORT'
    ID 'ZMM_GCQX' FIELD T001L-LGORT.
    IF SY-SUBRC NE 0.
      P_FLG = 'E'.
      MESSAGE S000(OO) WITH '没有库存地' T001L-LGORT '的权限' DISPLAY LIKE 'E'.
      RETURN.
    ENDIF.
  ENDSELECT.