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

Similar Messages

Disabled button in alv

how we will disabled the button in alv report at run time

*define
data: g_exclude type ui_func, 
 g_t_tlbr_excl type ui_functions. 
To exclude the icons:- 
Exclude alv sum button 
g_exclude = cl_gui_alv_grid=>mc_fc_sum. 
append g_exclude to g_t_tlbr_excl. 
Exclude alv count button 
g_exclude = cl_gui_alv_grid=>mc_fc_count. 
append g_exclude to g_t_tlbr_excl. 
Exclude alv average button 
g_exclude = cl_gui_alv_grid=>mc_fc_average. 
append g_exclude to g_t_tlbr_excl. 
Exclude alv maximum button 
g_exclude = cl_gui_alv_grid=>mc_fc_maximum. 
append g_exclude to g_t_tlbr_excl. 
*ALV display 
 call method g_alv_grid->set_table_for_first_display
 
 EXPORTING 
 is_variant = g_variant 
 is_layout = g_layout 
 is_print = g_print 
 it_toolbar_excluding = g_t_tlbr_excl 
 CHANGING 
 it_outtab = output table[] 
 it_fieldcatalog = fieldcatalog[].

How to enable or disable buttons on an interactive ALV report

I have two buttons on Interactive ALV report. Before displaying the ALV report, I want to enable or disable buttons on ALV depending on some conditions.I dont want to make the buttons visible or invisible. This is not an OO ALV report.
Please suggest !!!

Then you have to use the event set_pf_status or parameter I_CALLBACK_PF_STATUS_SET for this pass the form name.
You have to Implement the form Routine.
FORM PF_STATUS using status type SLIS_T_EXTAB.
SET PF-STATUS 'STS' excluding status.
ENDFORM.
First create the pf-staus using SE41 or double click on the status name and create . By default you make them Disable mode.

Disable delete button in ALV grid

Hi Experts,
I have a functionality to disable some buttons in alv grid such as delete row,cut,print etc.
I know how to exclude them by using it_toolbar_excluding , but I need to disable them.
Can you please let me know how to handle this.
I am displaying the ALV grid by calling the method set_table_for_first_display.
Thanks in Advance
Prasanth

Hi,
By using below code you can disable any button in ALV display
data : tool_wa_exclude type ui_func.
tool_wa_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row.
append tool_wa_exclude to tool_it_exclude .
call method grid2->set_table_for_first_display
    exporting
      it_toolbar_excluding          = tool_it_exclude
    changing
      it_outtab                            = it_ekpo
      it_fieldcatalog                    = it_fcat
    exceptions
      invalid_parameter_combination = 1
      program_error                           = 2
      too_many_lines                         = 3
      others                                        = 4.
U need to pass tool_it_exclude internal table to method for displaying

How to disable the custom button on alv?

Hi All,
 i created a ALV Report .I created a Custom Button on ALV.Based on the input value i need to enable/disable that Button.
How can i achieve?And what are the methods i need to code?
Regards
Ravi

Hi Ravi,
 You create the button like this:
Data: mr_functions type ref to IF_SALV_WD_FUNCTION_SETTINGS,
 mr_button_func type ref to CL_SALV_WD_FUNCTION
mr_functions ?= mr_alv_model.
CALL METHOD mr_functions->create_function
 EXPORTING
 id = '<<Button Id>>'
 RECEIVING
 value = mr_button_func.
CREATE OBJECT mr_button.
mr_button->set_text( 'some text' ).
mr_button_func->set_editor( mr_button ).
to sent enable/disable
mr_button->set_enabled(abap_false).
hope this will serve your purpose.
Regards,
Ritwik.

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

HOW to Disable a button in ALV on application bar

Hi,
 I have a button in ALV program and i want to disable that button which is on application bar is there any way plz tel me
Regards,
Saleha

hi ,
Copy the STANDARD status of the function group SALV into the application program
i.e in ur prg....
see below ex....
data:
t_spfli like standard table of spfli.
DATA:
w_program LIKE sy-repid.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE t_spfli
FROM spfli.
MOVE sy-repid TO w_program.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
 i_callback_program = w_program
 i_callback_pf_status_set = 'STATUS'
 i_structure_name = 'SPFLI'
TABLES
 t_outtab = t_spfli
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.
*& Form status
 text
 -->P_T_EXTAB text
FORM status USING p_t_extab TYPE slis_t_extab.
SET PF-STATUS 'DEMO' EXCLUDING '&ODN'.
ENDFORM. "status

regards ,
Naresh.

Custom button in alv and disabling all buttons in application tool bar

