Change toolbar in an alv tree

Hi,
I 'm using an alv tree.
I need to change the toolbar to add an icon in which we have several choices as for example the icon "VARIANT" in wich we have 3 or 4 entries : "Save variant" (&SAVE), "Maintain variant" (&MAINTAIN), ...(&COL0") --> One icon and several choices
I'm using the method ADD_BUTTON from Class CL_GUI_TREE.
Can someone help me ?
thanks

Hi Robert
Hope below code can give you some idea:
*&      Form CHANGE_TOOLBAR
FORM CHANGE_TOOLBAR .
DATA: TOOLBAR TYPE REF TO CL_GUI_TOOLBAR.
DATA: IT_BUTTON TYPE TTB_BUTTON.
CALL METHOD TREE1->GET_TOOLBAR_OBJECT
     IMPORTING
        ER_TOOLBAR = TOOLBAR.
CHECK NOT TOOLBAR IS INITIAL.
CALL METHOD TOOLBAR->ADD_BUTTON
     EXPORTING
        FCODE = ' '
        ICON = ' '
        BUTN_TYPE = CNTB_BTYPE_SEP
        TEXT = ' '
        QUICKINFO = 'This is Separator'.
CALL METHOD TOOLBAR->FILL_BUTTONS_DATA_TABLE
EXPORTING
    FCODE = 'SUCC'
    ICON = '@5B@'
    BUTN_TYPE = CNTB_BTYPE_GROUP
    TEXT = ' '
    QUICKINFO = 'GREEN'
CHANGING
    DATA_TABLE = IT_BUTTON.
CALL METHOD TOOLBAR->FILL_BUTTONS_DATA_TABLE
EXPORTING
    FCODE = 'STOP'
    ICON = '@5D@'
    BUTN_TYPE = CNTB_BTYPE_GROUP
    TEXT = ' '
    QUICKINFO = 'WAIT'
CHANGING
    DATA_TABLE = IT_BUTTON.
CALL METHOD TOOLBAR->FILL_BUTTONS_DATA_TABLE
EXPORTING
    FCODE = 'ERR'
    ICON = '@5C@'
    BUTN_TYPE = CNTB_BTYPE_GROUP
    TEXT = ' '
    QUICKINFO = 'RED'
CHANGING
    DATA_TABLE = IT_BUTTON.
CALL METHOD TOOLBAR->ADD_BUTTON_GROUP
    EXPORTING
      DATA_TABLE = IT_BUTTON.
ENDFORM.                    " CHANGE_TOOLBAR
Regards
Eswar

Similar Messages

Remove ALV Tree default Toolbar

Hi!
is there any way to remove the default toolbar of an ALV tree??
Thanks.

Hi,
If you are using CL_GUI then
call method tree1->set_table_for_first_display
 exporting
 it_list_commentary = gt_header[]
 is_layout = gs_layout_tree
 it_toolbar_excluding = gt_exclude "<<<<< Include here all FCODE values
 changing
 it_sort = gt_sort[]
 it_outtab = i_ynetitmdes[]
 it_fieldcatalog = gt_fieldcat[].
or if you are usiing Object Model (CL_SALV_TREE) then
grt_functions = gr_tree->get_functions( ).
grt_functions->set_all( abap_false ).
a®

How to change the color of specific row in ALV tree

Hi,
I m using method set_table_for_first_display of a class CL_GUI_ALV_TREE.
The req is to change the color of specific row. Now can anybody tell me how to change the color of ALV tree. As in ALV tree and in this method 'set_table_for_first_display', there is no parameter IS_Layout.
Pls suggest...

hi
hope this code will help you.
Reward if help.
REPORT zsharad_test1.
TABLES: ekko.
TYPE-POOLS: slis. "ALV Declarations
*Data Declaration
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,
line_color(4) TYPE c, "Used to store row color attributes
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
wa_ekko TYPE t_ekko.
*ALV data declarations
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
gd_tab_group TYPE slis_t_sp_group_alv,
gd_layout TYPE slis_layout_alv,
gd_repid LIKE sy-repid.
*Start-of-selection.
START-OF-SELECTION.
PERFORM data_retrieval.
PERFORM build_fieldcatalog.
PERFORM build_layout.
PERFORM display_alv_report.
*& Form BUILD_FIELDCATALOG
Build Fieldcatalog for ALV Report
FORM build_fieldcatalog.
There are a number of ways to create a fieldcat.
For the purpose of this example i will build the fieldcatalog manualy
by populating the internal table fields individually and then
appending the rows. This method can be the most time consuming but can
also allow you more control of the final product.
Beware though, you need to ensure that all fields required are
populated. When using some of functionality available via ALV, such as
total. You may need to provide more information than if you were
simply displaying the result
I.e. Field type may be required in-order for
the 'TOTAL' function to work.
fieldcatalog-fieldname = 'EBELN'.
fieldcatalog-seltext_m = 'Purchase Order'.
fieldcatalog-col_pos = 0.
fieldcatalog-outputlen = 10.
fieldcatalog-emphasize = 'X'.
fieldcatalog-key = 'X'.
fieldcatalog-do_sum = 'X'.
fieldcatalog-no_zero = 'X'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'EBELP'.
fieldcatalog-seltext_m = 'PO Item'.
fieldcatalog-col_pos = 1.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'STATU'.
fieldcatalog-seltext_m = 'Status'.
fieldcatalog-col_pos = 2.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'AEDAT'.
fieldcatalog-seltext_m = 'Item change date'.
fieldcatalog-col_pos = 3.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'MATNR'.
fieldcatalog-seltext_m = 'Material Number'.
fieldcatalog-col_pos = 4.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'MENGE'.
fieldcatalog-seltext_m = 'PO quantity'.
fieldcatalog-col_pos = 5.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'MEINS'.
fieldcatalog-seltext_m = 'Order Unit'.
fieldcatalog-col_pos = 6.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'NETPR'.
fieldcatalog-seltext_m = 'Net Price'.
fieldcatalog-col_pos = 7.
fieldcatalog-outputlen = 15.
fieldcatalog-datatype = 'CURR'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'PEINH'.
fieldcatalog-seltext_m = 'Price Unit'.
fieldcatalog-col_pos = 8.
APPEND fieldcatalog TO fieldcatalog.
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).
Set layout field for row attributes(i.e. color)
gd_layout-info_fieldname = 'LINE_COLOR'.
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 DISPLAY_ALV_REPORT
Display report using ALV grid
FORM display_alv_report.
gd_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = gd_repid
i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM
i_callback_user_command = 'USER_COMMAND'
i_grid_title = outtext
is_layout = gd_layout
it_fieldcat = fieldcatalog[]
it_special_groups = gd_tabgroup
IT_EVENTS = GT_XEVENTS
i_save = 'X'
is_variant = z_template
TABLES
t_outtab = it_ekko
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.
ENDFORM. " DISPLAY_ALV_REPORT
*& Form DATA_RETRIEVAL
Retrieve data form EKPO table and populate itab it_ekko
FORM data_retrieval.
DATA: ld_color(1) TYPE c.
SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh
UP TO 10 ROWS
FROM ekpo
INTO TABLE it_ekko.
*Populate field with color attributes
LOOP AT it_ekko INTO wa_ekko.
Populate color variable with colour properties
Char 1 = C (This is a color property)
Char 2 = 3 (Color codes: 1 - 7)
Char 3 = Intensified on/off ( 1 or 0 )
Char 4 = Inverse display on/off ( 1 or 0 )
i.e. wa_ekko-line_color = 'C410'
ld_color = ld_color + 1.
Only 7 colours so need to reset color value
IF ld_color = 8.
ld_color = 1.
ENDIF.
CONCATENATE 'C' ld_color '10' INTO wa_ekko-line_color.
wa_ekko-line_color = 'C410'.
MODIFY it_ekko FROM wa_ekko.
ENDLOOP.
ENDFORM. " DATA_RETRIEVAL

Disable button in alv tree

Hi, I'm not able to disable a button that I added in the toolbar of an alv tree. Here is a piece of my code
Add_Button
    data: lr_functions type ref to cl_salv_functions_tree.
    lr_functions = mr_tree->get_functions( ).
     lr_functions->add_function(
        name     = '&OPEN_ALL'
        icon     = l_icon
        text     = l_text1
        tooltip = l_text1
        position = if_salv_c_function_position=>right_of_salv_functions ).
Disable_Button
try.
    lr_functions->ENABLE_FUNCTION(
      name      = '&OPEN_ALL'
      boolean   = abap_false ).
    catch cx_salv_wrong_call CX_SALV_NOT_FOUND.
endtry.
Enable_function does not return an exception, so it found the button. But the button still enable. What's wrong?
Thanks, Davy

Hi Davy,
I'm facing same problem as you, did you resolved it?
My coode looks like this
data: l_function type ref to CL_SALV_FUNCTION.
l_function->set_enable( abap_false ).
Thanks in advance.
Well, it seems that i solved it.
Instead of using
l_function->set_enable( abap_false ).
i used
l_function->set_visible( abap_false ).
Edited by: Jorge Sancho Royo on Apr 2, 2008 1:46 PM

Toolbar buttons in ALV column tree

Dear Experts,
Currently a report is being displayed using 2 custom container and class CL_GUI_ALV_COLUMN_TREE in a single screen Screen 100.
Funtions like Select all, Deselect All, Expand All, Colapse all are in the GUI status of this Screen 100.
Q1. Is it possible to have buttons on the container itself (instead of having it in the GUI status of Scr. 100) and have the above funtions work for ALV column tree .
Q2. There exists a check box in each row of the node in both the containers which is meant for comparing data between two containers.
e.g the user Checks one row of the first container (ALV tree output) and another in 2nd container and press Compare button which is present in Scr 100 GUI status.
When the ckeck box is selected the rows are being selected, this is done in CheckBoX Change event of CL_GUI_ALV_COLUMN_TREE. Now when the Deselect ALL button is clicked rows are getting deselected but check marks are not getting cleared from the check box.
How can the check box be cleared when we press Deselect All button which is in GUI Status of Scr 100.?
Thanks n Regards

Hello Mahesh
Assuming that you are dealing with class
CL_GUI_ALV_TREE (because I cannot find class CL_GUI_ALV_COLUMN_TREE) sample report BCALV_TREE_04 shows how to add a button to the toolbar.
The crucial points can be found in routine CHANGE_TOOLBAR:
form change_toolbar.
* §1.Get toolbar instance of your ALV Tree.
* When you instantiate an instance of CL_GUI_ALV_TREE the constructor
* of the base class (CL_ALV_TREE_BASE) creates a toolbar.
* Fetch its reference with the following method if you want to
* modify it:
call method g_alv_tree->get_toolbar_object
 importing
 er_toolbar = g_toolbar.
