PROGRAM YTEST_13_001.

Tcode：SE38

TYPES: BEGIN OF ty_check_au,
werks TYPE mseg-werks,
END OF ty_check_au.
DATA: wa_check_au TYPE ty_check_au,
it_check_au TYPE TABLE OF ty_check_au.

AT SELECTION-SCREEN.
* 在此进行权限对象的检查
SELECT
werks
FROM mseg
INTO TABLE it_check_au
WHERE mblnr IN s_mblnr AND
werks = p_werks
AND mseg~bwart IN (‘101‘,‘102‘,‘105‘,‘106‘).

LOOP AT it_check_au INTO wa_check_au.

AUTHORITY-CHECK OBJECT ‘M_MSEG_WMB‘
         ID ‘ACTVT‘ FIELD ‘01‘
         ID ‘WERKS‘ FIELD wa_check_au-WERKS.
IF SY-SUBRC <> 0.
* Implement a suitable exception handling here
  MESSAGE E000 WITH ‘您没有工厂‘ LW_MARC-WERKS ‘的权限‘.
ENDIF.

CLEAR wa_check_au.
ENDLOOP.