ABAP_报表权限校验_拿来即用

SELECT * FROM T001 INTO TABLE @DATA(LT_T001) WHERE 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.