Experts,
Could you please help me for the below requirements.
1). How to disable all the buttons (like sorting, print, find, set filter...etc.) in tool bar using oops?
2). Where can I add my custom download button in alv report using oops?
Thanks in advance...
Sridhar..

Step1:
Create on local class
Class <LCL_EVENT_RECEIVER> Definition
Define the below public methods.
Method Name HANDLE_TOOLBAR
Event Name TOOLBAR
Event Class CL_GUI_ALV_GRID
Importing E_OBJECT, E_INTERACTIVE
Method Name HANDLE_USER_COMMAND
Event Name USER_COMMAND
Event Class CL_GUI_ALV_GRID
Importing E_UCOMM
Class <LCL_EVENT_RECEIVER> Implementation
. Method HANDLE_TOOLBAR
 Declare the structure <LS_TOOLBAR> of structure type STB_BUTTON
 Append the button information as given below into table E_OBJECT->MT_TOOLBAR to display the custom button on ALV grid.
 LS_TOOLBAR-FUNCTION = u2018DOWNu2019
 LS_TOOLBAR-QUICKINFO = u2018downloadu2019
 LS_TOOLBAR-TEXT = u2018downloadu2019
 Method HANDLE_USER_COMMAND
In this method if E_UCOMM = u2018DOWNu2019 write your logic.
Step2:
1. To excluding the ALV grid buttons, fill the <LT_EXC> with function code CL_GUI_ALV_GRID=>MC_FC_EXCL_ALL
2. To generate the ALV Grid, call the method SET_TABLE_FOR_FIRST_DISPLAY
Class CL_GUI_ALV_GRID
Method Name SET_TABLE_FOR_FIRST_DISPLAY
Exporting
I_STRUCTURE_NAME ZDS_CM_EXT_SEL
LS_LAYOUT <LS_LAYOUT>
IT_TOOLBAR_EXCLUDING <LT_EXC>
Changing
IT_OUTTAB <GT_EXT_SEL>
Create the Instance for class <LCL_EVENT_RECEIVER>
Class <LCL_EVENT_RECEIVER>
Instance Name <LO_EVENT_FNAME>
Now set handler <HANDLE_USER_COMMAND> and <HANDLE_TOOLBAR_FNAME> events using instance <LO_EVENT_FNAME>
Call method 'SET_TOOLBAR_INTERACTIVE' to raise event TOOLBAR
Class CL_GUI_ALV_GRID
Instance Name <GO_GRID>
Method Name SET_TOOLBAR_INTERACTIVE

Disable some standard buttons from ALV display

Hello All,
I am creating an ALV display using object oriented approach. I know how to exclude some of the standard function buttons from the list.
But suppose instead of deleting, the requirement is to disable (I mean grayed out)
some standard buttons from ALV. Could anyone please comment on how to do this.
Many thanks in advance.
Regards
Indrajit

Hello Indrajit
The following sample reports shows how to disable toolbar functions. Run the report and the push the ENTER button repeatedly.
*& Report ZUS_SDN_ALV_EVT_TOOLBAR
*& This sample report explains the handling of event TOOLBAR in order
*% to activate or inactive buttons of the ALV toolbar.
*& Based on: BCALV_GRID_DEMO
*& Procedure: Copy BCALV_GRID_DEMO and replace entire coding OR
            copy screen '0100' and GUI status 'MAIN100' from
            BCALV_GRID_DEMO to this report.
REPORT zus_sdn_alv_evt_toolbar.
TYPE-POOLS: abap, cntb, icon.
DATA:
ok_code                TYPE ui_func,
gt_sflight             TYPE TABLE OF sflight,
g_container        TYPE scrfname VALUE 'BCALV_GRID_DEMO_0100_CONT1',
g_grid1               TYPE REF TO cl_gui_alv_grid,
g_custom_container    TYPE REF TO cl_gui_custom_container.
PARAMETERS:
p_inact    RADIOBUTTON GROUP grp1 DEFAULT 'X', " delete buttons
p_dele     RADIOBUTTON GROUP grp1.               " inactivate buttons
PARAMETERS:
p_newbut   AS CHECKBOX DEFAULT ' ', " add new button
p_newddm   AS CHECKBOX DEFAULT 'X'. " add dropdown menu
      CLASS lcl_eventhandler DEFINITION
CLASS lcl_eventhandler DEFINITION.
PUBLIC SECTION.
    CLASS-DATA:
      md_cnt    TYPE i.
    CLASS-METHODS:
      handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid
        IMPORTING
          e_object
          e_interactive
          sender.
