ALV Tree view

Hi,

Check this link on AVL....

http://www.sapdevelopment.co.uk/reporting/alvhome.htm

This is very help full...

Thanks.

If this helps u reward with points.

Hi,

You can search for BCALVTREE in SE38 transaction, you find lots of ALV reports using Tree display,

for Ex.BCALV_TREE_DEMO

Hope this helps,

Rgds,

Hi Prakash,

See program <b>BCALV_TREE_01</b> and <b>BCALV_TREE_SIMPLE_DEMO</b>.

You can find more program in <b>package SLIS</b> for tree alv there.

Just go to <b>SE80</b> and select package as SLIS

Regards,

Sakthi.

Hi,

Please try the code below.

report bcalv_tree_demo.

class cl_gui_column_tree definition load.

class cl_gui_cfw definition load.

data tree1 type ref to cl_gui_alv_tree.

data mr_toolbar type ref to cl_gui_toolbar.

include <icon>.

include bcalv_toolbar_event_receiver.

include bcalv_tree_event_receiver.

data: toolbar_event_receiver type ref to lcl_toolbar_event_receiver.

data: gt_sflight type sflight occurs 0, "Output-Table

gt_fieldcatalog type lvc_t_fcat, "Fieldcatalog

ok_code like sy-ucomm. "OK-Code

start-of-selection.

end-of-selection.

call screen 100.

&----

---

*& Module PBO OUTPUT

&----

---

• process before output

----

---

module pbo output.

set pf-status 'MAIN100'.

if tree1 is initial.

perform init_tree.

endif.

call method cl_gui_cfw=>flush.

endmodule. " PBO OUTPUT

&----

---

*& Module PAI INPUT

&----

---

• process after input

----

---

module pai input.

case ok_code.

when 'EXIT' or 'BACK' or 'CANC'.

perform exit_program.

when others.

call method cl_gui_cfw=>dispatch.

endcase.

clear ok_code.

call method cl_gui_cfw=>flush.

endmodule. " PAI INPUT

&----

---

*& Form build_fieldcatalog

&----

---

• build fieldcatalog for structure sflight

----

---

form build_fieldcatalog.

• get fieldcatalog

call function 'LVC_FIELDCATALOG_MERGE'

exporting

i_structure_name = 'SFLIGHT'

changing

ct_fieldcat = gt_fieldcatalog.

sort gt_fieldcatalog by scrtext_l.

• change fieldcatalog

data: ls_fieldcatalog type lvc_s_fcat.

loop at gt_fieldcatalog into ls_fieldcatalog.

case ls_fieldcatalog-fieldname.

when 'CARRID' or 'CONNID' or 'FLDATE'.

ls_fieldcatalog-no_out = 'X'.

ls_fieldcatalog-key = ''.

when 'PRICE' or 'SEATSOCC' or 'SEATSMAX' or 'PAYMENTSUM'.

ls_fieldcatalog-do_sum = 'X'.

endcase.

modify gt_fieldcatalog from ls_fieldcatalog.

endloop.

endform. " build_fieldcatalog

&----

---

*& Form build_hierarchy_header

&----

---

• build hierarchy-header-information

----

---

• -->P_L_HIERARCHY_HEADER strucxture for hierarchy-header

----

---

form build_hierarchy_header changing

p_hierarchy_header type treev_hhdr.

p_hierarchy_header-heading = 'Hierarchy Header'. "#EC NOTEXT

p_hierarchy_header-tooltip =

'This is the Hierarchy Header !'. "#EC NOTEXT

p_hierarchy_header-width = 30.

p_hierarchy_header-width_pix = ''.

endform. " build_hierarchy_header

&----

---

*& Form exit_program

&----

---

• free object and leave program

----

---

form exit_program.

call method tree1->free.

leave program.

endform. " exit_program

&----

---

*& Form build_header

&----

---

• build table for html_header

----

---

• --> p1 text

• <-- p2 text

----

---

form build_comment using

pt_list_commentary type slis_t_listheader

p_logo type sdydo_value.

