Hi! Expert,
below is the code to get data for the authorized sales organization. I only put s110 as not authorized, but, why when i execute the program, all sales org. are not authorized?
Kindly need ur help to solve it.
FORM get_data.
SELECT KNA1~KUNNR
KNA1~NAME1
KNA1~STRAS
KNVV~ZTERM
KNVV~VKORG
KNVV~VTWEG
KNVV~SPART
TVTWT~VTEXT
TVZBT~VTEXT
TVKOT~VTEXT
INTO TABLE it_output
FROM KNA1
INNER JOIN KNVV
ON KNVV~KUNNR = KNA1~KUNNR
INNER JOIN TVTWT
ON TVTWT~VTWEG = KNVV~VTWEG
INNER JOIN TVZBT
ON TVZBT~ZTERM = KNVV~ZTERM
INNER JOIN TVKOT
ON TVKOT~VKORG = KNVV~VKORG
WHERE KNA1~KUNNR IN s_kunnr.
IF sy-subrc EQ 0.
CLEAR S_VKORG. REFRESH S_VKORG.
LOOP AT IT_OUTPUT.
AUTHORITY-CHECK OBJECT 'Z_VKORG'
ID 'VKORG' FIELD S_VKORG
ID 'ACTVT' FIELD '03'.
IF sy-subrc = 0.
S_VKORG-sign = 'I'.
S_VKORG-option = 'EQ'.
S_VKORG-low = ITAB.
S_VKORG-high = space.
APPEND S_VKORG.
ELSE.
MESSAGE e014(zmsg) WITH 'not authorize'.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM.
Thanks and Regards
Liyana