selection-screen begin of block lb with frame title text-001.
select-options: s_equnr for v_equi-equnr,                            " Номер ЕО
                s_eqart for v_equi-eqart,                            " Вид технич. объекта
                s_typbz for v_equi-typbz,                            " Название типа
                s_serge for v_equi-serge,                            " Серийный номер
                s_swerk for v_equi-swerk no-display default 3000,                " Завод
                s_stort for v_equi-stort,                            " Местоположение
                selection-screen end of block lb.

start-of-selection.

  perform indicator using 'Выбор средств измерения' 50.

  select  * from v_equi appending corresponding fields of table itab where eqtyp = 'Q'
    and equnr in s_equnr  and datbi = '99991231' and eqart in s_eqart and serge in s_serge
    and stort in s_stort .

loop at itab.
    select single tplma from iflot into (itab-tplnr2) where tplnr = itab-tplnr.
    select single tplma from iflot into (itab-tplnr3) where tplnr = itab-tplnr2.
    select single pltxt from iflotx into (itab-pltxt) where tplnr = itab-tplnr3.
    select single location from zie01_loc into (itab-location) where znum = itab-zzito_loc.
    select single ktext from t499s into (itab-ktext) where stand = itab-stort.

    modify itab.
  endloop.

select-options s_tplnr for v_equi-tplnr.  " Техническое место

select  * from v_equi appending corresponding fields of table itab where eqtyp = 'Q'
    and equnr in s_equnr  and datbi = '99991231' and eqart in s_eqart and serge in s_serge
    and stort in s_stort .

loop at itab.
    select single tplma from iflot into (itab-tplnr2) where tplnr = itab-tplnr.
    select single tplma from iflot into (itab-tplnr3) where tplnr = itab-tplnr2.
    select single pltxt from iflotx into (itab-pltxt) where tplnr = itab-tplnr3.
endloop.