自开发程序动态权限设置按钮

新建数据元素：ZDLSSX 参考数据域：ZDLSSX

 

有了这个两个，就可以去定义权限字段了

 

SU21

新建权限对象：ZSD_RC_PL

新建：权限字段：ZAUTH001

 

这个时候要去域ZLSSX中，将所有用到的按钮名称，加入到域中，作为KEY

 

 

 

以上准备工作做完后，开始CODING.

在程序开头定义全局字段:

DATA:LS_OBJECT  TYPE XUOBJECT VALUE 'ZSD_CR_PL',
     LS_FIELD   TYPE FIELDNAME VALUE 'ZAUTH001',
     LS_DOMNAME TYPE DOMNAME VALUE 'ZDLSSX'.

 

 

在PBO中检查权限字段

MODULE STATUS_9000 OUTPUT.
   DATA:GT_CODE TYPE TABLE OF SY-UCOMM,
        GS_CODE LIKE LINE OF GT_CODE.
   REFRESH:GT_CODE.

   PERFORM PRM_AUTHORIZ_CHECK TABLES GT_CODE.
   SET PF-STATUS 'SD11_9000' EXCLUDING GT_CODE.

ENDMODULE.   

 

 

 

FORM PRM_AUTHORIZ_CHECK  TABLES   P_LT_CODE STRUCTURE ZSDSAUTH.
  DATA:LT_DD07V TYPE TABLE OF DD07V,
       LS_DD07V TYPE          DD07V.
  CLEAR:LS_DD07V,LT_DD07V[].

  SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_DD07V
    FROM DD07V
    WHERE DOMNAME = LS_DOMNAME.

  LOOP AT LT_DD07V INTO LS_DD07V.
    AUTHORITY-CHECK OBJECT LS_OBJECT ID LS_FIELD FIELD LS_DD07V-DOMVALUE_L.
    IF SY-SUBRC = 0.
    ELSE.
      APPEND LS_DD07V-DOMVALUE_L TO P_LT_CODE.
    ENDIF.
  ENDLOOP.

  SORT P_LT_CODE BY UCOMM.

  DELETE ADJACENT DUPLICATES FROM P_LT_CODE COMPARING UCOMM.
ENDFORM.                    " PRM_AUTHORIZ_CHECK