Текущее время: Пн, июн 08 2026, 02:28

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 3 ] 
Автор Сообщение
 Заголовок сообщения: Как добавить меню из роли в Фавориты ?
СообщениеДобавлено: Пн, мар 31 2008, 16:43 
Специалист
Специалист
Аватара пользователя

Зарегистрирован:
Пт, янв 26 2007, 08:42
Сообщения: 175
Есть роль, в которой внушительное меню.
Назначать себе эту роль, чтобы получить доступ к меню - не удобно по причине сложной процедуры назначения ролей пользователя.
Каждый раз через PFCG - тоже.
Импортировать в роль меню можно, а как экспортировать?
Пробовал добавить себе роль и в меню перетащить папкой в фавориты - пишет, что только по одному объекту можно.
Подскажите способ.


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн, мар 31 2008, 23:19 
Гуру-эксперт
Гуру-эксперт
Аватара пользователя

Зарегистрирован:
Ср, ноя 03 2004, 14:51
Сообщения: 1912
Откуда: КраснАдар
Пол: Мужской
Привет! Мне кажется, что легче все таки к админам напроситься (все таки проверки полномочий и т.п.). Но если все таки совсем невмоготу и есть sap_all...
В общем, набросал для тебя программку. Присваивает все транзакции из роли в фавориты, только без сохранения иерархической структуры меню роли.
Code:
DATA: LS_AGR_DEFINE TYPE AGR_DEFINE,
      LT_AGR_SELECT TYPE TABLE OF AGR_SELECT,
      LT_AGR_TCODES TYPE TABLE OF AGR_TCODES,
      LS_AGR_TCODES TYPE AGR_TCODES,
      L_TCODE TYPE SYTCODE.

PARAMETERS: P_ROLE TYPE AGR_NAME MATCHCODE OBJECT PRGN_AGR.

START-OF-SELECTION.
  CHECK NOT P_ROLE IS INITIAL.

  LS_AGR_DEFINE-AGR_NAME = P_ROLE.
  CALL FUNCTION 'PRGN_GET_AGR_TCODES'
       EXPORTING
            S_AGR_DEFINE = LS_AGR_DEFINE
       TABLES
            I_AGR_SELECT = LT_AGR_SELECT
            I_AGR_TCODES = LT_AGR_TCODES.

  WRITE / 'Added T-Code to Favorites:'.
  LOOP AT LT_AGR_TCODES INTO LS_AGR_TCODES.
    MOVE LS_AGR_TCODES-TCODE TO L_TCODE.
    CALL FUNCTION 'MENU_CHECK_TCODE'
         EXPORTING
              TCODE                = L_TCODE
         EXCEPTIONS
              TCODE_DOES_NOT_EXIST = 1
              OTHERS               = 2.
    IF SY-SUBRC <> 0.
      CONTINUE.
    ENDIF.

    CALL FUNCTION 'GUI_ADD_TCODE_TO_FAVORITES'
         EXPORTING
              TRANSACTION_TO_ADD = L_TCODE
              USER_NAME          = SY-UNAME
              NO_PAR_TCODE       = 'X'.

    WRITE / L_TCODE.
  ENDLOOP.


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт, апр 01 2008, 08:31 
Специалист
Специалист
Аватара пользователя

Зарегистрирован:
Пт, янв 26 2007, 08:42
Сообщения: 175
Вот спасибки!!!
теперь будет над чем пораскинуть мозгом :D


Принять этот ответ
Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 3 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB