Displaying percentage total in ALV

Hi,
We have a requirement where we have to display a percentage value along with the subtotal and the totals. We are doing the subtotal using the sort table LVC_S_SORT-SUBTOT. Is there any way for displaying the percentage value in the same line item as that of the subtotal in the ALV.

Hello Nanda
Have you tried to fill the calculated percentage value into field LVC_S_SORT-SELTEXT? Perhaps it may work.
Regards
Uwe

Similar Messages

Regarding sub totaling in alv

hi,
i am making report in alv in which i have to display the sub totals and den full total.
is it possible to display sub total in ALV acccording to material type wise or itemid wise.
plzz help me with some example.
If find useful he or she will definately rewarded.........

Hi,
The following example for sub totall for ALV report..
u have to pass do_sum = 'X'. for perticuler fileds.
if it is use full answer reward me a points..
*& Report ZDEL_ALV1
*Description: This ALV interactive report is display Delivary
 status
REPORT zdel_alv1 NO STANDARD PAGE HEADING LINE-SIZE 255 LINE-COUNT 60.
*TABLE DECLARATION
TABLES : likp, "Delivery Header Data
 lips, "Delivery item Data
 vbup. "sales document item status
TYPE-POOLS : slis.
*SRUCTURE DECLARATION
*THIS TABLE FOR HEADER DETAILS
TYPES : BEGIN OF t_likp ,
 vbeln LIKE likp-vbeln, "Delivery number
 kosta like vbup-kosta,
 kunnr LIKE likp-kunnr, "Customer number
 wadat LIKE likp-wadat, "Planned goods movement date
 ernam LIKE likp-ernam, "Name of person
 vkorg LIKE likp-vkorg, "Sales organization
 lfart LIKE likp-lfart, "DELIVERY TYPE
 ntgew LIKE likp-ntgew, "NET WEIGHT
 END OF t_likp.
*THIS TABLE FOR ITEM DETAILS
TYPES : BEGIN OF t_lips ,
 vbeln LIKE lips-vbeln, "Delivery number
 posnr LIKE lips-posnr, "delivery item
 matnr LIKE lips-matnr, "Material number
 lfimg LIKE lips-lfimg, "Actual quantity delivered
 ntgew LIKE lips-ntgew, "Net weight
 exbwr LIKE lips-exbwr, "Externally entered posting amount
 arktx LIKE lips-arktx, "Short text SO Item
 END OF t_lips.
*THIS IS FOR FINAL OUTPUT
TYPES : BEGIN OF t_vbup ,
 vbeln LIKE likp-vbeln, "Delivery number
 kosta LIKE vbup-kosta, "Picking status/Putaway status
 posnr LIKE vbup-posnr, "delivery item
 matnr LIKE lips-matnr, "Material number
 lfimg LIKE lips-lfimg, "Actual quantity delivered
 ntgew LIKE lips-ntgew, "Net weight
 exbwr LIKE lips-exbwr, "Externally entered posting amount
 arktx LIKE lips-arktx, "SHORT text SO Item
 description(20), "for display text
 END OF t_vbup.
*INTERNAL TABLES
DATA : i_likp TYPE STANDARD TABLE OF t_likp.
DATA : i_lips TYPE STANDARD TABLE OF t_lips.
DATA : i_vbup TYPE STANDARD TABLE OF t_vbup.
DATA : repid LIKE sy-repid.
DATA : delivar1(10) TYPE c.
*WORK AREA
DATA : wa_likp TYPE t_likp.
DATA : wa_lips TYPE t_lips.
DATA : wa_vbup TYPE t_vbup.
DATA: i_vbup1 LIKE wa_vbup OCCURS 0 WITH HEADER LINE.
*SLIS TABLE DECLARATIONS
DATA: i_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
 i_events TYPE slis_t_event,
 w_events TYPE slis_alv_event,
 i_fieldcat1 TYPE slis_t_fieldcat_alv WITH HEADER LINE,
 i_layout TYPE slis_layout_alv.
*SELECTING RANGE OF VALUES
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_vbeln FOR likp-vbeln,
 s_kunnr FOR likp-kunnr,
 s_wadat FOR likp-wadat.
SELECTION-SCREEN END OF BLOCK b1 .
*CHOOSE ONE CHECK BOX FOR DISPLAYING THE DELIVARY STATUS
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS : cb_kostc AS CHECKBOX,"DEFAULT 'X',
 cb_kosta AS CHECKBOX,
 cb_kostb AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b2.
*INTIALIZATION CHECK
INITIALIZATION.
repid = sy-repid.
*START-OF-SELECTION
START-OF-SELECTION.
PERFORM get_data.
PERFORM get_field.
PERFORM GET_EVENTS.
PERFORM display.
*END-OF-SELECTION
END-OF-SELECTION.
*& Form RUCOMM
 This form getting details from lips table for displaying
 the item details and all select statements for delivary status
 -->R_UCOMM text
 -->RS_SELFIELDtext
FORM user_command USING r_ucomm LIKE sy-ucomm rs_selfield TYPE
 slis_selfield.
IF rs_selfield-fieldname = 'VBELN'.
 delivar1 = rs_selfield-value.
ENDIF.
IF cb_kostc = 'X'.
SELECT VBELN KOSTA FROM VBUP
INTO TABLE I_VBUP
WHERE VBELN IN DELIVAR
AND KOSTA = 'C'.
SELECT VBELN MATNR LFIMG EXBWR INTO TABLE I_LIPS FROM LIPS
 WHERE VBELN EQ DELIVAR1.
 REFRESH i_vbup1[].
 CLEAR i_vbup1.
 SELECT avbeln akosta bposnr bmatnr blfimg bntgew b~exbwr
 b~arktx
 INTO TABLE i_vbup
 FROM vbup AS a INNER JOIN lips AS b
 ON avbeln = bvbeln
 WHERE a~vbeln EQ delivar1
 AND kosta = 'C'.
ELSEIF cb_kosta = 'X'.
SELECT VBELN KOSTA FROM VBUP
INTO TABLE I_VBUP
WHERE VBELN IN DELIVAR
AND KOSTA = 'A'.
 SELECT avbeln akosta bposnr bmatnr blfimg bntgew b~exbwr
 b~arktx
 INTO TABLE i_vbup
 FROM vbup AS a INNER JOIN lips AS b
 ON avbeln = bvbeln
 WHERE a~vbeln EQ delivar1
 AND kosta = 'A'.
ELSEIF cb_kostb = 'X'.
 SELECT VBELN KOSTA FROM VBUP
INTO TABLE I_VBUP
WHERE VBELN IN DELIVAR
AND KOSTA = 'B'.
 SELECT avbeln akosta bposnr bmatnr blfimg bntgew b~exbwr
 b~arktx
 INTO TABLE i_vbup
 FROM vbup AS a INNER JOIN lips AS b
 ON avbeln = bvbeln
 WHERE a~vbeln EQ delivar1
 AND kosta = 'B'.
ENDIF.
CLEAR i_vbup1.
LOOP AT i_vbup INTO wa_vbup.
 i_vbup1-vbeln = wa_vbup-vbeln.
 i_vbup1-kosta = wa_vbup-kosta.
 IF wa_vbup-kosta = 'C'.
 i_vbup1-description = 'COMPLETELY PROCESSED'.
 ELSEIF wa_vbup-kosta = 'B'.
 i_vbup1-description = 'PARTIALLY PROCESSED'.
 ELSEIF wa_vbup-kosta = 'A'.
 i_vbup1-description = 'NOT YET PROCESSED'.
 ENDIF.
 i_vbup1-posnr = wa_vbup-posnr.
 i_vbup1-matnr = wa_vbup-matnr.
 i_vbup1-lfimg = wa_vbup-lfimg.
 i_vbup1-ntgew = wa_vbup-ntgew.
 i_vbup1-exbwr = wa_vbup-exbwr.
 i_vbup1-arktx = wa_vbup-arktx.
 APPEND i_vbup1 .
ENDLOOP.
SORT i_vbup1 BY vbeln matnr lfimg.
DELETE ADJACENT DUPLICATES FROM i_vbup1 COMPARING vbeln matnr lfimg.
SELECT VBELN MATNR LFIMG EXBWR INTO TABLE I_LIPS FROM LIPS
 WHERE VBELN EQ DELIVAR1.
*This function module for displaying the item details
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = repid
 it_fieldcat = i_fieldcat1[]
 i_callback_top_of_page = 'TOP_OF_PAGE'
 i_callback_user_command = 'USER_COMMAND1'
 it_events = i_events
 TABLES
 t_outtab = i_vbup1
 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.
CLEAR i_vbup1.
ENDFORM. "RUCOMM
*& Form USER_COMMAND1
 text
 -->R_UCOMM1 text
 -->RS_SELFIELDtext
FORM user_command1 USING r_ucomm1 LIKE sy-ucomm rs_selfield1 TYPE
 slis_selfield.
