Скрыть поля на selection-screen

влад

Заранее прошу прощения за такой простой вопрос. Не могу понять, почему программа ведет себя не так, как я хочу

А хочу я того, чтобы с селекшн-скрина убирались все блоки, кроме одного, который будет выбираться дропдаунбоксом, код которого ниже:

Code:

SELECTION-SCREEN BEGIN OF BLOCK b_auswahl WITH FRAME TITLE text-s01.
PARAMETER p_auswhl TYPE aus AS LISTBOX VISIBLE LENGTH 20
  USER-COMMAND change_view.
SELECTION-SCREEN END OF BLOCK b_auswahl.

Здесь я перехватываю событие выбора и пытаюсь скрыть все, что не нужно, код отрабатывает, но ничего не происходит:

Code:

AT SELECTION-SCREEN OUTPUT.
  CASE sscrfields-ucomm.
    WHEN 'CHANGE_VIEW'.
      CASE p_auswhl.
        WHEN '1'.
          LOOP AT SCREEN.
            IF screen-name = 'P_LIFNR'.
              screen-active = '1'.
              screen-invisible = '0'.
              screen-input = '1'.
              MODIFY SCREEN.
            ELSE.
              screen-active = '0'.
              screen-invisible = '1'.
              screen-input = '0'.
              MODIFY SCREEN.
            ENDIF.
          ENDLOOP.
        WHEN '2'.
        WHEN '3'.
        WHEN '4'.
        WHEN '5'.
        WHEN '6'.
      ENDCASE.
  ENDCASE.

Посоветуйте что, а то наверное у меня затуп.

Simmike

ЧТО-то не понял, в какой момент хочешь скрыть блок?

влад

Сразу же, как только был выбран один из вариантов в лист-боксе.

John Doe

Отлавливай свой sscrfields-ucomm в AT SELECTION-SCREEN. В AT SELECTION-SCREEN OUTPUT он уже пустой... По крайней мере у меня (сейчас проверял).
Ну или в дебаг иди...

sy-uname

влад написал(а):

...
Здесь я перехватываю событие выбора и пытаюсь скрыть все, что не нужно, код отрабатывает, но ничего не происходит:

Code:

AT SELECTION-SCREEN OUTPUT.
  CASE sscrfields-ucomm.
    WHEN 'CHANGE_VIEW'.
      CASE p_auswhl.
        WHEN '1'.
...

Посоветуйте что, а то наверное у меня затуп.

Первое, как верно заметил John Doe, комманду следует отлавливать в событии AT SELECTION-SCREEN. и сохранять где-либо соответствующий признак, указывающий на соответствующий режим отображения.
Второе. Проверять и изменять атрибуты у полей надо всегда при выполнении события AT SELECTION-SCREEN OUTPUT. Так как в момент начала работы данного события все изменения атрибутов сбрасываются на дефолтные. Пример:

Code:

parameters: P_P type I.
at selection-screen output.
  if P_P eq 1 or P_P eq 3 .
    loop at screen.
      case SCREEN-NAME.
        when 'P_P'.
          SCREEN-INPUT = 0.
          SCREEN-INVISIBLE = 1.
          modify screen.
      endcase.
    endloop.
  endif.
at selection-screen.
  P_P = P_P + 1.
start-of-selection.
  exit.

Достаточно просто нажимать ENTER на экране и будет всё очевидно.

влад

Спасибо всем, кто откликнулся. Теперь программа работает так, как я хочу!

flipper

P.S:
как мне кажется в примере влада, проверять код функ. на CHANGE_VIEW вообщем и не надо, лишне все это ИМХО

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

Скрыть поля на selection-screen

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