CO02 有无撤销技术实现权限的增强
标程:COMODPAI
***INCLUDE COMODPAI .
*&---------------------------------------------------------------------*
*& Module GET_CURSOR INPUT
*&---------------------------------------------------------------------*
* text *
*----------------------------------------------------------------------*
MODULE GET_CURSOR INPUT.
*{ INSERT DEVK904181
if sy-ucomm = 'TABR' and sy-mandt = '800'.
tables: zco02_usr1.
select single * from zco02_usr1 where bname = sy-uname.
if sy-subrc <> 0.
message '您无权操作,请联系权限管理员!' type 'E'.
endif.
endif.
*} INSERT
PERFORM GET_OBJECT.
ENDMODULE. " GET_CURSOR INPUT
只有800集团中的zco02_usr1表中有的用户才能撤销技术实现。