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
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
Bluesky