data: ls_line type slis_listheader.

*

• LIST HEADING LINE: TYPE H

clear ls_line.

ls_line-typ = 'H'.

• LS_LINE-KEY: NOT USED FOR THIS TYPE

ls_line-info = 'ALV-tree-demo: flight-overview'. "#EC NOTEXT

append ls_line to pt_list_commentary.

• STATUS LINE: TYPE S

clear ls_line.

ls_line-typ = 'S'.

ls_line-key = 'valid until'. "#EC NOTEXT

ls_line-info = 'January 29 1999'. "#EC NOTEXT

append ls_line to pt_list_commentary.

ls_line-key = 'time'.

ls_line-info = '2.00 pm'. "#EC NOTEXT

append ls_line to pt_list_commentary.

• ACTION LINE: TYPE A

clear ls_line.

ls_line-typ = 'A'.

• LS_LINE-KEY: NOT USED FOR THIS TYPE

ls_line-info = 'actual data'. "#EC NOTEXT

append ls_line to pt_list_commentary.

p_logo = 'ENJOYSAP_LOGO'.

endform. "build_comment

&----

---

*& Form create_hierarchy

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form create_hierarchy.

data: ls_sflight type sflight,

lt_sflight type sflight occurs 0.

• get data

select * from sflight into table lt_sflight

up to 200 rows . "#EC CI_NOWHERE

sort lt_sflight by carrid connid fldate.

• add data to tree

data: l_carrid_key type lvc_nkey,

l_connid_key type lvc_nkey,

l_last_key type lvc_nkey.

loop at lt_sflight into ls_sflight.

on change of ls_sflight-carrid.

perform add_carrid_line using ls_sflight

''

changing l_carrid_key.

endon.

on change of ls_sflight-connid.

perform add_connid_line using ls_sflight

l_carrid_key

changing l_connid_key.

endon.

perform add_complete_line using ls_sflight

l_connid_key

changing l_last_key.

endloop.

• calculate totals

call method tree1->update_calculations.

• this method must be called to send the data to the frontend

call method tree1->frontend_update.

endform. " create_hierarchy

&----

---

*& Form add_carrid_line

&----

---

• add hierarchy-level 1 to tree

----

---

• -->P_LS_SFLIGHT sflight

• -->P_RELEATKEY relatkey

• <-->p_node_key new node-key

----

---

form add_carrid_line using ps_sflight type sflight

p_relat_key type lvc_nkey

changing p_node_key type lvc_nkey.

data: l_node_text type lvc_value,

ls_sflight type sflight.

• set item-layout

data: lt_item_layout type lvc_t_layi,

ls_item_layout type lvc_s_layi.

ls_item_layout-t_image = '@3P@'.

ls_item_layout-fieldname = tree1->c_hierarchy_column_name.

ls_item_layout-style =

cl_gui_column_tree=>style_intensifd_critical.

append ls_item_layout to lt_item_layout.

• add node

l_node_text = ps_sflight-carrid.

data: ls_node type lvc_s_layn.

ls_node-n_image = space.

ls_node-exp_image = space.

call method tree1->add_node

exporting

i_relat_node_key = p_relat_key

i_relationship = cl_gui_column_tree=>relat_last_child

i_node_text = l_node_text

is_outtab_line = ls_sflight

is_node_layout = ls_node

it_item_layout = lt_item_layout

importing

e_new_node_key = p_node_key.

endform. " add_carrid_line

&----

---

*& Form add_connid_line

&----

---

• add hierarchy-level 2 to tree

----

---

• -->P_LS_SFLIGHT sflight

• -->P_RELEATKEY relatkey

• <-->p_node_key new node-key

----

---

form add_connid_line using ps_sflight type sflight

p_relat_key type lvc_nkey

changing p_node_key type lvc_nkey.

data: l_node_text type lvc_value,

ls_sflight type sflight.

• set item-layout

data: lt_item_layout type lvc_t_layi,

ls_item_layout type lvc_s_layi.

ls_item_layout-t_image = '@3Y@'.

ls_item_layout-style =

