topic Re: Tutorial do ALV Tree programming in Application Development and Automation Discussions

Tutorial do ALV Tree programming

Former Member — Fri, 25 May 2007 06:02:13 GMT

Hai all,

I really want to create ABAP program using ALV tree, but i dunno how to use the ALV tree. Is someone have the tutorial have to do that one. or maybe sample code how to do ALV tree. Thnks in advance.

Re: Tutorial do ALV Tree programming

Former Member — Fri, 25 May 2007 06:07:26 GMT

Hi,

Go thru this Following Threads,

Regards,

Padmam.

Re: Tutorial do ALV Tree programming

Former Member — Fri, 25 May 2007 06:09:21 GMT

Hi,

check the system defined programs

SAPTLIST_TREE_CONTROL_DEMO

SAPSIMPLE_TREE_CONTROL_DEMO

SAPCOLUMN_TREE_CONTROL_DEMO

rgds,

bharat.

Re: Tutorial do ALV Tree programming

Former Member — Fri, 25 May 2007 06:09:23 GMT

hi,

chk this link

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

http://www.sapdevelopment.co.uk/reporting/alv/alvtree%5Calvtree_basic.htm

WIth Regards,

S.Barani

Re: Tutorial do ALV Tree programming

Former Member — Fri, 25 May 2007 06:11:02 GMT

hi,

ALV TREE

check these links.

http://www.erpgenie.com/sap/abap/SalesOrderFlow.htm

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

Check these programs.

e.g

BCALV_TREE_01 ALV tree control: build up the hierarchy tree

BCALV_TREE_02 ALV tree control: event handling

BCALV_TREE_03 ALV tree control: use an own context menu

BCALV_TREE_04 ALV tree control: add a button to the toolbar

BCALV_TREE_05 ALV tree control: add a menu to the toolbar

BCALV_TREE_06 ALV tree control: Icon column and icon for nodes/items

BCALV_TREE_DEMO Demo for ALV tree control

BCALV_TREE_DND ALV tree control: Drag & Drop within a hierarchy tree

BCALV_TREE_DND_MULTIPLE ALV tree control: Drag & Drop within a hierarchy tree

RSDEMO_DRAG_DROP_TREE_MULTI

BCALV_TREE_EVENT_RECEIVER Include BCALV_TREE_EVENT_RECEIVER

BCALV_TREE_EVENT_RECEIVER01

BCALV_TREE_ITEMLAYOUT ALV Tree: Change Item Layouts at Runtime

BCALV_TREE_MOVE_NODE_TEST Demo for ALV tree control

BCALV_TREE_SIMPLE_DEMO Program BCALV_TREE_SIMPLE_DEMO

BCALV_TREE_VERIFY Verifier for ALV Tree and Simple ALV Tree

Also please check the transaction DWDM This will give info also on trees.

Check the links -

Re: Tutorial do ALV Tree programming

Former Member — Fri, 25 May 2007 06:11:54 GMT

<b>ALV TREE DEMO PROGRAM .

HOPE THIS WILL HELP YOU IN UNDERSTANDING ALV TREE.</b>

CLASS cl_gui_column_tree DEFINITION LOAD.

CLASS cl_gui_cfw DEFINITION LOAD.

DATA: go_grid TYPE REF TO cl_gui_alv_grid.

DATA: ro_grid TYPE REF TO cl_gui_alv_grid.

DATA tree1 TYPE REF TO cl_gui_alv_tree.

DATA mr_toolbar TYPE REF TO cl_gui_toolbar.

DATA : gt_checked TYPE lvc_t_chit,

gs_checked LIKE LINE OF gt_checked,

l_part_key TYPE lvc_nkey,

gt_node TYPE lvc_s_chit-nodekey.

INCLUDE <icon>.

INCLUDE zamit_alv_tree_toolbar_event.

INCLUDE zbcalv_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.

else.

CALL METHOD me->refresh_table_display

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.

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.

*mrk

WHEN 'MOVE'.

PERFORM check_selection.

WHEN 'MBAK'.

PERFORM another_selection.

WHEN 'ALL'.

PERFORM select_all.

WHEN 'CLEAR'.

