code for an Expand / Collapse functionality in alv?

[Former Member]

hi sapteam,

i need to display the output in alv format? can any one tell me the standard program for this similar type of output.

do any one have the code of an Expand / Collapse functionality in alv? which was shown on below.

Plant / Plant Description Summed Total in KG Print Button

+ Detail

* +Sales Orders Total Sales Orders in KG*

* +Intercompany Stock Transfers Total IC / STOu2019s in KG*

* +Stock Transfer Orders Total STOu2019s in KG*

please let help me.....

[sarbajitm]

In the Command Prompt write /nABAPDOCU and press enter you get a rich tutorial on ABAP.

The steps of creating an ALV.(trying to giving you a rough idea)

1) Geta all your data in the Internal Table.

2) Create Field Catalog.

3) buil up a layout for the ALV.

4) Display of ALV (for this purpose you have to use FM like REUSE_ALV_GRID_DISPLAY,REUSE_ALV_LIST_DISPLAY,etc)

Thanks and Regards.

Sarbajit.

Edited by: Sarbajit Majumdar on Mar 19, 2009 7:47 PM

[former_member194669]

You need to look for example programs BCALV_TREE*

a®

[sarbajitm]

Check the code below(create a report ,Copy paste it in your SE38, comment out my report name)

Though it give different output but you can grab the concept from here.

REPORT ZSAR_ALV_HIERSQ_TABDISP.

• type-pools declarations for alv and icon

TYPE-POOLS: slis,icon.

*structure declaration for table details

TYPES : BEGIN OF ty_dd02l,

tabname TYPE tabname,

tabclass TYPE tabclass,

expand,

END OF ty_dd02l.

*internal table and wa decln for table details

DATA : it_dd02l TYPE STANDARD TABLE OF ty_dd02l,

wa_dd02l TYPE ty_dd02l.

*structure declarations for field details

TYPES : BEGIN OF ty_dd03l,

tabname TYPE tabname,

fieldname TYPE fieldname,

keyflag TYPE keyflag,

checktable TYPE checktable,

rollname TYPE rollname,

datatype TYPE datatype_d,

leng TYPE ddleng,

END OF ty_dd03l.

• Internal table and wa decln for field details

DATA : it_dd03l TYPE STANDARD TABLE OF ty_dd03l,

wa_dd03l TYPE ty_dd03l.

*Internal table and wa decln for tabletext details

DATA : it_dd02t TYPE STANDARD TABLE OF dd02t,

wa_dd02t TYPE dd02t.

• data declarations for ALV

DATA : it_fieldcat TYPE slis_t_fieldcat_alv,

wa_fieldcat TYPE slis_fieldcat_alv,

it_layout TYPE slis_layout_alv,

key TYPE slis_keyinfo_alv.

*Input the tables.User cannot enter a range but can enter any number

*of tables one by one in this select-options

SELECT-OPTIONS : s_table FOR wa_dd02l-tabname NO INTERVALS.

*initializatin event

INITIALIZATION.

*start-of-selection event

START-OF-SELECTION.

*subroutine to fetch the data from the tables

PERFORM fetch_tabledata.

*subroutine to build alv hierarchy output

PERFORM hierarchyalv_build.

&----

---

*& Form hierarchyalv_build

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM hierarchyalv_build .

*fieldcatalogue

PERFORM build_fieldcat.

*layout

PERFORM build_layout.

*key information for hierarchy

PERFORM build_key.

*output

PERFORM list_display.

ENDFORM. " hierarchyalv_build

&----

---

*& Form build_fieldcat

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM build_fieldcat .

CLEAR wa_fieldcat.

wa_fieldcat-col_pos = 1.

wa_fieldcat-fieldname = 'TABNAME'.

wa_fieldcat-tabname = 'IT_DD02L'.

wa_fieldcat-seltext_m = 'Tablename'.

wa_fieldcat-key = 'X'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-emphasize = 'C610'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-col_pos = 2.

wa_fieldcat-fieldname = 'FIELDNAME'.

wa_fieldcat-tabname = 'IT_DD03L'.

wa_fieldcat-key = 'X'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-seltext_m = 'Field'.

wa_fieldcat-emphasize = 'C510'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

ENDFORM. " build_fieldcat

&----

---

*& Form build_layout

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM build_layout .

*to expand the header table for item details

it_layout-expand_fieldname = 'EXPAND'.

it_layout-window_titlebar = 'Interactive Hierarchical ALV'.

it_layout-lights_tabname = 'IT_DD03L'.

it_layout-colwidth_optimize = 'X'.

ENDFORM. " build_layout

