Tree controle using abap oops

Hi,
I need a sample programe on Alv Tree controle using opps
Regards,
Madhu.

This method does not need a seperate screen but a selection screen is must.
Data:
dock_container type ref to cl_gui_docking_container,
tree1 type ref to cl_gui_alv_tree_simple.
*A docking container does not explicitly need a screen for it.It can be
*placed on the selection screen itself.Here we are using the screen
*which is used for the alvgrid.
*First create a docking container with dock at left
if dock_container is initial.
create object dock_container
exporting
* PARENT =
repid = g_repid
dynnr = g_dynnr
side = dock_container->dock_at_left
extension = 300
* STYLE =
* LIFETIME = lifetime_default
* CAPTION = 'jkhbnjkhk'
* METRIC = 4
* RATIO = 80
* NO_AUTODEF_PROGID_DYNNR =
name = 'dockkkkkk'
* EXCEPTIONS
* CNTL_ERROR = 1
* CNTL_SYSTEM_ERROR = 2
* CREATE_ERROR = 3
* LIFETIME_ERROR = 4
* LIFETIME_DYNPRO_DYNPRO_LINK = 5
* others = 6
endif.
*Secondly create the field cat for the alv to be disp in dock container
call function 'LVC_FIELDCATALOG_MERGE'
exporting
* I_BUFFER_ACTIVE =
i_structure_name = 'ZC9_STRUCT'
* I_CLIENT_NEVER_DISPLAY = 'X'
* I_BYPASSING_BUFFER =
changing
ct_fieldcat = i_fcat[]
* EXCEPTIONS
* INCONSISTENT_INTERFACE = 1
* PROGRAM_ERROR = 2
* OTHERS = 3
if tree1 is initial.
*Thirdly create the tree1 object for the ALV with parent as docking
*container
create object tree1
exporting
* I_LIFETIME =
i_parent = dock_container
* I_SHELLSTYLE =
* I_NODE_SELECTION_MODE =
*cl_gui_column_Tree=>NODE_SEL_MODE_SINGLE
* I_HIDE_SELECTION =
* I_ITEM_SELECTION = 'X'
* I_NO_TOOLBAR =
i_no_html_header = ''
* I_PRINT =
* 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
* others = 8
*Finally create a tree with the below method. (Sort table need to be *passed)
call method tree1->set_table_for_first_display
exporting
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE =
* I_CONSISTENCY_CHECK =
i_structure_name = 'ZC9_STRUCT'
it_list_commentary = pt_list_commentary
i_logo = l_logo
* IS_VARIANT =
* I_SAVE =
* I_DEFAULT = 'X'
is_layout = gs_layout_tree
* IS_PRINT =
* IT_SPECIAL_GROUPS =
* IT_TOOLBAR_EXCLUDING =
* IT_HYPERLINK =
* IT_ALV_GRAPHICS =
* IT_EXCEPT_QINFO =
changing
it_outtab = itab[]
* it_fieldcatalog = i_fcat1[]
it_sort = gt_sort_grid[]

Similar Messages

ALV tree without using abap objects---------urgent

hi
can anybody send me code for making alv tree without using ABAP objects.
thanks in advance
Aditya

HI
goto this link
you will get all ALV TREE programs
follow that code you can understand very easily
http://www.sapdev.co.uk/reporting/alv/alvtree.htm
Reward if usefull

How to Flex tree control using folder click event to pass coldfusion to get data from dynamiclly ?

Hi friends.........
Iam using flex tree control data coming from coldfusion file to display grid. As i click the tree folder to change the data from dynamic from grid.
How to pass the folder id from coldfusion file.. Is it possible ?.. Means give any example please....
Any One Help Me......
With Regards.,
Lingu.......

When you set the dataProvider for your tree control, you actually pass an array or arraycollection or whatever to that property. The array contains objects coming from your server, right? Each object should contain a property with the folder id, something like:
var arr:Array = [{id: 1, folderID: 34, name: "..."}, {id: 2, folderID: 4, name: "..."}, ...];
Now, when you click an item in your tree or your dataGrid, you can access the folder id by:
myTree.selectedItem.folderID
Hope this helps
Dany

Reports using abap-oops

Hi,
This is chakravarthi. I have to learn abap-oops.
Sure! No Problem. You can find a classroom course and get on with it.
Edited by: kishan P on Apr 15, 2011 11:56 AM

check ur fcat

Tree-Control in ABAP redifinieren

Hi there,
I would like to use my tree as navigation-menue. In this case, the alphabetical order of the entries is not used. I would like to specify the direction by myself. Is there any possibility to change or redefinate the abap class cl_wd_tree and how should I implement the changes into my application.
Kind regards,
Albert
Message was edited by: Albert Neumueller
Message was edited by: Albert Neumueller