ENDCLASS.                    "lcl_eventhandler DEFINITION
      CLASS lcl_eventhandler IMPLEMENTATION
CLASS lcl_eventhandler IMPLEMENTATION.
METHOD handle_toolbar.
§ 2.In event handler method for event TOOLBAR: Append own functions
by using event parameter E_OBJECT.
    DATA:
      ls_toolbar TYPE stb_button,
      ls_menu     type STB_BTNMNU.
E_OBJECT of event TOOLBAR is of type REF TO CL_ALV_EVENT_TOOLBAR_SET.
This class has got one attribute, namly MT_TOOLBAR, which
is a table of type TTB_BUTTON. One line of this table is
defined by the Structure STB_BUTTON (see data deklaration above).
A remark to the flag E_INTERACTIVE:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        'e_interactive' is set, if this event is raised due to
        the call of 'set_toolbar_interactive' by the user.
        You can distinguish this way if the event was raised
        by yourself or by ALV
        (e.g. in method 'refresh_table_display').
        An application of this feature is still unknown...
    ADD 1 TO md_cnt. " a simple counter
(1.a) Inactivate toolbar buttons
    IF ( p_inact = abap_true ).
      LOOP AT e_object->mt_toolbar INTO ls_toolbar FROM 1 TO md_cnt.
        ls_toolbar-disabled = 'X'.
        MODIFY e_object->mt_toolbar FROM ls_toolbar.
      ENDLOOP.
(1.b) Delete toolbar buttons
    ELSE.
      DO md_cnt TIMES.
        DELETE e_object->mt_toolbar INDEX 1.
      ENDDO.
    ENDIF.
(2) Add new button
    IF ( p_newbut = abap_true ).
    Add separator to separate default and new buttons
      CLEAR: ls_toolbar.
      ls_toolbar-butn_type = cntb_btype_sep. " separator
      APPEND ls_toolbar TO e_object->mt_toolbar.
    Add new button "DETAIL"
      CLEAR: ls_toolbar.
      ls_toolbar-function = 'DETAIL'.
      ls_toolbar-icon      = icon_detail.
      ls_toolbar-quickinfo = 'QuickInfo'.
      ls_toolbar-butn_type = cntb_btype_button.
      ls_toolbar-disabled = abap_false.
      ls_toolbar-text      = 'Details'.
     ls_toolbar-checked = ' '.
      APPEND ls_toolbar TO e_object->mt_toolbar.
    ENDIF.
(3) Add new dropdown menu
    IF ( p_newddm = abap_true ).
    Add separator to separate default and new buttons
      CLEAR: ls_toolbar.
      ls_toolbar-butn_type = cntb_btype_sep. " separator
      APPEND ls_toolbar TO e_object->mt_toolbar.
    Add new dropdown menu "DETAIL"
      CLEAR: ls_toolbar.
      ls_toolbar-function = 'DDMENU'.
      ls_toolbar-icon      = icon_detail.
      ls_toolbar-quickinfo = 'QuickInfo'.
      ls_toolbar-butn_type = cntb_btype_dropdown.
      ls_toolbar-disabled = abap_false.
      ls_toolbar-text      = 'DD-Menu'.
     ls_toolbar-checked = ' '.
      APPEND ls_toolbar TO e_object->mt_toolbar.
    ENDIF.
ENDMETHOD.                    "handle_toolbar
ENDCLASS.                    "lcl_eventhandler IMPLEMENTATION
START-OF-SELECTION.
      MAIN                                                          *
SELECT * FROM sflight INTO TABLE gt_sflight.
CALL SCREEN 100.
END-OF-SELECTION.
      MODULE PBO OUTPUT                                             *
MODULE pbo OUTPUT.
SET PF-STATUS 'MAIN100'.
IF g_custom_container IS INITIAL.
    CREATE OBJECT g_custom_container
           EXPORTING container_name = g_container.
Instantiate ALV grid control
    CREATE OBJECT g_grid1
           EXPORTING i_parent = g_custom_container.
    CALL METHOD g_grid1->set_table_for_first_display
      EXPORTING
        i_structure_name = 'SFLIGHT'
      CHANGING
        it_outtab        = gt_sflight.
Set event handler for event TOOLBAR
    SET HANDLER:
      lcl_eventhandler=>handle_toolbar FOR g_grid1.
ENDIF.
$Comment: Toolbar can be modified on-the-fly
g_grid1->set_toolbar_interactive( ).
ENDMODULE.                    "PBO OUTPUT
      MODULE PAI INPUT                                              *