DATA: deliv(10) TYPE c.
IF rs_selfield1 = 'VBELN'.
 deliv = rs_selfield1-value.
ENDIF.
SET PARAMETER ID 'VL' FIELD delivar1.
CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN.
ENDFORM. "USER_COMMAND1
*& Form GET_DATA
 This form for getting the data from likp table
--> p1 text
<-- p2 text
FORM get_data .
SELECT VBELN KUNNR WADAT FROM LIKP INTO TABLE I_LIKP
 WHERE VBELN IN S_VBELN
 AND KUNNR IN S_KUNNR
 AND WADAT IN S_WADAT.
REFRESH i_likp[].
CLEAR i_likp.
IF cb_kostc = 'X' AND cb_kosta = ' ' AND cb_kostb = ''.
 SELECT avbeln akosta bkunnr bwadat bernam bvkorg blfart bntgew
 INTO TABLE i_likp
 FROM vbup AS a INNER JOIN likp AS b
 ON avbeln = bvbeln
 WHERE
 b~kunnr IN s_kunnr
 AND b~vbeln IN s_vbeln
 AND b~wadat IN s_wadat
 AND a~kosta = 'C'.
ELSEIF cb_kosta = 'X' AND cb_kostb = ' ' AND cb_kostc = ''.
 SELECT avbeln akosta bkunnr bwadat bernam bvkorg blfart bntgew
 INTO TABLE i_likp
 FROM vbup AS a INNER JOIN likp AS b
 ON avbeln = bvbeln
 WHERE
 b~kunnr IN s_kunnr
 AND b~vbeln IN s_vbeln
 AND b~wadat IN s_wadat
 AND a~kosta = 'A'.
ELSEIF cb_kostb = 'X' AND cb_kosta = '' AND cb_kostc = ''.
 SELECT avbeln akosta bkunnr bwadat bernam bvkorg blfart bntgew
 INTO TABLE i_likp
 FROM vbup AS a INNER JOIN likp AS b
 ON avbeln = bvbeln
 WHERE
 b~kunnr IN s_kunnr
 AND b~vbeln IN s_vbeln
 AND b~wadat IN s_wadat
 AND kosta = 'B'.
ELSEIF cb_kostc = 'X' AND cb_kosta = 'X' AND cb_kostb = 'X'.
 SELECT avbeln akosta bkunnr bwadat bernam bvkorg blfart bntgew
 INTO TABLE i_likp
 FROM vbup AS a INNER JOIN likp AS b
 ON avbeln = bvbeln
 WHERE
 b~kunnr IN s_kunnr
 AND b~vbeln IN s_vbeln
 AND b~wadat IN s_wadat
 AND kosta NE ' '.
ENDIF.
DELETE ADJACENT DUPLICATES FROM i_likp.
ENDFORM. " GET_DATA
*& Form GET_FIELD
 This form for defining the every fields from likp & lips tables
FORM get_field .
*This fields are retrieving from header table(likp)
CLEAR i_fieldcat.
i_fieldcat-fieldname = 'VBELN'.
i_fieldcat-seltext_m = 'SALES ORDER NO'.
APPEND i_fieldcat TO i_fieldcat.
CLEAR i_fieldcat.
i_fieldcat-fieldname = 'KUNNR'.
i_fieldcat-seltext_m = 'CUSTOMER NO'.
APPEND i_fieldcat TO i_fieldcat.
CLEAR i_fieldcat.
i_fieldcat-fieldname = 'WADAT'.
i_fieldcat-seltext_m = 'DATE'.
APPEND i_fieldcat TO i_fieldcat.
CLEAR i_fieldcat.
i_fieldcat-fieldname = 'ERNAM'.
i_fieldcat-seltext_m = 'NAME OF PERSON'.
APPEND i_fieldcat TO i_fieldcat.
CLEAR i_fieldcat.
i_fieldcat-fieldname = 'VKORG'.
i_fieldcat-seltext_m = 'SALES ORGANIZATION'.
APPEND i_fieldcat TO i_fieldcat.
CLEAR i_fieldcat.
i_fieldcat-fieldname = 'LFART'.
i_fieldcat-seltext_m = 'DELIVERY TYPE'.
APPEND i_fieldcat TO i_fieldcat.
CLEAR i_fieldcat.
i_fieldcat-fieldname = 'NTGEW'.
i_fieldcat-seltext_m = 'NET WEIGHT'.
i_fieldcat-do_sum = 'X'.
APPEND i_fieldcat TO i_fieldcat.
CLEAR i_fieldcat.
*This fields are retrieving from item table(lips)
CLEAR i_fieldcat1.
i_fieldcat1-fieldname = 'VBELN'.
i_fieldcat1-seltext_m = 'DELIVAR NO'.
APPEND i_fieldcat1 TO i_fieldcat1.
CLEAR i_fieldcat1.
i_fieldcat1-fieldname = 'POSNR'.
i_fieldcat1-seltext_m = 'DELIVERY ITEM'.
APPEND i_fieldcat1 TO i_fieldcat1.
CLEAR i_fieldcat1.
i_fieldcat1-fieldname = 'MATNR'.
i_fieldcat1-seltext_m = 'MATERIAL NO'.
APPEND i_fieldcat1 TO i_fieldcat1.
CLEAR i_fieldcat1.
i_fieldcat1-fieldname = 'LFIMG'.
i_fieldcat1-seltext_m = 'ACTUAL QUANTITY'.
i_fieldcat1-do_sum = 'X'.
APPEND i_fieldcat1 TO i_fieldcat1.
CLEAR i_fieldcat1.
i_fieldcat1-fieldname = 'NTGEW'.
i_fieldcat1-seltext_m = 'NET WEIGHT'.
i_fieldcat1-do_sum = 'X'.
APPEND i_fieldcat1 TO i_fieldcat1.
CLEAR i_fieldcat1.
i_fieldcat1-fieldname = 'EXBWR'.
i_fieldcat1-seltext_m = 'AMOUNT'.
APPEND i_fieldcat1 TO i_fieldcat1.
CLEAR i_fieldcat1.
i_fieldcat1-fieldname = 'ARKTX'.
i_fieldcat1-seltext_m = 'SHORT TEXT FOR so ITEM'.
APPEND i_fieldcat1 TO i_fieldcat1.
CLEAR i_fieldcat1.
i_fieldcat1-fieldname = 'DESCRIPTION'.
i_fieldcat1-seltext_m = 'PICKING STATUS'.
APPEND i_fieldcat1 TO i_fieldcat1.
CLEAR i_fieldcat1.
ENDFORM. " GET_FIELD
*& Form GET_EVENTS
 This form defining the events
*FORM GET_EVENTS .
CLEAR W_EVENTS.
W_EVENTS-NAME = 'USER_COMMAND'.
W_EVENTS-FORM = 'RUCOMM'.
APPEND W_EVENTS TO I_EVENTS.
*ENDFORM. " GET_EVENTS
*& Form DISPLAY
 This form is going to display header details from likp table
FORM display .
*This function module for displaying the header details
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = repid
 i_callback_top_of_page = 'TOP-OF-PAGE'
 i_callback_user_command = 'USER_COMMAND'
 it_fieldcat = i_fieldcat[]
 i_save = 'X'
 it_events = i_events
 TABLES
 t_outtab = i_likp
 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
*& Form TOP-OF-PAGE
 This form is going to display top-of-page header text
FORM top-of-page.
DATA: i_list_comments TYPE slis_t_listheader.
DATA: w_list_comments TYPE slis_listheader.
CLEAR: i_list_comments[].
w_list_comments-typ = 'H'. "H=Header, S=Selection, A=Action
w_list_comments-info = 'DELIVERY ORDER DETAILS'.
APPEND w_list_comments TO i_list_comments.
w_list_comments-typ = 'A'. " H = Header, S = Selection, A = Action
w_list_comments-info = 'Basic list'.
APPEND w_list_comments TO i_list_comments.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 i_logo = 'enjoy'
 it_list_commentary = i_list_comments.
ENDFORM. "TOP-OF-PAGE
*& Form TOP_OF_PAGE
 This form is going to display top-of-page item text
FORM top_of_page.
DATA: i_list_comments TYPE slis_t_listheader.
DATA: w_list_comments TYPE slis_listheader.
DATA : i_line LIKE w_list_comments-info.
CONCATENATE 'DELIVERY ITEM DETAILS :' delivar1 INTO i_line .
SEPARATED BY SPACE.
CLEAR: i_list_comments[].
w_list_comments-typ = 'H'. "H=Header, S=Selection, A=Action
w_list_comments-info = i_line.
APPEND w_list_comments TO i_list_comments.
w_list_comments-typ = 'A'. " H = Header, S = Selection, A = Action
w_list_comments-info = 'Secondary list'.
APPEND w_list_comments TO i_list_comments.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 i_logo = 'enjoy'
 it_list_commentary = i_list_comments.
