Code: Alles auswählen.
SELECT AUFK~AUFNR AUFK~AUART AUFK~WERKS
FROM AUFK
INTO CORRESPONDING FIELDS OF TABLE IT_AUFK
WHERE AUFNR IN s_aufnr.
LOOP AT IT_AUFK INTO GS_AUFK.
AUTHORITY-CHECK OBJECT 'MEIN_OBJEKT'
ID 'AUFART' FIELD GS_AUFK-AUART .
if sy-subrc = 0 .
'Berechtigt'.
else .
'Nicht berechtigt'
endif .
ENDLOOP.
Folgende Benutzer bedankten sich beim Autor Alexander D. für den Beitrag:
Sava
Code: Alles auswählen.
AUTHORITY-CHECK OBJECT 'MEIN OBJEKT'
ID 'ACTVT' FIELD '06'
ID 'WERKS' FIELD '1001'.
IF sy-subrc NE 0.
Meine Message
ENDIF.