authorization control

[Former Member]

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

[Former Member]

Change your code to below

LOOP AT IT_OUTPUT.

   AUTHORITY-CHECK OBJECT 'Z_VKORG'

   ID 'VKORG' FIELD IT_OUTPUT-VKORG

   ID 'ACTVT' FIELD '03'.

[archanapawar]

Hi Liyana,

You are passing wrong parameter to your authorization object. You are passing S_VKORG.

You have fetched the data from KNA1 and KNVV based on S_VKORG, so you can use this table to check authorization for VKORG.

Modify your code as below, it will work.

LOOP AT IT_OUTPUT into WA_OUTPUT.

   AUTHORITY-CHECK OBJECT 'Z_VKORG'

   ID 'VKORG' FIELD WA_OUTPUT-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.