ENDFORM. "TOP_OF_PAGE

Modify percentage total in Blocklist ALV

Hi Experts,
I want to modify the percentage total in the grand totals line.
for eg:
A B C
5 10 50 %
3 5 40%
Total
8 15 90%
Instead I want it to display : C = ( (15 - 8) / 15 ) * 100 = 46% .
The below code is working fine in case of ALV grid.
But how can I achieve the same in ALV BLOCKLIST . Please help.
FORM top_of_page .
*get global reference.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
IMPORTING
 E_GRID = lo_grid.
ET_FIELDCAT_LVC =
*get the subtotal
call method lo_grid->get_subtotals
 importing
 ep_collect00 = it_00.
change the data
ASSIGN it_00->* TO <ft_tab>.
LOOP AT <ft_tab> ASSIGNING <fs_tab>.
 ASSIGN COMPONENT 'VAR_PCT' OF STRUCTURE <fs_tab> TO <ff_field>.
 ASSIGN COMPONENT 'TOT_PLAN' OF STRUCTURE <fs_tab> to <fs_value1>.
 ASSIGN COMPONENT 'TOT_ACTUAL' OF STRUCTURE <fs_tab> to <fs_value2>.
 IF NOT <fs_value2> IS INITIAL.
 <ff_field> = ( ( <fs_value2> - <fs_value1> ) / <fs_value2> ) * 100.
 ENDIF.
ENDLOOP.
**Refresh the table display
CALL METHOD lo_grid->refresh_table_display
EXPORTING
 i_soft_refresh = 'X'.
ENDFORM.
Thanks,
Kiran

Hi Experts,
I want to modify the percentage total in the grand totals line.
for eg:
A B C
5 10 50 %
3 5 40%
Total
8 15 90%
Instead I want it to display : C = ( (15 - 8) / 15 ) * 100 = 46% .
The below code is working fine in case of ALV grid.
But how can I achieve the same in ALV BLOCKLIST . Please help.
FORM top_of_page .
*get global reference.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
IMPORTING
 E_GRID = lo_grid.
ET_FIELDCAT_LVC =
*get the subtotal
call method lo_grid->get_subtotals
 importing
 ep_collect00 = it_00.
change the data
ASSIGN it_00->* TO <ft_tab>.
LOOP AT <ft_tab> ASSIGNING <fs_tab>.
 ASSIGN COMPONENT 'VAR_PCT' OF STRUCTURE <fs_tab> TO <ff_field>.
 ASSIGN COMPONENT 'TOT_PLAN' OF STRUCTURE <fs_tab> to <fs_value1>.
 ASSIGN COMPONENT 'TOT_ACTUAL' OF STRUCTURE <fs_tab> to <fs_value2>.
 IF NOT <fs_value2> IS INITIAL.
 <ff_field> = ( ( <fs_value2> - <fs_value1> ) / <fs_value2> ) * 100.
 ENDIF.
ENDLOOP.
**Refresh the table display
CALL METHOD lo_grid->refresh_table_display
EXPORTING
 i_soft_refresh = 'X'.
ENDFORM.
Thanks,
Kiran

How to display total in ALV Header

How to display total in ALV Header?

Hi Venkey,
As far as your issue is concerned I would like to quote my perception.
Create a header internal table with title and number of records.
At the later part of your program you should have found the total number of records ,now assign it to the header internal table and print it.
For further clarification you can go check this link:
http://wiki.sdn.sap.com/wiki/display/ABAP/AddHeadertoALVreport
Thanks
P.Srikanth

Displaying the total no of records in ALV ouput.

Hi everybody,
I am displaying the output in ALV.
I want display the total number of records at the top of page.( before the columns).
Can any one throw light on this plz.
Karunakar reddy

To get the number of entries in your displayed table use:
DESCRIBE TABLE tab LINES wg_lines.
To display the value in a ALV Grid Control, use something like this:
DATA: sl_layout TYPE lvc_s_layo.
sl_layout-grid_title = wl_lines.
CALL METHOD og_alv->set_table_for_first_display
 EXPORTING
 is_layout = sl_layout
 ....
Regards,
Martin

Need to display grand total text in OOPS ABAP ALV report

Hi
I am using OOPS for alv display and need to display grand "total text" in any column in th eoutput display.
I know the procedure to display in ALV display. but dont have idea in OOPS. Please help.
Thanks
Amminesh.

hi,
follow this link for alv's with oop's oncept.
http://abapreports.blogspot.com/2008/06/alv-grid-display-with-oops.html
for calculating total to the specific field.....
while creating the fieldcatalog pass the value 'X' to field do_sum of lvc_t_fcat( field catalog).
data: fcat type lvc_t_fcat.
fcat-fieldname = <field-name>.
fcat-ref_table = <ref-tablename>.
fcat-ref_field = <ref-fieldname>.
fcat-do_sum = 'X'.
regards,
Ashok

Totas and sub totals in ALV grid display

Hi all,
how can I get the total for an integer field in internal table. I am using the following code, but unable to display the total. Can anyone give the reason for the same.
Thank you,
Usha
REPORT ZTEST_SUB .
TABLES : vbak.
TYPE-POOLS: slis.
SELECT-OPTIONS : s_vkorg FOR vbak-vkorg,
 s_kunnr FOR vbak-kunnr,
 s_vbeln FOR vbak-vbeln.
SELECTION-SCREEN : SKIP,
 BEGIN OF LINE,
 COMMENT 5(27) v_1 FOR FIELD p_max.
 PARAMETERS p_max(2) TYPE n DEFAULT '2' OBLIGATORY.
SELECTION-SCREEN END OF LINE.
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.
DATA: BEGIN OF gt_vbak OCCURS 0,
 vkorg LIKE vbak-vkorg,
 kunnr LIKE vbak-kunnr,
 vbeln LIKE vbak-vbeln,
 test type I,
 END OF gt_vbak.
START-OF-SELECTION.
PERFORM f_read_data.
loop at gt_vbak.
gt_vbak-test = 1.
modify gt_vbak.
endloop.
PERFORM f_display_data.
FORM f_read_data.
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_vbak
 FROM vbak UP TO p_max ROWS WHERE
 kunnr IN s_kunnr AND
 vbeln IN s_vbeln AND
 vkorg IN s_vkorg.
ENDFORM.
FORM f_display_data.
DEFINE m_fieldcat.
 add 1 to ls_fieldcat-col_pos.
 ls_fieldcat-fieldname = &1.
 ls_fieldcat-ref_tabname = 'VBAK'.
 ls_fieldcat-ref_FIELDname = &2.
 ls_fieldcat-do_sum = &3.
 ls_fieldcat-cfieldname = &4.
 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.
 ls_sort-group = '*'.
 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 'VKORG' 'VKORG' '' ''.
 m_fieldcat 'KUNNR' '' '' ''.
 m_fieldcat 'VBELN' '' '' ''.
 m_fieldcat 'TEST' '' 'X' ''.
 m_sort 'VKORG' ''.
 m_sort 'KUNNR' ''.
 m_sort 'VBELN' ''.
 m_sort 'TEST' 'X'.
 ls_layout-cell_merge = 'X'.
 LS_LAYOUT-WINDOW_TITLEBAR = 'test window'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
 IS_LAYOUT = ls_layout
 IT_FIELDCAT = lt_fieldcat
 IT_SORT = lt_sort
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
 T_OUTTAB = gt_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.

hi
REPORT ZTEST_SUB .
TABLES : vbak.
TYPE-POOLS: slis.
SELECT-OPTIONS : s_vkorg FOR vbak-vkorg,
s_kunnr FOR vbak-kunnr,
s_vbeln FOR vbak-vbeln.
SELECTION-SCREEN : SKIP,
BEGIN OF LINE,
COMMENT 5(27) v_1 FOR FIELD p_max.
PARAMETERS p_max(2) TYPE n DEFAULT '2' OBLIGATORY.
SELECTION-SCREEN END OF LINE.
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.
DATA: BEGIN OF gt_vbak OCCURS 0,
vkorg LIKE vbak-vkorg,
kunnr LIKE vbak-kunnr,
vbeln LIKE vbak-vbeln,
test type I,
END OF gt_vbak.
START-OF-SELECTION.
PERFORM f_read_data.
loop at gt_vbak.
gt_vbak-test = 1.
modify gt_vbak.
endloop.
PERFORM f_display_data.
FORM f_read_data.
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_vbak
FROM vbak UP TO p_max ROWS WHERE
kunnr IN s_kunnr AND
vbeln IN s_vbeln AND
vkorg IN s_vkorg.
ENDFORM.
FORM f_display_data.
DEFINE m_fieldcat.
add 1 to ls_fieldcat-col_pos.
ls_fieldcat-fieldname = &1.
ls_fieldcat-ref_tabname = 'VBAK'.
ls_fieldcat-ref_FIELDname = &2.
ls_fieldcat-do_sum = &3.
ls_fieldcat-cfieldname = &4.
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.
ls_sort-group = '*'.
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 'VKORG' 'VKORG' '' ''.
m_fieldcat 'KUNNR' '' '' ''.
m_fieldcat 'VBELN' '' '' ''.
m_fieldcat 'TEST' '' 'X' ''.
m_sort 'VKORG' ''.
m_sort 'KUNNR' ''.
 m_sort 'VBELN' 'X'.
