abap报表权限控制 AUTHORITY-CHECK for select option

1.Select Option without extension and interval

AUTHORITY-CHECK OBJECT 'V_VBKA_VKO' id 'VKBUR' FIELD S_VKBUR-low
id 'ACTVT' FIELD '01'
id 'ACTVT' FIELD '02'.

2.Select Option Without Restriction

SELECT VKBUR
FROM TVBVK
INTO TABLE lt_vkbur
WHERE VKBUR IN S_VKBUR.
CLEAR S_VKBUR.
REFREASH S_VKBUR.
LOOP AT lt_vkbur INTO lx_vkbur.
AUTHORITY-CHECK OBJECT 'V_VBKA_VKO'
id 'VKBUR' FIELD lx_vkbur-vkbur
id 'ACTVT' FIELD '01'
id 'ACTVT' FIELD '02'
.
IF SY-SUBRC <> 0.
S_VKBUR-SIGN = ‘I'.
S_VKBUR-OPTION = ‘EQ'.
S_VKBUR-LOW = lx_vkbur_vkbur.
modify S_VKBUR FROM S_VKBUR.
endif.
ENDLOOP.

3.With Restriction
LOOP AT s_vkbur INTO s_vkbur.
AUTHORITY-CHECK OBJECT 'V_VBKA_VKO'
id 'VKBUR' FIELD s_vkbur-low
id 'ACTVT' FIELD '01'
id 'ACTVT' FIELD '02'
.
IF SY-SUBRC <> 0.
s_vkbur-sign = 'E'.
modify s_vkbur FROM s_vkbur.
endif.
ENDLOOP.