Re: alv trees

Former Member — Sat, 15 May 2010 14:35:50 GMT

*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

§1a. Define reference variables

data: g_alv_tree type ref to cl_gui_alv_tree,

g_custom_container type ref to cl_gui_custom_container.

data: gt_sflight type sflight occurs 0, u201COutput-Table

ok_code like sy-ucomm,

save_ok like sy-ucomm, u201COK-Code

g_max type i value 255.

end-of-selection.

call screen 100.

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

*& Module PBO OUTPUT

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

process before output

u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014-

module pbo output.

set pf-status u2018MAIN100u2032.

set titlebar u2018MAINTITLEu2019.

if g_alv_tree is initial.

perform init_tree.

call method cl_gui_cfw=>flush

exceptions

cntl_system_error = 1

cntl_error = 2.

if sy-subrc ne 0.

call function u2018POPUP_TO_INFORMu2019

exporting

titel = u2018Automation Queue failureu2019(801)

txt1 = u2018Internal error:u2019(802)

txt2 = u2018A method in the automation queueu2019(803)

txt3 = u2019caused a failure.u2019(804).

endif.

endmodule. u201C PBO OUTPUT

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

*& Module PAI INPUT

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

process after input

u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014-

module pai input.

save_ok = ok_code.

clear ok_code.

case save_ok.

when u2018EXITu2019 or u2018BACKu2019 or u2018CANCu2019.

perform exit_program.

when others.

§6. Call dispatch to process toolbar functions

call method cl_gui_cfw=>dispatch.

endcase.

call method cl_gui_cfw=>flush.

endmodule. u201C PAI INPUT

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

*& Form init_tree

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

text

u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014-

u2013> p1 text
<u2013 p2 text

u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014-

form init_tree.

§1b. Create ALV Tree Control and corresponding Container.

create container for alv-tree

data: l_tree_container_name(30) type c.

l_tree_container_name = u2018CCONTAINER1u2032.

create object g_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 u2018ERRORu2019(100).

endif.

create tree control

create object g_alv_tree

exporting

parent = g_custom_container

node_selection_mode = cl_gui_column_tree=>node_sel_mode_single

item_selection = u2018Xu2019

no_html_header = u2018Xu2019

no_toolbar = u201D

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 u2018ERRORu2019. u201C#EC NOTEXT

endif.

§2. Create Hierarchy-header
The simple ALV Tree uses the text of the fields which were used
for sorting to define this header. When you use
the u2019normalu2019 ALV Tree the hierarchy is build up freely
by the programmer this is not possible, so he has to define it
himself.

data l_hierarchy_header type treev_hhdr.

perform build_hierarchy_header changing l_hierarchy_header.

§3. Create empty Tree Control
IMPORTANT: Table u2019gt_sflightu2019 must be empty. Do not change this table
(even after this method call). You can change data of your table
by calling methods of CL_GUI_ALV_TREE.
Furthermore, the output table u2019gt_outtabu2019 must be global and can
only be used for one ALV Tree Control.

call method g_alv_tree->set_table_for_first_display

exporting

i_structure_name = u2018SFLIGHTu2019

is_hierarchy_header = l_hierarchy_header

changing

it_outtab = gt_sflight. u201Ctable must be empty !

§4. Create hierarchy (nodes and leaves)

perform create_hierarchy.

§5. Send data to frontend.

call method g_alv_tree->frontend_update.

wait for automatic flush at end of pbo

endform. u201C init_tree

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

*& Form build_hierarchy_header

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

build hierarchy-header-information

u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014-

u2013>P_L_HIERARCHY_HEADER strucxture for hierarchy-header

u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014-

form build_hierarchy_header changing

p_hierarchy_header type treev_hhdr.

p_hierarchy_header-heading = u2018Month/Carrier/Dateu2019(300).

p_hierarchy_header-tooltip = u2018Flights in a monthu2019(400).

p_hierarchy_header-width = 30.

p_hierarchy_header-width_pix = u2018 u2019.

endform. u201C build_hierarchy_header

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

*& Form exit_program

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

free object and leave program

u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014-

form exit_program.

call method g_custom_container->free.

leave program.

endform. u201C exit_program

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

*& Form create_hierarchy

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

text

u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014-

u2013> p1 text
<u2013 p2 text

u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014-

form create_hierarchy.

data: ls_sflight type sflight,

lt_sflight type sflight occurs 0,

l_yyyymm(6) type c, u201Cyear and month of sflight-fldate

l_yyyymm_last(6) type c,

l_carrid like sflight-carrid,

l_carrid_last like sflight-carrid.

data: l_month_key type lvc_nkey,

l_carrid_key type lvc_nkey,

l_last_key type lvc_nkey.

