text for subtotal

Former Member — Mon, 04 Feb 2008 07:41:43 GMT

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 a_{lifnr = b}lifnr inner join bkpf

as c on c_{bukrs = a}bukrs where a~budat in s_budat

and a_{hkont in s_hkont and a}bldat 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

Re: text for subtotal

Former Member — Mon, 04 Feb 2008 08:27:04 GMT

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.

topic text for subtotal in Application Development and Automation Discussions

text for subtotal

Re: text for subtotal