cl_gui_column_tree=>style_intensified.

ls_item_layout-fieldname = tree1->c_hierarchy_column_name.

append ls_item_layout to lt_item_layout.

• add node

l_node_text = ps_sflight-connid.

call method tree1->add_node

exporting

i_relat_node_key = p_relat_key

i_relationship = cl_gui_column_tree=>relat_last_child

i_node_text = l_node_text

is_outtab_line = ls_sflight

it_item_layout = lt_item_layout

importing

e_new_node_key = p_node_key.

endform. " add_connid_line

&----

---

*& Form add_cmplete_line

&----

---

• add hierarchy-level 3 to tree

----

---

• -->P_LS_SFLIGHT sflight

• -->P_RELEATKEY relatkey

• <-->p_node_key new node-key

----

---

form add_complete_line using ps_sflight type sflight

p_relat_key type lvc_nkey

changing p_node_key type lvc_nkey.

data: l_node_text type lvc_value.

• set item-layout

data: lt_item_layout type lvc_t_layi,

ls_item_layout type lvc_s_layi.

ls_item_layout-fieldname = tree1->c_hierarchy_column_name.

ls_item_layout-class = cl_gui_column_tree=>item_class_checkbox.

ls_item_layout-editable = 'X'.

append ls_item_layout to lt_item_layout.

clear ls_item_layout.

ls_item_layout-fieldname = 'PLANETYPE'.

ls_item_layout-alignment = cl_gui_column_tree=>align_right.

append ls_item_layout to lt_item_layout.

l_node_text = ps_sflight-fldate.

data: ls_node type lvc_s_layn.

ls_node-n_image = space.

ls_node-exp_image = space.

call method tree1->add_node

exporting

i_relat_node_key = p_relat_key

i_relationship = cl_gui_column_tree=>relat_last_child

is_outtab_line = ps_sflight

i_node_text = l_node_text

is_node_layout = ls_node

it_item_layout = lt_item_layout

importing

e_new_node_key = p_node_key.

endform. " add_complete_line

&----

---

*& Form register_events

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form register_events.

• define the events which will be passed to the backend

data: lt_events type cntl_simple_events,

l_event type cntl_simple_event.

• define the events which will be passed to the backend

l_event-eventid = cl_gui_column_tree=>eventid_expand_no_children.

append l_event to lt_events.

l_event-eventid = cl_gui_column_tree=>eventid_checkbox_change.

append l_event to lt_events.

l_event-eventid = cl_gui_column_tree=>eventid_header_context_men_req.

append l_event to lt_events.

l_event-eventid = cl_gui_column_tree=>eventid_node_context_menu_req.

append l_event to lt_events.

l_event-eventid = cl_gui_column_tree=>eventid_item_context_menu_req.

append l_event to lt_events.

l_event-eventid = cl_gui_column_tree=>eventid_header_click.

append l_event to lt_events.

l_event-eventid = cl_gui_column_tree=>eventid_item_keypress.

append l_event to lt_events.

call method tree1->set_registered_events

exporting

events = lt_events

exceptions

cntl_error = 1

cntl_system_error = 2

illegal_event_combination = 3.

if sy-subrc <> 0.

message x208(00) with 'ERROR'. "#EC NOTEXT

endif.

• set Handler

data: l_event_receiver type ref to lcl_tree_event_receiver.

create object l_event_receiver.

set handler l_event_receiver->handle_node_ctmenu_request

for tree1.

set handler l_event_receiver->handle_node_ctmenu_selected

for tree1.

set handler l_event_receiver->handle_item_ctmenu_request

for tree1.

set handler l_event_receiver->handle_item_ctmenu_selected

for tree1.

endform. " register_events

&----

---

*& Form change_toolbar

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form change_toolbar.

• get toolbar control

call method tree1->get_toolbar_object

importing

er_toolbar = mr_toolbar.

check not mr_toolbar is initial.

• add seperator to toolbar

call method mr_toolbar->add_button

exporting

fcode = ''

icon = ''

butn_type = cntb_btype_sep

