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.