Событие по выходу из средства поиска

organmusic

На экране после выбора значения поля ANLA-ANLN1 с помошью средства поиска AANL, поля ANLA-BUKRS и ANLA-ANLN2 заполняются автоматически. Нужно чтобы таким же образом заполнилось и поле ANLA-TXT50.
Можно ли это сделать (без лишнего нажиматия на <Enter>)?

Besa

Можно. Экран свои или нет?

organmusic

Besa написал:

Можно. Экран свои или нет?

Да экран свой z-товский

Besa

Можно, например, в POV логике экрана для Вашего поля вызвать СП через 'F4IF_FIELD_VALUE_REQUEST', по выбранному значению найти TXT50 и присвоить нужному полю (не забудьте обновить через DYNP_VALUES_UPDATE).

organmusic

Besa написал:

Можно, например, в POV логике экрана для Вашего поля вызвать СП через 'F4IF_FIELD_VALUE_REQUEST', по выбранному значению найти TXT50 и присвоить нужному полю (не забудьте обновить через DYNP_VALUES_UPDATE).

Спасибо,
попробую сделать так - проверю.
По правде говоря, тоже нашел одно работающее решение (отличающееся), но другие решения тоже интересны.
Возможно они окажутся проще и, значит - лучше

organmusic

Попробовал,
Идея верная но... в нашем примере наткнулся на некоторые траблы

Проблема ФМ 'F4IF_FIELD_VALUE_REQUEST' том что он возвращает значение только одного поля - ANLA-ANLN1.
А чтобы однозначно определить выбранную строку (и соответсвенно ANLA-TXT50) нужно иметь по крайне мере полный ключ:
ANLA-BUKRS+ANLA-ANLN1+ANLA-ANLN2.
Так и не смог понять как получить выбранную строку целиком (или хотя бы ее индекс).
Что тут можно еще сделать?

Besa

Проблема с ФМом F4IF_FIELD_VALUE_REQUEST

organmusic

Besa написал:

Проблема с ФМом F4IF_FIELD_VALUE_REQUEST

Большое спасибо!
Все получилось как надо (кстати, добавил туда и свои пару копеек).

А теперь еще одно решение, которое нашел раньше:
В средстве поиска AANL заменил стандартное пользовательское средство поиска (search help exit) на свое:

Code:

FUNCTION ZSET_DEFAULT_EL_SH.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  TABLES
*"      SHLP_TAB TYPE  SHLP_DESCR_TAB_T
*"      RECORD_TAB STRUCTURE  SEAHLPRES
*"  CHANGING
*"     VALUE(CALLCONTROL) LIKE  DDSHF4CTRL STRUCTURE  DDSHF4CTRL
*"     VALUE(SHLP) TYPE  SHLP_DESCR_T
*"----------------------------------------------------------------------

* Выполняем штатный search help exit
  CALL FUNCTION 'SET_DEFAULT_EL_SH'
    TABLES
      shlp_tab    = shlp_tab
      record_tab  = record_tab
    CHANGING
      callcontrol = callcontrol
      shlp        = shlp.

* Дополнение для транзакции ZNALOG_TRANS
  IF ( callcontrol-step = 'RETTOP' ).
    IF ( sy-tcode = 'ZNALOG_TRANS' ). " Чтобы работало только в данной транзакции
*     Эмулируем нажатие <Enter> для инициации экранного события
      CALL FUNCTION 'SAPGUI_SET_FUNCTIONCODE'.
    ENDIF.
  ENDIF.

ENDFUNCTION. " ZSET_DEFAULT_EL_SH

В экранном событии уже делаем все что хотим - заполняем доп поля

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

Событие по выходу из средства поиска

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