*m_sort 'TEST' 'X'.
ls_layout-cell_merge = 'X'.
LS_LAYOUT-WINDOW_TITLEBAR = 'test window'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
IS_LAYOUT = ls_layout
IT_FIELDCAT = lt_fieldcat
IT_SORT = lt_sort
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = gt_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.
Message was edited by: Ashok Parupalli

Display the totals only at Material level in ALV

Hi........,
I am calculating the subtotals and totals. I am having the columns Company Code , Plant and Material etc.
First I did sort on table as :
gr_sorts = gr_table->get_sorts( ).
gr_sorts->add_sort( columnname = 'C_CODE' subtotal = abap_true ).
gr_sorts->add_sort( columnname = 'WERKS-WERKS' subtotal = abap_true ).
gr_sorts->add_sort( columnname = 'MATNR' subtotal = abap_true ).
After that I am doing the aggregation like this :
gr_agg = gr_table->get_aggregations( ).
gr_agg->add_aggregation( 'QUANTITY' ).
gr_agg->add_aggregation( 'QUANTITY1' ).
gr_agg->add_aggregation( 'DELTA' ).
It is displaying the totals and subtotals at each Company code , Plant and Material level.
But I want to display the totals only at Material level.
Guide me on the same.
Reply me as early as possible.
Thanx,
Jay
Edited by: Alvaro Tejada Galindo on Feb 14, 2008 11:08 AM

Replace your code for sorting
gr_sorts = gr_table->get_sorts( ).
gr_sorts->add_sort( columnname = 'C_CODE' subtotal = abap_true ).
gr_sorts->add_sort( columnname = 'WERKS-WERKS' subtotal = abap_true ).
gr_sorts->add_sort( columnname = 'MATNR' subtotal = abap_true ).
with the code given below.
gr_sorts = gr_table->get_sorts( ).
gr_sorts->add_sort( columnname = 'C_CODE' subtotal = abap_false ).
gr_sorts->add_sort( columnname = 'WERKS-WERKS' subtotal = abap_false ).
gr_sorts->add_sort( columnname = 'MATNR' subtotal = abap_true ).
Hope this helps. Reward points if helpful.
Thanks,
Balaji

Sub total wise Grand total in ALV report

Dear All,
I am displaying a list of material through material group wise so for each material i want to display sub-total for stock and grand total of stock(material group wise).Here it is adding up all the stock displayed for different AUOM(alternative unit of measure ) which is for same material so i want to pick only the sub-total and sum up in my Grand total.
How to pick only the Sub-total Results and Add in ALV List for Grand total.
Thanks & Regards,
Arun.
Edited by: Arun Kumaran on Sep 24, 2008 7:46 AM

Hi arun,
check these links
total and subtotal in alv
ALV SUBTOTAL
Regards,
Anirban

Problem displaying drill down STANDARD ALV for a particular record after pressing back button

I have a simple interactive ALV grid report. NOT 'OO'. It display correctly on initial execution. AT the moment, 6 records. I want it to work such that if i click record '1', a drill-down version of that ALV with only that one record clicked is displayed. This currently occurs correctly. The problem arises when i click the back button and want to click on a new record, say in the 2nd row..this new 2nd row record is not displayed. The first one is displayed again. I tried clearing and fiddling around but then the last record is displayed. I have used the 'ID' field as a 'hotspot' getting picked up by sy-tabindex. Maybe it could be that i shouldn't loop and use a work area e.g in my select statement. i'm not so sure i've looked around, and tried a few things. I can't get it right yet. My code is below:
*& Report ZALV
REPORT ZALV.
TABLES: ZCONTACT.
TYPE-POOLS: slis. "slis contains all of the ALV data types.
TYPES: BEGIN OF ty_zcontact.
         INCLUDE STRUCTURE zcontact.
TYPES: icon TYPE char4, "field holding traffic light value- adding a column to internal table to hold the traffic light
         END OF ty_zcontact.
DATA: "fieldcatALOG TYPE slis_t_fieldcat_alv WITH HEADER LINE,
       it_zcontact TYPE TABLE OF ty_zcontact,"declares an internal table of type ZCONTACT
       wa_zcontact TYPE ty_zcontact,
       gd_layout TYPE slis_layout_alv,
       gd_repid LIKE sy-repid,
       g_variant TYPE disvariant,
       gx_variant TYPE disvariant,
       g_save TYPE c VALUE 'X',
       it_fieldcat TYPE slis_t_fieldcat_alv,"declares field catalog table of line type alv
       wa_fieldcat TYPE slis_fieldcat_alv, "declares the work area of the field catalog
       it_list_top_of_page TYPE slis_t_listheader.
DATA: it_fieldcat1 TYPE slis_t_fieldcat_alv,
       wa_fieldcat1 TYPE slis_fieldcat_alv.
DATA: V_FIELD(30) TYPE C,
V_VALUE(10) TYPE C.
       "izontact TYPE TABLE OF zcontact.
        "i_logo TYPE OT.
       "ls_layout TYPE slis_layout_alv.
**Selection Screen details
*SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
*PARAMETERS: variant like disvariant-variant.
*SELECTION-SCREEN END OF BLOCK B1.
SELECT-OPTIONS:
age FOR wa_zcontact-age,
lastnme FOR wa_zcontact-lastname.
**Getting default variant
* AT SELECTION-SCREEN ON age.
*    SELECT SINGLE age FROM zcontact INTO wa_zcontact-age WHERE age = age.
* IF sy-subrc NE 0.
*    MESSAGE:'That age does not exist mate, Please enter another age' TYPE 'E'.
*    ENDIF.
INITIALIZATION.
*gx_variant-report = sy-repid.
*CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
*EXPORTING
* I_SAVE = G_SAVE
* CHANGING
*    CS_VARIANT = GX_VARIANT
* EXCEPTIONS
*    NOT_FOUND = 2.
*IF SY-SUBRC = 0.
* VARIANT = GX_VARIANT-VARIANT.
* ENDIF.
START-OF-SELECTION.
PERFORM DATA_RETRIEVAL.
PERFORM BUILD_FIELDCATALOG.
PERFORM DISPLAY_ALV_REPORT.
PERFORM top_of_page.
"g_repid = sy-repid.
*Fetch data from the database
FORM DATA_RETRIEVAL.
SELECT * FROM zcontact INTO TABLE it_zcontact WHERE age IN age AND lastname IN lastnme.
"assigning traffic light colour to each row based on a condition
* IF wa_zcontact-age GE 65.
*   wa_zcontact-icon = 1. "Red Traffic Light
*   ELSEIF wa_zcontact-age BETWEEN 40 AND 64.
*     wa_zcontact-icon = 2. "Yellow traffic light
*     ELSE.
*       wa_zcontact-icon = 3." Green traffic light
*       ENDIF.
*       MODIFY it_zcontact FROM wa_zcontact TRANSPORTING icon.
*       CLEAR wa_zcontact.
ENDFORM.
FORM BUILD_FIELDCATALOG.
*Build field catalog
wa_fieldcat-fieldname = 'ID'.
"wa_fieldcat-seltext_m = 'The Contact ID'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'LASTNAME'.
"wa_fieldcat-seltext_m = 'Contact Lastname'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'FIRSTNAME'.
"wa_fieldcat-seltext_m = 'Contact Firstname'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'DOB'.
"wa_fieldcat-seltext_m = 'Date Of Birth'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'TEL'.
"wa_fieldcat-seltext_m = 'Telephone Number'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'ADDRESS'.
"wa_fieldcat-seltext_m = 'The Address'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'OCCUPATION'.
"wa_fieldcat-seltext_m = 'The Occupation'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'WEIGHT'.
"wa_fieldcat-seltext_m = 'WEIGHT'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'AGE'.
"wa_fieldcat-seltext_m = 'AGE OF THE CONTACT'.
wa_fieldcat-do_sum   = 'X'.        "Display column total
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'SALARY'.
"wa_fieldcat-seltext_m = 'SALARY'.
wa_fieldcat-do_sum   = 'X'.
APPEND wa_fieldcat TO it_fieldcat.
gd_layout-lights_fieldname = 'ICON'.
ENDFORM.
FORM DISPLAY_ALV_REPORT.
gd_repid = sy-repid.
*Pass data and field catalog to ALV function module to display ALV list
   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
       it_fieldcat            = it_fieldcat
       i_callback_program     = gd_repid
       i_callback_top_of_page = 'TOP_OF_PAGE'
       i_callback_user_command = 'USER_COMMAND'
       i_structure_name       = 'ZCONTACT'
       i_save                 = 'X'
       is_variant             = g_variant
       is_layout     = gd_layout
