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.