Hi Albert,
Redefining the class won't make a difference, since there won't be a renderer for your new class - including a number of other required settings/objects/interfaces.
Well, nonetheless there is a way to achieve what you want. You could use a ContextualNavigationPanel and there inside a NavigationList.
Best regards,
Thomas

Program to add node / delete node in the tree control via abap object

Hi all,
i am new to abap objects.
Can anyone help me out to give program about add node , delete node at
a particular point in tree hierarchy.
folder1 -- level 1
subfolder1 -- level 2
*********subfolder1 -- level 3
*********subfolder2 -- level 3
subfolder2 -- level 2
folder2 -- level 1
if i select level3 and click on ADD button .....i get a facility to add new node
at level 3 and and same thing can happen at level1 and level2 ............ if i select
and folder at level3 and click on delete button ....it should delete that folder...
if you do not have such program ........then guide me how to achieve this target via object oriented because i have to split the screen also and have to show some alve display in that.
just guide me how to add and delete node at a particular level in tree structure....
thanks in advance........

Hello Ravi,
Try this demo program:
BCALV_TREE_01
BCALV_TREE_DEMO
BCALV_TREE_SIMPLE_DEMO
Also try:
BCALV_TREE_02
BCALV_TREE_03
BCALV_TREE_04
BCALV_TREE_05
BCALV_TREE_06
regards,
Beejal
**reward if this helps

F4 help for field in ALV grid control (using ABAP objects)

Hi All,
 I have created a z table ZTAB which is a master table( with single column X). field X should be a input field in ALV Grid through F4 key. I have created searchelp and assigned it to data element of X feild, and in domain level I have assigned ZTAB as value table.
 And in ALV field catalog wrote ls_fcat-ref_tab = 'ZTAB'. But still I'm not getting list of values when I press F4.
Can anyone help me to understand what is missing here? How to call standardard F4 help?
This is very urgent..
Regards
Jaker.

u can refer to this standard program :BCALV_EDIT_08
also u wont get the list of values automatically..
declare a class :
CLASS LCL_EVENT_HANDLER DEFINITION.
PUBLIC SECTION.
 METHODS :
 handle_on_f4 for event onf4 of cl_gui_alv_grid
 importing e_fieldname es_row_no er_event_data,
ENDCLASS. "LCL_EVENT_HANDLER
implementation of class
here u pass ur internal table what u want to display as pop up for f4 help.
*& Class (Implementation) LCL_EVENT_HANDLER
 Text
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.
*Method to handle F4 click.
Method handle_on_f4.
Function to create a popup and passing the values of internal table in it.
 CALL FUNCTION 'POPUP_WITH_TABLE'
 EXPORTING
 ENDPOS_COL = 60
 ENDPOS_ROW = 60
 STARTPOS_COL = 5
 STARTPOS_ROW = 5
 TITLETEXT = 'pop up'
 IMPORTING
 CHOICE = wa_grid-zfield
 TABLES
 VALUETAB = ITAB
 EXCEPTIONS
 BREAK_OFF = 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.
 RETURN.
 ENDIF.
endmethod. "handle_on_f4
ENDCLASS. "LCL_EVENT_HANDLER
hope this gives u some idea.

Info on ABAP-OOPS

Hi All,
I want to know where exactly can we use ABAP OOPS..
Can we use in Classical Reports,
Pool Programming
If we can use them in Pool Programming can you help me out with a small example.
Regards

