Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

Tutorial do ALV Tree programming

Former Member

‎2007 May 25 7:02 AM

0 Likes
6,184

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.

5 REPLIES 5
Read only

Former Member

‎2007 May 25 7:07 AM

0 Likes
1,332

Hi,

Go thru this Following Threads,

Regards,

Padmam.

Read only

Former Member

‎2007 May 25 7:09 AM

0 Likes
1,332

Hi,

check the system defined programs

SAPTLIST_TREE_CONTROL_DEMO

SAPSIMPLE_TREE_CONTROL_DEMO

SAPCOLUMN_TREE_CONTROL_DEMO

rgds,

bharat.

Read only

Former Member

‎2007 May 25 7:09 AM

0 Likes
1,332

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

Read only

Former Member

‎2007 May 25 7:11 AM

0 Likes
1,332

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 -

Read only

Former Member

‎2007 May 25 7:11 AM

0 Likes
1,332

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

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.

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.

*

    • register events

  • 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.

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.

  • register events

PERFORM register_events.

  • adjust column_width

  • call method tree1->COLUMN_OPTIMIZE.

ENDFORM. " init_tree