TABLES
       t_outtab      = it_zcontact
EXCEPTIONS
       program_error = 1
       OTHERS        = 2.
ENDFORM.
FORM top_of_page.
*ALV Header declarations
   DATA: it_listheader TYPE slis_t_listheader,
         wa_listheader TYPE slis_listheader,
         t_line like wa_listheader-info,
         ld_lines TYPE I,
         ld_linesc(10) TYPE C.
wa_listheader-typ = 'H'.
wa_listheader-info = 'Contact Details'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info = sy-repid.
wa_listheader-key = 'Program Name:'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info = sy-uname.
wa_listheader-key = 'User Name:'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-key = 'Run Date :'.
CONCATENATE sy-datum+6(2)
             sy-datum+4(2)
             sy-datum(4)
             INTO wa_listheader-info
             SEPARATED BY '/'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-key = 'Time :'.
CONCATENATE sy-uzeit(2)
             sy-uzeit+2(2)
             sy-uzeit+4(2)
             INTO wa_listheader-info
             SEPARATED BY ':'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
   CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
     EXPORTING
       it_list_commentary = it_listheader
       i_logo = 'KLOGO'.
ENDFORM. "top_of_page
*& Form sub_user_command
FORM USER_COMMAND USING P_UCOMM TYPE SY-UCOMM
P_SELTAB TYPE SLIS_SELFIELD.
CASE P_UCOMM.
   WHEN '&IC1'.
CASE p_seltab-fieldname.
   WHEN 'ID'.
   READ TABLE it_zcontact INTO wa_zcontact INDEX p_seltab-tabindex.
   PERFORM DATA_RETRIEVAL1.
   PERFORM BUILD_FIELDCATALOG1.
   PERFORM SECOND_GRID.
   ENDCASE.
   ENDCASE.
ENDFORM. "
FORM DATA_RETRIEVAL1.
SELECT * FROM zcontact INTO TABLE it_zcontact WHERE id EQ wa_zcontact-id.
ENDFORM.
FORM BUILD_FIELDCATALOG1.
*Build field catalog
CLEAR: wa_fieldcat, it_fieldcat.
wa_fieldcat-fieldname = 'ID'.
"wa_fieldcat-seltext_m = 'The Contact ID'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'LASTNAME'.
"wa_fieldcat-seltext_m = 'Contact Lastname'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'FIRSTNAME'.
"wa_fieldcat-seltext_m = 'Contact Firstname'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
ENDFORM.
FORM SECOND_GRID.
   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     I_CALLBACK_PROGRAM = SY-REPID
     IT_FIELDCAT = IT_FIELDCAT
     i_structure_name       = 'ZCONTACT'
     i_callback_user_command = 'USER_COMMAND'
     TABLES
       T_OUTTAB = IT_ZCONTACT.
   ENDFORM.

Hi Ten Mariga,
                 I wonder why the second select Query is needed at all instead you can use
---> Not Needed
FORM DATA_RETRIEVAL1.
SELECT * FROM zcontact INTO TABLE it_zcontact WHERE id EQ wa_zcontact-id.
ENDFORM.
----> Instead you can do
   READ TABLE it_zcontact INTO wa_zcontact INDEX p_seltab-tabindex.
Append wa_zcontact to Second_table.
And you can use the Second_table to display the second ALV. The second Select Query will affect the performance too.
Cheers,
Krishnakumar B.

How to get sub totals in alv list

Hi all,
i have a data in internal table which need to display by alv lis display, but i need to display
sub totals, like sub total by customer, subtotal by state, and complete total amount. In alv we have standard function
buttons , by i need by default it is displayed when i exe my report, hope to achieve that.
Please help me to know.
thanks,
rajesh

hi Rajesh,
Check these threads out
http://www.sap-basis-abap.com/sapalv.htm
http://help.sap.com/saphelp_nw04/helpdata/en/ee/b99d37e188a049e10000009b38f8cf/content.htm
http://www.sapfans.com/forums/viewtopic.php?t=20386
http://www.sapfans.com/forums/viewtopic.php?t=85191
http://www.sapfans.com/forums/viewtopic.php?t=88401
http://www.sapfans.com/forums/viewtopic.php?t=17335
DATA SORTING AND SUBTOTAL
DATA: GS_SORT TYPE SLIS_SORTINFO_ALV.
CLEAR GS_SORT.
GS_SORT-FIELDNAME = 'FIELD1'.
GS_SORT-SPOS = 1.
GS_SORT-UP = 'X'.
GS_SORT-SUBTOT = 'X'.
APPEND GS_SORT TO GT_SORT.
CLEAR GS_SORT.
GS_SORT-FIELDNAME = 'FIELD2'.
GS_SORT-SPOS = 2.
GS_SORT-UP = 'X'.
*GS_SORT-SUBTOT = 'X'.
APPEND GS_SORT TO GT_SORT.
Regards,
Santosh

Total in ALV Grid

I have data like currency and amounts and i want to display that amount as a total in alv display..
i used do_sum = x whle building fieldcat but itsdisplaying it currencywise like sub total...instead i want to total for all currencies and display it..
please guide

See the following example in this example WAERS is CUKY type
DATA: BEGIN OF ITAB OCCURS 0,
       BELNR LIKE BSEG-BELNR,
       GJAHR TYPE I,
       WRBTR TYPE I,
       WAERS LIKE BKPF-WAERS,
       TOTAL TYPE P,
      END OF ITAB.
DATA: LAYOUT     TYPE SLIS_LAYOUT_ALV,
      IT_EVENTS TYPE SLIS_T_EVENT,
      FCAT       TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      REC_FCAT   TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
START-OF-SELECTION.
FCAT-COL_POS       = 1.
FCAT-FIELDNAME     = 'BELNR'.
FCAT-TABNAME       = 'ITAB'.
FCAT-REF_FIELDNAME = 'BELNR'.
FCAT-REF_TABNAME   = 'BSEG'.
APPEND FCAT.
FCAT-COL_POS       = 2.
FCAT-FIELDNAME     = 'GJAHR'.
FCAT-TABNAME       = 'ITAB'.
FCAT-REF_FIELDNAME = 'GJAHR'.
FCAT-DATATYPE      = 'INT4'.
FCAT-INTTYPE       = 'I'.
FCAT-DO_SUM        = 'X'.
APPEND FCAT.
FCAT-COL_POS       = 3.
FCAT-FIELDNAME     = 'WRBTR'.
FCAT-TABNAME       = 'ITAB'.
FCAT-DATATYPE      = 'INT4'.
FCAT-INTTYPE       = 'I'.
FCAT-DO_SUM        = 'X'.
APPEND FCAT.
FCAT-COL_POS       = 4.
FCAT-FIELDNAME     = 'TOTAL'.
FCAT-TABNAME       = 'ITAB'.
* FCAT-DATATYPE      = 'INT4'.
FCAT-INTTYPE       = 'P'.
FCAT-DO_SUM        = 'X'.
APPEND FCAT.
DO 10 TIMES.
    ITAB-WRBTR = SY-INDEX.
    ITAB-GJAHR = SY-INDEX + 1.
   ITAB-TOTAL = ITAB-WRBTR / ITAB-GJAHR.
    APPEND ITAB.
ENDDO.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
    EXPORTING
      I_CALLBACK_PROGRAM = 'Z_TOT_ALV'.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
    EXPORTING
      IS_LAYOUT   = LAYOUT
      IT_FIELDCAT = FCAT[]
      I_TABNAME   = 'ITAB'
      IT_EVENTS   = IT_EVENTS[]
    TABLES
      T_OUTTAB    = ITAB[].
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.
Edited by: kk.adhvaryu on Apr 5, 2010 9:23 AM

Totals and Sub-Totals in ALV GRID

Could anyone advice, how to display sub-totals and totals in ALV Grid(using FM).
Ex: value1 value2
 100 50
 200 50
 subtotal 300 100
 total 400
Thanks in advance...

Refer below demo code and see perform Sort_list..
it wil serve ur purpose.
REPORT ZGILL_ALV message-id rp .
type-pools slis.
tables: zgill_main,zgill_details.
data z_fieldcat type slis_t_fieldcat_alv.
data begin of itab occurs 0.
DATA ICON TYPE ICON-ID.
 include structure zgill_main.
data salary like zgill_details-salary.
data end of itab.
*data itab1 like table of itab with header line.
data : WA_SORT TYPE SLIS_SORTINFO_ALV,
 IT_SORT TYPE SLIS_T_SORTINFO_ALV,
 WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
 IT_FIELDTAB TYPE SLIS_T_FIELDCAT_ALV,
 WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