hi,
Object Orientation
A programming technique in which solutions reflect real world objects
What are objects ?
An object is an instantiation of a class. E.g. If Animal is a class, A cat
can be an object of that class .
With respect to code, Object refers to a set of services ( methods /
attributes ) and can contain data
What are classes ?
A class defines the properties of an object. A class can be instantiated
as many number of times
Advantages of Object Orientated approach
Easier to understand when the system is complex
Easy to make changes
Encapsulation - Can restrict the visibility of the data ( Restrict the access to the data )
Polymorphism - Identically named methods behave differently in different classes
Inheritance - You can use an existing class to define a new class
Polymorphism and inheritance lead to code reuse
Classes in abap
Classes in ABAP are either local or global
Global classes are declared in class builder (SE24 )
Local classes are declared within programs
Components of a class
Attributes : Internal data fields of class
Attributes can be either instance attributes specific to each instance of the class ( object ) or static attributes which are common to all instances
Methods :
Subroutines / procedures in a class that define the behavior of the object. Methods can also be instance methods or static methods
Encapsulation in ABAP
Encapsulation is obtained through the restriction in visibility of attributes / methods attained through the definition of Public, Private and Protected section of a class
Public Section
All of the components declared in the public section are accessible to all users of the class, and to the methods of the class and any classes that inherit from it. The public components of the class form the interface between the class and its users.
Protected Section
All of the components declared in the protected section are accessible to all methods of the class and of classes that inherit from it.
Private Section
Components that you declare in the private section are only visible in the methods of the same class.
Inheritance in ABAP
Inheritance allows you to derive a class based on an already existing class.
CLASS <subclass> DEFINITION INHERITING FROM <superclass>.
ENDCLASS.
CLASS <subclass> IMPLEMENTATION.
ENDCLASS.
All attributes / methods of super class become the property of the subclass too. Only public and protected attributes / methods are visible in the subclass
Polymorphism in ABAP
When methods with same name perform differently under different
circumstances we call it polymorphism.
Methods redefined in a subclass is an example for Polymorphism
Interfaces
Interfaces are used to define the model of a class.
They also like classes can be either local or global.
Global interfaces are defined through SE24 and local interfaces are defined in program.
Please check this online document (starting page 1291).
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCABA/BCABA.pdf
Also check this links as well.
http://help.sap.com/saphelp_nw2004s/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm
http://www.sapgenie.com/abap/OO/
http://www.futureobjects.de/content/intro_oo_e.html
http://www.sap-img.com/abap/business-add-in-you-need-to-understand-abap-oo-interface-concept.htm
/people/ravikumar.allampallam/blog/2005/02/11/abap-oo-in-action
check the below links lot of info and examples r there
http://www.sapgenie.com/abap/OO/index.htm
http://www.geocities.com/victorav15/sapr3/abap_ood.html
http://www.brabandt.de/html/abap_oo.html
Check this cool weblog:
/people/thomas.jung3/blog/2004/12/08/abap-persistent-classes-coding-without-sql
/people/thomas.jung3/blog/2004/12/08/abap-persistent-classes-coding-without-sql
http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b6254f411d194a60000e8353423/frameset.htm
http://www.sapgenie.com/abap/OO/
http://www.sapgenie.com/abap/OO/index.htm
http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b5654f411d194a60000e8353423/content.htm
http://www.esnips.com/doc/375fff1b-5a62-444d-8ec1-55508c308b17/prefinalppt.ppt
http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf
http://www.esnips.com/doc/5c65b0dd-eddf-4512-8e32-ecd26735f0f2/prefinalppt.ppt
http://www.allsaplinks.com/
http://www.sap-img.com/
http://www.sapgenie.com/
http://help.sap.com
http://www.sapgenie.com/abap/OO/
http://www.sapgenie.com/abap/OO/index.htm
http://www.sapgenie.com/abap/controls/index.htm
http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf
http://www.esnips.com/doc/0ef39d4b-586a-4637-abbb-e4f69d2d9307/SAP-CONTROLS-WORKSHOP.pdf
http://www.sapgenie.com/abap/OO/index.htm
http://help.sap.com/saphelp_erp2005/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm
http://www.sapgenie.com/abap/OO/
http://help.sap.com/saphelp_47x200/helpdata/en/ce/b518b6513611d194a50000e8353423/content.htm
For funtion module to class
http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5954f411d194a60000e8353423/content.htm
for classes
http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5c54f411d194a60000e8353423/content.htm
for methods
http://help.sap.com/saphelp_47x200/helpdata/en/08/d27c03b81011d194f60000e8353423/content.htm
for inheritance
http://help.sap.com/saphelp_47x200/helpdata/en/dd/4049c40f4611d3b9380000e8353423/content.htm
for interfaces
http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b6254f411d194a60000e8353423/content.htm
Hope this resolves your query.
Reward all the helpful answers.
Regards
Omkar

List header for alv grid using abap objects

Hai all,
I have displayed alv grid in container control using abap objects i.e. using method set_table_for_first_display.
now i need to display list header for this alv grid.
please help me how to create with a sample coding.
Thanks and regards,
Prabu S.

Create a splitter using CL_GUI_EASY_SPLITTER_CONTAINER with a top and bottom half. Put the alv grid in the bottom half. Use cl_dd_document (documented in help.sap.com ) to build the header in the top half. Use events on CL_GUI_ALV_GRID to handle the top-of-list printing.
Or, if available, use CL_SALV_TABLE, and read the documentation on that. When I needed a header for my report, that's what I did. There's plenty of good documentation about if you'll search for it.
matt

Flex tree control expanditem dynamically..?

Hi All.,
 I have using tree control using to display. when i pass the data with folder id dynamically to expanding particular child node of tree.
 How to extarct tree with dynamic...?
