ABAP编程 选择屏幕字段权限检查--公司代码事例

 "屏幕字段
SELECTION-SCREEN BEGIN OF BLOCK A WITH FRAME .

SELECT-OPTIONS G_BUKRS FOR ANLA-BUKRS.

SELECTION-SCREEN END OF BLOCK A .

 START-OF-SELECTION.
  PERFORM FRM_AUTHORITY_CHECK.     "权限检查

***子程序

FORM FRM_AUTHORITY_CHECK .

DATA: BEGIN OF LT_BUKRS OCCURS 0 ,

            BUKRS LIKE T001-BUKRS,
          END OF LT_BUKRS.
  DATA: L_STR TYPE STRING.

  SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_BUKRS FROM T001 WHERE BUKRS IN G_BUKRS. "输入区间值

  LOOP AT  LT_BUKRS.
    AUTHORITY-CHECK OBJECT  'ZAO_BUKRS'         “权限对象
               ID 'ZAF_BUKRS' FIELD LT_BUKRS-BUKRS."检查字段
    IF SY-SUBRC <> 0.
      CONCATENATE '您没有公司代码' LT_BUKRS-BUKRS '的权限，请输入一个您权限范围内的公司代码' INTO L_STR.
      EXIT.
    ENDIF.

  ENDLOOP.

ENDFORM.