check not g_toolbar is initial. "could happen if you do not use the
 "standard toolbar
* §2.Modify toolbar with methods of CL_GUI_TOOLBAR:
* add seperator to toolbar
call method g_toolbar->add_button
 exporting
 fcode = ''
 icon = ''
 butn_type = cntb_btype_sep.
* add Standard Button to toolbar (for Delete Subtree)
call method g_toolbar->add_button
 exporting
 fcode = 'DELETE'
 icon = '@11@'
 butn_type = cntb_btype_button
 text = ''
 quickinfo = text-901. "Delete subtree
endform.
Regards
Uwe

ALV tree - change node text

hello,
on a screen I have input fields such as year and below a container holding an ALV tree.
When I change the year value, that starts a new selection from a table and should result in changing many of the lines in the tree.
I was trying to use the methods "get_outtab_line" to retrieve the tree line data and then changing this data with method "change_node".
The problem is I cannot access the correct node-key. The node-key value is kept in memory somewhere and when I refresh the alv tree at PBO, the node-key is incremented from the stored value which means I cannot use get_outtab_line properly.
Any suggestions or example programs,
Thanks a lot,
Kevin

Hi Kevin,
Try using method update_calculations instead of directly using frontend_update.
So the sequence should be,
IF NOT ref_tree IS INITIAL.
CALL METHOD ref_tree->free.
ENDIF.
CREATE OBJECT ref_tree...
CALL METHOD ref_tree->set_table_for_first_display...
****Data fill in a loop
CALL METHOD ref_tree->add_node..
****Expand if needed
CALL METHOD ref_tree->expand_node..
****Toolbar Logic if needed..
****Events Registration
****Finally call to update calculations
CALL METHOD ref_tree->update_calculations..
Hope this helps..
Sri

Toolbar for ALV tree

Hi All,
I am populating data in ALV tree format using cl_gui_column_tree class methods. Now I want to have standard ALV functionality on top of my tree. How to acheive this?
Appreciate your help on the same.
Thanks & regards,
Prakash Ghantasala

Tree is not having a table structure,so the standard ALV toolbar is of logically no use and hence is not provided along with it.
Yet you can do R&D .To get the std ALV gui status you can copy the the gui status SALV_TABLE_STANDARD of program SALV_METADATA_STATUS

ALV Tree - Change average value

Hi all,
I want to change the average value. For the follow example the hierarchy has 2 lines but it is a summarize of 13 lines. So the right average is (100.00 + 16.67) / 13
SAP average
Expectation:
I am using:
data: g_tree type ref to cl_gui_alv_tree_simple.
Is it possible to change it?
Regards,
Andréa

Hi,
Use CL_GUI_ALV_TREE method for creating the Tree, in that create each node by method ADD_NODE. With this method you can do calculation and update while building the ALV Tree.
Just refer the Demo program 'BCALV_TREE_DEMO'.
First get the final output table data.
Loop that table and create each node by using ADD_NODE method.
Thanks & Regards
Bala Krishna

ALV Tree - how to change values of Total

Hi all,
I am using ALV tree (cl_gui_alv_tree). After calling the method update_calculations, alv tree will calculate the total at every node.
Now, I want to blank out the Total value of the root node. I tried to use method change_linde and then frontend_update, but it didn't work.
Here is the flow I used.
- call method update_calculations.
- call method get_outtab_line.
- call method change_node.
- call method frontend_update.
Could you please look at it? I don't know If I missed something.
Thanks in advance.
Best rgds,
Solaris.

Hi,
I am also having a similar requirement like this but I need to recalculate the values at node level(Ex:percentages).
Please let me know if you found any way to achieve this or any alternative solutions you suggested to functional team.
Appreciate your response.
Thanks,
Ramesh

Problem in ALV Tree

Hello Friends,
I am using ALV Tree to display a report.
In this report for a particular input.2 nodes are cerated.
On clicking on the 2nd node the details for the same are shown .
However on clicking the 1st node , the system automatically logs off closing all the SAP sessions and even the SAP Logon pad.
Suppose i am on executing the program on development server,even the sessions of test server are closed.
Can anyone please help me in this.....
its a bit urgent.
i am attaching my code for reference.
REPORT ZPRPROUTOPERATIONS1 .
tables : mapl,t001w,zroutpromast.
TYPE-POOLS: slis,kkblo.
include <icon>.
data : it_zrouteledtl like zrouteledtl occurs 0 with header line.
data : it_zeledtl type zeledtl occurs 0 with header line.
data : conv_sec(5) type c value '0.036'.
types : begin of it_output2,
 Srno like zrouteledtl-srno,
 srno1 type p decimals 8,
 subgid like zrouteledtl-subgid,
 subopn like zrouteledtl-subopn,
 movetype type zeledtl-movetype,
 DESC type zeledtl-description,
 Add_desc like zrouteledtl-DESCRIPTION,
 Freq type p decimals 2,
 div_freq type p decimals 2,
 men type p decimals 2,
 offline(3),
 CT type p decimals 2,
 CW type p decimals 2,
 Ideal_ct type p decimals 2,
 ideal_cw type p decimals 2,
 A_trg type p decimals 2,
 b_Trg type p decimals 2,
 g_Trg type p decimals 2,
 p_Trg type p decimals 2,
 m_Trg type p decimals 2,
 t_Trg type p decimals 2,
 i_Trg type p decimals 2,
 Autocycle type p decimals 2,
 online_time type p decimals 2,
 offline_time type p decimals 2,
 online_p_time type p decimals 2,
 offline_p_time type p decimals 2,
 end of it_output2.
*types : begin of it_output3,
 Srno like zrouteledtl-srno,
 mop_gid like zroutdetails-MOP_GID,
 MOp_opn like zroutdetails-MOP_OPN,
 sub_gid like zpromast-subgid,
 subopn like zpromast-subopn,
 DESC like zpromast-description,
 Add_desc like zroutdetails-ADD_INFO,
 Freq type p decimals 2,
 batch type p decimals 2,
 mix type p decimals 2,
 offline(3),
 CT type p decimals 2,
 CW type p decimals 2,
 Ideal_ct type p decimals 2,
 ideal_cw type p decimals 2,
 A_trg type p decimals 2,
 b_Trg type p decimals 2,
 g_Trg type p decimals 2,
 p_Trg type p decimals 2,
 m_Trg type p decimals 2,
 t_Trg type p decimals 2,
 i_Trg type p decimals 2,
 Autocycle type p decimals 2,
 online_time type p decimals 2,
 offline_time type p decimals 2,
 online_p_time type p decimals 2,
 offline_p_time type p decimals 2,
 end of it_output3.
data : it_output type it_output2 occurs 0 with header line,
 it_output1 type it_output2 occurs 0 with header line,
 it_emptytab type standard table of it_output2 INITIAL SIZE 0.
data : a_trg type f,b_trg type f,g_trg type f,p_trg type f,m_trg type f,t_trg type f,i_trg type f,
 autocycle type f,online_p_time type f,offline_p_time type f.
data : ch1 type c,ch2.
DATA: ok_code like sy-ucomm, "OK-Code
 save_ok like sy-ucomm.
data : ct_fieldcat type KKBLO_T_FIELDCAT.
*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.
*data mr_toolbar type ref to cl_gui_toolbar. "Add to top include
selection-screen begin of block start with frame title text-001.
select-options: p_gid for zroutpromast-mop_gid obligatory no-extension no intervals,
 p_opn for zroutpromast-mop_opn obligatory no-extension no intervals,
 p_werks for t001w-werks obligatory no-extension no intervals.
selection-screen end of block start.
*selection-screen begin of block detail with frame title text-002.
*parameter : radio1 radiobutton group dept default 'X',
 radio2 radiobutton group dept.
*selection-screen end of block detail.
include ZTEST_TOOLBAR_EVENT_RECEIVER.
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
 text
--> p1 text
<-- p2 text
FORM data_retrieval .
select * from zrouteledtl into table it_zrouteledtl where mop_gid in p_gid and
 mop_opn in p_opn
 and werks in p_werks.
if sy-subrc ne 0.
message i001(0) with 'No Records Found'.
leave program.
endif.
select * from zeledtl into table it_zeledtl for all entries in it_zrouteledtl
 where subgid = it_zrouteledtl-subgid
 and subopn = it_zrouteledtl-subopn
 and werks = it_zrouteledtl-werks.
loop at it_zeledtl.
 it_output1-srno = it_zeledtl-srno.
 it_output1-srno1 = it_zeledtl-srno.
 it_output1-subgid = it_zeledtl-subgid.
 it_output1-subopn = it_zeledtl-subopn.
 it_output1-movetype = it_zeledtl-movetype.
 it_output1-desc = it_zeledtl-DESCRIPTION.
 it_output1-freq = it_zeledtl-frequency.
 it_output1-div_freq = it_zeledtl-div_freq.
 it_output1-men = it_zeledtl-men.
 it_output1-offline = it_zeledtl-offline1.
 it_output1-ct = it_zeledtl-cy_time * conv_sec.
 it_output1-cw = it_zeledtl-wc_time * conv_sec.
 it_output1-ideal_ct = it_zeledtl-cy_trg_time * conv_sec.
 it_output1-ideal_cw = it_zeledtl-wc_trg_time * conv_sec.
 if it_zeledtl-men = 0.
 it_output-autocycle = it_zeledtl-cy_time * conv_sec.
 endif.
 if it_zeledtl-men ne 0 and it_zeledtl-offline1 eq 'NO'
 and ( it_zeledtl-movetype eq 'A' or it_zeledtl-movetype eq 'C' ).
 case it_zeledtl-movetype.
 when 'A'.
 if it_zeledtl-SIM_AUTO = 'TRUE'.
 ch2 = 0.
 else.
 ch2 = 1.
 endif.
 it_output-online_p_time = ( it_zeledtl-autocycle * ch2 * conv_sec ) * it_zeledtl-frequency / it_zeledtl-div_freq.
 when 'C'.
 if it_zeledtl-sim5 = 'TRUE'.
 ch1 = 0.
 else.
 ch1 = 1.
 endif.
 it_output-online_p_time = ( it_zeledtl-index5 * it_zeledtl-par_freq5 * ch1
it_zeledtl-frequency * 10 ) / it_zeledtl-div_freq .
 endcase.
 elseif it_zeledtl-men ne 0 and it_zeledtl-offline1 eq 'YES'
 and ( it_zeledtl-movetype eq 'A' or it_zeledtl-movetype eq 'C' ).
 case it_zeledtl-movetype.
 when 'A'.
 if it_zeledtl-SIM_AUTO = 'TRUE'.
 ch2 = 0.
 else.
 ch2 = 1.
 endif.
 it_output1-offline_p_time = ( it_zeledtl-autocycle * ch2 * conv_sec ) * it_zeledtl-frequency / it_zeledtl-div_freq.
 when 'C'.
 if it_zeledtl-sim5 = 'TRUE'.
 ch1 = 0.
 else.
 ch1 = 1.
 endif.
 it_output-offline_p_time = ( it_zeledtl-index5 * it_zeledtl-par_freq5 * ch1
it_zeledtl-frequency * 10 ) / it_zeledtl-div_freq .
 endcase.
 endif.
 it_output1-a_trg = it_zeledtl-TARGET_A * conv_sec.
 it_output1-b_trg = it_zeledtl-target_B * conv_sec.
 it_output1-g_trg = it_zeledtl-TARGET_G * conv_sec.
 it_output1-p_trg = it_zeledtl-TARGET_P * conv_sec.
 it_output1-M_trg = it_zeledtl-TARGET_M * conv_sec.
 it_output1-t_trg = it_zeledtl-TARGET_T * conv_sec.
 it_output1-i_trg = it_zeledtl-TARGET_I * conv_sec.
 append it_output1.