MODULE pai INPUT.
to react on oi_custom_events:
CALL METHOD cl_gui_cfw=>dispatch.
CASE ok_code.
    WHEN 'EXIT'.
      PERFORM exit_program.
    WHEN OTHERS.
    do nothing
ENDCASE.
CLEAR ok_code.
ENDMODULE.                    "PAI INPUT
      FORM EXIT_PROGRAM                                             *
FORM exit_program.
CALL METHOD G_CUSTOM_CONTAINER->FREE.
CALL METHOD CL_GUI_CFW=>FLUSH.
LEAVE PROGRAM.
ENDFORM.                    "EXIT_PROGRAM[/code]
Regards
Uwe

Has anyone tried to export an ALV Tree to an excel sheet?

Hi "gurus",
I've been looking for a way of exporting a printed report in an ALV tree to an Excel sheet.
Has someone done this before?
NOTE: I am studying the Office Integration, which I believe it can be a way of making SAP generates it via ABAP objects.
Thanks and Regards,
Daniel Carvalho
Edited by: Daniel Carvalho on Feb 28, 2008 11:40 PM

(Add a Button function in the ON Toolbar such as EXCEL and set event handlers).
METHOD on_user_command.
 break-point 2.
CASE e_ucomm.
 WHEN 'EXIT'.
 LEAVE PROGRAM.
 WHEN 'EXCEL'.
 CALL METHOD me->download_to_excel.
 WHEN 'SAVE'.
 WHEN 'PROC'.
 CALL METHOD me->process.
 WHEN 'REFR'.
 CALL METHOD me->refresh.
ENDCASE.
endmethod.
METHOD on_toolbar.
CLEAR ls_toolbar.
 MOVE 0 TO ls_toolbar-butn_TYPE.
MOVE 'EXCEL' TO ls_toolbar-function.
MOVE SPACE TO ls_toolbar-disabled.
MOVE icon_xxl TO ls_toolbar-icon.
MOVE 'Excel' TO ls_toolbar-quickinfo.
MOVE 'EXCEL' TO ls_toolbar-text.
APPEND ls_toolbar TO e_object->mt_toolbar.
endmethod.
METHOD download_to_excel.
field-symbols:
 <fs0> TYPE standard table,
 <fs1> TYPE standard table.
assign g_outtab1->* to <fs0>.
assign g_fldcat1->* to <fs1>.
break-point 5.
CALL FUNCTION 'LVC_TRANSFER_TO_KKBLO'
 EXPORTING
 it_fieldcat_lvc = <fs1>
* is_layout_lvc = m_cl_variant->ms_layout
 is_tech_complete = ' '
 IMPORTING
 es_layout_kkblo = ls_layout
 et_fieldcat_kkblo = lt_fieldcat.
 LOOP AT lt_fieldcat INTO lt_fieldcat_wa.
 CLEAR lt_fieldcat_wa-tech_complete.
 IF lt_fieldcat_wa-tabname IS initial.
 lt_fieldcat_wa-tabname = '1'.
 MODIFY lt_fieldcat FROM lt_fieldcat_wa.
 ENDIF.
 l_tabname = lt_fieldcat_wa-tabname.
 ENDLOOP.
CALL FUNCTION 'ALV_XXL_CALL'
 EXPORTING
 i_tabname = l_tabname
 is_layout = ls_layout
 it_fieldcat = lt_fieldcat
 i_title = sy-title
 TABLES
 it_outtab = <fs0>
 EXCEPTIONS
 fatal_error = 1
 no_display_possible = 2
 others = 3.
IF sy-subrc <> 0.
 message id sy-msgid TYPE 'S' number sy-msgno
 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
ENDMETHOD.
Your original table that goes to the grid is parameter g_outtab1
the field catalog is g_fldcat1.
These need to be converted to kkblo format to use the XXL function module.
The advantage of this method is that you get an EXCEL spreadsheet interactively.
(Of course the standard export function will still work).
Cheers
Jimbo

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

Problem with same layout (variant) for two ALV Grid and ALV Tree

Hello!
I have two docking containers on the screen. On the left i have cl_gui_alv_tree, on the right cl_salv_table.
When a user set a default layout for ALV Grid (or ALV Tree), raport starts and sets this layout in both objects (tree and grid).
How to avoid this?

Hi,
Take Two radio buttons.
First radion button display the two containers in grid format,
second radio button display the two containers in tree format base on user selection.
CREATE OBJECT G_DOCING_CONTAINER
    EXPORTING PARENT = G_CUSTOM_CONTAINER."G_CONTAINER.