§4a. Select data

select * from sflight into table lt_sflight up to g_max rows.

§4b. Sort output table according to your conceived hierarchy
We sort in this order:
year and month (top level nodes, yyyymm of DATS)
carrier id (next level)
day of month (leaves, dd of DATS)

sort lt_sflight by fldate0(6) carrid fldate6(2).

Note: The top level nodes do not correspond to a field of the
output table. Instead we use data of the table to invent another
hierarchy level above the levels that can be build by sorting.

§4c. Add data to tree

loop at lt_sflight into ls_sflight.

Prerequesite: The table is sorted.
You add a node everytime the values of a sorted field changes.
Finally, the complete line is added as a leaf below the last
node.

l_yyyymm = ls_sflight-fldate+0(6).

l_carrid = ls_sflight-carrid.

Top level nodes:

if l_yyyymm <> l_yyyymm_last. u201Con change of l_yyyymm

l_yyyymm_last = l_yyyymm.

*Providing no key means that the node is added on top level:

perform add_month using l_yyyymm

u201D

changing l_month_key.

The month changed, thus, there is no predecessor carrier

clear l_carrid_last.

endif.

Carrier nodes:
(always inserted as child of the last month
which is identified by u2019l_month_keyu2019)

if l_carrid <> l_carrid_last. u201Con change of l_carrid

l_carrid_last = l_carrid.

perform add_carrid_line using ls_sflight

l_month_key

changing l_carrid_key.

endif.

Leaf:
(always inserted as child of the last carrier
which is identified by u2019l_carrid_keyu2019)

perform add_complete_line using ls_sflight

l_carrid_key

changing l_last_key.

endloop.

endform. u201C create_hierarchy

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

*& Form add_month

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

form add_month using p_yyyymm type c

p_relat_key type lvc_nkey

changing p_node_key type lvc_nkey.

data: l_node_text type lvc_value,

ls_sflight type sflight,

l_month(15) type c. u201Coutput string for month

get month name for node text

perform get_month using p_yyyymm

changing l_month.

l_node_text = l_month.

add node:
ALV Tree firstly inserts this node as a leaf if you do not provide
IS_NODE_LAYOUT with field ISFOLDER set. In form u2019add_carrid_lineu2019
the leaf gets a child and thus ALV converts it to a folder
automatically.

call method g_alv_tree->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

importing

e_new_node_key = p_node_key.

endform. u201C add_month

*u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2013

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.

add node
ALV Tree firstly inserts this node as a leaf if you do not provide
IS_NODE_LAYOUT with field ISFOLDER set. In form u2019add_carrid_lineu2019
the leaf gets a child and thus ALV converts it to a folder
automatically.

l_node_text = ps_sflight-carrid.

call method g_alv_tree->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

importing

e_new_node_key = p_node_key.

endform. u201C add_carrid_line

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

*& Form add_complete_line

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

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.

write ps_sflight-fldate to l_node_text mm/dd/yyyy.

add leaf:
ALV Tree firstly inserts this node as a leaf if you do not provide
IS_NODE_LAYOUT with field ISFOLDER set.
Since these nodes will never get children they stay leaves
(as intended).

call method g_alv_tree->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

importing

e_new_node_key = p_node_key.

endform. u201C add_complete_line

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

*& Form GET_MONTH

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014

text

u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014-

u2013>P_P_YYYYMM text
<u2013P_L_MONTH text

u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014-

form get_month using p_yyyymm

changing p_month.

Returns the name of month according to the digits in p_yyyymm

data: l_monthdigits(2) type c.

l_monthdigits = p_yyyymm+4(2).

case l_monthdigits.

when u201801u2032.

p_month = u2018Januaryu2019(701).

when u201802u2032.

p_month = u2018Februaryu2019(702).

when u201803u2032.

p_month = u2018Marchu2019(703).

when u201804u2032.

p_month = u2018Aprilu2019(704).

when u201805u2032.

p_month = u2018Mayu2019(705).

when u201806u2032.

p_month = u2018Juneu2019(706).

when u201807u2032.

p_month = u2018Julyu2019(707).

when u201808u2032.

p_month = u2018Augustu2019(708).

when u201809u2032.

p_month = u2018Septemberu2019(709).

when u201810u2032.

p_month = u2018Octoberu2019(710).

when u201811u2032.

p_month = u2018Novemberu2019(711).

when u201812u2032.

p_month = u2018Decemberu2019(712).

endcase.

concatenate p_yyyymm+0(4) u2018->u2019 p_month into p_month.

endform. u201C GET_MONTH

topic Re: alv trees in Application Development and Automation Discussions

alv trees

Re: alv trees

Re: alv trees

Re: alv trees