do_sum

[Former Member]

WHEN I AM USING THE do_sum option = x

in the fieldcatalog

then the standard alv summation facility is not coming

can u tell me what value should be given to this

[former_member156446]

do_sum = 'X'.

[prasanth_kasturi]

hi,

give in single qoutes and capitals

do_sum = 'X'.

regards

prasanth

[Former Member]

i have done exactly thjis

but still the standard alv summation functionality is not coming why?

[Former Member]

Hi,

Have a look on the following code.I got symbol on standard tool bar as well as sum at the last for particular column.

TABLES vbak.

TYPE-POOLS slis.

• Data Declaration

TYPES: BEGIN OF t_vbak,

vbeln TYPE vbak-vbeln,

erdat TYPE vbak-erdat,

ernam TYPE vbak-ernam,

audat TYPE vbak-audat,

vbtyp TYPE vbak-vbtyp,

netwr TYPE vbak-netwr,

vkorg TYPE vbak-vkorg,

vkgrp TYPE vbak-vkgrp,

rn TYPE i,

END OF t_vbak.

DATA it_vbak TYPE STANDARD TABLE OF t_vbak INITIAL SIZE 0

WITH HEADER LINE.

• ALV Data Declaration

DATA: fldcat TYPE slis_t_fieldcat_alv,

w_fldcat TYPE slis_fieldcat_alv,

gd_layout TYPE slis_layout_alv,

gd_repid TYPE sy-repid.

SELECT-OPTIONS: vbeln FOR vbak-vbeln.

START-OF-SELECTION.

PERFORM data_retrieval.

END-OF-SELECTION.

PERFORM bld_fldcat.

PERFORM bld_layout.

PERFORM display_alv_report.

• Build Field Catalog for ALV Report

FORM bld_fldcat.

w_fldcat-fieldname = 'VBELN'.

w_fldcat-seltext_m = 'Sales_Document'.

w_fldcat-col_pos = 1.

w_fldcat-emphasize = 'C411'.

• w_fldcat-checkbox = 'X'.

• w_fldcat-edit = 'X'.

*CXYZ: C=COLOR,X=COLOR NUMBER(1-9),Y=BOLD(0/1),Z=INVERSE(0/1)

w_fldcat-outputlen = 10.

w_fldcat-key = 'X'.

w_fldcat-icon = 'X'.

APPEND w_fldcat TO fldcat.

CLEAR w_fldcat.

w_fldcat-fieldname = 'ERDAT'.

w_fldcat-seltext_l = 'Record_Date_created'.

w_fldcat-col_pos = 2.

w_fldcat-key = 'X'.

APPEND w_fldcat TO fldcat.

CLEAR w_fldcat.

w_fldcat-fieldname = 'ERNAM'.

w_fldcat-seltext_l = 'Cteated_Person_Name'.

w_fldcat-col_pos = 3.

w_fldcat-emphasize = 'C011'.

APPEND w_fldcat TO fldcat.

CLEAR w_fldcat.

w_fldcat-fieldname = 'AUDAT'.

w_fldcat-seltext_m = 'Document_Date'.

w_fldcat-col_pos = 4.

w_fldcat-emphasize = 'C110'.

APPEND w_fldcat TO fldcat.

CLEAR w_fldcat.

w_fldcat-fieldname = 'VBTYP'.

w_fldcat-seltext_l = 'SDDocument_category'.

w_fldcat-col_pos = 5.

APPEND w_fldcat TO fldcat.

CLEAR w_fldcat.

w_fldcat-fieldname = 'NETWR'.

w_fldcat-seltext_l = 'Net_Value'.

w_fldcat-col_pos = 6.

w_fldcat-outputlen = 10.

w_fldcat-do_sum = 'X'.

w_fldcat-datatype = 'CURR'.

APPEND w_fldcat TO fldcat.

CLEAR w_fldcat.

w_fldcat-fieldname = 'VKORG'.

w_fldcat-seltext_l = 'Sales_Organization'.

w_fldcat-col_pos = 7.

APPEND w_fldcat TO fldcat.

CLEAR w_fldcat.

w_fldcat-fieldname = 'VKGRP'.

w_fldcat-seltext_m = 'Sales_Group'.

w_fldcat-col_pos = 8.

w_fldcat-emphasize = 'C801'.

APPEND w_fldcat TO fldcat.

CLEAR w_fldcat.

w_fldcat-fieldname = 'RN'.

w_fldcat-seltext_s = 'RN'.

w_fldcat-col_pos = 0.

APPEND w_fldcat TO fldcat.

CLEAR w_fldcat.

ENDFORM. "BLD_FLDCAT

• Build Layout for ALV Grid Report

FORM bld_layout.

gd_layout-no_input = 'X'.

gd_layout-colwidth_optimize = 'X'.

*GD_LAYOUT-NO_SCROLLING = 'X'.

*GD_LAYOUT-BOX_FIELDNAME = 'VBELN'.

ENDFORM. "BLD_LAYOUT

• Display report using ALV grid

FORM display_alv_report.

gd_repid = sy-repid.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = gd_repid

is_layout = gd_layout

i_callback_top_of_page = 'TOP_OF_PAGE'

it_fieldcat = fldcat[]

i_save = 'X'

TABLES

t_outtab = it_vbak

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.

ENDFORM. "DISPLAY_ALV_REPORT

• Retrieve data from VBAK table and populate itab IT_VBAK

FORM data_retrieval.

SELECT vbeln erdat ernam audat vbtyp netwr vkorg

FROM vbak

INTO TABLE it_vbak

WHERE vbeln IN vbeln.

LOOP AT it_vbak.

it_vbak-rn = sy-tabix.

MODIFY it_vbak INDEX sy-tabix.

ENDLOOP.

ENDFORM. "DATA_RETRIEVAL

FORM TOP_OF_PAGE.

DATA: T_HEADER TYPE SLIS_T_LISTHEADER,

W_HEADER TYPE SLIS_LISTHEADER.

W_HEADER-TYP = 'H'.

W_HEADER-INFO = 'WELCOME HEADER LIST'.

APPEND W_HEADER TO T_HEADER.

W_HEADER-TYP = 'S'.

W_HEADER-KEY = 'REPORT:'.

W_HEADER-INFO = SY-REPID.

APPEND W_HEADER TO T_HEADER.

W_HEADER-TYP = 'S'.

W_HEADER-KEY = 'DATE:'.

CONCATENATE SY-DATUM4(2) ' / ' SY-DATUM6(2) ' / '

SY-DATUM(4) INTO W_HEADER-INFO.

APPEND W_HEADER TO T_HEADER.

CLEAR W_HEADER.

W_HEADER-TYP = 'S'.

W_HEADER-KEY = 'Page_No:'.

W_HEADER-INFO = SY-PAGNO.

APPEND W_HEADER TO T_HEADER.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = T_HEADER.

ENDFORM.

Reward,if useful.

Thanks,

Chandu