PARAMETERS: p_list radiobutton group A1,
 P_GRID RADIOBUTTON GROUP A1.
SELECT-OPTIONS: S_PERNR FOR ZGILL_MAIN-PERNR.
start-of-selection.
perform fill_itab.
perform sort_list.
**************Start of scenario without container******************************************
*********Method 1***********
perform fill_fieldcat. " Manuallly Preparing Fiedl Catalog
*********Method 2***********
*perform fill_fieldcat1 changing z_fieldcat. "Preparing field catalog with merge function
perform display_alv.
*****************end of scenario without container*****************************************
*& Form fill_itab
 text
--> p1 text
<-- p2 text
form fill_itab .
*select * from zgill_main up to 20 rows INTO CORRESPONDING FIELDS OF TABLE itab.
*ITAB1[] = ITAB[].
select apernr aname aorg adob b~salary INTO CORRESPONDING FIELDS OF TABLE itab
 from zgill_main as a join zgill_details as b on apernr = bpernr
 WHERE A~PERNR IN S_PERNR.
LOOP AT ITAB.
IF ITAB-PERNR < 1111.
ITAB-ICON = '@08@'.
ELSEIF ITAB-PERNR > 1111 AND ITAB-PERNR < 11111111.
ITAB-ICON = '@09@'.
ELSEIF ITAB-PERNR GE 11111111.
ITAB-ICON = '@0A@'.
ENDIF.
MODIFY ITAB INDEX SY-TABIX.
ENDLOOP.
endform. " fill_itab
*& Form display_alv
 text
--> p1 text
<-- p2 text
form display_alv .
data repid like sy-repid.
REPID = SY-REPID.
WA_LAYOUT-ZEBRA = 'X'.
WA_LAYOUT-WINDOW_TITLEBAR = 'GRID DISPLAY'.
WA_LAYOUT-SUBTOTALS_TEXT = 'SUBTOTAL'.
WA_LAYOUT-TOTALS_TEXT = 'TOTAL'.
IF P_GRID = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
 I_CALLBACK_PROGRAM = repid
 IT_FIELDCAT = IT_FIELDTAB
 IT_SORT = IT_SORT
 IS_LAYOUT = WA_LAYOUT
TABLES
 t_outtab = itab[]
EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 message e016 with 'Error in Display'.
ENDIF.
ELSEIF P_LIST = 'X'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
 I_CALLBACK_PROGRAM = repid
 IT_FIELDCAT = IT_FIELDTAB
 IT_SORT = IT_SORT
 IS_LAYOUT = WA_LAYOUT
TABLES
 t_outtab = itab[]
EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 message e016 with 'Error in Display'.
ENDIF.
ENDIF.
endform. " display_alv
*& Form fill_fieldcat1
 text
--> p1 text
<-- p2 text
form fill_fieldcat1 changing d_fcat type slis_t_fieldcat_alv.
data repid like sy-repid.
data d_fcat1 type slis_t_fieldcat_alv with header line.
REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
 I_PROGRAM_NAME = repid
 I_INTERNAL_TABNAME = 'ITAB'
 I_STRUCTURE_NAME = 'ZGILL_MAIN'
I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
CHANGING
 ct_fieldcat = d_fcat[]
EXCEPTIONS
 INCONSISTENT_INTERFACE = 1
 PROGRAM_ERROR = 2
 OTHERS = 3.
IF sy-subrc <> 0.
 message e016 with 'Error in preparing fiedl catalog'.
ENDIF.
loop at d_fcat into d_fcat1.
case d_fcat1-fieldname.
when 'NAME'.
d_fcat1-reptext_ddic = 'Emp Name'.
MODIFY D_FCAT FROM D_FCAT1.
WHEN 'PERNR'.
d_fcat1-reptext_ddic = 'Emp Num'.
MODIFY D_FCAT FROM D_FCAT1.
WHEN 'ORG'.
d_fcat1-reptext_ddic = 'Org Unit'.
MODIFY D_FCAT FROM D_FCAT1.
endcase.
clear d_fcat1.
endloop.
endform. " fill_fieldcat1
*& Form sort_list
 text
--> p1 text
<-- p2 text
form sort_list .
CLEAR WA_SORT.
WA_SORT-FIELDNAME = 'DOB'.
WA_SORT-SPOS = '1'.
WA_SORT-UP = 'X'.
WA_SORT-SUBTOT = 'X'.
APPEND WA_SORT TO IT_SORT.
CLEAR WA_SORT.
WA_SORT-FIELDNAME = 'NAME'.
WA_SORT-SPOS = '1'.
WA_SORT-UP = 'X'.
APPEND WA_SORT TO IT_SORT.
CLEAR WA_SORT.
endform. " sort_list
*& Form fill_fieldcat
 text
--> p1 text
<-- p2 text
form fill_fieldcat .
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'ITAB'.
WA_FIELDCAT-FIELDNAME = 'ICON'.
WA_FIELDCAT-SELTEXT_L = 'TRAFFIC'.
WA_FIELDCAT-ICON = 'X'.
WA_FIELDCAT-ddictxt = 'l'.
WA_FIELDCAT-COL_POS = 1.
WA_FIELDCAT-OUTPUTLEN = 10.
APPEND WA_FIELDCAT TO IT_FIELDTAB.
CLEAR WA_FIELDCAT .
WA_FIELDCAT-TABNAME = 'ITAB'.
WA_FIELDCAT-FIELDNAME = 'PERNR'.
WA_FIELDCAT-SELTEXT_L = 'EMP NUMBER'.
WA_FIELDCAT-ddictxt = 'l'.
WA_FIELDCAT-COL_POS = 2.
WA_FIELDCAT-OUTPUTLEN = 10.
APPEND WA_FIELDCAT TO IT_FIELDTAB.
CLEAR WA_FIELDCAT .
when 'maktx'.
WA_FIELDCAT-TABNAME = 'ITAB'.
WA_FIELDCAT-FIELDNAME = 'NAME'.
WA_FIELDCAT-SELTEXT_L = 'EMP NAME'.
WA_FIELDCAT-ddictxt = 'l'.
WA_FIELDCAT-COL_POS = 3.
WA_FIELDCAT-OUTPUTLEN = 15.
APPEND WA_FIELDCAT TO IT_FIELDTAB.
CLEAR WA_FIELDCAT .
WA_FIELDCAT-TABNAME = 'ITAB'.
WA_FIELDCAT-FIELDNAME = 'ORG'.
WA_FIELDCAT-SELTEXT_L = 'ORG UNIT'.
WA_FIELDCAT-COL_POS = 4.
WA_FIELDCAT-OUTPUTLEN = 10.
APPEND WA_FIELDCAT TO IT_FIELDTAB.
CLEAR WA_FIELDCAT .
WA_FIELDCAT-TABNAME = 'ITAB'.
WA_FIELDCAT-FIELDNAME = 'DOB'.
WA_FIELDCAT-SELTEXT_L = 'BIRTH DATE'.
WA_FIELDCAT-COL_POS = 5.
WA_FIELDCAT-OUTPUTLEN = 12.
APPEND WA_FIELDCAT TO IT_FIELDTAB.
CLEAR WA_FIELDCAT .
WA_FIELDCAT-TABNAME = 'ITAB'.
WA_FIELDCAT-FIELDNAME = 'SALARY'.
WA_FIELDCAT-SELTEXT_L = 'SALARY'.
WA_FIELDCAT-COL_POS = 6.
WA_FIELDCAT-OUTPUTLEN = 25.
WA_FIELDCAT-do_sum = 'X'.
APPEND WA_FIELDCAT TO IT_FIELDTAB.
endform. " fill_fieldcat

Display Traffic Lights in ALV TREE

Hi,
I have to display traffic light in ALV tree but i am not able to find out what parameter i should pass like in ALV grid where we can set is_layout (BCALV_GRID_04).
Thanks in advance.
Regards,
Harsh

Hi,
Please take a look at my code below. Hope it suits your requirement.
P.S. Please award points if it helps...
*& Report ZMM_R_PO_TO_IPURCH_XI
*& PROGRAM TYPE : Report
*& RICEF ID :
*& TITLE : ZMM_R_PO_TO_IPURCH_XI
*& SAP Module : MM
*& CREATION DATE : 02/06/2008
*& AUTHOR : Aris Hidalgo
*& DESIGNER : Aris Hidalgo
*& DESCRIPTION :
*$**********************************************************************
*$ CHANGE HISTORY
*$----------------------------------------------------------------------
*$ DATE | T-Num | Description | Reference
** | | |
*$**********************************************************************
REPORT zmm_r_po_to_ipurch_xi
 NO STANDARD PAGE HEADING
 MESSAGE-ID zmm.
* Data Dictionary Table/s *
TABLES: edidc.
* SELECTION-SCREEN *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_credat FOR edidc-credat OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: rb_sum RADIOBUTTON GROUP grp1,
 rb_det RADIOBUTTON GROUP grp1.
