Текущее время: Пт, апр 19 2024, 09:40

Часовой пояс: 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 часа


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

Сейчас этот форум просматривают: нет зарегистрированных пользователей


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

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