endloop.
sort it_output1 ascending by subgid subopn srno1.
clear ch1.
loop at it_zrouteledtl.
 move-corresponding it_zrouteledtl to it_output.
 select single description from zpromast into it_output-desc
 where subgid = it_zrouteledtl-subgid and
 subopn = it_zrouteledtl-subopn and
 werks in p_werks.
 it_output-add_desc = it_zrouteledtl-description.
 it_output-freq = it_zrouteledtl-frequency.
 it_output-div_freq = it_zrouteledtl-div_freq.
 it_output-men = it_zrouteledtl-men.
 it_output-ct = it_zrouteledtl-cy_time * conv_sec.
 it_output-cw = it_zrouteledtl-wc_time * conv_sec.
 it_output-ideal_ct = it_zrouteledtl-cy_trg_time * conv_sec.
 it_output-ideal_cw = it_zrouteledtl-wc_trg_time * conv_sec.
 if it_zrouteledtl-offline1 = '1'.
 it_output-offline = 'No'.
 else.
 it_output-offline = 'Yes'.
 endif.
 append it_output.
endloop.
loop at it_output.
 if it_output-offline = 'Yes'.
 ch1 = 0.
 else.
 ch1 = 1.
 endif.
 loop at it_output1 where subgid = it_output-subgid and
 subopn = it_output-subopn.
 a_trg = A_trg + it_output1-A_trg.
 b_Trg = b_Trg + it_output1-b_Trg.
 g_Trg = g_Trg + it_output1-g_Trg.
 p_Trg = p_Trg + it_output1-p_Trg.
 m_Trg = m_Trg + it_output1-m_Trg.
 t_Trg = t_Trg + it_output1-t_Trg.
 i_Trg = i_Trg + it_output1-i_Trg.
 autocycle = autocycle + it_output1-Autocycle.
 online_p_time = online_p_time + it_output1-online_p_time.
 offline_p_time = offline_p_time + it_output1-offline_p_time.
 endloop.
 it_output-autocycle = ( autocycle * ch1 * it_output-freq ) / it_output-div_freq / it_output-men.
 it_output-a_trg = ( a_trg * ch1 * it_output-freq ) / it_output-div_freq / it_output-men.
 it_output-b_trg = ( b_trg * ch1 * it_output-freq ) / it_output-div_freq / it_output-men.
 it_output-g_trg = ( g_trg * ch1 * it_output-freq ) / it_output-div_freq / it_output-men.
 it_output-p_trg = ( p_trg * ch1 * it_output-freq ) / it_output-div_freq / it_output-men.
 it_output-m_trg = ( m_trg * ch1 * it_output-freq ) / it_output-div_freq / it_output-men.
 it_output-t_trg = ( t_trg * ch1 * it_output-freq ) / it_output-div_freq / it_output-men.
 it_output-i_trg = ( i_trg * ch1 * it_output-freq ) / it_output-div_freq / it_output-men.
 it_output-online_time = ( it_output-ct - it_output-autocycle ) * ch1.
 it_output-offline_time = ( it_output-ct - it_output-cw ) + it_output-autocycle.
 it_output-online_p_time = ( online_p_time * ch1 * it_output-freq ) / it_output-div_freq / it_output-men.
 it_output-offline_p_time = ( offline_p_time * ch1 * it_output-freq ) / it_output-div_freq / it_output-men.
 clear : a_trg,b_trg,g_trg,p_trg,m_trg,t_trg,i_trg,online_p_time,offline_p_time,ch1,ch2,it_zeledtl,
 autocycle,online_p_time,offline_p_time,zroutpromast.
 modify it_output.
endloop.
ENDFORM. " data_retrieval
*& Form build_fieldcatalog
 text
--> p1 text
<-- p2 text
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.
DATA: COL_POS TYPE I VALUE 0.
fieldcatalog-fieldname = 'SRNO'.
fieldcatalog-SCRTEXT_L = 'Sr No.'.
fieldcatalog-SCRTEXT_m = 'Sr No.'.
fieldcatalog-SCRTEXT_s = 'Sr No.'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
APPEND fieldcatalog TO gd_fieldcat..
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'SUBGID'. "Field name in itab
fieldcatalog-SCRTEXT_L = 'Sub Opn GID'. "Column text
fieldcatalog-SCRTEXT_m = 'Sub Opn GID'. "Column text
fieldcatalog-SCRTEXT_s = 'Sub Opn GID'. "Column text
fieldcatalog-col_pos = COL_POS. "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.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'SUBOPN'.
fieldcatalog-SCRTEXT_L = 'Sub Opn'.
fieldcatalog-SCRTEXT_m = 'Sub Opn'.
fieldcatalog-SCRTEXT_s = 'Sub Opn'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
fieldcatalog-emphasize = 'X'. "Emphasize (X or SPACE)
fieldcatalog-key = 'X'. "Key Field? (X or SPACE)
APPEND fieldcatalog TO gd_fieldcat..
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'MOVETYPE'.
fieldcatalog-SCRTEXT_L = 'Movetype'.
fieldcatalog-SCRTEXT_m = 'Movetype'.
fieldcatalog-SCRTEXT_s = 'Movetype'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
APPEND fieldcatalog TO gd_fieldcat..
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'DESC'.
fieldcatalog-SCRTEXT_L = 'Description'.
fieldcatalog-SCRTEXT_m = 'Description'.
fieldcatalog-SCRTEXT_s = 'Description'.
fieldcatalog-outputlen = 600.
fieldcatalog-col_pos = COL_POS.
APPEND fieldcatalog TO gd_fieldcat..
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'ADD_DESC'.
fieldcatalog-SCRTEXT_L = 'Add. Description'.
fieldcatalog-SCRTEXT_m = 'Add. Description'.
fieldcatalog-SCRTEXT_s = 'Add. Description'.
fieldcatalog-outputlen = 100.
fieldcatalog-col_pos = COL_POS.
APPEND fieldcatalog TO gd_fieldcat..
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'FREQ'.
fieldcatalog-SCRTEXT_L = 'Frequency'.
fieldcatalog-SCRTEXT_m = 'Frequency'.
fieldcatalog-SCRTEXT_s = 'Frequency'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
APPEND fieldcatalog TO gd_fieldcat..
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'DIV_FREQ'.
fieldcatalog-SCRTEXT_L = 'Div Freq'.
fieldcatalog-SCRTEXT_m = 'Div Freq'.
fieldcatalog-SCRTEXT_s = 'Div Freq'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
APPEND fieldcatalog TO gd_fieldcat..
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'MEN'.
fieldcatalog-SCRTEXT_L = 'Men'.
fieldcatalog-SCRTEXT_m = 'Men'.
fieldcatalog-SCRTEXT_s = 'Men'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
APPEND fieldcatalog TO gd_fieldcat..
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'BATCH'.
fieldcatalog-SCRTEXT_L = 'Batch/Div Freq'.
fieldcatalog-SCRTEXT_m = 'Batch/Div Freq'.
fieldcatalog-SCRTEXT_s = 'Batch/Div Freq'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'OFFLINE'.
fieldcatalog-SCRTEXT_L = 'Offline'.
fieldcatalog-SCRTEXT_m = 'Offline'.
fieldcatalog-SCRTEXT_s = 'Offline'.
fieldcatalog-outputlen = 6.
fieldcatalog-col_pos = COL_POS.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'CT'.
fieldcatalog-SCRTEXT_L = 'Cycle Time'.
fieldcatalog-SCRTEXT_m = 'Cycle Time'.
fieldcatalog-SCRTEXT_s = 'Cycle Time'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'CW'.
fieldcatalog-SCRTEXT_L = 'Work Content'.
fieldcatalog-SCRTEXT_m = 'Work Content'.
fieldcatalog-SCRTEXT_s = 'Work Content'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'IDEAL_CT'.
fieldcatalog-SCRTEXT_L = 'Ideal CT'.
fieldcatalog-SCRTEXT_m = 'Ideal CT'.
fieldcatalog-SCRTEXT_s = 'Ideal CT'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'IDEAL_CW'.
fieldcatalog-SCRTEXT_L = 'Ideal CW'.
fieldcatalog-SCRTEXT_m = 'Ideal CW'.
fieldcatalog-SCRTEXT_s = 'Ideal CW'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'A_TRG'.
fieldcatalog-SCRTEXT_L = 'Target A'.
fieldcatalog-SCRTEXT_m = 'Target A'.
fieldcatalog-SCRTEXT_s = 'Target A'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'B_TRG'.
fieldcatalog-SCRTEXT_L = 'Target B'.
fieldcatalog-SCRTEXT_m = 'Target B'.
fieldcatalog-SCRTEXT_s = 'Target B'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'G_TRG'.
fieldcatalog-SCRTEXT_L = 'Target G'.
fieldcatalog-SCRTEXT_m = 'Target G'.
fieldcatalog-SCRTEXT_s = 'Target G'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'P_TRG'.
fieldcatalog-SCRTEXT_L = 'Target P'.
fieldcatalog-SCRTEXT_m = 'Target P'.
fieldcatalog-SCRTEXT_s = 'Target P'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'M_TRG'.
fieldcatalog-SCRTEXT_L = 'Target M'.
fieldcatalog-SCRTEXT_m = 'Target M'.
fieldcatalog-SCRTEXT_s = 'Target M'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'T_TRG'.
fieldcatalog-SCRTEXT_L = 'Target T'.
fieldcatalog-SCRTEXT_m = 'Target T'.
fieldcatalog-SCRTEXT_s = 'Target T'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'I_TRG'.
fieldcatalog-SCRTEXT_L = 'Target I'.
fieldcatalog-SCRTEXT_m = 'Target I'.
fieldcatalog-SCRTEXT_s = 'Target I'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'AUTOCYCLE'.
fieldcatalog-SCRTEXT_L = 'AutoCycle'.
fieldcatalog-SCRTEXT_m = 'AutoCycle'.
fieldcatalog-SCRTEXT_s = 'AutoCycle'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'ONLINE_TIME'.
fieldcatalog-SCRTEXT_L = 'Online Time'.
fieldcatalog-SCRTEXT_m = 'Online Time'.
fieldcatalog-SCRTEXT_s = 'Online Time'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'OFFLINE_TIME'.
fieldcatalog-SCRTEXT_L = 'Offline Time'.
fieldcatalog-SCRTEXT_m = 'Offline Time'.
fieldcatalog-SCRTEXT_s = 'Offline Time'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'ONLINE_P_TIME'.
fieldcatalog-SCRTEXT_L = 'Online Process Time'.
fieldcatalog-SCRTEXT_m = 'Online Process Time'.
fieldcatalog-SCRTEXT_s = 'Online Process Time'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
COL_POS = COL_POS + 1.
fieldcatalog-fieldname = 'OFFLINE_P_TIME'.
fieldcatalog-SCRTEXT_L = 'Offline Process Time'.
fieldcatalog-SCRTEXT_m = 'Offline Process Time'.
fieldcatalog-SCRTEXT_s = 'Offline Process Time'.
fieldcatalog-outputlen = 15.
fieldcatalog-col_pos = COL_POS.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO gd_fieldcat.
CLEAR fieldcatalog.
ENDFORM. " build_fieldcatalog
*& Form build_layout
 text
