本文共 768 字，大约阅读时间需要 2 分钟。

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 .

转载地址：http://uqoaf.baihongyu.com/