Text for subtotal

Question

Hi,
I'm unable to display subtotal text in the following report.
Kindly help me out.
REPORT ZXY NO STANDARD PAGE HEADING LINE-SIZE 255
                                                         LINE-COUNT 65(3).
TABLES     : bsik, bkpf,lfa1 .
TYPE-POOLS : slis.
DATA:  it_fldcat TYPE slis_t_fieldcat_alv,
       wa_fldcat TYPE slis_fieldcat_alv.
Data : begin of itab1 occurs 0,
        bvorg like bkpf-bvorg,                         "Company Code
        bukrs like bsik-bukrs,                         "Paying company code
        hkont like bsik-hkont,                         "G/L account number
        budat like bsik-budat,                         "Posting date
        bldat like bsik-bldat,                         "Invoice date
        wrbtr like bsik-wrbtr,                         "Amount
        waers like bsik-waers,                         "Currency
        ktokk like lfa1-ktokk,                         " Vendor account group.
        glcode ,
  subacc ,
       End of itab1.
Selection-screen : Begin of block b1 with frame title text-001.
      select-options : s_hkont for bsik-hkont,
      s_budat for bsik-budat,
      s_bldat for bsik-bldat.
Selection-screen : End of block b1.
select a~bukrs
a~hkont
a~budat
a~bldat
a~wrbtr
a~waers
b~ktokk
c~bvorg
into corresponding fields of table itab1 from bsik as a
inner join lfa1 as b on alifnr = blifnr inner join bkpf
     as c on cbukrs = abukrs where a~budat in s_budat
    and ahkont in s_hkont and abldat in s_bldat.
   sort itab1 by BUDAT.
   DELETE ADJACENT DUPLICATES FROM itab1 COMPARING BUDAT.
  DEFINE bld_fcat.                  "Macro to create manual field catalog
    wa_fldcat-col_pos = &1.
    wa_fldcat-fieldname = &2.
    wa_fldcat-outputlen = &3.
    wa_fldcat-seltext_l = &4.
    wa_fldcat-ddictxt = &5.
    append wa_fldcat to it_fldcat.
    clear wa_fldcat.
  END-OF-DEFINITION.
  bld_fcat 1 'BVORG' 10 'Dupont Company code' 'L'.
  bld_fcat 2 'HKONT' 10 'General Ledger Account' 'L'.
  bld_fcat 3 'BUDAT' 8 'Posting Date' 'L'.
  bld_fcat 4 'GLCODE' 10 'G/L Account Code' 'L'.
  bld_fcat 5 'SUBACC' 10 'Sub Account' 'L'.
  bld_fcat 6 'BLDAT' 8 'Invoice Date' 'L'.
  bld_fcat 7 'WAERS' 5 'Currency Key' 'L'.
  bld_fcat 8 'KTOKK' 4 'Vendor Account Group' 'L'.
  bld_fcat 9 'WRBTR' 13 'Amount in Document Currency' 'L'.
LOOP AT it_fldcat INTO wa_fldcat.
    IF wa_fldcat-fieldname = 'LIFNR'.
      wa_fldcat-key = 'X'.
    ELSEIF wa_fldcat-fieldname = 'WRBTR'.
      wa_fldcat-do_sum = 'X'.
    ENDIF.
    MODIFY it_fldcat FROM wa_fldcat.
    CLEAR wa_fldcat.
  ENDLOOP.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program                = sy-repid
      it_fieldcat   = it_fldcat     "fieldcatalog
     it_sort       = it_sort[]     "Sort
     it_events     = it_events
    TABLES
      t_outtab      = itab1    "internal table to output
    EXCEPTIONS
      program_error = 1
      OTHERS        = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
Thanks,
Shilpa

Answer 1

hi ,
Pass layout structure to alv display FM
FORM ZF_LAYOUT .
  CLEAR WA_LAYOUT.
WA_LAYOUT-ZEBRA = 'X'.
  WA_LAYOUT-LIGHTS_FIELDNAME = 'V_LIGHTS'.      "Light
  WA_LAYOUT-LIGHTS_TABNAME   = 'IT_HEAD_DETAIL'.
  WA_LAYOUT-BOX_FIELDNAME = 'V_BOX'.           "Check box
  WA_LAYOUT-BOX_TABNAME   = 'IT_HEAD_DETAIL'.
  wa_layout-coltab_fieldname = 'V_COL'. " Colors
  WA_LAYOUT-TOTALS_TEXT = 'Total'.    "TEXT at TOTAL
  WA_LAYOUT-SUBTOTALS_TEXT = 'Sub'.   "TEXT AT SUB Total
ENDFORM.                    " zf_layout
Reward if helpful...
Gaurav J.