DISPLAY THE DATA IN GRID FORMATA
CREATE OBJECT r_grid
    EXPORTING
      i_parent          = G_DOCING_CONTAINER
CALL METHOD g_docing_container->set_width
      EXPORTING
        width      = 1300.
DISPLAY THE GRID DATA IN SECOND CONTAINER
CREATE OBJECT r_grid1
    EXPORTING
      i_parent          = G_DOCING_CONTAINER
CALL METHOD g_docing_container->set_width
      EXPORTING
        width      = 1300.
OTHERWISE WE CAN DISPLAY THE TWO CONTAINERS DATA IN A GRID FORMAT
CREATE OBJECT g_tree
    EXPORTING
      parent                = g_docing_container"g_custom_container
IF R1 = 'X'. "FOR GRID DISPLAY
CALL METHOD r_grid1->set_table_for_first_display
CALL METHOD r_grid2->set_table_for_first_display
ELSE.
************TREE DISPLAY
ENDIF.
regards,
muralii

Up and Down Buttons in ALV Grid

Hi,
If you open the Sorting Screen of an ALV Grid, you can select Columns you want to see and you can rearange them by clicking this Up and Down Buttons. Are these up and down buttons Standard or are they only available in this Sorting Screen? Because i also want to allow the user to sort entries in an own ALV Grid by rearranging the entries with Up and Down buttons. Do i have to add them by my own or is there a standard feature. I saw that there is an Move Row Function, but i did not found any documentation on that.
Thanks,

Jonhy:
This is a little example with ALV, you can see basically are tree things:
1.- Create fieldcat
2.- Have internal table with informacion
3.- CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
All buttons into ALV Tool Bar are standar, and you can hide/show them, or in some case changed a lot of behavior.
Documentation?
TAW10_3   ALV Grid control Unit, is a excelent chapter to start.
TYPE-POOLS: slis.
TABLES: SPFLI.
data: IT_SPFLI like spfli occurs 0 with header line.
data: t_fieldcat TYPE slis_t_fieldcat_alv,
      fs_fieldcat LIKE LINE OF t_fieldcat.
select-options: s_carrid for spfli-carrid,
                s_connid for spfli-connid.
SELECT * FROM SPFLI INTO TABLE it_spfli
where CARRID in s_carrid and
        CONNID in s_connid .
fs_fieldcat-fieldname = 'CARRID'.
fs_fieldcat-ref_tabname = 'SPFLI'.
fs_fieldcat-col_pos = 1.
fs_fieldcat-key = 'X'.
APPEND fs_fieldcat TO t_fieldcat.
CLEAR fs_fieldcat .
fs_fieldcat-fieldname = 'CONNID'.
fs_fieldcat-ref_tabname = 'SPFLI'.
fs_fieldcat-col_pos = 2.
fs_fieldcat-key = 'X'.
APPEND fs_fieldcat TO t_fieldcat.
CLEAR fs_fieldcat .
fs_fieldcat-fieldname = 'DISTANCE'.
fs_fieldcat-ref_tabname = 'SPFLI'.
fs_fieldcat-col_pos = 3.
fs_fieldcat-key = ' '.
APPEND fs_fieldcat TO t_fieldcat.
CLEAR fs_fieldcat.
fs_fieldcat-fieldname = 'CITYFROM'.
fs_fieldcat-ref_tabname = 'SPFLI'.
fs_fieldcat-col_pos = 4.
fs_fieldcat-key = ' '.
APPEND fs_fieldcat TO t_fieldcat.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
   I_CALLBACK_PROGRAM                = sy-repid
   IT_FIELDCAT                       = t_fieldcat
TABLES
    t_outtab                          = it_spfli.
Enjoy the example.
Regards
José Luis

How to refresh the ALV Tree

Hi,
I have an ALV Tree report developed using the OOPS. In my ALV Tree output, I have some buttons which will update the database after clicking. The data is correctly updating in the database. But, it is not getting updated in the ALV Tree display. That means, it is not REFRESHing the ALV Tree display. We have to again execute the program in order to see the updated output.
Could anyone please suggest me how to Refresh the ALV Tree display..?
We can't use the method 'REFRESH_TABLE_DISPLAY' as it is a PRIVATE method is the class CL_GUI_ALV_TREE.
Please share your valuable thoughts.
Thanks & Regards,
Paddu.

Hi paddu.
please check out the link mentioned below,this will help u.
How to Refresh data on ALV tree
Regards
Theres

Disable button in alv tree

Similar Messages

Maybe you are looking for