SAP 权限检验（配置表）

FORM FRM_CHECK .
　　    DATA:LT_TVKO TYPE STANDARD TABLE OF TVKO,
　　　　　　LS_TVKO TYPE TVKO.
　　    DATA: LT_TVAKT TYPE STANDARD TABLE OF TVAKT WITH HEADER LINE.

　　　DATA:L_MESSAGE TYPE STRING.
　　　　FREE LT_TVKO.

　　SELECT * FROM TVKO INTO TABLE LT_TVKO WHERE VKORG IN S_VKORG.

　　LOOP AT LT_TVKO INTO LS_TVKO.
　　　　AUTHORITY-CHECK OBJECT 'V_VBAK_VKO' 　　　　"V_VBAK_VKO 权限对象
　　　　　　　　　　　　　　　　ID 'VKORG' FIELD LS_TVKO-VKORG.

　　　　IF SY-SUBRC NE 0.
　　　　　　　　GV_FLAG = 'X'.
　　　　　　　　CONCATENATE '没有销售组织' LS_TVKO-VKORG '的权限' INTO L_MESSAGE .
　　　　　　　　MESSAGE L_MESSAGE TYPE 'S' DISPLAY LIKE 'E'.
　　　　　　　　EXIT.
　　　　ENDIF.

　　ENDLOOP.

ENDFORM.