SELECTION-SCREEN END OF BLOCK b2.
*/ CLASS DEFINITION/S /*
* CLASS lcl_data_def DEFINITION
CLASS lcl_data_def DEFINITION ABSTRACT.
PUBLIC SECTION.
 TYPES: BEGIN OF t_edidc,
 docnum TYPE edidc-docnum,
 docrel TYPE edidc-docrel,
 status TYPE edidc-status,
 doctyp TYPE edidc-doctyp,
 direct TYPE edidc-direct,
 rcvpor TYPE edidc-rcvpor,
 rcvprt TYPE edidc-rcvprt,
 rcvprn TYPE edidc-rcvprn,
 rcvsad TYPE edidc-rcvsad,
 sndpor TYPE edidc-sndpor,
 sndprt TYPE edidc-sndprt,
 sndprn TYPE edidc-sndprn,
 sndsad TYPE edidc-sndsad,
 credat TYPE edidc-credat,
 cretim TYPE edidc-cretim,
 mestyp TYPE edidc-mestyp,
 idoctp TYPE edidc-idoctp,
 END OF t_edidc.
 TYPES: BEGIN OF t_output,
 exception TYPE char1,
 ebeln TYPE ekko-ebeln,
 lifnr TYPE lfa1-lifnr,
 name1 TYPE lfa1-name1,
 credat TYPE edidc-credat,
 cretim TYPE edidc-cretim,
 END OF t_output.
 TYPES: BEGIN OF t_ekko,
 ebeln TYPE ekko-ebeln,
 lifnr TYPE ekko-lifnr,
 END OF t_ekko.
 TYPES: BEGIN OF t_lfa1,
 lifnr TYPE lfa1-lifnr,
 name1 TYPE lfa1-name1,
 END OF t_lfa1.
 DATA: gt_edidc TYPE STANDARD TABLE OF t_edidc,
 gt_output TYPE STANDARD TABLE OF t_output,
 wa_output LIKE LINE OF gt_output,
 gt_ekko TYPE HASHED TABLE OF t_ekko
 WITH UNIQUE KEY ebeln,
 gt_lfa1 TYPE HASHED TABLE OF t_lfa1
 WITH UNIQUE KEY lifnr.
ENDCLASS. "lcl_data_def DEFINITION
CLASS lcl_alv_routines DEFINITION DEFERRED.
CLASS lcl_handle_events DEFINITION DEFERRED.
* CLASS lcl_get_data DEFINITION
CLASS lcl_get_data DEFINITION INHERITING FROM lcl_data_def.
PUBLIC SECTION.
 METHODS: get_idocs,
 read_idocs,
 process_data
 IMPORTING
 im_docnum TYPE edidc-docnum.
PRIVATE SECTION.
 CONSTANTS: lc_mestyp TYPE edidc-mestyp VALUE 'ZMARKETSITE_PURCHASE_ORDER',
 lc_idoctp TYPE edidc-idoctp VALUE 'ZMARKETSITE_PURCHASE_ORDER01',
 lc_segnam TYPE edid4-segnam VALUE 'ZMARKETSITE_ORDER_HEADER1'.
 CONSTANTS: lc_red TYPE i VALUE 1,
 lc_yellow TYPE i VALUE 2,
 lc_green TYPE i VALUE 3.
 DATA: lv_stat_message TYPE bdidocattr-message,
 o_lcl_alv_routines TYPE REF TO lcl_alv_routines.
 DATA: ls_idoc_control TYPE edidc,
 lv_tot_data_recs TYPE sy-dbcnt, "#EC NEEDED
 lv_tot_status_recs TYPE sy-dbcnt. "#EC NEEDED
 DATA: lt_edids TYPE STANDARD TABLE OF edids,
 lt_edidd TYPE STANDARD TABLE OF edidd.
ENDCLASS. "lcl_get_data DEFINITION
* CLASS lcl_alv_routines DEFINITION
CLASS lcl_alv_routines DEFINITION INHERITING FROM lcl_get_data.
PUBLIC SECTION.
 DATA: lcl_table TYPE REF TO cl_salv_table,
 lcl_container TYPE REF TO cl_gui_custom_container,
 lcl_handle_events TYPE REF TO lcl_handle_events,
 lcl_columns TYPE REF TO cl_salv_columns_table,
 lcl_column TYPE REF TO cl_salv_column_table,
 lcl_events2 TYPE REF TO cl_salv_events_table,
 lcl_display_settings TYPE REF TO cl_salv_display_settings,
 lcl_functions TYPE REF TO cl_salv_functions_list,
 lcl_display TYPE REF TO cl_salv_display_settings,
 lcl_aggregations TYPE REF TO cl_salv_aggregations,
 lcl_sorts TYPE REF TO cl_salv_sorts,
 lcl_content TYPE REF TO cl_salv_form_element,
 lcl_header TYPE REF TO cl_salv_form_header_info,
 ls_color TYPE lvc_s_colo.
 DATA: lcl_grid TYPE REF TO cl_salv_form_layout_grid,
 lcl_grid_1 TYPE REF TO cl_salv_form_layout_grid,
 lcl_grid_2 TYPE REF TO cl_salv_form_layout_grid,
 lcl_label TYPE REF TO cl_salv_form_label,"#EC NEEDED
 lcl_text TYPE REF TO cl_salv_form_text,
 gt_t247 TYPE STANDARD TABLE OF t247,
 wa_t247 LIKE LINE OF gt_t247,
 lv_text TYPE string.
 METHODS: display_data
 IMPORTING
 im_output LIKE gt_output,
 display_top_of_page.
PRIVATE SECTION.
 DATA: lv_string TYPE string,
 lv_date1 TYPE c LENGTH 10,
 lv_time TYPE c LENGTH 10,
 lv_title TYPE string.
ENDCLASS. "lcl_alv_routines DEFINITION
* CLASS lcl_handle_events DEFINITION
CLASS lcl_handle_events DEFINITION.
PUBLIC SECTION.
 METHODS:
 on_link_click FOR EVENT link_click OF cl_salv_events_table
 IMPORTING row column.
ENDCLASS. "lcl_handle_events DEFINITION
*/ IMPLEMENTATION/S /*
* CLASS lcl_get_data IMPLEMENTATION
CLASS lcl_get_data IMPLEMENTATION.
* METHOD get_idocs
METHOD get_idocs.
 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
* PERCENTAGE = 0
 text = text-p01.
 SELECT docnum docrel status doctyp
 direct rcvpor rcvprt rcvprn
 rcvsad sndpor sndprt sndprn
 sndsad credat cretim mestyp
 idoctp
 FROM edidc
 INTO TABLE gt_edidc
 WHERE mestyp = lc_mestyp
 AND idoctp = lc_idoctp
 AND credat IN s_credat.
 IF gt_edidc[] IS NOT INITIAL.
* Get IDOC details
 CALL METHOD me->read_idocs.
 ENDIF.
ENDMETHOD. "get_idocs
* METHOD read_idocs
METHOD read_idocs.
 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
* PERCENTAGE = 0
 text = text-p02.
 FIELD-SYMBOLS: <fs_edidc> LIKE LINE OF gt_edidc,
 <fs_output> LIKE LINE OF gt_output,
 <fs_ekko> LIKE LINE OF gt_ekko,
 <fs_lfa1> LIKE LINE OF gt_lfa1.
 LOOP AT gt_edidc ASSIGNING <fs_edidc>.
 CLEAR ls_idoc_control.
 REFRESH: lt_edids, lt_edidd.
* Get status text of IDOC
 CALL FUNCTION 'IDOC_GET_MESSAGE_ATTRIBUTE'
 EXPORTING
 idoc_number = <fs_edidc>-docnum
 IMPORTING
 idoc_message = lv_stat_message.
* Get IDOC details
 CALL FUNCTION 'IDOC_READ_COMPLETELY'
 EXPORTING
 document_number = <fs_edidc>-docnum
 IMPORTING
 idoc_control = ls_idoc_control
 number_of_data_records = lv_tot_data_recs
 number_of_status_records = lv_tot_status_recs
 TABLES
 int_edids = lt_edids
 int_edidd = lt_edidd
 EXCEPTIONS
 document_not_exist = 1
 document_number_invalid = 2
 OTHERS = 3.
 IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
* Pass data to output table
 CALL METHOD me->process_data
 EXPORTING
 im_docnum = <fs_edidc>-docnum.
 ENDLOOP.
 DELETE gt_output WHERE ebeln IS INITIAL.
 IF gt_output[] IS NOT INITIAL.
* Get vendor for fetched POs
 SELECT ebeln lifnr
 FROM ekko
 INTO TABLE gt_ekko
 FOR ALL ENTRIES IN gt_output
 WHERE ebeln = gt_output-ebeln.
 IF gt_ekko[] IS NOT INITIAL.
* Get name of vendors
 SELECT lifnr name1
 FROM lfa1
 INTO TABLE gt_lfa1
 FOR ALL ENTRIES IN gt_ekko
 WHERE lifnr = gt_ekko-lifnr.
 ENDIF.
* Pass vendor details to output table
 LOOP AT gt_output ASSIGNING <fs_output>.
 READ TABLE gt_ekko ASSIGNING <fs_ekko>
 WITH TABLE KEY ebeln = <fs_output>-ebeln.
 IF sy-subrc = 0.
 READ TABLE gt_lfa1 ASSIGNING <fs_lfa1>
 WITH TABLE KEY lifnr = <fs_ekko>-lifnr.
 IF sy-subrc = 0.
 <fs_output>-lifnr = <fs_lfa1>-lifnr.
 <fs_output>-name1 = <fs_lfa1>-name1.
 ENDIF.
 ENDIF.
 ENDLOOP.
 CREATE OBJECT o_lcl_alv_routines.
 CALL METHOD o_lcl_alv_routines->display_data
 EXPORTING
 im_output = gt_output[].
 ENDIF.
ENDMETHOD. "read_idocs
* METHOD process_data
METHOD process_data.
 FIELD-SYMBOLS: <fs_edidd> LIKE LINE OF lt_edidd.
 IF lv_stat_message CP 'ok' OR
 lv_stat_message CP 'positive'.
 wa_output-exception = lc_green.
 ELSEIF lv_stat_message CP 'error' OR
 lv_stat_message CP 'negative'.
 wa_output-exception = lc_red.
 ELSE.
 wa_output-exception = lc_yellow.
 ENDIF.
 READ TABLE lt_edidd ASSIGNING <fs_edidd>
 WITH KEY docnum = im_docnum
 segnam = lc_segnam.
 IF sy-subrc = 0.
 wa_output-ebeln = <fs_edidd>-sdata+0(10).
 ENDIF.
 wa_output-credat = ls_idoc_control-credat.
 wa_output-cretim = ls_idoc_control-cretim.
 APPEND wa_output TO gt_output.
 CLEAR wa_output.
ENDMETHOD. "process_data
ENDCLASS. "lcl_get_data IMPLEMENTATION
* CLASS lcl_alv_routines IMPLEMENTATION
CLASS lcl_alv_routines IMPLEMENTATION.
* METHOD display_data
METHOD display_data.
 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
 percentage = 0
 text = text-p03.
 gt_output[] = im_output[].
 TRY.
 cl_salv_table=>factory(
 EXPORTING
 list_display = ''
 IMPORTING
 r_salv_table = lcl_table
 CHANGING
 t_table = gt_output ).
 CATCH cx_salv_msg. "#EC NO_HANDLER
 ENDTRY.
 lcl_functions = lcl_table->get_functions( ).
* Set all standard ALV functions
 lcl_functions->set_all( abap_true ).
 lcl_columns = lcl_table->get_columns( ).
 lcl_columns->set_optimize( '' ).
* Set display to striped pattern
 lcl_display = lcl_table->get_display_settings( ).
 lcl_display->set_striped_pattern( cl_salv_display_settings=>true ).
*/Sort columns
 TRY.
 lcl_sorts = lcl_table->get_sorts( ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 lcl_sorts->set_group_active( ).
 TRY.
 lcl_sorts->add_sort(
 columnname = 'EBELN'
 subtotal = '' ).
 CATCH cx_salv_not_found cx_salv_existing cx_salv_data_error."#EC NO_HANDLER
 ENDTRY.
*/Set column names
 TRY.
 lcl_columns->set_exception_column( 'EXCEPTION' ).
 CATCH cx_salv_data_error. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'EXCEPTION' ).
 lcl_column->set_short_text( text-h01 ).
 lcl_column->set_medium_text( text-h01 ).
 lcl_column->set_long_text( text-h01 ).
 lcl_column->set_output_length( '6' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'EBELN' ).
 lcl_column->set_short_text( text-h02 ).
 lcl_column->set_medium_text( text-h02 ).
 lcl_column->set_long_text( text-h02 ).
 lcl_column->set_output_length( '9' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'LIFNR' ).
