Listbox обработка при нажатии Enter

AAK

На экране имеется Listbox.
Выпадающий список заполняю с помощью функции 'VRM_SET_VALUES'.
Все работает, но хотелось бы чтобы обработка происходила не сразу после выбора значения из выпадающего списка, а только после нажатия на Enter.
Подскажите пожалуйста как это сделать.

sibrin

Не надо код функции этому лист-боксу присваивать — он и не будет генерировать события.

AAK

Спасибо

AAK

Возник еще один вопрос как получить значение выбранное в Listbox?
Имя Listbox'а OBTP. Разве не должно в поле OBTP в PAI экрана записаться выбранное значение?

VID

Ну у меня экран не рисованый, а через selection-screen, то значение лежит в переменной листбокса...

Code:

PARAMETERS: p_ptype(1) AS LISTBOX VISIBLE LENGTH 4 DEFAULT 'D'      OBLIGATORY

if p_ptype = 'D'.
...

AAK

У меня экран рисованный и почему-то в переменную листбокса значение не передается

N/A

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

Возник еще один вопрос как получить значение выбранное в Listbox?
Имя Listbox'а OBTP. Разве не должно в поле OBTP в PAI экрана записаться выбранное значение?

Необходимо прописать в программе глобальную переменную с таким же именем. т.е. OBTP

AAK

Цитата:

Необходимо прописать в программе глобальную переменную с таким же именем. т.е. OBTP

Таковая имеется в наличии, описана в TOP

Aval

1. Попробуй удалить поле с экрана, а затем добавить с помощью кнопки Окно словаря/полей программы. Т.е. в программе оно должно уже быть. Видимо экран при настройке листбокса проверяет, что поле подходящее.
2. Если заполняешь листбокс через VRM_SET_VALUES, то твоя переменная должна быть не менее, чем поле внутр.таблицы, где лежат отображаемые значения, хоть и возвращается в переменную ключ, который меньше по длине.

Только что <я не знать русский языка>, пока не выполнил эти два условия тоже ничего не видел в PAI.

AAK

Цитата:

1. Попробуй удалить поле с экрана, а затем добавить с помощью кнопки Окно словаря/полей программы. Т.е. в программе оно должно уже быть. Видимо экран при настройке листбокса проверяет, что поле подходящее.
2. Если заполняешь листбокс через VRM_SET_VALUES, то твоя переменная должна быть не менее, чем поле внутр.таблицы, где лежат отображаемые значения, хоть и возвращается в переменную ключ, который меньше по длине.

Несколько раз пробовал,не получилось

Есть подозрение, что со структурой, на которую ссылается поле, что-то не то, буду дальше искать ошибку

AAK

Либо возможно, что после нажатия Enter Listbox очищается?

Aval

Уточните, пжлста, тип переменной на которую ссылается поле экрана?
В моем случае это C с длиной 80 и это не поле структуры.

sy-uname

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

Либо возможно, что после нажатия Enter Listbox очищается?

Вы привидите те фрагменты кода, которые относятся к работе с Listbox - PAI\PBO\заполнение\определение данных
А то гадать можно долго. Очищение по Enter говорит о том что либо нет связи поля с переменной в ABAP(т.е. нет такой переменной), либо у Вас в где то в коде идёт очистка этой самой переменной.

AAK

Code:

MODULE prepare_listbox_create OUTPUT.

if it_intf01_c01 is initial.
DATA i TYPE I.
  SELECT * FROM ZAI_INTF01_C01
    INTO TABLE it_intf01_c01.
i = 1.
DELETE ADJACENT DUPLICATES FROM it_intf01_c01.
LOOP AT it_intf01_c01.
  DROPDOWN-KEY = i.
  DROPDOWN-TEXT = it_intf01_c01-obtp.
  APPEND DROPDOWN TO V.
  i = i + 1.
ENDLOOP.

CALL FUNCTION 'VRM_SET_VALUES'
  EXPORTING
    ID                    = 'OBTP'
    VALUES                = V
* EXCEPTIONS
*   ID_ILLEGAL_NAME       = 1
*   OTHERS                = 2
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.


ENDMODULE.                               

MODULE user_command_0102 INPUT.
 p_OBTP = OBTP.
  BREAK-POINT.
  IF ok_code = 'CANCEL' or ok_code = 'BACK' or ok_code = 'EXIT'.
    LEAVE PROGRAM.
  ENDIF.

ENDMODULE.
 

Поле OBTP в TOP определено как:

Code:

DATA OBTP LIKE it_intf01_c01-obtp.

Так же в TOP:

Code:

TABLES:
        ZAI_INTF01_C01,
        ZAI_INTF01_C02.

DATA:
it_intf01_c01 LIKE ZAI_INTF01_C01 OCCURS 0 WITH HEADER LINE,
     it_intf01_c02 LIKE ZAI_INTF01_C02 OCCURS 0 WITH HEADER LINE,

Логика выполнения экрана:

Code:

PROCESS BEFORE OUTPUT.
 MODULE STATUS_0105.
 MODULE prepare_listbox_create.

PROCESS AFTER INPUT.
 MODULE user_command_0102.
 MODULE call_ZAI_INTF01CREATE.

it_intf01_c01-obtp это char длиной 4, на экране тоже поле формата char
и длиной 4.

ghost

а нужно

Code:

LOOP AT it_intf01_c01.
  DROPDOWN-KEY = i.
  DROPDOWN-TEXT = it_intf01_c01-obtp.
  APPEND DROPDOWN TO V.
  i = i + 1.
ENDLOOP. 

а нужно

Code:

LOOP AT it_intf01_c01.
  DROPDOWN-KEY = it_intf01_c01-obtp.
  DROPDOWN-TEXT = i.
  APPEND DROPDOWN TO V.
  i = i + 1.
ENDLOOP.

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

Listbox обработка при нажатии Enter

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