Untitled

mail@pastecode.io avatar
unknown
plain_text
a year ago
714 B
4
Indexable
"ebat tanım
    if p_ebat is not initial.
      data(lv_ebat) =  |{ p_ebat }%| .
      condense lv_ebat no-gaps.

      select distinct matnr ,mvke~mvgr5
        from mvke
        inner join tvm5t on tvm5t~mvgr5 eq mvke~mvgr5 and tvm5t~spras eq @sy-langu
        where bezei like @lv_ebat
         and vkorg in ('RL','EXP','OE')
        into table @data(lt_ebat).

      loop at lt_ebat assigning field-symbol(<fs_out>).
        append value #( sign = 'I' option = 'EQ' low = <fs_out>-matnr ) to s_matnr[].
        append value #( sign = 'I' option = 'EQ' low = <fs_out>-mvgr5 ) to gr_mvgr5[].
      endloop.

      if s_matnr[] is initial.
        refresh  gt_data[] .
      endif.
    endif.