ALV Tree column

Former Member — Tue, 04 Mar 2008 20:29:22 GMT

Hi everybody who is familiar with ALV Tree.

I have a problem with setting the column of the ALV tree editable.

Efforts to set the column in the field catalog as editable didn't help.

The problem also occures when trying to set the item for the corresponding table field as editable (no tree displayed ).

If anyone can help - many thanks in advance.

Re: ALV Tree column

Former Member — Wed, 05 Mar 2008 07:07:22 GMT

Hello,

U can easily find all the details regarding ALV (ordinary,OOPS,TREE ,DRAG etcc....) in the package "SLIS".

Neeraj

Re: ALV Tree column

Former Member — Wed, 05 Mar 2008 07:13:15 GMT

i think it may help you

http://www.sapdev.co.uk/reporting/alv/alvtree.htm

Re: ALV Tree column

Former Member — Wed, 05 Mar 2008 07:13:19 GMT

Hai Dmitry Antanovich

Check This Code On Alv Tree Control

REPORT z_alv_tree.

Demo program prepared for SAPTechnical.COM

CLASS cl_gui_column_tree DEFINITION LOAD.

CLASS cl_gui_cfw DEFINITION LOAD.

DATA tree1 TYPE REF TO cl_gui_alv_tree_simple.

INCLUDE <icon>.

INCLUDE bcalv_simple_event_receiver.

DATA: gt_sflight TYPE sflight OCCURS 0, " Output-Table

gt_fieldcatalog TYPE lvc_t_fcat, " Field Catalog

gt_sort TYPE lvc_t_sort, " Sorting Table

ok_code LIKE sy-ucomm. " OK-Code

END-OF-SELECTION.

CALL SCREEN 100.

&----

*& Form BUILD_FIELDCATALOG

&----

This subroutine is used to build the field catalog for the ALV list

----

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_OUTTAB

&----

Retrieving the data from the table and filling it in the output table
of the ALV list

----

FORM build_outtab.

SELECT * FROM sflight INTO TABLE gt_sflight.

ENDFORM. " BUILD_OUTTAB

&----

*& Form BUILD_SORT_TABLE

&----

This subroutine is used to build the sort table or the sort criteria

----

FORM build_sort_table.

DATA ls_sort_wa TYPE lvc_s_sort.

create sort-table

ls_sort_wa-spos = 1.

ls_sort_wa-fieldname = 'CARRID'.

ls_sort_wa-up = 'X'.

ls_sort_wa-subtot = 'X'.

APPEND ls_sort_wa TO gt_sort.

ls_sort_wa-spos = 2.

ls_sort_wa-fieldname = 'CONNID'.

ls_sort_wa-up = 'X'.

ls_sort_wa-subtot = 'X'.

APPEND ls_sort_wa TO gt_sort.

ls_sort_wa-spos = 3.

ls_sort_wa-fieldname = 'FLDATE'.

ls_sort_wa-up = 'X'.

APPEND ls_sort_wa TO gt_sort.

ENDFORM. " BUILD_SORT_TABLE

&----

*& Module PBO OUTPUT

&----

This subroutine is used to build the ALV Tree

----

MODULE pbo OUTPUT.

IF tree1 IS INITIAL.

PERFORM init_tree.

ENDIF.

SET PF-STATUS 'ZSTATUS'.

ENDMODULE. " PBO OUTPUT

&----

*& Module PAI INPUT

&----

This subroutine is used to handle the navigation on the screen

----

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.

ENDMODULE. " PAI INPUT

&----

*& Form exit_program

&----

free object and leave program

----

FORM exit_program.

CALL METHOD tree1->free.

LEAVE PROGRAM.

ENDFORM. " exit_program

&----

*& Form register_events

&----

Handling the events in the ALV Tree control in backend

----

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

APPEND l_event TO lt_events.

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

set Handler

DATA: l_event_receiver TYPE REF TO lcl_tree_event_receiver.

CREATE OBJECT l_event_receiver.

SET HANDLER l_event_receiver->on_add_hierarchy_node

FOR tree1.

ENDFORM. " register_events

&----

*& Form build_header

&----

build table for header

----

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 for SAPTechnical.COM'.

APPEND ls_line TO pt_list_commentary.

p_logo = 'ENJOYSAP_LOGO'.

ENDFORM. "build_comment

&----

*& Form init_tree

&----

Building the ALV-Tree for the first time display

----

FORM init_tree.

PERFORM build_fieldcatalog.

PERFORM build_outtab.

PERFORM build_sort_table.

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

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.

create tree control

CREATE OBJECT tree1

EXPORTING

i_parent = l_custom_container

i_node_selection_mode =

cl_gui_column_tree=>node_sel_mode_multiple

i_item_selection = 'X'

i_no_html_header = ''

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

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.

PERFORM register_events.

create hierarchy

CALL METHOD tree1->set_table_for_first_display

EXPORTING

it_list_commentary = lt_list_commentary

i_logo = l_logo

i_background_id = 'ALV_BACKGROUND'

i_save = 'A'

is_variant = ls_variant

CHANGING

it_sort = gt_sort

it_outtab = gt_sflight

it_fieldcatalog = gt_fieldcatalog.

expand first level

CALL METHOD tree1->expand_tree

EXPORTING

i_level = 1.

optimize column-width

CALL METHOD tree1->column_optimize

EXPORTING

i_start_column = tree1->c_hierarchy_column_name

i_end_column = tree1->c_hierarchy_column_name.

ENDFORM. " init_tree

topic ALV Tree column in Application Development and Automation Discussions

ALV Tree column

Re: ALV Tree column

Re: ALV Tree column

Re: ALV Tree column