--> p1 text
<-- p2 text
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
 text
 <--P_GD_HIERARCHY_HEADER text
FORM build_hierarchy_header CHANGING
 p_hierarchy_header TYPE treev_hhdr.
p_hierarchy_header-heading = 'Drill Down For Detail'(022).
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
 text
 -->P_GD_REPORT_TITLE text
 -->P_GD_LOGO text
FORM build_report_title using
 pt_report_title TYPE slis_t_listheader
 pa_logo TYPE sdydo_value.
DATA: ls_line TYPE slis_listheader,
 ld_date(10) TYPE c,
 string1 type string,string2 type string.
List Heading Line(TYPE H)
concatenate 'Material: ' p_matnr-low into string1 separated by space.
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-key = 'MOST Operation'.
concatenate p_gid-low p_opn-low into string2 separated by space.
ls_line-info = string2.
APPEND ls_line TO pt_report_title.
ls_line-typ = 'S'.
ls_line-key = 'Text'.
select single DESCRIPTION from zroutpromast into string1 where mop_gid = p_gid-low
 and mop_opn = p_opn-low
 and werks = p_werks-low.
ls_line-info = string1.
APPEND ls_line TO pt_report_title.
ls_line-typ = 'S'.
ls_line-key = 'Routing Counter:'.
ls_line-info = counter.
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. " build_report_title
*& Form build_variant
 text
--> p1 text
<-- p2 text
FORM build_variant .
gd_variant-report = sy-repid.
ENDFORM. " build_variant
*& Module STATUS_0100 OUTPUT
 text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'STATUS1'.
SET TITLEBAR 'ZTITLE'.
IF gd_tree IS INITIAL.
Create ALVtree (must be performed within screen PBO module)
 PERFORM create_alvtree_container.
 PERFORM create_object_in_container.
 PERFORM create_empty_alvtree_control.
 perform change_toolbar.
 PERFORM create_alvtree_hierarchy.
ENDIF.
CALL METHOD cl_gui_cfw=>flush.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
 text
MODULE USER_COMMAND_0100 INPUT.
case sy-ucomm.
 when 'EXIT' or 'BACK' or 'CANC'.
 call method gd_tree->free.
 leave program.
 when others.
 call method cl_gui_cfw=>dispatch.
endcase.
clear ok_code.
call method cl_gui_cfw=>flush.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form create_alvtree_container
 text
--> p1 text
<-- p2 text
FORM create_alvtree_container .
gd_tree_container_name = 'SCREEN_CONTAINER'.
create object gd_custom_container
 exporting
 container_name = gd_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'.
endif.
ENDFORM. " create_alvtree_container
*& Form create_object_in_container
 text
--> p1 text
<-- p2 text
FORM create_object_in_container .
create object gd_tree
 exporting
 parent = gd_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'.
endif.
ENDFORM. " create_object_in_container
*& Form create_empty_alvtree_control
 text
--> p1 text
<-- p2 text
FORM create_empty_alvtree_control .
CLEAR: it_emptytab.
REFRESH: it_emptytab.
CALL METHOD gd_tree->set_table_for_first_display
 EXPORTING
 is_hierarchy_header = gd_hierarchy_header
 it_list_commentary = gd_report_title
 i_logo = gd_logo
 i_background_id = 'ALV_BACKGROUND'
 i_save = 'A'
 is_variant = gd_variant
 CHANGING
 it_outtab = it_emptytab "Must be empty
 it_fieldcatalog = gd_fieldcat.
ENDFORM. " create_empty_alvtree_control
*& Form create_alvtree_hierarchy
 text
--> p1 text
<-- p2 text
FORM create_alvtree_hierarchy .
data: ls_sflight type sflight,
 lt_sflight type sflight occurs 0.
data: ld_mop_gid_key type lvc_nkey,
 ld_mop_opn_key type lvc_nkey.
loop at it_output.
 perform add_ekko_node using it_output
 changing ld_mop_gid_key.
 loop at it_output1 where subgid eq it_output-subgid
 and subopn eq it_output-subopn.
 perform add_ekpo_line using it_output1
 ld_mop_gid_key
 changing ld_mop_opn_key.
 endloop.
endloop.
calculate totals
call method gd_tree->update_calculations.
this method must be called to send the data to the frontend
call method gd_tree->frontend_update.
ENDFORM. " create_alvtree_hierarchy
*& Form add_ekko_node
 text
 -->P_IT_OUTPUT text
 -->P_2478 text
 <--P_LD_MOP_GID_KEY text
FORM add_ekko_node USING ps_output like it_output
 VALUE(p_relate_key)
 CHANGING p_node_key.
data: ld_node_text type lvc_value,
 ls_sflight type sflight.
data : text128(128).
Set item-layout
concatenate ps_output-subgid ps_output-subopn into text128 separated by space.
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 = gd_tree->c_hierarchy_column_name.
ls_item_layout-style = cl_gui_column_tree=>style_default.
ld_node_text = text128.
append ls_item_layout to lt_item_layout.
Add node
call method gd_tree->add_node
 exporting
 i_relat_node_key = p_relate_key
 i_relationship = cl_gui_column_tree=>relat_last_child
 i_node_text = ld_node_text
 is_outtab_line = ps_output
 it_item_layout = lt_item_layout
 importing
 e_new_node_key = p_node_key.
ENDFORM. " add_ekko_node
*& Form add_ekpo_line
 text
 -->P_IT_OUTPUT1 text
 -->P_LD_MOP_GID_KEY text
 <--P_LD_MOP_OPN_KEY text
FORM add_ekpo_line USING Ps_OUTPUT1 like it_output1
 value(p_relate_key)
 CHANGING p_node_key.
data: ld_node_text type lvc_value,
 ls_sflight type sflight.
data : text128(128).
concatenate ps_output1-srno ps_output1-movetype into text128 separated by space.
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 = gd_tree->c_hierarchy_column_name.
ls_item_layout-style = cl_gui_column_tree=>style_default.
ld_node_text = text128.
append ls_item_layout to lt_item_layout.
Add node
call method gd_tree->add_node
 exporting
 i_relat_node_key = p_relate_key
 i_relationship = cl_gui_column_tree=>relat_last_child
 i_node_text = ld_node_text
 is_outtab_line = ps_output1
 it_item_layout = lt_item_layout
 importing
 e_new_node_key = p_node_key.
ENDFORM. " add_ekpo_line
*& Form change_toolbar
 text
--> p1 text
<-- p2 text
FORM change_toolbar .
get toolbar control
call method gd_tree->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 = 'EXPORT' "Function code of button
 icon = '@49@' "Icon ID (see )
 butn_type = cntb_btype_button "Button type
 text = '' "Button text
 quickinfo = 'Download To Excel'. "Quick info text
add Dropdown Button to toolbar (for Insert Line)
call method mr_toolbar->add_button
 exporting
 fcode = 'INSERT_LC' "Function code of button
 icon = '@17@' "Icon ID (see )
 butn_type = cntb_btype_dropdown "Button type
 text = '' "Button text
 quickinfo = 'Insert Line'. "Quick info text
set event-handler for toolbar-control
data: toolbar_event_receiver type ref to lcl_toolbar_event_receiver.
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
Edited by: Darshan Shah on Jan 2, 2008 1:31 PM

Gui patch was not available on my pc

Report with ALV tree and ALV list?