text = ''

quickinfo = 'This is a Seperator'. "#EC NOTEXT

• add Standard Button to toolbar (for Delete Subtree)

call method mr_toolbar->add_button

exporting

fcode = 'DELETE'

icon = '@18@'

butn_type = cntb_btype_button

text = ''

quickinfo = 'Delete subtree'. "#EC NOTEXT

• add Dropdown Button to toolbar (for Insert Line)

call method mr_toolbar->add_button

exporting

fcode = 'INSERT_LC'

icon = '@17@'

butn_type = cntb_btype_dropdown

text = ''

quickinfo = 'Insert Line'. "#EC NOTEXT

• set event-handler for toolbar-control

create object toolbar_event_receiver.

set handler toolbar_event_receiver->on_function_selected

for mr_toolbar.

set handler toolbar_event_receiver->on_toolbar_dropdown

for mr_toolbar.

endform. " change_toolbar

&----

---

*& Form init_tree

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form init_tree.

• create fieldcatalog for structure sflight

perform build_fieldcatalog.

• create container for alv-tree

data: l_tree_container_name(30) type c,

l_custom_container type ref to cl_gui_custom_container.

l_tree_container_name = 'TREE1'.

if sy-batch is initial.

create object l_custom_container

exporting

container_name = l_tree_container_name

exceptions

cntl_error = 1

cntl_system_error = 2

create_error = 3

lifetime_error = 4

lifetime_dynpro_dynpro_link = 5.

if sy-subrc <> 0.

message x208(00) with 'ERROR'. "#EC NOTEXT

endif.

endif.

• create tree control

create object tree1

exporting

parent = l_custom_container

node_selection_mode = cl_gui_column_tree=>node_sel_mode_single

item_selection = 'X'

no_html_header = ''

no_toolbar = ''

exceptions

cntl_error = 1

cntl_system_error = 2

create_error = 3

lifetime_error = 4

illegal_node_selection_mode = 5

failed = 6

illegal_column_name = 7.

if sy-subrc <> 0.

message x208(00) with 'ERROR'. "#EC NOTEXT

endif.

• create Hierarchy-header

data l_hierarchy_header type treev_hhdr.

perform build_hierarchy_header changing l_hierarchy_header.

• create info-table for html-header

data: lt_list_commentary type slis_t_listheader,

l_logo type sdydo_value.

perform build_comment using

lt_list_commentary

l_logo.

• repid for saving variants

data: ls_variant type disvariant.

ls_variant-report = sy-repid.

• create emty tree-control

call method tree1->set_table_for_first_display

exporting

is_hierarchy_header = l_hierarchy_header

it_list_commentary = lt_list_commentary

i_logo = l_logo

i_background_id = 'ALV_BACKGROUND'

i_save = 'A'

is_variant = ls_variant

changing

it_outtab = gt_sflight "table must be emty !!

it_fieldcatalog = gt_fieldcatalog.

• create hierarchy

perform create_hierarchy.

• add own functioncodes to the toolbar

perform change_toolbar.

• register events

perform register_events.

• adjust column_width

• call method tree1->COLUMN_OPTIMIZE.

endform. " init_tree

Lokesh

Pls. reward appropriate points

hi

here's a program for Creation of Main Program code, Data declaration and screen call

TABLES: ekko.

TYPE-POOLS: slis. "ALV Declarations

TYPES: BEGIN OF t_ekko,

ebeln TYPE ekpo-ebeln,

ebelp TYPE ekpo-ebelp,

statu TYPE ekpo-statu,

aedat TYPE ekpo-aedat,

matnr TYPE ekpo-matnr,

menge TYPE ekpo-menge,

meins TYPE ekpo-meins,

netpr TYPE ekpo-netpr,

peinh TYPE ekpo-peinh,

END OF t_ekko.

DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,

it_ekpo TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,

it_emptytab TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,

wa_ekko TYPE t_ekko,

wa_ekpo TYPE t_ekko.

DATA: ok_code like sy-ucomm, "OK-Code

save_ok like sy-ucomm.

