cl_reca_gui_f4_popup - класс для создания справки

cl_reca_gui_f4_popup - класс обертка позволяющая быстро выводить средство поиска. Можно использовать как один из вариантов для f4

"
"Example:
 DATA lo_f4          TYPE REF TO cl_reca_gui_f4_popup.

        SELECT   mara~matnr,
                 mara~meins,
                 makt~maktx,
                 mara~ergew,
                 mara~ervol,
                 mara~ergei,
                 mara~ervoe
          FROM mara
            INNER JOIN makt ON mara~matnr = makt~matnr
             INTO CORRESPONDING FIELDS OF TABLE @DATA(lt_mara)
               WHERE
            mtart = 'ZZZZ'
          AND ( ergei = 'KG' )
          AND spras =  @sy-langu
          AND lvorm <> @abap_true.

            DATA lt_res_tab LIKE lt_mara.

        IF lo_f4 IS NOT BOUND.
              lo_f4 = cl_reca_gui_f4_popup=>factory_grid(
                id_title   = 'Заголовок'  " Заголовок окна
                if_multi   = abap_false   " Единичный выбор
                it_f4value = lt_mara     " Вн. таблица с данными
              ).
            ENDIF.

              lo_f4->display( IMPORTING et_result = lt_res_tab
                                        ef_cancelled = DATA(lv_cancelled) ).

              IF lv_cancelled = abap_true.
                RETURN.
              ENDIF.

    IF line_exists( lt_res_tab[ 1 ] ).
     ...
    ENDIF.

"Example:

DATA lo_f4 TYPE REF TO cl_reca_gui_f4_popup.

SELECT mara~matnr,

mara~meins,

makt~maktx,

mara~ergew,

mara~ervol,

mara~ergei,

mara~ervoe

FROM mara

INNER JOIN makt ON mara~matnr = makt~matnr

INTO CORRESPONDING FIELDS OF TABLE @DATA(lt_mara)

WHERE

mtart = 'ZZZZ'

AND ( ergei = 'KG' )

AND spras = @sy-langu

AND lvorm <> @abap_true.

DATA lt_res_tab LIKE lt_mara.

IF lo_f4 IS NOT BOUND.

lo_f4 = cl_reca_gui_f4_popup=>factory_grid(

id_title = 'Заголовок' " Заголовок окна

if_multi = abap_false " Единичный выбор

it_f4value = lt_mara " Вн. таблица с данными

ENDIF.

lo_f4->display( IMPORTING et_result = lt_res_tab

ef_cancelled = DATA(lv_cancelled) ).

IF lv_cancelled = abap_true.

RETURN.

ENDIF.

IF line_exists( lt_res_tab[ 1 ] ).

...

ENDIF.

cl_reca_gui_f4_popup – класс для создания справки

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