REPORT  ZM_REP.

TYPES:
      begin of ty_kna1,
        kunnr LIKE kna1-kunnr,
        land1 LIKE kna1-land1,
        regio LIKE kna1-regio,
        ort01 LIKE kna1-ort01,
        name1 LIKE kna1-name1,
        wrbtr LIKE vbak-netwr,"kna1-umsa1,
        waers LIKE vbak-waerk,"kna1-uwaer,
      end of ty_kna1,

      begin of ty_bseg,
        kunnr LIKE bsid-kunnr,
*        land1 LIKE kna1-land1,
*        regio LIKE kna1-regio,
*        ort01 LIKE kna1-ort01,
*        name1 LIKE kna1-name1,
        blart LIKE bsid-blart,
        belnr LIKE bsid-belnr,
        bldat LIKE bsid-bldat,
        wrbtr LIKE bsid-wrbtr,
        waers LIKE bsid-waers,
      end of ty_bseg.

data: wa_kna1 type table of ty_kna1,
      wa_bseg type table of ty_bseg,
      ca_bseg type ty_bseg,
      ca_kna1 type ty_kna1,
      sum type wrbtr.

SELECTION-SCREEN BEGIN OF BLOCK ip WITH FRAME TITLE text-t10.
select-options: land for ca_kna1-land1," obligatory,
            reg for ca_kna1-regio,
            city for ca_kna1-ort01,
            kn for ca_kna1-kunnr.
SELECTION-SCREEN END OF BLOCK ip.

SELECTION-SCREEN BEGIN OF BLOCK ip1 WITH FRAME TITLE text-t11.
select-options: date for sy-datum obligatory.
parameters: eweek  radiobutton group radi,
            emonth radiobutton group radi,
            eyear  radiobutton group radi.
SELECTION-SCREEN END OF BLOCK ip1.

*case 'X'.
*  when eweek.
*    perform p_eweek.
*  when emonth.
*    perform p_emonth.
*  when eyear.
*    perform p_eyear.
*endcase.

START-OF-SELECTION.

perform sel.
perform disp_data.

form sel.

select kunnr land1 regio ort01 name1 from kna1
  into corresponding fields of table wa_kna1
  where kunnr in kn and land1 in land and regio in reg and ort01 in city.

    SELECT kunnr blart belnr bldat shkzg wrbtr waers FROM BSID
    APPENDING CORRESPONDING FIELDS OF TABLE wa_bseg
      FOR ALL ENTRIES IN wa_kna1
    WHERE kunnr = wa_kna1-kunnr and bldat in date and shkzg = 'H'.

    SELECT kunnr blart belnr bldat shkzg wrbtr waers FROM BSAD
    APPENDING CORRESPONDING FIELDS OF TABLE wa_bseg
      FOR ALL ENTRIES IN wa_kna1
    WHERE kunnr = wa_kna1-kunnr and bldat in date and shkzg = 'H'.

loop at wa_kna1 into ca_kna1.
clear sum.
  loop at wa_bseg into ca_bseg
    where kunnr = ca_kna1-kunnr.
    sum = sum + ca_bseg-wrbtr.
  endloop.

  ca_kna1-wrbtr = sum.
  ca_kna1-waers = ca_bseg-waers.
  modify wa_kna1 from ca_kna1.
endloop.

endform.

form disp_data.
  type-pools: slis.

  DEFINE m_fieldcat.
    add 1 to ls_fieldcat-col_pos.
    ls_fieldcat-fieldname   = &1.
    ls_fieldcat-ref_tabname = 'KNA1'.
    ls_fieldcat-do_sum      = &2.
    ls_fieldcat-cfieldname  = &3.
    ls_fieldcat-seltext_m   = &4.
    ls_fieldcat-no_zero     = 'X'.
    append ls_fieldcat to lt_fieldcat.
  END-OF-DEFINITION.

  DEFINE m_sort.
    add 1 to ls_sort-spos.
    ls_sort-fieldname = &1.
    ls_sort-up        = 'X'.
    ls_sort-subtot    = &2.
    append ls_sort to lt_sort.
  END-OF-DEFINITION.

  DATA:
    ls_fieldcat TYPE slis_fieldcat_alv,
    lt_fieldcat TYPE slis_t_fieldcat_alv,
    lt_sort     TYPE slis_t_sortinfo_alv,
    ls_sort     TYPE slis_sortinfo_alv,
    ls_layout   TYPE slis_layout_alv.

  m_fieldcat 'LAND1' ''  '' 'Ñòðàíà'.
  m_fieldcat 'REGIO' ''  '' 'Ðåãèîí'.
  m_fieldcat 'ORT01' ''  '' 'Ãîðîä'.
  m_fieldcat 'NAME1' ''  '' 'Äåáèòîð'.
  m_fieldcat 'WRBTR' 'X' 'WAERS' 'Ñóììà'.
  m_fieldcat 'WAERS' ''  '' 'Âàëþòà'.

  m_sort 'LAND1' 'X'.
  m_sort 'REGIO' 'X'.
  m_sort 'ORT01' 'X'.
  m_sort 'NAME1' ''.

  ls_layout-cell_merge = 'X'.
  ls_layout-numc_sum = 'X'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            is_layout   = ls_layout
            it_fieldcat = lt_fieldcat
            it_sort     = lt_sort
       TABLES
            t_outtab    = wa_kna1.
endform.

m_fieldcat 'WRBTR' 'X' 'WAERS' 'Ñóììà'

  m_fieldcat 'WRBTR' 'X' 'WAERS' 'Noiia'.

  DEFINE m_fieldcat.
...
    ls_fieldcat-cfieldname  = &3.
...
  END-OF-DEFINITION.

DATA:
      BEGIN OF wa_kna1 OCCURS 0,
        kunnr LIKE kna1-kunnr,
        land1 LIKE kna1-land1,
        regio LIKE kna1-regio,
        ort01 LIKE kna1-ort01,
        name1 LIKE kna1-name1,
        wrbtr LIKE vbak-netwr,"kna1-umsa1,
        waers LIKE vbak-waerk,"kna1-uwaer,
      END OF wa_kna1.

TYPES: ty_kna1 LIKE wa_kna1.

...

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
     i_program_name               = sy-repid
   I_INTERNAL_TABNAME           = 'WA_KNA1'
     i_inclname                   = sy-repid
    CHANGING
      ct_fieldcat                  = lt_fieldcat[]

... изменяйте что вам надо

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      is_layout   = ls_layout
      it_fieldcat = lt_fieldcat
      it_sort     = lt_sort
    TABLES
      t_outtab    = wa_kna1.