&----

---

*& Form build_key

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM build_key .

*key infomation for the header and item table

key-header01 = 'TABNAME'.

key-item01 = 'TABNAME'.

ENDFORM. " build_key

&----

---

*& Form list_display

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM list_display .

*ALV output

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

i_callback_program = sy-cprog

i_callback_user_command = 'USER_COMMAND'

is_layout = it_layout

it_fieldcat = it_fieldcat

i_tabname_header = 'IT_DD02L'

i_tabname_item = 'IT_DD03L'

is_keyinfo = key

TABLES

t_outtab_header = it_dd02l

t_outtab_item = it_dd03l.

ENDFORM. " list_display

&----

---

*& Form fetch_tabledata

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM fetch_tabledata .

*select table data

SELECT tabname

tabclass

FROM dd02l

INTO CORRESPONDING FIELDS OF TABLE it_dd02l

WHERE tabname IN s_table.

*select field data

IF it_dd02l[] IS NOT INITIAL.

SELECT tabname

fieldname

keyflag

checktable

rollname

leng

datatype

FROM dd03l

INTO CORRESPONDING FIELDS OF TABLE it_dd03l

FOR ALL ENTRIES IN it_dd02l

WHERE tabname EQ it_dd02l-tabname.

ENDIF.

*select table texts

IF it_dd02l[] IS NOT INITIAL.

SELECT tabname

ddtext

FROM dd02t

INTO CORRESPONDING FIELDS OF TABLE it_dd02t

FOR ALL ENTRIES IN it_dd02l

WHERE tabname EQ it_dd02l-tabname

AND ddlanguage = 'EN'.

ENDIF.

ENDFORM. " fetch_tabledata

&----

---

*& Form user_command

&----

---

• text

----

---

*User actions on ALV

FORM user_command USING r_ucomm TYPE sy-ucomm

rs_selfield TYPE slis_selfield.

CASE r_ucomm.

WHEN '&IC1'.

READ TABLE it_dd02l INDEX rs_selfield-tabindex INTO wa_dd02l.

IF sy-subrc = 0.

PERFORM select_table.

EXIT.

ENDIF.

READ TABLE it_dd03l INDEX rs_selfield-tabindex INTO wa_dd03l.

IF sy-subrc = 0.

PERFORM select_field.

EXIT.

ENDIF.

ENDCASE.

ENDFORM. "user_command

&----

---

*& Form select_table

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

*Subroutine to display the details of the parent node selected

FORM select_table .

DATA : title(20),

category(10),

description(60),

texts(40),

text(60).

title = wa_dd02l-tabname.

category = wa_dd02l-tabclass.

texts = 'The table category : '.

CONCATENATE texts category INTO text separated by space.

READ TABLE it_dd02t INTO wa_dd02t WITH KEY tabname = wa_dd02l-tabname.

description = wa_dd02t-ddtext.

CALL FUNCTION 'POPUP_FOR_INTERACTION'

EXPORTING

headline = 'Selection'

text1 = title

text2 = description

text3 = text

button_1 = 'Back to List'.

ENDFORM. " select_table

&----

---

*& Form select_FIELD

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

*Subroutine to display the details of the child node selected

FORM select_field .

DATA : title(20),

text1(35),

table(10),

text2(45),

check(20),

datype(6),

length(6),

roll(8),

key(10),

flag(2),

keytext(15),

typedet(18),

details(25),

text3(15),

text4(25),

text5(15),

text6(25),

text7(15),

text8(25).

text1 = 'The table for the selected field is'.

title = wa_dd03l-fieldname.

table = wa_dd03l-tabname.

check = wa_dd03l-checktable.

datype = wa_dd03l-datatype.

length = wa_dd03l-leng.

roll = wa_dd03l-rollname.

key = 'Keyfield '.

flag = wa_dd03l-keyflag.

typedet = 'Datatype & Length'.

text4 = 'Selected field is'.

text5 = 'Check table'.

text7 = 'Data Element'.

CONCATENATE text1 table INTO text2 separated by space.

CONCATENATE key flag INTO keytext separated by space.

concatenate typedet datype length into details separated by space.

concatenate text3 title into text4 separated by space.

concatenate text5 check into text6 separated by space.

concatenate text7 roll into text8 separated by space.

CALL FUNCTION 'POPUP_FOR_INTERACTION'

EXPORTING

headline = 'Selection'

text1 = text2

text2 = text4

text3 = text6

text4 = details

text5 = text8

text6 = keytext

button_1 = 'Back to List'.

ENDFORM.

Hope it helps.

Regards.

Sarbajit.