I need to create a report with layout as same as this one
[http://trangiegie.com/MyFile/output.JPG]
It looks like a report with combination of ALV tree and list. The tree works like a navigation bar. Wonder if there are any demo programs like this. Will appreciate any help.

For Tree alone - You can check program : BCALV_TREE_02
Program Name                   Report title
BCALV_GRID_DND_TREE            ALV Grid: Drag and Drop with ALV Tree
BCALV_GRID_DND_TREE_SIMPLE     ALV GRID: Drag and drop with ALV tree (simple)
BCALV_TEST_COLUMN_TREE         Program BCALV_TEST_COLUMN_TREE
BCALV_TEST_SIMPLE_TREE         Program BCALV_TEST_SIMPLE_TREE
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
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

ALV Tree Report without using ABAP Objects

Hi all,
I want to know the name of a function module to create ALV Tree in SE38 as a report. I am required to create this ALV Tree Report without using ABAP OBJECTS. Can u pls help me as early as possible.

Hi
see this link
http://www.sapdev.co.uk/reporting/alv/alvtree.htm
*& Report ZBCALV_TREE
REPORT ZBCALV_TREE.
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_VBAK type VBAK 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 STATUS_0100 OUTPUT
 text
module STATUS_0100 output.
SET PF-STATUS 'MAIN'.
if tree1 is initial.
 perform Zinit_tree.
endif.
call method cl_gui_cfw=>flush.
endmodule. " STATUS_0100 OUTPUT
*& Form Zinit_tree
 text
--> p1 text
<-- p2 text
form Zinit_tree .
perform Zbuild_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 zbuild_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 Zbuild_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_VBAK "table must be emty !!
 it_fieldcatalog = gt_fieldcatalog.
create hierarchy
perform Zcreate_hierarchy.
add own functioncodes to the toolbar
perform zchange_toolbar.
register events
perform zregister_events.
endform. " Zinit_tree
*& Form Zbuild_fieldcatalog
 text
--> p1 text
<-- p2 text
form Zbuild_fieldcatalog .
get fieldcatalog
call function 'LVC_FIELDCATALOG_MERGE'
 exporting
 i_structure_name = 'VBAK'
 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 'AUART' .
 ls_fieldcatalog-no_out = 'X'.
 ls_fieldcatalog-key = ''.
 endcase.
 modify gt_fieldcatalog from ls_fieldcatalog.
endloop.
endform. " Zbuild_fieldcatalog
*& Form zbuild_hierarchy_header
 text
 <--P_L_HIERARCHY_HEADER text
form zbuild_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. " zbuild_hierarchy_header
*& Form Zbuild_comment
 text
 -->P_LT_LIST_COMMENTARY text
 -->P_L_LOGO text
form Zbuild_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. " Zbuild_comment
*& Form Zcreate_hierarchy
 text
--> p1 text
<-- p2 text
form Zcreate_hierarchy .
data: ls_vbak type vbak,
 lt_vbak type vbak occurs 0.
get data
select * from vbak into table lt_vbak
 up to 200 rows . "#EC CI_NOWHERE
sort lt_vbak by AUART.
add data to tree
data: l_AUART_key type lvc_nkey.
loop at lt_vbak into ls_vbak.
 on change of ls_vbak-AUART.
 perform Zadd_AUART_line using ls_vbak
 changing l_AUART_key.
 endon.
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. " Zcreate_hierarchy
*& Form Zadd_AUART_line
 text
 -->P_LS_vbak text
 -->P_0379 text
 <--P_L_AUART_KEY text
form Zadd_AUART_line using p_ls_vbak type vbak
 p_relat_key type lvc_nkey
 changing p_node_key type lvc_nkey.
data: l_node_text type lvc_value,
 ls_vbak type vbak.
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 = p_ls_vbak-AUART.
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_vbak
 is_node_layout = ls_node
 it_item_layout = lt_item_layout
 importing
 e_new_node_key = p_node_key .
endform. " Zadd_AUART_line
*& Form zchange_toolbar
 text
--> p1 text
<-- p2 text
form zchange_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. " zchange_toolbar
*& Form zregister_events
 text
--> p1 text
<-- p2 text
form zregister_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. " zregister_events
*& Module USER_COMMAND_0100 INPUT
 text
module USER_COMMAND_0100 input.
ok_code = sy-ucomm.
clear sy-ucomm.
case ok_code.
 when 'EXIT' or 'BACK' or 'CANC'.
 perform Zexit_program.
 when others.
 call method cl_gui_cfw=>dispatch.
endcase.
clear ok_code.
call method cl_gui_cfw=>flush.
endmodule. " USER_COMMAND_0100 INPUT
*& Form Zexit_program
 text
--> p1 text
<-- p2 text
form Zexit_program .
call method tree1->free.
leave program.
endform. " Zexit_program
Reward if usefull

ALV Tree using ABAP Objects

Can anyone tell me how to Copy a node on an ALV Tree using context menu ?

Hello Vidya
The sample report ZUS_SDN_ALVTREE_CTXMENU demonstrates how to copy nodes on an ALV tree.
Before showing the entire coding I would like to point out a few crucial parts of the coding:
(1) Defintion of OUTTAB list
TYPES: BEGIN OF ty_s_outtab.
INCLUDE TYPE vbak.
TYPES: nkey TYPE lvc_nkey.
TYPES: ntype TYPE lvc_value. " 'VKORG' / 'VTWEG' / 'SPART' / leaf
TYPES: END OF ty_s_outtab.
TYPES: ty_t_outtab TYPE STANDARD TABLE OF ty_s_outtab
 WITH DEFAULT KEY.
The OUTTAB list contains two additional fields holding the tree key (LVC_NKEY) and the node type.
(2) The main logic of the report is implemented in event handler method handle_node_ctxmenu_sel.
 WHEN 'COPY_SUBTREE'.
 CALL METHOD go_alvtree->get_subtree
 EXPORTING
 i_node_key = node_key
 IMPORTING
 et_subtree_nodes = lt_subtree.
 CALL METHOD go_alvtree->get_parent
 EXPORTING
 i_node_key = node_key
 IMPORTING
 e_parent_node_key = ld_parent_key.
 LOOP AT lt_subtree INTO ld_node_key.
 READ TABLE gt_outtab INTO ls_outtab
 WITH KEY nkey = ld_node_key.
 APPEND ls_outtab TO lt_outtab.
 ENDLOOP.
 READ TABLE lt_outtab INTO ls_outtab INDEX 1.
 ld_ntype = ls_outtab-ntype.
 DELETE lt_outtab WHERE ( vbeln IS INITIAL ). " hierarchy nodes
 CASE ld_ntype.
 WHEN 'VKORG'.
 ld_top_key = ld_parent_key.
 WHEN 'VTWEG'.
 ld_vkorg_key = ld_parent_key.
 WHEN 'SPART'.
 ld_vtweg_key = ld_parent_key.
 WHEN 'LEAF'.
 ld_spart_key = ld_parent_key.
 ENDCASE.
" Note: similar logic like in routine CREATE_HIERARCHY
 SORT lt_outtab BY vkorg vtweg spart kunnr audat.
 LOOP AT lt_outtab INTO ls_outtab.
*& Report ZUS_SDN_ALVTREE_CTXMENU
*& Based on: BCALV_TREE_03
REPORT zus_sdn_alvtree_ctxmenu.
TYPES: BEGIN OF ty_s_outtab.
INCLUDE TYPE vbak.
TYPES: nkey TYPE lvc_nkey.
TYPES: ntype TYPE lvc_value. " 'VKORG' / 'VTWEG' / 'SPART' / leaf
TYPES: END OF ty_s_outtab.
TYPES: ty_t_outtab TYPE STANDARD TABLE OF ty_s_outtab
 WITH DEFAULT KEY.
DATA:
gd_repid TYPE syst-repid,
gd_okcode TYPE ui_func,
go_docking TYPE REF TO cl_gui_docking_container,
go_alvtree TYPE REF TO cl_gui_alv_tree.
DATA:
gt_outtab TYPE ty_t_outtab, " Sales Document
gt_fcat TYPE lvc_t_fcat.
* CLASS lcl_eventhandler DEFINITION
CLASS lcl_eventhandler DEFINITION.
PUBLIC SECTION.
* §2. Define an event handler method to build up a context menu
* (postfix of event name: _CONTEXT_MENU_REQUEST).
* This event is fired each time the user klick with the right
* mouse button on a node.
 CLASS-METHODS:
 handle_node_ctxmenu_req
 FOR EVENT node_context_menu_request OF cl_gui_alv_tree
 IMPORTING
 node_key
 menu,
* §3. Define an event handler method to respond to a function code
* triggered by your menu (postfix: _CONTEXT_MENU_SELECTED).
* This event is fired when the user selects an entry of the
* build up context menu.
 handle_node_ctxmenu_sel
 FOR EVENT node_context_menu_selected OF cl_gui_alv_tree
 IMPORTING
 node_key
 fcode
 sender.
* 'sender' is an implicit event parameter that is provided by
* ABAP Objects runtime system. It contains a reference to the
* object that fired the event. You may directly use it to
* call methods of this instance.
ENDCLASS. "lcl_eventhandler DEFINITION
* CLASS lcl_eventhandler IMPLEMENTATION
CLASS lcl_eventhandler IMPLEMENTATION.
* §4. Implement your event handler methods.
METHOD handle_node_ctxmenu_req.
* Event parameter 'menu' holds a reference to the standard context
* menu of ALV Tree (functions 'Expand'/'Collapse' on nodes).
* You may either append your own functions (separated by a line)
* or clear the menu if you do not want to allow standard functions.
* In this case the standard menu is cleared.
 CALL METHOD menu->clear.
* The next line defines one line of the context menu.
 CALL METHOD menu->add_function
 EXPORTING
 fcode = 'DEL_SUBTREE'
 text = 'Delete Subtree'(901). "Delete Subtree
 CALL METHOD menu->add_function
 EXPORTING
 fcode = 'COPY_SUBTREE'
 text = 'Copy Subtree'(902). "Copy Subtree
ENDMETHOD. "handle_node_ctxmenu_req
METHOD handle_node_ctxmenu_sel.
* At this point of execution, the user selected a menu entry of the
* menu build up in event handler method handle_node_cm_req.
* Query your own function codes and react accordingly.
 DATA:
 l_rc TYPE c,
 ld_ntype TYPE lvc_value,
 ld_parent_key TYPE lvc_nkey,
 ld_node_key TYPE lvc_nkey,
 lt_subtree TYPE lvc_t_nkey,
 ls_outtab TYPE ty_s_outtab,
 ls_last TYPE ty_s_outtab,
 lt_outtab TYPE ty_t_outtab.
 DATA:
 ld_vkorg_key TYPE lvc_nkey,
 ld_vtweg_key TYPE lvc_nkey,
 ld_spart_key TYPE lvc_nkey,
 ld_last_key TYPE lvc_nkey,
 ld_top_key TYPE lvc_nkey.
 CASE fcode.
 WHEN 'DEL_SUBTREE'.
 CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
 EXPORTING
 textline1 = 'Do you really want to delete'(902)
 textline2 = 'this node and all its subnodes?'(903)
 titel = 'Confirmation'(904)
 cancel_display = ' '
 IMPORTING
 answer = l_rc.
 IF l_rc EQ 'J'.
 CALL METHOD sender->delete_subtree
 EXPORTING
 i_node_key = node_key.
* Do not forget to refresh the display when you change the contents
* of your list.
 CALL METHOD sender->frontend_update.
 ENDIF.
 WHEN 'COPY_SUBTREE'.
 CALL METHOD go_alvtree->get_subtree
 EXPORTING
 i_node_key = node_key
 IMPORTING
 et_subtree_nodes = lt_subtree.
 CALL METHOD go_alvtree->get_parent
 EXPORTING
 i_node_key = node_key
 IMPORTING
 e_parent_node_key = ld_parent_key.
 LOOP AT lt_subtree INTO ld_node_key.
 READ TABLE gt_outtab INTO ls_outtab
 WITH KEY nkey = ld_node_key.
 APPEND ls_outtab TO lt_outtab.
 ENDLOOP.
 READ TABLE lt_outtab INTO ls_outtab INDEX 1.
 ld_ntype = ls_outtab-ntype.
 DELETE lt_outtab WHERE ( vbeln IS INITIAL ). " hierarchy nodes
 CASE ld_ntype.
 WHEN 'VKORG'.
 ld_top_key = ld_parent_key.
 WHEN 'VTWEG'.
 ld_vkorg_key = ld_parent_key.
 WHEN 'SPART'.
 ld_vtweg_key = ld_parent_key.
 WHEN 'LEAF'.
 ld_spart_key = ld_parent_key.
 ENDCASE.
 SORT lt_outtab BY vkorg vtweg spart kunnr audat.
 LOOP AT lt_outtab INTO ls_outtab.
 IF ( ld_ntype = 'VKORG' ).
 " new sales organisation
 IF ( ls_outtab-vkorg = ls_last-vkorg ).
 ELSE.
 PERFORM add_sales_org
 USING
 ls_outtab
 ld_top_key
 CHANGING
 ld_vkorg_key.
 ls_outtab-nkey = ld_vkorg_key.
 ls_outtab-ntype = 'VKORG'.
 DESCRIBE TABLE gt_outtab. " fill sy-tfill
 MODIFY gt_outtab FROM ls_outtab INDEX syst-tfill
 TRANSPORTING nkey ntype.
 ENDIF.
 ENDIF.
 IF ( ld_ntype = 'VKORG' OR
 ld_ntype = 'VTWEG' ).
 " new distribution channel
 IF ( ls_outtab-vkorg = ls_last-vkorg AND
 ls_outtab-vtweg = ls_last-vtweg ).
 ELSE.
 PERFORM add_distrib_chan
 USING
 ls_outtab
 ld_vkorg_key
 CHANGING
 ld_vtweg_key.
 ls_outtab-nkey = ld_vtweg_key.
 ls_outtab-ntype = 'VTWEG'.
 DESCRIBE TABLE gt_outtab. " fill sy-tfill
 MODIFY gt_outtab FROM ls_outtab INDEX syst-tfill
 TRANSPORTING nkey ntype.
 ENDIF.
 ENDIF.
 IF ( ld_ntype = 'VKORG' OR
 ld_ntype = 'VTWEG' OR
 ld_ntype = 'SPART' ).
 " new channel
 IF ( ls_outtab-vkorg = ls_last-vkorg AND
 ls_outtab-vtweg = ls_last-vtweg AND
 ls_outtab-spart = ls_last-spart ).
 ELSE.
 PERFORM add_division
 USING
 ls_outtab
 ld_vtweg_key
 CHANGING
 ld_spart_key.
 ls_outtab-nkey = ld_spart_key.
 ls_outtab-ntype = 'SPART'.
 DESCRIBE TABLE gt_outtab. " fill sy-tfill
 MODIFY gt_outtab FROM ls_outtab INDEX syst-tfill
 TRANSPORTING nkey ntype.
 ENDIF.
 ENDIF.
* Leaf:
 PERFORM add_complete_line
 USING
 ls_outtab
 ld_spart_key
 CHANGING
 ld_last_key.
 ls_outtab-nkey = ld_last_key.
 ls_outtab-ntype = 'LEAF'.
 DESCRIBE TABLE gt_outtab. " fill sy-tfill
 MODIFY gt_outtab FROM ls_outtab INDEX syst-tfill
 TRANSPORTING nkey ntype.
 ls_last = ls_outtab.
 ENDLOOP.
 CALL METHOD cl_gui_cfw=>set_new_ok_code
 EXPORTING
 new_code = 'REFRESH_TREE'
* IMPORTING
* RC =
 ENDCASE.
ENDMETHOD. "handle_node_ctxmenu_sel
ENDCLASS. "lcl_eventhandler IMPLEMENTATION
START-OF-SELECTION.
PERFORM init_controls.
* Link the docking container to the target dynpro
gd_repid = syst-repid.
CALL METHOD go_docking->link
 EXPORTING
 repid = gd_repid
 dynnr = '0100'
* CONTAINER =
 EXCEPTIONS
 OTHERS = 4.
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 SCREEN '0100'.
* NOTE: no screen elements, ok_code -> gd_okcode
** PROCESS BEFORE OUTPUT.
** MODULE STATUS_0100.
** PROCESS AFTER INPUT.
** MODULE USER_COMMAND_0100.
END-OF-SELECTION.
*& Module STATUS_0100 OUTPUT
* text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STATUS_0100'.
* SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
* text
MODULE user_command_0100 INPUT.
TRANSLATE gd_okcode TO UPPER CASE. " facilitate manual entries
CASE gd_okcode.
 WHEN 'BACK' OR
 'EXIT' OR
 'CANC'.
 SET SCREEN 0. LEAVE SCREEN.
when 'REFRESH_TREE'.
 CALL METHOD go_alvtree->update_calculations
* EXPORTING
* NO_FRONTEND_UPDATE =
 WHEN OTHERS.
ENDCASE.
CLEAR: gd_okcode.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form INIT_CONTROLS
* text
* --> p1 text
* <-- p2 text
FORM init_controls .
DATA:
 ls_hierarchy_header TYPE treev_hhdr.
* Create docking container
CREATE OBJECT go_docking
 EXPORTING
 parent = cl_gui_container=>screen0
 ratio = 90
 EXCEPTIONS
 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 go_docking->set_extension
 EXPORTING
 extension = 99999 " full-size screen
 EXCEPTIONS
 cntl_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.
* create tree control
CREATE OBJECT go_alvtree
 EXPORTING
 parent = go_docking
 node_selection_mode = cl_gui_column_tree=>node_sel_mode_single
 item_selection = ' '
 no_html_header = 'X'
 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.
PERFORM build_hierarchy_header CHANGING ls_hierarchy_header.
* Hide columns and sum up values initially using the fieldcatalog
PERFORM build_fieldcatalog.
* IMPORTANT: Table 'gt_sflight' 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 'gt_outtab' must be global and can
* only be used for one ALV Tree Control.
CALL METHOD go_alvtree->set_table_for_first_display
 EXPORTING
 is_hierarchy_header = ls_hierarchy_header
 CHANGING
 it_fieldcatalog = gt_fcat
 it_outtab = gt_outtab. "table must be empty !
PERFORM init_tree.
ENDFORM. " INIT_CONTROLS
*& Form INIT_TREE
* text
* --> p1 text
* <-- p2 text
FORM init_tree .
PERFORM create_hierarchy.
PERFORM register_events.
* Update calculations which were initially defined by field DO_SUM
* of the fieldcatalog. (see build_fieldcatalog).
CALL METHOD go_alvtree->update_calculations.
* Send data to frontend.
CALL METHOD go_alvtree->frontend_update.
ENDFORM. " INIT_TREE
*& Form build_hierarchy_header
* text
* <--P_LS_HIERARCHY_HEADER text
FORM build_hierarchy_header
 CHANGING
 cs_hierarchy_header TYPE treev_hhdr.
cs_hierarchy_header-heading =
 'SalesOrg/DistChannel/Division'(300).
cs_hierarchy_header-tooltip = 'Customer: Master Sales Data'(400).
cs_hierarchy_header-width = 45.
cs_hierarchy_header-width_pix = ''.
ENDFORM. " build_hierarchy_header
*& Form build_fieldcatalog
* text
* --> p1 text
* <-- p2 text
FORM build_fieldcatalog .
* define local data
DATA:
 ls_fcat TYPE lvc_s_fcat.
REFRESH: gt_fcat.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
 EXPORTING
* I_BUFFER_ACTIVE =
 i_structure_name = 'VBAK'
* I_CLIENT_NEVER_DISPLAY = 'X'
* I_BYPASSING_BUFFER =
* I_INTERNAL_TABNAME =
 CHANGING
 ct_fieldcat = gt_fcat
 EXCEPTIONS
 inconsistent_interface = 1
 program_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.
LOOP AT gt_fcat INTO ls_fcat.
 CASE ls_fcat-fieldname.
 WHEN 'VBELN' OR
 'AUDAT' OR
 'AUART' OR
 'WAERK' OR
 'VKORG' OR
 'VTWEG' OR
 'SPART' OR
 'BSTNK' OR
 'KUNNR'.
 WHEN 'NETWR'.
 ls_fcat-do_sum = 'X'.
 ls_fcat-h_ftype = 'SUM'. " or: 'MAX' / 'AVG'
 WHEN OTHERS.
 ls_fcat-tech = 'X'.
 ENDCASE.
 MODIFY gt_fcat FROM ls_fcat INDEX syst-tabix.
ENDLOOP.
ENDFORM. " build_fieldcatalog
*& Form create_hierarchy
* text
* --> p1 text
* <-- p2 text
FORM create_hierarchy .
* define local data
DATA:
 ls_outtab TYPE ty_s_outtab,
 ls_last TYPE ty_s_outtab,
 lt_outtab TYPE ty_t_outtab.
DATA:
 ld_vkorg_key TYPE lvc_nkey,
 ld_vtweg_key TYPE lvc_nkey,
 ld_spart_key TYPE lvc_nkey,
 ld_last_key TYPE lvc_nkey,
 ld_top_key TYPE lvc_nkey.
" Select data
SELECT * FROM vbak INTO CORRESPONDING FIELDS OF TABLE lt_outtab
 UP TO 1550 ROWS.
" sort table according to conceived hierarchy
SORT lt_outtab BY vkorg vtweg spart kunnr audat.
* Define one top node. In this way it is possible to calculate
* values for the whole hierarchy.
CALL METHOD go_alvtree->add_node
 EXPORTING
 i_relat_node_key = ''
 i_relationship = cl_gui_column_tree=>relat_last_child
 i_node_text = 'Sales Documents'
 IMPORTING
 e_new_node_key = ld_top_key.
CLEAR: ls_outtab.
ls_outtab-nkey = ld_top_key.
ls_outtab-ntype = 'ROOT'.
MODIFY gt_outtab FROM ls_outtab INDEX 1
 TRANSPORTING nkey ntype.
LOOP AT lt_outtab INTO ls_outtab.
 " new sales organisation
 IF ( ls_outtab-vkorg = ls_last-vkorg ).
 ELSE.
 PERFORM add_sales_org
 USING
 ls_outtab
 ld_top_key
 CHANGING
 ld_vkorg_key.
 ls_outtab-nkey = ld_vkorg_key.
 ls_outtab-ntype = 'VKORG'.
 DESCRIBE TABLE gt_outtab. " fill sy-tfill
 MODIFY gt_outtab FROM ls_outtab INDEX syst-tfill
 TRANSPORTING nkey ntype.
 ENDIF.
 " new distribution channel
 IF ( ls_outtab-vkorg = ls_last-vkorg AND
 ls_outtab-vtweg = ls_last-vtweg ).
 ELSE.
 PERFORM add_distrib_chan
 USING
 ls_outtab
 ld_vkorg_key
 CHANGING
 ld_vtweg_key.
 ls_outtab-nkey = ld_vtweg_key.
 ls_outtab-ntype = 'VTWEG'.
 DESCRIBE TABLE gt_outtab. " fill sy-tfill
 MODIFY gt_outtab FROM ls_outtab INDEX syst-tfill
 TRANSPORTING nkey ntype.
 ENDIF.
 " new channel
 IF ( ls_outtab-vkorg = ls_last-vkorg AND
 ls_outtab-vtweg = ls_last-vtweg AND
 ls_outtab-spart = ls_last-spart ).
 ELSE.
 PERFORM add_division
 USING
 ls_outtab
 ld_vtweg_key
 CHANGING
 ld_spart_key.
 ls_outtab-nkey = ld_spart_key.
 ls_outtab-ntype = 'SPART'.
 DESCRIBE TABLE gt_outtab. " fill sy-tfill
 MODIFY gt_outtab FROM ls_outtab INDEX syst-tfill
 TRANSPORTING nkey ntype.
 ENDIF.
* Leaf:
 PERFORM add_complete_line
 USING
 ls_outtab
 ld_spart_key
 CHANGING
 ld_last_key.
 ls_outtab-nkey = ld_last_key.
 ls_outtab-ntype = 'LEAF'.
 DESCRIBE TABLE gt_outtab. " fill sy-tfill
 MODIFY gt_outtab FROM ls_outtab INDEX syst-tfill
 TRANSPORTING nkey ntype.
 ls_last = ls_outtab.
ENDLOOP.
ENDFORM. " create_hierarchy
*& Form ADD_SALES_ORG
* text
* -->P_LS_OUTTAB text
* -->P_LD_TOP_KEY text
* <--P_LD_VKORG_KEY text
FORM add_sales_org
 USING
 value(us_outtab) TYPE ty_s_outtab
 value(ud_relat_key) TYPE lvc_nkey
 CHANGING
 cd_node_key TYPE lvc_nkey.
* define local data
DATA:
 ld_nodetext TYPE lvc_value,
 ls_outtab TYPE ty_s_outtab.
ld_nodetext = us_outtab-vkorg.
" add node
CALL METHOD go_alvtree->add_node
 EXPORTING
 i_relat_node_key = ud_relat_key
 i_relationship = cl_gui_column_tree=>relat_last_child
 i_node_text = ld_nodetext
 is_outtab_line = ls_outtab
 IMPORTING
 e_new_node_key = cd_node_key.
ENDFORM. " ADD_SALES_ORG
*& Form add_DISTRIB_CHAN
* text
* -->P_LS_OUTTAB text
* -->P_LD_VKORG_KEY text
* <--P_LD_VTWEG_KEY text
FORM add_distrib_chan
 USING
 value(us_outtab) TYPE ty_s_outtab
 value(ud_relat_key) TYPE lvc_nkey
 CHANGING
 cd_node_key TYPE lvc_nkey.
* define local data
DATA:
 ld_nodetext TYPE lvc_value,
 ls_outtab TYPE ty_s_outtab.
ld_nodetext = us_outtab-vtweg.
" add node
CALL METHOD go_alvtree->add_node
 EXPORTING
 i_relat_node_key = ud_relat_key
 i_relationship = cl_gui_column_tree=>relat_last_child
 i_node_text = ld_nodetext
 is_outtab_line = ls_outtab
 IMPORTING
 e_new_node_key = cd_node_key.
ENDFORM. " add_DISTRIB_CHAN
*& Form add_division
* text
* -->P_LS_OUTTAB text
* -->P_LD_VTWEG_KEY text
* <--P_LD_SPART_KEY text
FORM add_division
 USING
 value(us_outtab) TYPE ty_s_outtab
 value(ud_relat_key) TYPE lvc_nkey
 CHANGING
 cd_node_key TYPE lvc_nkey.
* define local data
DATA:
 ld_nodetext TYPE lvc_value,
 ls_outtab TYPE ty_s_outtab.
ld_nodetext = us_outtab-spart.
" add node
CALL METHOD go_alvtree->add_node
 EXPORTING
 i_relat_node_key = ud_relat_key
 i_relationship = cl_gui_column_tree=>relat_last_child
 i_node_text = ld_nodetext
 is_outtab_line = ls_outtab
 IMPORTING
 e_new_node_key = cd_node_key.
ENDFORM. " add_division
*& Form add_complete_line
* text
* -->P_LS_OUTTAB text
* -->P_LD_SPART_KEY text
* <--P_LD_LAST_KEY text
FORM add_complete_line
 USING
 value(us_outtab) TYPE ty_s_outtab
 value(ud_relat_key) TYPE lvc_nkey
 CHANGING
 cd_node_key TYPE lvc_nkey.
* define local data
DATA:
 ld_nodetext TYPE lvc_value,
 ls_outtab TYPE ty_s_outtab.
WRITE us_outtab-kunnr TO ld_nodetext+0 NO-ZERO.
WRITE us_outtab-audat TO ld_nodetext+20 DD/MM/YYYY.
CONDENSE ld_nodetext.
" add node
CALL METHOD go_alvtree->add_node
 EXPORTING
 i_relat_node_key = ud_relat_key
 i_relationship = cl_gui_column_tree=>relat_last_child
 i_node_text = ld_nodetext
 is_outtab_line = us_outtab " !!!
 IMPORTING
 e_new_node_key = cd_node_key.
ENDFORM. " add_complete_line
*& Form register_events
* text
* --> p1 text
* <-- p2 text
FORM register_events .
DATA:
 lt_events TYPE cntl_simple_events,
 ls_event TYPE cntl_simple_event.
* The following four tree events registers ALV Tree in the constructor
* method itself.
* - cl_gui_column_tree=>eventid_expand_no_children
* (needed to load data to frontend when a user expands a node)
* - cl_gui_column_tree=>eventid_header_context_men_req
* (needed for header context menu)
* - cl_gui_column_tree=>eventid_header_click
* (allows selection of columns (only when item selection activated))
* - cl_gui_column_tree=>eventid_item_keypress
* (needed for F1-Help (only when item selection activated))
* Nevertheless you have to provide their IDs again if you register
* additional events with SET_REGISTERED_EVENTS (see below).
* To do so, call first method GET_REGISTERED_EVENTS (this way,
* all already registered events remain registered, even your own):
CALL METHOD go_alvtree->get_registered_events
 IMPORTING
 events = lt_events.
* (If you do not these events will be deregistered!!!).
* You do not have to register events of the toolbar again.
* Register additional events for your own purposes:
* §5. Register first context menu event on frontend (with postfix
* (_REQUEST). The second is registered automatically.
ls_event-eventid = cl_gui_column_tree=>eventid_node_context_menu_req.
APPEND ls_event TO lt_events.
* register events on frontend
CALL METHOD go_alvtree->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.
* §6. Register both context menu events on backend (ABAP Objects
* event handling).
SET HANDLER:
 lcl_eventhandler=>handle_node_ctxmenu_req FOR go_alvtree,
 lcl_eventhandler=>handle_node_ctxmenu_sel FOR go_alvtree.
ENDFORM. " register_events
Regards,
Uwe

ALV Tree using Function Modules

Hi,
I want a simple example of ALV Tree using Function Modules which can display multiple Columns in the Hierarchically arranged fashion along with nodes & icons.
Also should be able to handle the events.
Thanks in Advance..

Hi Ramesh,
Here is a example of alv tree
*& Report BCALV_TREE_DEMO *
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.
* 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.
*& 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 .
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.
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
 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.
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.
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
regards,
venu.

Displaying ALV tree in expanded form in first ouput

Hi all,
 I have a problem with alv tree. My requirement is, on the first output itself the alv tree should appear expanded depending on one of the filter criteria in the tool bar. How can i trigger the toolbar event in PBO itself? Can it be done? if yes please provide sample code. Points assured for helpfull answers.
Thanks,
Shafiq

Hi Walter,
 The method CL_GUI_ALV_TREE->EXPAND_NODES has only one importing parameter and that is the nodes of the ALV tree. But the commenting of the following lines from my code made it work which i have made it bold.Thank you very much for your help.I Have awarded points for you.
REPORT ztest_2105.
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, "Output-Table
 gt_fieldcatalog TYPE lvc_t_fcat,
 ok_code LIKE sy-ucomm,
 save_ok LIKE sy-ucomm, "OK-Code
 g_max TYPE i VALUE 255. "maximum of db records to select
DATA : it_node_key TYPE lvc_t_nkey,
 wa_node_key LIKE LINE OF it_node_key.
LOCAL CLASSES
*§1. Define a (local) class for event handling
CLASS lcl_tree_event_receiver DEFINITION.
PUBLIC SECTION.
*§2. Define an event handler method for each event you want to react to
 METHODS handle_node_double_click
 FOR EVENT node_double_click OF cl_gui_alv_tree
 IMPORTING node_key sender.
'sender' is an implicit event parameter that is provided by
ABAP Objects runtime system. It contains a reference to the
object that fired the event. You may directly use it to
call methods of this instance.
ENDCLASS.
CLASS lcl_tree_event_receiver IMPLEMENTATION.
*§3. Implement your event handler methods.
METHOD handle_node_double_click.
 DATA: lt_children TYPE lvc_t_nkey.
*first check if the node is a leaf, i.e. can not be expanded
 CALL METHOD sender->get_children
 EXPORTING i_node_key = node_key
 IMPORTING et_children = lt_children.
 IF NOT lt_children IS INITIAL.
 CALL METHOD sender->expand_node
 EXPORTING i_node_key = node_key
 i_level_count = 2.
 ENDIF.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
END-OF-SELECTION.
CALL SCREEN 100.
*& Module PBO OUTPUT
 process before output
MODULE pbo OUTPUT.
SET PF-STATUS 'MAIN100'.
SET TITLEBAR 'MAINTITLE'.
IF g_alv_tree IS INITIAL.
 PERFORM init_tree.
 CALL METHOD g_alv_tree->expand_nodes
EXPORTING
 it_node_key = it_node_key
 EXCEPTIONS
 FAILED = 1
 CNTL_SYSTEM_ERROR = 2
 ERROR_IN_NODE_KEY_TABLE = 3
 DP_ERROR = 4
 NODE_NOT_FOUND = 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 cl_gui_cfw=>flush
 EXCEPTIONS cntl_system_error = 1
 cntl_error = 2.
 IF sy-subrc NE 0.
 CALL FUNCTION 'POPUP_TO_INFORM'
 EXPORTING
 titel = 'Automation Queue failure'(801)
 txt1 = 'Internal error:'(802)
 txt2 = 'A method in the automation queue'(803)
 txt3 = 'caused a failure.'(804).
 ENDIF.
ENDIF.
ENDMODULE. " PBO OUTPUT
*& Module PAI INPUT
 process after input
MODULE pai INPUT.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
 WHEN 'EXIT' OR 'BACK' OR 'CANC'.
 PERFORM exit_program.
 WHEN OTHERS.
§5. Call dispatch to process toolbar functions
Toolbar events are registered in constructur method of
CL_ALV_TREE_BASE as application events. So the dispatch call
is a must if you want to use the standard toolbar.
 CALL METHOD cl_gui_cfw=>dispatch.
ENDCASE.
CALL METHOD cl_gui_cfw=>flush.
ENDMODULE. " PAI INPUT
*& Form init_tree
 text
--> p1 text
<-- p2 text
FORM init_tree.
create container for alv-tree
DATA: l_tree_container_name(30) TYPE c.
l_tree_container_name = 'CCONTAINER1'.
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 'ERROR'(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 = 'X'
 no_html_header = 'X'
 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.
DATA l_hierarchy_header TYPE treev_hhdr.
PERFORM build_hierarchy_header CHANGING l_hierarchy_header.
Hide columns and sum up values initially using the fieldcatalog
PERFORM build_fieldcatalog.
IMPORTANT: Table 'gt_sflight' 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 'gt_outtab' must be global and can
only be used for one ALV Tree Control.
CALL METHOD g_alv_tree->set_table_for_first_display
 EXPORTING
 is_hierarchy_header = l_hierarchy_header
 CHANGING
 it_fieldcatalog = gt_fieldcatalog
 it_outtab = gt_sflight. "table must be empty!
PERFORM create_hierarchy.
PERFORM register_events.
Update calculations which were initially defined by field DO_SUM
of the fieldcatalog. (see build_fieldcatalog).
CALL METHOD g_alv_tree->update_calculations.
Send data to frontend.
CALL METHOD g_alv_tree->frontend_update.
ENDFORM. " init_tree
*& 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 = 'Totals/Month/Carrier/Date'(300).
p_hierarchy_header-tooltip = 'Flights in a month'(400).
p_hierarchy_header-width = 35.
p_hierarchy_header-width_pix = ''.
ENDFORM. " build_hierarchy_header
*& Form exit_program
 free object and leave program
FORM exit_program.
CALL METHOD g_custom_container->free.
LEAVE PROGRAM.
ENDFORM. " exit_program
FORM build_fieldcatalog.
DATA: ls_fieldcatalog TYPE lvc_s_fcat.
The following function module generates a fieldcatalog according
to a given structure.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
 EXPORTING
 i_structure_name = 'SFLIGHT'
 CHANGING
 ct_fieldcat = gt_fieldcatalog.
Now change the fieldcatalog to hide fields and to determine
some initial calculations for chosen fields.
LOOP AT gt_fieldcatalog INTO ls_fieldcatalog.
 CASE ls_fieldcatalog-fieldname.
hide columns which are already displayed in our tree
 WHEN 'CARRID' OR 'FLDATE'.
 ls_fieldcatalog-no_out = 'X'.
Do some initial calculations:
ALV Tree uses the field 'do_sum' to declare that a function
for the corresponding column shall be calculated.
Use 'h_ftype' to set the function type (MAX, MIN, SUM, AVG).
 WHEN 'PRICE'.
 ls_fieldcatalog-do_sum = 'X'.
 ls_fieldcatalog-h_ftype = 'MAX'.
 WHEN 'SEATSMAX'.
 ls_fieldcatalog-do_sum = 'X'.
 ls_fieldcatalog-h_ftype = 'SUM'.
 WHEN 'SEATSOCC'.
 ls_fieldcatalog-do_sum = 'X'.
 ls_fieldcatalog-h_ftype = 'AVG'.
 ENDCASE.
 MODIFY gt_fieldcatalog FROM ls_fieldcatalog.
ENDLOOP.
The fieldcatalog is provided in form 'init_tree' using method
set_table_for_first_display.
ENDFORM. " build_fieldcatalog
FORM register_events.
*§4. Event registration: tell ALV Tree which events shall be passed
 from frontend to backend.
DATA: lt_events TYPE cntl_simple_events,
 l_event TYPE cntl_simple_event,
 l_event_receiver TYPE REF TO lcl_tree_event_receiver.
*§4a. Frontend registration(i): get already registered tree events.
The following four tree events registers ALV Tree in the constructor
method itself.
 - cl_gui_column_tree=>eventid_expand_no_children
(needed to load data to frontend when a user expands a node)
 - cl_gui_column_tree=>eventid_header_context_men_req
(needed for header context menu)
 - cl_gui_column_tree=>eventid_header_click
(allows selection of columns (only when item selection activated))
- cl_gui_column_tree=>eventid_item_keypress
(needed for F1-Help (only when item selection activated))
Nevertheless you have to provide their IDs again if you register
additional events with SET_REGISTERED_EVENTS (see below).
To do so, call first method GET_REGISTERED_EVENTS (this way,
all already registered events remain registered, even your own):
CALL METHOD g_alv_tree->get_registered_events
 IMPORTING events = lt_events.
(If you do not these events will be deregistered!!!).
You do not have to register events of the toolbar again.
*§4b. Frontend registration(ii): add additional event ids
l_event-eventid = cl_gui_column_tree=>eventid_node_double_click.
APPEND l_event TO lt_events.
*§4c. Frontend registration(iii):provide new event table to alv tree
CALL METHOD g_alv_tree->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.
*§4d. Register events on backend (ABAP Objects event handling)
CREATE OBJECT l_event_receiver.
SET HANDLER l_event_receiver->handle_node_double_click FOR g_alv_tree
ENDFORM. " register_events
*& Form create_hierarchy
 text
--> p1 text
<-- p2 text
FORM create_hierarchy.
See BCALV_TREE_01 for more comments on building the hierarchy
DATA: ls_sflight TYPE sflight,
 lt_sflight TYPE sflight OCCURS 0,
 l_yyyymm(6) TYPE c, "year 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,
 l_top_key TYPE lvc_nkey.
Select data
SELECT * FROM sflight INTO TABLE lt_sflight UP TO g_max ROWS.
sort table according to conceived hierarchy
SORT lt_sflight BY fldate0(6) carrid fldate6(2).
CLEAR : it_node_key, wa_node_key.
* wa_node_key = '&VIRTUALROOT'.
APPEND wa_node_key TO it_node_key.
Define one top node. In this way it is possible to calculate
values for the whole hierarchy.
CALL METHOD g_alv_tree->add_node
 EXPORTING
 i_relat_node_key = ''
 i_relationship = cl_gui_column_tree=>relat_last_child
 i_node_text = text-050
 IMPORTING
 e_new_node_key = l_top_key.
wa_node_key = l_top_key.
APPEND wa_node_key TO it_node_key.
LOOP AT lt_sflight INTO ls_sflight.
 l_yyyymm = ls_sflight-fldate+0(6).
 l_carrid = ls_sflight-carrid.
 IF l_yyyymm <> l_yyyymm_last. "on change of l_yyyymm
 l_yyyymm_last = l_yyyymm.
month nodes
 PERFORM add_month USING l_yyyymm
 l_top_key
 CHANGING l_month_key.
clear l_carrid_last because this is a new month
 CLEAR l_carrid_last.
 wa_node_key = l_month_key.
 APPEND wa_node_key TO it_node_key.
 ENDIF.
Carrier nodes:
 IF l_carrid <> l_carrid_last. "on change of l_carrid
 l_carrid_last = l_carrid.
 PERFORM add_carrid_line USING ls_sflight
 l_month_key
 CHANGING l_carrid_key.
 wa_node_key = l_carrid_key.
 APPEND wa_node_key TO it_node_key.
 ENDIF.
Leaf:
 PERFORM add_complete_line USING ls_sflight
 l_carrid_key
 CHANGING l_last_key.
* wa_node_key = l_last_key.
 APPEND wa_node_key TO it_node_key.
ENDLOOP.
ENDFORM. " create_hierarchy
*& Form add_month
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. "output 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
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. " add_month
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
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. " add_carrid_line
*& Form add_complete_line
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.
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. " add_complete_line
*& Form GET_MONTH
 text
 -->P_P_YYYYMM text
 <--P_L_MONTH text
FORM get_month USING p_yyyymm
 CHANGING p_month.
DATA: l_monthdigits(2) TYPE c.
l_monthdigits = p_yyyymm+4(2).
CASE l_monthdigits.
 WHEN '01'.
 p_month = 'January'(701).
 WHEN '02'.
 p_month = 'February'(702).
 WHEN '03'.
 p_month = 'March'(703).
 WHEN '04'.
 p_month = 'April'(704).
 WHEN '05'.
 p_month = 'May'(705).
 WHEN '06'.
 p_month = 'June'(706).
 WHEN '07'.
 p_month = 'July'(707).
 WHEN '08'.
 p_month = 'August'(708).
 WHEN '09'.
 p_month = 'September'(709).
 WHEN '10'.
 p_month = 'October'(710).
 WHEN '11'.
 p_month = 'November'(711).
 WHEN '12'.
 p_month = 'December'(712).
ENDCASE.
CONCATENATE p_yyyymm+0(4) '->' p_month INTO p_month.
ENDFORM. " GET_MONTH

Change toolbar in an alv tree

Similar Messages

Maybe you are looking for