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

最新推荐文章于 2023-12-05 17:05:51 发布

原创最新推荐文章于 2023-12-05 17:05:51 发布 · 3.8k 阅读

3 ·

CC 4.0 BY-SA版权

SAP ABAP编程专栏收录该内容

48 篇文章

订阅专栏

本文展示了一个ABAP程序示例，该程序通过定义选择屏幕并进行权限检查来确保用户只能访问其授权范围内的公司代码数据。具体步骤包括定义选择选项、从T001表中读取数据并使用权威检查功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

"屏幕字段
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.