PERFORM clear_all.

WHEN 'DELETE'.

PERFORM delete_all.

WHEN 'EXPAND'.

PERFORM expand_all.

WHEN 'COLLAPSE'.

PERFORM collapse_all.

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.

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 check_selection

&----

text

----

--> p1 text
<-- p2 text

----

FORM check_selection .

create container for alv-tree

DATA: l_tree_container_name(30) TYPE c,

l_custom_container2 TYPE REF TO cl_gui_custom_container.

l_tree_container_name = 'TREE2'.

IF sy-batch IS INITIAL.

CREATE OBJECT l_custom_container2

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.

CREATE OBJECT go_grid

EXPORTING

I_SHELLSTYLE = 0
I_LIFETIME =

i_parent = l_custom_container2

I_APPL_EVENTS = space
I_PARENTDBG =
I_APPLOGPARENT =
I_GRAPHICSPARENT =
I_NAME =
EXCEPTIONS
ERROR_CNTL_CREATE = 1
ERROR_CNTL_INIT = 2
ERROR_CNTL_LINK = 3
ERROR_DP_CREATE = 4
others = 5

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

PERFORM load_data_into_grid.

*data: lt_nodes type LVC_T_NKEY,

ls_nodes like line of lt_nodes,
ls_checked like line of gt_checked.

*loop at gt_checked into ls_checked.

ls_nodes = ls_checked-nodekey.
append ls_nodes to lt_nodes.

*endloop.

*CALL METHOD tree1->unselect_nodes

EXPORTING
it_node_key = lt_nodes

EXCEPTIONS
CNTL_SYSTEM_ERROR = 1
DP_ERROR = 2
MULTIPLE_NODE_SELECTION_ONLY = 3
ERROR_IN_NODE_KEY_TABLE = 4
FAILED = 5
others = 6

*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. " check_selection

&----

*& Form another_selection

&----

text

----

--> p1 text
<-- p2 text

----

FORM another_selection .

create container for alv-tree

DATA: l_tree_container_name(30) TYPE c,

l_custom_container2 TYPE REF TO cl_gui_custom_container.

l_tree_container_name = 'TREE2'.

IF sy-batch IS INITIAL.

CREATE OBJECT l_custom_container2

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.

CREATE OBJECT ro_grid

EXPORTING

I_SHELLSTYLE = 0
I_LIFETIME =

i_parent = l_custom_container2

I_APPL_EVENTS = space
I_PARENTDBG =
I_APPLOGPARENT =
I_GRAPHICSPARENT =
I_NAME =
EXCEPTIONS
ERROR_CNTL_CREATE = 1
ERROR_CNTL_INIT = 2
ERROR_CNTL_LINK = 3
ERROR_DP_CREATE = 4
others = 5

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

PERFORM load_data_into_grid1.

DATA: lt_unsel TYPE lvc_t_nkey,

ls_unsel LIKE LINE OF lt_unsel.

LOOP AT gt_checked INTO gs_checked.

ls_unsel = gs_checked-nodekey.

APPEND ls_unsel TO lt_unsel.

ENDLOOP.

CALL METHOD tree1->unselect_nodes

EXPORTING

it_node_key = lt_unsel

EXCEPTIONS

cntl_system_error = 1

dp_error = 2

multiple_node_selection_only = 3

error_in_node_key_table = 4

failed = 5

OTHERS = 6.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

*CALL METHOD tree1->unselect_all

EXCEPTIONS
CNTL_SYSTEM_ERROR = 1
FAILED = 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.

DATA: text TYPE lvc_value,

item TYPE lvc_t_layi,

node TYPE lvc_s_layn,

inode TYPE lvc_nkey.

FIELD-SYMBOLS: <wa> TYPE ANY.

DATA: l_dref_wa LIKE LINE OF gt_sflight.

ASSIGN l_dref_wa TO <wa>.

READ TABLE gt_checked INTO gs_checked WITH KEY nodekey = 3.

inode = gs_checked-nodekey.

CALL METHOD tree1->get_outtab_line

EXPORTING

i_node_key = inode

IMPORTING

e_outtab_line = <wa>

