Переход по щелчку мышки - обработка события в отчете...

Любаша

Как заставить отработать

Code:

AT SELECTION-SCREEN ON ...

Не по клавише "Enter", а по щелчку мышки в другом поле?

P.S. Очень нужно, так как надо поставить фильтр по введдённому параметру...

Speelky

Любаша написал(а):

Как заставить отработать

Code:

AT SELECTION-SCREEN ON ...

Не по клавише "Enter", а по щелчку мышки в другом поле?

P.S. Очень нужно, так как надо поставить фильтр по введдённому параметру...

Если имеется в виду просто переключение ввода на другое поле - то никак.
Если надо поставить фильтр, то это делается другими методами - из твоего сообщения непонятно, что за фильтр.

Если речь идет об обработке F4 в другом поле, то нужно использовать возможности средства поиска (более правильно) либо считать текущее значение с помощью ФМ.

РМщик

просто, AT SELECTION-SCREEN.

Любаша

Проверено - это не работает

nicky555

Перефразируя известное изречение:
"АВАР-программа - птица гордая, кнопку не надавишь - не заработает"

Как вариант - двойной щелчок есть, формально, тоже нажатие кнопки.
Обработку PAI-логики экрана параметров можно также зацепить на выбор Radiobutton или Checkbox'а.
Для случая F4 - см. совет Speelky...

Любаша

Speelky:

Есть 2 SELECT-OPTIONS

Code:

SELECT-OPTIONS: s_regnr1 FOR...

Code:

SELECT-OPTIONS: s_regnr2 FOR...

В зависимости от того, какое s_regnr1 нужно выбирать данные для

Code:

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_regnr2-high.
...
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_regnr2-low.
...

OlegDm

Тебе похоже просто нужно в событиях:

Code:

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_regnr2-high. 
... 
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_regnr2-low. 
... 

сначала вызвать ФМ DYNP_VALUES_READ для того чтобы считать что было введено в:

Code:

SELECT-OPTIONS: s_regnr1 FOR...

Гость

Вызываю ФМ (это один из вариантов - HELP вообще в ABAPе - туда ещё... работаю методом проб и ошибок)

Code:

  DATA: l_dynpread LIKE TABLE OF dynpread WITH HEADER LINE.
  l_dynpread-fieldname = 'P_DOKAR1'.
  l_dynpread-STEPL = 1.
  APPEND l_dynpread.
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname                         = sy-cprog
      dynumb                         = sy-dynnr
*     TRANSLATE_TO_UPPER             = ' '
*     REQUEST                        = ' '
*     PERFORM_CONVERSION_EXITS       = ' '
*     PERFORM_INPUT_CONVERSION       = ' '
*     DETERMINE_LOOP_INDEX           = ' '
    TABLES
      dynpfields                     = l_dynpread
   EXCEPTIONS
     invalid_abapworkarea           = 1
  invalid_dynprofield            = 2
  invalid_dynproname             = 3
  invalid_dynpronummer           = 4
  invalid_request                = 5
  no_fielddescription            = 6
  invalid_parameter              = 7
  undefind_error                 = 8
  double_conversion              = 9
  stepl_not_found                = 10
  OTHERS                         = 11
  .

Ошибку выдаёт invalid_dynprofield.

И как с ФМ работать? Подскажите, плз.

Eugene

пример

Code:

DATA lifnr LIKE bsik-lifnr.
  DATA: BEGIN OF tab_read OCCURS 1.
          INCLUDE STRUCTURE dynpread.
  DATA: END OF tab_read.
* имя экранного поля
  tab_read-fieldname = 'LIFNR_POL'. 
  APPEND tab_read.

  CALL FUNCTION 'DYNP_VALUES_READ'
       EXPORTING
            dyname               = sy-cprog
            dynumb               = sy-dynnr
       TABLES
            dynpfields           = tab_read
       EXCEPTIONS
            invalid_abapworkarea = 1
            invalid_dynprofield  = 2
            invalid_dynproname   = 3
            invalid_dynpronummer = 4
            invalid_request      = 5
            no_fielddescription  = 6
            invalid_parameter    = 7
            undefind_error       = 8
            double_conversion    = 9
            stepl_not_found      = 10
            OTHERS               = 11.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE.
    READ TABLE tab_read INDEX 1.
    lifnr = tab_read-fieldvalue.
  endif.

OlegDm

2 Любаша: См. свою почту

Любаша

Спасибо всем, особенно директору Олегу Дм.

Для чтения параметров с экрана ФМ просто идеален (если вообще есть что-то идеальное в ABAPе...), но для селект-опшнс еще пришлось сделать кое-что:

Code:

  IF  high IS NOT INITIAL.
    s_regnr1-sign = 'I'.
    s_regnr1-option = 'BT'.
    APPEND s_regnr1.
  ELSE.
    IF low IS NOT INITIAL.
      s_regnr1-sign = 'I'.
      s_regnr1-option = 'EQ'.
      APPEND s_regnr1.
    ENDIF.
  ENDIF.

Еще раз всем спасибо.

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

Переход по щелчку мышки - обработка события в отчете...

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