Сохранение варианта Dynpro экрана

Сашок

Кто пользовался такой разработкой
http://www.sapnet.ru/viewtopic.php?t=1241
подскажите пожалуйста:

Этот ФМ

Code:

  CALL FUNCTION 'RS_VARIANT_SAVE_FROM_SELSCREEN'
       EXPORTING
            CURR_REPORT          = SY-REPID
            VARI_REPORT          = SY-REPID
       IMPORTING
            VARIANT              = W_VARIANT
       TABLES
            P_SSCR               = T_SELCTAB
            P_VARI               = T_VARI
       EXCEPTIONS
            ILLEGAL_VARIANT_NAME = 1
            NOT_AUTHORIZED       = 2
            NO_REPORT            = 3
            REPORT_NOT_EXISTENT  = 4
            REPORT_NOT_SUPPLIED  = 5
            OTHERS               = 6.

выдает мне ошибку "Экран выбора 0100 не содержит объектов."

правда кнопка 'save' вызывает этот ФМ когда я нахожусь на Динпро экране. на картинках вроде как selection почему то.. и название ФМ красноречиво об этом свидетельствует.

Да, в топике есть такая фраза:
'Нам необходим Dynpro экран с подэкраном, содержащим параметры.'
не понял, что за подэкран с параметрами... может в этом дело?

John Doe

В примере, в область подэкрана вызван селекционный экран с параметрами. Так что должно работать, Alvaro Tejada можно доверять, серьезный товарищ.

ROKO

John Doe написал:

В примере, в область подэкрана вызван селекционный экран с параметрами. Так что должно работать, Alvaro Tejada можно доверять, серьезный товарищ.

Его квалификация не вызывает сомнений, но год назад у меня вот тут тоже не получилось.

John Doe

Хоть и не было нужно, но проверил. У меня все работает, система 4.6с.
Программа - полностью из примера.
Создал в программе экран 100. Его логика:

Code:

PROCESS BEFORE OUTPUT.
  MODULE STATUS_0100.
  CALL SUBSCREEN AREA INCLUDING SY-REPID '0101'.
*
PROCESS AFTER INPUT.
  CALL SUBSCREEN AREA.
  MODULE USER_COMMAND_0100.

Создал гуи-статус: с кнопками SAVE BACK GET_VAR DEL_VAR.

ЗЫ Не получилось год назад потому, что вызов подэкрана в PAI стоит после обработки команд, а надо до.

ROKO

John Doe написал:

ЗЫ Не получилось год назад потому, что вызов подэкрана в PAI стоит после обработки команд, а надо до.

Версия 4.7. Так вызов подэкрана и идет до обработки команд. Я бы изменить код GURU Alvaro ни в жисть не решился быб

ROKO год назад писал:

Code:

PROCESS AFTER INPUT.
  MODULE cancel AT EXIT-COMMAND.
  CALL SUBSCREEN  area.
  MODULE user_command_0100.

John Doe

ROKO написал:

Версия 4.7. Так вызов подэкрана и идет до обработки команд. Я бы изменить код GURU Alvaro ни в жисть не решился быб

Извини, я прощёлкал :oops:

. Но тем не менее - у мну все работает.

Добавил: продублировал в ECC 6.0 - не работает с характерной ошибкой.

Сашок

теперь создал подэкран и вывожу туда селекшн или обычный динпро - все та же беда (

немного уточню:
ставлю брэйк-пойнт на

Code:

CALL FUNCTION 'RS_VARIANT_SAVE_FROM_SELSCREEN'

нажимаю F5 и чудесным образом сразу попадаю в

Code:

FUNCTION tr_sys_params.

которая мне генерирует ошибку "Экран выбора 0100 не содержит объектов." :twisted:

Сашок

Пока только так получилось :idea:

Code:

FORM SAVE_VARIANT.
  data: var TYPE RSVAR-VARIANT.

  T_RKEY-REPORT = SY-REPID.
  APPEND T_RKEY.

*  CALL FUNCTION 'RS_VARIANT_SAVE_FROM_SELSCREEN'
*    EXPORTING
*      CURR_REPORT          = SY-REPID
*      VARI_REPORT          = SY-REPID
*    IMPORTING
*      VARIANT              = W_VARIANT
*    TABLES
*      P_SSCR               = T_SELCTAB
*      P_VARI               = T_VARI
*    EXCEPTIONS
*      ILLEGAL_VARIANT_NAME = 1
*      NOT_AUTHORIZED       = 2
*      NO_REPORT            = 3
*      REPORT_NOT_EXISTENT  = 4
*      REPORT_NOT_SUPPLIED  = 5
*      OTHERS               = 6.

  var = 'main'.
  T_RKEY-VARIANT = var.
  MODIFY T_RKEY INDEX 1.

  CALL FUNCTION 'RS_RWSET_SAVE_VARIANT'
    EXPORTING
      RKEY    = T_RKEY
    TABLES
      SELCTAB = T_SELCTAB.
ENDFORM.                    " SAVE_VARIANT

но Альваро обещал подумать

Bizon

Подниму старую тему....
Интересно, у кого-то получается на ЕСС 6.0 ? (на 4.6 С идет)

Bizon

Сам спросил, сам отвечаю...
Перед вызовом RS_VARIANT_SAVE_FROM_SELSCREEN нужно задать свой подэкран: SY-DYNNR = '0101'

Правила форума

Сохранение варианта Dynpro экрана

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