Средство поиска ABAP | Блог ABAP YouCoder

Средство поиска ABAP в ALV таблице

При необходимости принудительного вызова средства поиска в ALV таблице, например, при нажатии кнопки или по какому-либо событию используется Функциональный модуль F4IF_FIELD_VALUE_REQUEST. Вызов этого ФМ позволяет вызвать в необходимый момент средство поиска и обработать ответ пользователя, была ли пользователем выбрана запись и если да, то какая.

F4IF_FIELD_VALUE_REQUEST

Подробнее рассмотрим вызов этого функционального модуля и его возможности. ФМ получает на вход следующие параметры:

tabname — имя таблицы либо ракурс справки, как в нашем случае. Из этого ракурса или таблицы будут извлекаться доступные значения для выбора.
fieldname — имя поля таблицы tabname, в котором хранится поле.
searchhelp — средство поиска для принудительного вызова.
multiple_choice — поле отвечает за возможность множественного выбора значений.

Так же другие параметры влияющие на вызов данного средство поиска можно посмотреть перейдя в параметры.

По итогу получаем таблицу результатов выбора пользователем, в которой в столбце fieldval хранятся значения выбранные пользователем. Теперь, если используется данную функцию при добавлении полей в таблицу ALV, то можно пройти по таблице, переместить нужные записи, например, проверив на наличие их в целевой таблице. После чего заполнить, в случае необходимости дополнительные поля. После чего обновить ALV.
Итоговый код программы ABAP выглядит следующим образом:

    DATA:
      ls_kunnr     TYPE ts_kunnr,
      lt_kunnr_ret TYPE STANDARD TABLE OF ddshretval,
      lr_kunnr     TYPE REF TO ddshretval.

    CASE e_ucomm.
      WHEN 'CREATE'.

        CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
          EXPORTING
            tabname         = 'ZSD_KUNNR_RS'
            fieldname       = 'KUNNR'
            searchhelp      = 'ZSD_KUNNR'
            multiple_choice = abap_true
          TABLES
            return_tab      = lt_kunnr_ret
          EXCEPTIONS
            OTHERS          = 5.

        LOOP AT lt_kunnr_ret REFERENCE INTO lr_kunnr_ret.

          READ TABLE mt_kunnr TRANSPORTING NO FIELDS
            WITH KEY kunnr = lr_kunnr_ret->fieldval.
          IF sy-subrc = 0.
            CONTINUE.
          ENDIF.

          ls_kunnr-kunnr = lr_kunnr->fieldval.
          ls_kunnr-updkz = 'I'.

          APPEND ls_kunnr TO mt_kunnr.

        ENDLOOP.
      WHEN OTHERS.
        RETURN.
    ENDCASE.

    mcl_alv->refresh( ).

DATA:

ls_kunnr TYPE ts_kunnr,

lt_kunnr_ret TYPE STANDARD TABLE OF ddshretval,

lr_kunnr TYPE REF TO ddshretval.

CASE e_ucomm.

WHEN 'CREATE'.

CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'

EXPORTING

tabname = 'ZSD_KUNNR_RS'

fieldname = 'KUNNR'

searchhelp = 'ZSD_KUNNR'

multiple_choice = abap_true

TABLES

return_tab = lt_kunnr_ret

EXCEPTIONS

OTHERS = 5.

LOOP AT lt_kunnr_ret REFERENCE INTO lr_kunnr_ret.

READ TABLE mt_kunnr TRANSPORTING NO FIELDS

WITH KEY kunnr = lr_kunnr_ret->fieldval.

IF sy-subrc = 0.

CONTINUE.

ENDIF.

ls_kunnr-kunnr = lr_kunnr->fieldval.

ls_kunnr-updkz = 'I'.

APPEND ls_kunnr TO mt_kunnr.

ENDLOOP.

WHEN OTHERS.

RETURN.

ENDCASE.

mcl_alv->refresh( ).

Средство поиска ABAP в ALV таблице

F4IF_FIELD_VALUE_REQUEST

Добавить комментарий Отменить ответ