*ALV data declarations

DATA: fieldcatalog TYPE lvc_t_fcat WITH HEADER LINE.

DATA: gd_fieldcat TYPE lvc_t_fcat,

gd_tab_group TYPE slis_t_sp_group_alv,

gd_layout TYPE slis_layout_alv.

*ALVtree data declarations

CLASS cl_gui_column_tree DEFINITION LOAD.

CLASS cl_gui_cfw DEFINITION LOAD.

DATA: gd_tree TYPE REF TO cl_gui_alv_tree,

gd_hierarchy_header TYPE treev_hhdr,

gd_report_title TYPE slis_t_listheader,

gd_logo TYPE sdydo_value,

gd_variant TYPE disvariant.

*Create container for alv-tree

DATA: gd_tree_container_name(30) TYPE c,

gd_custom_container TYPE REF TO cl_gui_custom_container.

************************************************************************

*Includes

*INCLUDE ZDEMO_ALVTREEO01. "Screen PBO Modules

*INCLUDE ZDEMO_ALVTREEI01. "Screen PAI Modules

*INCLUDE ZDEMO_ALVTREEF01. "ABAP Subroutines(FORMS)

************************************************************************

*Start-of-selection.

START-OF-SELECTION.

• ALVtree setup data

PERFORM data_retrieval.

PERFORM build_fieldcatalog.

PERFORM build_layout.

PERFORM build_hierarchy_header CHANGING gd_hierarchy_header.

PERFORM build_report_title USING gd_report_title gd_logo.

PERFORM build_variant.

• Display ALVtree report

call screen 100.

&----

---

*& Form DATA_RETRIEVAL

&----

---

• Retrieve data into Internal tables

----

---

FORM data_retrieval.

SELECT ebeln

UP TO 10 ROWS

FROM ekko

INTO corresponding fields of TABLE it_ekko.

loop at it_ekko into wa_ekko.

SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh

FROM ekpo

appending TABLE it_ekpo

where ebeln eq wa_ekko-ebeln.

endloop.

ENDFORM. " DATA_RETRIEVAL

&----

---

*& Form BUILD_FIELDCATALOG

&----

---

• Build Fieldcatalog for ALV Report

----

---

FORM build_fieldcatalog.

• Please not there are a number of differences between the structure of

• ALVtree fieldcatalogs and ALVgrid fieldcatalogs.

• For example the field seltext_m is replace by scrtext_m in ALVtree.

fieldcatalog-fieldname = 'EBELN'. "Field name in itab

fieldcatalog-scrtext_m = 'Purchase Order'. "Column text

fieldcatalog-col_pos = 0. "Column position

fieldcatalog-outputlen = 15. "Column width

fieldcatalog-emphasize = 'X'. "Emphasize (X or SPACE)

fieldcatalog-key = 'X'. "Key Field? (X or SPACE)

• fieldcatalog-do_sum = 'X'. "Sum Column?

• fieldcatalog-no_zero = 'X'. "Don't display if zero

APPEND fieldcatalog TO gd_fieldcat.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'EBELP'.

fieldcatalog-scrtext_m = 'PO Iten'.

fieldcatalog-outputlen = 15.

fieldcatalog-col_pos = 1.

APPEND fieldcatalog TO gd_fieldcat..

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'STATU'.

fieldcatalog-scrtext_m = 'Status'.

fieldcatalog-outputlen = 15.

fieldcatalog-col_pos = 2.

APPEND fieldcatalog TO gd_fieldcat..

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'AEDAT'.

fieldcatalog-scrtext_m = 'Item change date'.

fieldcatalog-outputlen = 15.

fieldcatalog-col_pos = 3.

APPEND fieldcatalog TO gd_fieldcat..

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'MATNR'.

fieldcatalog-scrtext_m = 'Material Number'.

fieldcatalog-outputlen = 15.

fieldcatalog-col_pos = 4.

APPEND fieldcatalog TO gd_fieldcat..

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'MENGE'.

fieldcatalog-scrtext_m = 'PO quantity'.

