topic Re: authorization control in Application Development and Automation Discussions

authorization control

Former Member — Thu, 30 Oct 2014 01:11:56 GMT

Hi! expert,

just now i write a program using ALV and i have to add authorization control so that only user that have access to the sales organization

could view the customer info.

thanks, regards,

Liyana

Re: authorization control

Former Member — Thu, 30 Oct 2014 04:49:02 GMT

Hi,

You can capture the AUTHORITY-CHECK control for this

for e.g.

AUTHORITY-CHECK OBJECT 'ZCHECK'

ID 'UNAME' FIELD SY-UNAME

ID 'VKORG' FIELD WA-VKORG.

IF SY-SUBRC <> 0.

MESSAGE 'AUTHORIZTION FAILED' TYPE 'E'.

ELSE.

"Display the alv code.

ENDIF.

Re: authorization control

rosenberg_eitan — Thu, 30 Oct 2014 05:38:02 GMT

Hi,

Ask your module consaltant what authorization object you need to use .

For example:

SELECT-OPTIONS: s_vkorg FOR tvko-vkorg OBLIGATORY .

Then:

AT SELECTION-SCREEN .
PERFORM at_selection_screen_input .

*----------------------------------------------------------------------*
FORM at_selection_screen_input .

SELECT * FROM tvko
WHERE vkorg IN s_vkorg .

AUTHORITY-CHECK OBJECT 'J_REPO_VKO'
ID 'VKORG' FIELD tvko-vkorg .

    IF sy-subrc NE 0 .
      MESSAGE e051(j0) WITH tvko-vkorg .
    ENDIF .

ENDSELECT .

IF sy-subrc NE 0 .
MESSAGE e668(vl).
ENDIF .

ENDFORM . "at_selection_screen_input
*----------------------------------------------------------------------*

Regards.