权限检查ABAP

AT SELECTION-SCREEN.
  IF SSCRFIELDS-UCOMM = 'ONLI'.
    PERFORM AUTHORITY_CHECK.
  ENDIF.

FORM AUTHORITY_CHECK .

   DATA :LT_TVKO  LIKE  TABLE  OF TVKO  WITH  HEADER  LINE .

   AUTHORITY-CHECK OBJECT  'F_KNA1_BUK'
            ID  'BUKRS'  FIELD P_BUKRS
            ID  'ACTVT'  FIELD  '03' .
   IF SY -SUBRC <>  0 .
     MESSAGE E001 ( 00 )  WITH  '缺少公司代码' P_BUKRS  '查看权限.' .
   ENDIF .


   SELECT *  FROM TVKO  INTO  TABLE LT_TVKO .
   REFRESH R_VKORG .
   LOOP  AT LT_TVKO .
     IF LT_TVKO -BUKRS <> P_BUKRS .
      R_VKORG - SIGN  =  'E' .
     ELSE .
       AUTHORITY-CHECK OBJECT  'V_VBAK_VKO'
                ID  'VKORG'  FIELD LT_TVKO -VKORG
                ID  'VTWEG' DUMMY
                ID  'SPART' DUMMY
                ID  'ACTVT'  FIELD  '03' .
       IF SY -SUBRC <>  0 .
        R_VKORG - SIGN  =  'E' .
       ELSE .
        R_VKORG - SIGN  =  'I' .
       ENDIF .
     ENDIF .
    R_VKORG -OPTION  =  'EQ' .
    R_VKORG -LOW  = LT_TVKO -VKORG .
     APPEND R_VKORG .
   ENDLOOP .
ENDFORM .