* lcl_column->set_short_text( text-h03 ).
 lcl_column->set_medium_text( text-h03 ).
 lcl_column->set_long_text( text-h03 ).
 lcl_column->set_output_length( '11' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'NAME1' ).
* lcl_column->set_short_text( text-h04 ).
* lcl_column->set_medium_text( text-h04 ).
 lcl_column->set_long_text( text-h04 ).
 lcl_column->set_output_length( '30' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'CREDAT' ).
* lcl_column->set_short_text( text-h05 ).
* lcl_column->set_medium_text( text-h05 ).
 lcl_column->set_long_text( text-h05 ).
 lcl_column->set_output_length( '13' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'CRETIM' ).
* lcl_column->set_short_text( text-h06 ).
* lcl_column->set_medium_text( text-h06 ).
 lcl_column->set_long_text( text-h06 ).
 lcl_column->set_output_length( '13' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
*/Set aggregations
* TRY.
* lcl_aggregations = lcl_table->get_aggregations( ).
* CATCH cx_salv_not_found. "#EC NO_HANDLER
* ENDTRY.
* TRY.
* lcl_aggregations->add_aggregation( '' ).
* CATCH cx_salv_not_found cx_salv_data_error cx_salv_existing."#EC NO_HANDLER
* ENDTRY.
*/Hide columns
* TRY.
* lcl_column ?= lcl_columns->get_column( 'DESCRIPT' ).
* lcl_column->set_visible( if_salv_c_bool_sap=>false ).
* CATCH cx_salv_not_found. "#EC NO_HANDLER
* ENDTRY.
*/Display top of page
 CALL METHOD me->display_top_of_page.
 lcl_table->set_top_of_list( lcl_content ).
*/Handle ALV events
 lcl_events2 = lcl_table->get_event( ).
 CREATE OBJECT lcl_handle_events.
 SET HANDLER lcl_handle_events->on_link_click FOR lcl_events2.
 lcl_display_settings = lcl_table->get_display_settings( ).
 lcl_table->display( ).
ENDMETHOD. "display_data
* METHOD display_top_of_page
METHOD display_top_of_page.
 CREATE OBJECT lcl_grid.
 lv_title = text-t01.
 lcl_grid->create_header_information(
 row = 1
 column = 1
 text = lv_title
 tooltip = lv_title ).
 lcl_grid->add_row( ).
 lcl_grid_1 = lcl_grid->create_grid(
 row = 3
 column = 1 ).
 CLEAR lv_string.
 CONCATENATE: sy-datum+4(2) '/' sy-datum+6(2) '/' sy-datum+0(4)
 INTO lv_date1.
 CONCATENATE: text-t02 lv_date1
 INTO lv_string
 SEPARATED BY space.
 lcl_label = lcl_grid_1->create_label(
 row = 1
 column = 1
 text = lv_string
 tooltip = lv_string ).
 CLEAR lv_string.
 CONCATENATE: sy-uzeit+0(2) ':' sy-uzeit+2(2) ':' sy-uzeit+4(2)
 INTO lv_time.
 CONCATENATE: text-t03 lv_time
 INTO lv_string
 SEPARATED BY space.
 lcl_label = lcl_grid_1->create_label(
 row = 2
 column = 1
 text = lv_string
 tooltip = lv_string ).
 lcl_content = lcl_grid.
ENDMETHOD. "display_top_of_page
ENDCLASS. "lcl_alv_routines IMPLEMENTATION
* CLASS lcl_handle_events IMPLEMENTATION
CLASS lcl_handle_events IMPLEMENTATION.
* METHOD on_link_click
METHOD on_link_click.
ENDMETHOD. "on_link_click
ENDCLASS. "lcl_handle_events IMPLEMENTATION
* START-OF-SELECTION *
START-OF-SELECTION.
DATA: o_lcl_get_data TYPE REF TO lcl_get_data.
CREATE OBJECT o_lcl_get_data.
CALL METHOD o_lcl_get_data->get_idocs.

Currency wise grand totals IN ALV

Hi friends,
I have problem in alv report, my requirement is want to display the
currency wise grand totals in ALV Report.if any having this idea please
address the solution.
yours
ramakrishna.Y

if i am not wrong then ithink you are talking about subtotal as per currency .
then you have to use sort fnality..
you have to write your fieldcat for currency value field
wfieldcat-do_sum = 'X'.
data : isort type slis_t_sortinfo_alv,
wsort type slis_sortinfo_alv.
wsort-spos = 1.
wsort-up = 'X'.
wsort-fieldname = ' YOUR CURRency key field in caps'.
wsort-group = 'UL'.
append wsort to isort.
you have to pass that to reuse alv fm it_sort = isort.
regards
shiba dutta

Displaying percentage total in ALV

Similar Messages

Maybe you are looking for