fieldcatalog-outputlen = 15.

fieldcatalog-col_pos = 5.

APPEND fieldcatalog TO gd_fieldcat..

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'MEINS'.

fieldcatalog-scrtext_m = 'Order Unit'.

fieldcatalog-outputlen = 15.

fieldcatalog-col_pos = 6.

APPEND fieldcatalog TO gd_fieldcat..

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'NETPR'.

fieldcatalog-scrtext_m = 'Net Price'.

fieldcatalog-outputlen = 15.

fieldcatalog-col_pos = 7.

fieldcatalog-datatype = 'CURR'.

APPEND fieldcatalog TO gd_fieldcat..

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'PEINH'.

fieldcatalog-scrtext_m = 'Price Unit'.

fieldcatalog-outputlen = 15.

fieldcatalog-col_pos = 8.

APPEND fieldcatalog TO gd_fieldcat..

CLEAR fieldcatalog.

ENDFORM. " BUILD_FIELDCATALOG

&----

---

*& Form BUILD_LAYOUT

&----

---

• Build layout for ALV grid report

----

---

FORM build_layout.

gd_layout-no_input = 'X'.

gd_layout-colwidth_optimize = 'X'.

gd_layout-totals_text = 'Totals'(201).

• gd_layout-totals_only = 'X'.

• gd_layout-f2code = 'DISP'. "Sets fcode for when double

• "click(press f2)

• gd_layout-zebra = 'X'.

• gd_layout-group_change_edit = 'X'.

• gd_layout-header_text = 'helllllo'.

ENDFORM. " BUILD_LAYOUT

&----

---

*& Form build_hierarchy_header

&----

---

• build hierarchy-header-information

----

---

• -->P_L_HIERARCHY_HEADER structure for hierarchy-header

----

---

FORM build_hierarchy_header CHANGING

p_hierarchy_header TYPE treev_hhdr.

p_hierarchy_header-heading = 'Hierarchy Header'(013).

p_hierarchy_header-tooltip = 'This is the Hierarchy Header !'(014).

p_hierarchy_header-width = 30.

p_hierarchy_header-width_pix = ''.

ENDFORM. " build_hierarchy_header

&----

---

*& Form BUILD_REPORT_TITLE

&----

---

• Build table for ALVtree header

----

---

• <-> p1 Header details

• <-> p2 Logo value

----

---

FORM build_report_title CHANGING

pt_report_title TYPE slis_t_listheader

pa_logo TYPE sdydo_value.

DATA: ls_line TYPE slis_listheader,

ld_date(10) TYPE c.

• List Heading Line(TYPE H)

CLEAR ls_line.

ls_line-typ = 'H'.

• ls_line-key "Not Used For This Type(H)

ls_line-info = 'PO ALVTree Display'.

APPEND ls_line TO pt_report_title.

• Status Line(TYPE S)

ld_date(2) = sy-datum+6(2).

ld_date+2(1) = '/'.

ld_date3(2) = sy-datum4(2).

ld_date+5(1) = '/'.

ld_date+6(4) = sy-datum(4).

ls_line-typ = 'S'.

ls_line-key = 'Date'.

ls_line-info = ld_date.

APPEND ls_line TO pt_report_title.

• Action Line(TYPE A)

CLEAR ls_line.

ls_line-typ = 'A'.

CONCATENATE 'Report: ' sy-repid INTO ls_line-info SEPARATED BY space.

APPEND ls_line TO pt_report_title.

ENDFORM.

&----

---

*& Form BUILD_VARIANT

&----

---

• Build variant

----

---

form build_variant.

• Set repid for storing variants

gd_variant-report = sy-repid.

endform. " BUILD_VARIANT

regards

Arun

hi

you could get sample codes here

http://www.sapdevelopment.co.uk/reporting/alv/alvtree/alvtree_basic.htm

regards

Arun

Hi Prakash,

Please refer the standard programs :

<b>BCALV_TREE_DEMO</b> or

BCALV_TREE* programs.

It will give you more info.

Thanks & Regards,

Siri.