report z_exptr2.

tables: lips, likp, ztara.

type-pools: slis.

select-options:
  suppId for likp-kunnr no intervals,     " Код потребителя
  prodId for lips-matnr no intervals,     " Код материала
  period for likp-wadat_ist.              " Период выборки

data: begin of seq,
        zzidtara like lips-zzidtara,      " Код тары
        text like ztara-text,             " Наименование тары
        zzqtara like lips-zzqtara,        " Количество тары
      end of seq.

data: gs_layout  type slis_layout_alv,
      gv_save,
      gs_variant like disvariant.

data tabl like seq occurs 0 with header line.

data k type kunnr.

data gc_alv_table type ref to cl_salv_table.

start-of-selection.
data: r_header type ref to cl_salv_form_element.
  select
    lip~zzidtara
    tara~text
    sum( lip~zzqtara )
  into table tabl
  from ( lips as lip
         inner join likp as lik
           on lik~vbeln = lip~vbeln
         left join ztara as tara
           on tara~idtara = lip~zzidtara
       )
  where lik~kunnr in suppId
        and lip~matnr in prodId
        and lip~zzqtara ne 0
        and lik~wadat_ist in period
  group by lip~zzidtara tara~text.

  cl_salv_table=>factory( importing r_salv_table = gc_alv_table
                          changing t_table = tabl[] ).

  data address type string.

  shift suppId by 3 places.

  k = suppId.

  call function 'ZSDKKA_KUNNR_ADRESS'
  exporting pa_kunnr = k
            tip = 'B'
  importing adress = address.
  perform display_header.
  gc_alv_table->set_top_of_list( r_header ).
  gc_alv_table->display( ).

form display_header .
  data: lr_grid type ref to cl_salv_form_layout_grid.
  data codePotr(30) type c.
  data namePotr(255) type c.
  concatenate 'Код потребителя: '  suppId into codePotr.
  concatenate 'Наименование потребителя: ' ' ' address into namePotr.
  create object lr_grid.
  lr_grid->create_text(
    row    = 1
    column = 1
    text   = codePotr ).
  lr_grid->create_text(
    row    = 2
    column = 1
    text   = namePotr ).
  r_header = lr_grid.
endform.