Возврат на нужную закладку экрана выбора

Snus

Добрый день.

Вопрос, наверное, банальный, но что-то никак не могу найти ответ.
Есть экран выбора с тремя подэкранами-закладками(экран выбора с картотекой, если ABAP-примерам верить). Если после запуска программы и просмотра получающегося ALV-Grid вернуться на экран выбора, автоматически открывается первая закладка. Как сделать так, чтобы открывалась та, с которой был произведен запуск?

ghost

используйте TABSTRIP-ACTIVETAB

__Gennady

Если речь идет о селекционном экране, то для этого надо обработать событие AT SELECTION-SCREEN OUTPUT.
(PBO сел. экрана)

Aval

Я так понял экран селекционный?
Наверное, что-то типа такого:

Цитата:

SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 10 LINES,
TAB (20) tab1 USER-COMMAND push1,
TAB (20) tab2 USER-COMMAND push2,
TAB (20) tab3 USER-COMMAND push3,
...
END OF BLOCK mytab.

INITIALIZATION.
...
<str_var> = 'TAB1'.

AT SELECTION-SCREEN OUTPUT.
...
mytab-activetab = <str_var>.

AT SELECTION-SCREEN.
...
CASE sy-ucomm.
WHEN 'PUSH1'.
<str_var> = 'TAB1'.
WHEN 'PUSH2'.
<str_var> = 'TAB2'.
...
ENDCASE.
mytab-activetab = <str_var>.

Snus

Всё получилось, спасибо, осталась одна проблема.

Если выходить из грида через leave to screen 0 , слетают все сохранённые данные по активным закладкам(что в принципе понятно). Как бы так поцивильней обработать выход в таком случае?

ghost

initialization есть ? если есть там сделайте

Code:

import g_act_tab from memory id 'ACT_TAB'

а в перед leave screen 0

Code:

g_act_tab = tabstrip-activetab
export g_act_tab to memory id 'ACT_TAB'

ghost

немного опаздал с ответом

Snus написал(а):

Всё получилось, спасибо, осталась одна проблема.

Если выходить из грида через leave to screen 0 , слетают все сохранённые данные по активным закладкам(что в принципе понятно). Как бы так поцивильней обработать выход в таком случае?

хмм не должно так себя вести если конечно у вас в INITIALIZATION нету ни какой доп. обработки влияющей на это

P.S. : кстати вы еще должны подэкран соотвествующий(последний) указать для TABSTRIP? кроме активной вкладки

Snus

Всё получилось, спасибо. Сохранять в памяти - это выход.

Собственно итоговый код:

Code:

selection-screen begin of tabbed block tb1 for 5 lines.
selection-screen tab (15) LG user-command ucomm1 default screen 101.
selection-screen tab (15) NM user-command ucomm2 default screen 102.
selection-screen tab (15) ET user-command ucomm3 default screen 103.
selection-screen end of block tb1.

INITIALIZATION.
  LG = text-001.
  NM = text-003.
  ET = text-004.
  import tb1 from memory id 'ACT_TAB'.
  free memory id 'ACT_TAB'.

at selection-screen.
  case sy-ucomm.
    when 'UCOMM1'.
      g_active_tab = 'LG'.
      tb1-dynnr = 101.
      tb1-activetab = g_active_tab.
    when 'UCOMM2'.
      g_active_tab = 'NM'.
      tb1-dynnr = 102.
      tb1-activetab = g_active_tab.
    when 'UCOMM3'.
      g_active_tab = 'ET'.
      tb1-dynnr = 103.
      tb1-activetab = g_active_tab.
  endcase.

start-of-selection.
  call screen 100.
.
.
.
export tb1 to memory id 'ACT_TAB'.
leave to screen 0.
.
.
.

ghost

здесь лишнее

Code:

free memory id 'ACT_TAB'.

память при выходе очистится (советую почитать про ABAP Memory)

Snus

Цитата:

память при выходе очистится (советую почитать про ABAP Memory)

Да, я в курсе. Но это если через транзакцию заходить. А если выходить из экрана выбора назад в программу, а потом снова запускать - не очищается. Так что это, в общем-то, защита от отдельных экстремалов.

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

Возврат на нужную закладку экрана выбора

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