ABAP快速开始之权限校验

  SELECT * FROM T001 INTO TABLE @DATA(LT_T001WHERE BUKRS IN @S_BUKRS.

  LOOP AT LT_T001 INTO DATA(LS_T001).
    AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
    ID 'BUKRS' FIELD LS_T001-BUKRS.
    IF SY-SUBRC <> 0.
      MESSAGE '你没有' && LS_T001-BUKRS && '公司 的操作权限!' TYPE 'S' DISPLAY LIKE 'E' .
      RETURN.
    ENDIF.
  ENDLOOP.
  IF SY-SUBRC <> 0.
    MESSAGE '你没有' && LS_T001-BUKRS && '公司 的操作权限!' TYPE 'S' DISPLAY LIKE 'E' .
    RETURN.
  ENDIF.
posted @ 2022-07-08 12:07  别忘了带红领巾  阅读(185)  评论(0)    收藏  举报