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.