e_node_text = text

et_item_layout = item

es_node_layout = node

EXCEPTIONS

node_not_found = 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.

DATA: lt_layout TYPE lvc_t_laci,

layout LIKE LINE OF lt_layout.

layout-chosen = 'X'.

layout-fieldname = tree1->c_hierarchy_column_name.

ls_item_layout-chosen = 'X'. "To give default checkbox value checked

layout-class = cl_gui_column_tree=>item_class_checkbox.

layout-editable = 'X'.

LAYOUT-U_CHOSEN = 'X'.

APPEND layout TO lt_layout.

CALL METHOD tree1->change_node

EXPORTING

i_node_key = inode

i_outtab_line = <wa>

IS_NODE_LAYOUT =

it_item_layout = lt_layout

I_NODE_TEXT =
I_U_NODE_TEXT =

EXCEPTIONS

node_not_found = 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.

*CALL METHOD tree1->change_item

EXPORTING
i_node_key = inode
i_fieldname = gs_checked-FIELDNAME
i_data = <wa>
I_U_DATA = ''
IS_ITEM_LAYOUT = layout
EXCEPTIONS
NODE_NOT_FOUND = 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.

*loop at lt_unsel into ls_unsel.

*CALL METHOD tree1->update_checked_items

EXPORTING
i_node_key = ls_unsel
i_fieldname = ''
i_checked = ''
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.

*endif.

ENDFORM. " another_selection

&----

*& Form select_all

&----

text

----

--> p1 text
<-- p2 text

----

FORM select_all .

CONSTANTS: c_x(1) TYPE c VALUE 'X'.

*********Check box modifications.

CALL METHOD tree1->delete_all_nodes

EXCEPTIONS

failed = 1

cntl_system_error = 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.

clear l_part_key.

create hierarchy

PERFORM create_hierarchy USING c_x.

CALL METHOD tree1->expand_node

EXPORTING

i_node_key = gt_node

I_LEVEL_COUNT = 1

i_expand_subtree = 'X'

EXCEPTIONS

failed = 1

illegal_level_count = 2

cntl_system_error = 3

node_not_found = 4

cannot_expand_leaf = 5

OTHERS = 6

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

add own functioncodes to the toolbar

perform change_toolbar.

perform register_events.

adjust column_width
call method tree1->COLUMN_OPTIMIZE.

ENDFORM. " select_all

&----

*& Form clear_all

&----

text

----

--> p1 text
<-- p2 text

----

FORM clear_all .

CONSTANTS: c_x(1) TYPE c VALUE space.

*********Check box modifications.

CALL METHOD tree1->delete_all_nodes

EXCEPTIONS

failed = 1

cntl_system_error = 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.

create hierarchy

PERFORM create_hierarchy USING c_x.

CALL METHOD tree1->expand_node

EXPORTING

i_node_key = gt_node

I_LEVEL_COUNT = 1

i_expand_subtree = 'X'

EXCEPTIONS

failed = 1

illegal_level_count = 2

cntl_system_error = 3

node_not_found = 4

cannot_expand_leaf = 5

OTHERS = 6

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. " clear_all

&----

*& Form delete_all

&----

text

----

--> p1 text
<-- p2 text

----

FORM delete_all .

*********Check box modifications.

CALL METHOD tree1->delete_all_nodes

EXCEPTIONS

failed = 1

cntl_system_error = 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.

ENDFORM. " delete_all

&----

*& Form expand_all

&----

text

----

--> p1 text
<-- p2 text

----

FORM expand_all .

CALL METHOD tree1->expand_node

EXPORTING

i_node_key = gt_node

I_LEVEL_COUNT = 1

i_expand_subtree = 'X'

EXCEPTIONS

failed = 1

illegal_level_count = 2

cntl_system_error = 3

node_not_found = 4

cannot_expand_leaf = 5

OTHERS = 6

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. " expand_all

&----

*& Form collapse_all

&----

text

----

--> p1 text
<-- p2 text

----

FORM collapse_all .

CALL METHOD tree1->collapse_all_nodes

EXCEPTIONS

failed = 1

cntl_system_error = 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.

ENDFORM. " collapse_all