Below sample coding.....
<mx:tree id="folderTree" />
folderid=2618;
 callLater(expandTree, [folderid]);
 private function expandTree(folderid: Object) : void
 folderTree.expandChildrenOf(folderTree.getChildAt(0), true);
 folderTree.selectedItem = folderid;
but not extracting tree.
anyone help this problem
With Regards.,
Lings

Thanks buddy for the answer.
Unfortunately the answer came after quite long time of posting the message. Anyway I was able to open a tree on demand using HttpService and due to my new requirement I changed it to RemoteObject.
I my latest change I am able to populate tree nodes on demand and also the same solution if getting update from server via JMS using Consumer object.
I kind a like this solution because it took me good amount of effort to find the right solution.
If any one is intersted the he/she can reply to the post and I can provide code here or may at some location so that it can be easily downloaded.
The solution is Flex-Grails combination.
Thanks everybody.

Check Box in Tree Control

I found that the oracle installation is using tree control with check box. I tried to use the same feature in my application. But I found that the tree control in swing and infoswing is not having the feature to add checkbox in the tree control. If anybody knows how to add checkbox in the tree control using the jdeveloper please help me.

You can see how to do it the next link http://www2.gol.com/users/tame/swing/examples/JTreeExamples2.html
<BLOCKQUOTE>quote:<HR>Originally posted by S. Arun ([email protected]):
I found that the oracle installation is using tree control with check box. I tried to use the same feature in my application. But I found that the tree control in swing and infoswing is not having the feature to add checkbox in the tree control. If anybody knows how to add checkbox in the tree control using the jdeveloper please help me.<HR></BLOCKQUOTE>
null

Execute Open Hub destination(OHD) using ABAP

Dear Experts,
We are using OHD to export data form BW into an application server.As per teh requirement Process chain is not used to execute the OHD.
The DTP for the same is execurted using ABAP OOPs ( abap report,).
The output from an OHD is a file format in the application server. I have a requiremnet to capture error during generating a file in the application server. say for eg if the file is not generated because of space issue , then this error has to be captured in the ABAP report..
I feel for capturing error which occurs during file generation, one has to capture the complete flow of, data getting into OHD and then generating a file in the application server (using OHD) , in the ABAP report( using ABAP class methods)
Is anybody aware of teh standard class methods used to capture teh flow of open hub so taht I can display the errors on teh screen...
Help appreciated,,,,,
Obliged,
KT..

I'm pretty sure you're in the wrong forum. from the header of this forum:
This forum is dedicated to the SAP BusinessObjects BI Solution Architecture...
Please see if you can find a more appropriate ABAP forum
Ludek

Tree Control Property Node for Accessing "Child Text" String Array

When adding items to a tree control using the EditTreeItems invoke nodes, the inputs include "Child Tag", "Item Indent", "Child Only?", "Glyph Index", "Child Text", and "Left Cell String" as can be seen in this screenshot.
There are property nodes for the tree control for accessing each of these elements, except for the "Child Text", which is an array of strings. It is possible to access this data as outlined in this forum post, but this method is somewhat involved and round about.
I suggest that a property for the Tree class be created to access the Child Text array directly.

The work around only works if you do not have an empty string element some where in the middle.
At lest could the "Active Celltring Property" read return an error when you have gone beyond the end of the array.

Scrolling Issue - ALV- ABAP OOPS!

Hello All,
I have a strange issue with regards to ALV developed using ABAP OOPS. I have more than 25 fields on the output screen.
For each field on output screen, F4 help is possible. So when I scroll to the right most fields on the screen, do a f4 help and fill the value, the alv output screen automatically moves to the left side.
I tried to resolve using SET_SCROLL_INFO_VIA_ID method of the class CL_GUI_ALV_GRID.
CALL METHOD g_alvgrid->set_scroll_info_via_id
    EXPORTING
      is_row_info = v_scrl_row_info
      is_col_info = v_scrl_col_info.
* Set Scroll Position
CALL METHOD g_alvgrid->set_current_cell_via_id
    EXPORTING
      is_row_id    = v_scrl_row_set
      is_column_id = v_scrl_col_set.
But still moves to the left side.
If you have some ideas on this, pls share the same. Thanks in advance.
Best Regards
Himayat.
Edited by: Himayatullah Md on Nov 25, 2011 4:42 PM
Please use code tags
Edited by: Rob Burbank on Nov 25, 2011 10:49 AM

If you use [refresh_table_display|http://help.sap.com/saphelp_erp2004/helpdata/en/0a/b5531ed30911d2b467006094192fe3/frameset.htm] set paramter is_stable to keep scrollbar on desired position.
Regards
Marcin

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

Tree controle using abap oops

Similar Messages

Maybe you are looking for