91
Система управления проетами (PS) / Re: Объекты полномочий на проекты
« Последний ответ от themax Август 24, 2021, 08:05:53 am »Ну там вариантов.. вагон если честно. Так на вскидкуВот последнее 5-ое по ходу самое то. Использовал расширение CNEX0002, добавил в EXIT_SAPLCNAU_001: for project definitions что то вроде
1. Ну стандартно через объекты полномочий, запусти логирование, получишь весь перечень используемых объектов а дальше стандартно смотри что-то можно сделать.
2. Использование статусной схемы пользователя + далее проверка полномочий на присвоенные статусы, транзакция OK02
3. Возможно через стандартные процессы проверок? транзакция OPSI, можно что-то накрутить.
4. Через присвоение ответственных, транзакция OPS6, если не путаю а дальше проверка полномочий на ответственных за СПП
5. Через абап, если что-то уж надо экзотическое:
DATA: VALUES TYPE US335 OCCURS 0,
WA_VAL LIKE LINE OF VALUES.
RANGES: zbukrs FOR T880-RCOMP.
"Call Values of Authorization Object for current user
CALL FUNCTION 'GET_AUTH_VALUES'
EXPORTING
OBJECT1 = 'ZPSCC100'
USER = SY-UNAME
TABLES
VALUES = VALUES.
if values[] IS INITIAL.
MESSAGE 'Authorization failed!' TYPE 'E'.
ENDIF.
" Authorization object for Project
READ TABLE VALUES INTO wa_val WITH KEY field = 'BUKRS' lowval = '*'.
IF sy-subrc ne 0.
LOOP AT VALUES INTO WA_VAL WHERE FIELD EQ 'BUKRS'.
IF wa_val-highval IS NOT INITIAL.
zbukrs-sign = 'I'.
zbukrs-option = 'BT'.
zbukrs-low = wa_val-lowval.
zbukrs-high = wa_val-highval.
append zbukrs.
ELSE.
zbukrs-sign = 'I'.
zbukrs-option = 'EQ'.
zbukrs-low = wa_val-lowval.
append zbukrs.
ENDIF.
CLEAR WA_VAL.
ENDLOOP.
ENDIF.
CLEAR WA_VAL.
IF NOT zbukrs[] IS INITIAL.
IF SAP_PROJ-vbukr NOT IN zbukrs.
MESSAGE 'Authorization failed!' TYPE 'S'.
ELSE.
SAP_X_ACTVT = 'X'. "Authorization Allowed Check
ENDIF.
ELSE.
SAP_X_ACTVT = 'X'. "Authorization Allowed Check
ENDIF.
Предварительно надо создать объект полномочий ZPSCC100 su21 c одним полем BUKRS. Далее добавляем этот объект полномочий в роль.