&----

*& Form load_data_into_grid

&----

text

----

--> p1 text
<-- p2 text

----

FORM load_data_into_grid .

DATA:

For parameter IS_VARIANT

l_layout TYPE disvariant,

gs_layout TYPE lvc_s_layo.

DATA gi_sflight TYPE TABLE OF zsflight.

Load data into the grid and display them

l_layout-report = sy-repid.

gs_layout-grid_title = 'Amits Test Program'.

gs_layout-sel_mode = 'A'.

SELECT *

FROM zsflight

INTO TABLE gi_sflight.

CALL METHOD go_grid->set_table_for_first_display

EXPORTING

i_structure_name = 'SFLIGHT'

is_layout = gs_layout

is_variant = l_layout

i_save = 'A'

CHANGING

it_outtab = gi_sflight.

ENDFORM. " load_data_into_grid

&----

*& Form load_data_into_grid

&----

text

----

--> p1 text
<-- p2 text

----

FORM load_data_into_grid1.

DATA:

For parameter IS_VARIANT

l_layout TYPE disvariant,

gs_layout TYPE lvc_s_layo.

DATA gi_sflight TYPE TABLE OF zapempl.

Load data into the grid and display them

l_layout-report = sy-repid.

gs_layout-grid_title = 'Rams Test Program'.

gs_layout-sel_mode = 'A'.

SELECT *

FROM zapempl

INTO TABLE gi_sflight.

CALL METHOD ro_grid->set_table_for_first_display

EXPORTING

i_structure_name = 'ZAPEMPL'

is_layout = gs_layout

is_variant = l_layout

i_save = 'A'

CHANGING

it_outtab = gi_sflight.

ENDFORM. " load_data_into_grid1

&----

*& 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 USING p_x.

DATA: ls_sflight TYPE sflight,

lt_sflight TYPE sflight OCCURS 0.

get data

SELECT * FROM sflight INTO TABLE lt_sflight

UP TO 200 ROWS .

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.

l_part_key TYPE lvc_nkey

PERFORM add_carrid_line USING ls_sflight

CHANGING l_part_key.

gt_node = l_part_key.

LOOP AT lt_sflight INTO ls_sflight.

ON CHANGE OF ls_sflight-carrid.

PERFORM add_carrid_line USING ls_sflight

l_part_key

CHANGING l_carrid_key.

PERFORM add_connid_line USING ls_sflight

l_carrid_key

CHANGING l_connid_key.

PERFORM add_complete_line USING ls_sflight

l_connid_key

p_x

CHANGING l_last_key.

CONTINUE.

ENDON.

ON CHANGE OF ls_sflight-connid.

PERFORM add_connid_line USING ls_sflight

l_carrid_key

CHANGING l_connid_key.

PERFORM add_complete_line USING ls_sflight

l_connid_key

p_x

CHANGING l_last_key.

CONTINUE.

ENDON.

PERFORM add_complete_line USING ls_sflight

l_connid_key

p_x

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.

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_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

p_x

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-chosen = p_x. "To give default checkbox value checked

ls_item_layout-class = cl_gui_column_tree=>item_class_checkbox.

ls_item_layout-editable = 'X'.

APPEND ls_item_layout TO lt_item_layout.

l_node_text = ps_sflight-fldate.

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

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.

SET HANDLER l_event_receiver->handle_checkbox_change FOR tree1.

ENDFORM. " register_events

&----

*& Form change_toolbar

&----

text

----

--> p1 text
<-- p2 text

----

FORM change_toolbar.

DATA: toolbar_event_receiver TYPE REF TO lcl_toolbar_event_receiver.

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.

create tree control

CREATE OBJECT tree1

EXPORTING

parent = l_custom_container

node_selection_mode = cl_gui_column_tree=>node_sel_mode_multiple "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.

CONSTANTS: c_s(1) TYPE c VALUE space.

create hierarchy

PERFORM create_hierarchy USING c_s.

add own functioncodes to the toolbar

PERFORM change_toolbar.

PERFORM register_events.

adjust column_width
call method tree1->COLUMN_OPTIMIZE.

ENDFORM. " init_tree