Creating tree from HTTPService

Hi, I'm new under flex builder and I have a simple (?)
problem :
I would like to generate a tree from a XML file generate by
PHP. I can display items (source) in tree but not subitems
(playlist)...
Here my XML file generated by PHP :
<?xml version="1.0" encoding="ISO-8859-1"?>
<sourcelist>
<source id="3" nom="WarholinDaMix">
<playlist id="0" nom="Tous les
fichiers"></playlist>
</source>
<source id="2" nom="YoyesGirl">
<playlist id="0" nom="Tous les
fichiers"></playlist>
<playlist id="2" nom="Yo la liste
Girly"></playlist>
</source>
<source id="1" nom="Yoyesman">
<playlist id="0" nom="Tous les
fichiers"></playlist>
<playlist id="1" nom="Yo ma liste 1"></playlist>
<playlist id="3" nom="Yo ma liste 2"></playlist>
</source>
</sourcelist>
Here the code I use :
<?xml version="1.0" encoding="utf-8"?>
<mx:Application xmlns:mx="
http://www.adobe.com/2006/mxml"
layout="absolute" creationComplete="GetSource.send(null);">
<mx:HTTPService id="GetSource" url="
http://127.0.0.1/SchmittTunes/bin/music.php?gettype=source"
useProxy="false"/>
<mx:Panel layout="absolute" left="10" right="10">
<mx:Tree labelField="nom"
dataProvider="{GetSource.lastResult.sourcelist.source}"
width="100%" x="0" height="100%" y="0"
showRoot="false"></mx:Tree>
</mx:Panel>
</mx:Application>
How I said, I have 3 items displaying the 'source' on my
tree, but I can't expand them. There is no arrow on the left side.
So subitems like 'playlist' are not display.
Does anyone know why or have an idea ?
Thanks for your help
Mika

Thanks ! it's working with resultFormat="e4x" tag in my
HTTPService, but with some adaptations :
I change the following :
<mx:Tree labelField="nom"
dataProvider="{GetSource.lastResult.sourcelist.source}"
width="100%" x="0" height="100%" y="0"
showRoot="false"></mx:Tree>
By :
<mx:Tree labelField="@nom"
dataProvider="{GetSource.lastResult}" width="100%" x="0"
height="100%" y="0" showRoot="false"></mx:Tree>
Changes are about labelfield and dataprovider.
Thanks for your help !

Similar Messages

Create Tree from Preordered data

Here is a quick summary of what I'm trying to do:
I have a file with formatted like this
Does it have legs?
Dog
Fish
and the resulting tree for it should look like this
     Does it have legs?
     Dog        Fishand I'm trying to write a function that takes in a Scanner object that should already be tied to the data file and create a tree from this data that is already listed in Preorder fashion. I know tha recurison is probably the best way to go about this but everything that I have written hasn't worked. Also, I cant really figure out a way to use recursion when the function is taking in a Scanner I dont know how it would work.
Any help would be greatly appreciated.
Here is what I have now:
     public BinaryTree<String> readTree(Scanner data)
          BinaryTree<String> temp = new BinaryTree<String>();
          temp.attachLeft(data.next());
          temp.attachRight(data.next());
          return temp;
     }I know this function wont go through the whoel file, but I've tried many loops but I cant figure out how to get it to work so I'm convinced that I need to figure out how to make it recursive
(yes I know that everything that can be done through recursion can be done with a loop)

@OP:
Here's how you could do it:
import java.io.File;
import java.io.FileNotFoundException;
import java.util.Scanner;
import java.util.Stack;
class Main {
    public static void main(String[] args) throws FileNotFoundException {
        Scanner file = new Scanner(new File("data.txt"));
        BinTree tree = new BinTree(file);
        System.out.println(tree);
class BinTree {
    private BinNode root;
    public BinTree(Scanner file) {
        // create the root (first line in the file)
        root = new BinNode(file.nextLine());
        // create a stack
        Stack<BinNode> stack = new Stack<BinNode>();
        // push the root on the stack: we need it to add nodes to the left and right of it
        stack.push(root);
        // call the insert method to build the tree
        insert(stack, file);
    private void insert(Stack<BinNode> stack, Scanner file) {
        IF 'file' has no more lines left
            stop this method
        END IF
        BinNode 'next' <- the next line in 'file'
        IF the left node of the last node on the 'stack' equals null
            the left child of last node of the stack <- 'next' (but leave the stack in tact)
        ESLE
            the right child of last node of the stack <- 'next' (remove the last node of the stack)
        END IF
        IF 'next' is a question
            push 'next' on the stack
        END IF
        recursively call the insert(...) method here
class BinNode {
    String data;
    BinNode right, left;
    public BinNode(String data) { this.data = data; }
    public String toString() { return this.data; }
}

Create a tree from a resultset

Hi,
I need to create a tree structure from a resultset and show them into my JSP. Here is my table sql (grup).
CREATE TABLE GRUP (
ID_GRUP int(11) NOT NULL default '0',
ID_GRUP_PARENT int(11) NOT NULL default '0',
ORDER_BY int(11) NOT NULL default '1',
DESCRP varchar(100) default NULL,
PRIMARY KEY ('ID_GRUP'),
)What I really need is a recursive method to search for all the children of each row and build a tree heirarchy. e.g. the data may look like
ID_GRUP   ID_GRUP_PARENT      ORDER_BY    DESCRP
1               0                 1        It itself is the parent
2               1                 1        It's Parent is ID_GRUP=1
3               0                 2        It itself is the parent
4               2                 1        It's parent is ID_GRUP=2
5               1                 2        It's Parent is ID_GRUP=1
6               4                 1        It's Parent is ID_GRUP=4
7               2                 2        It's parent is ID_GRUP=2
8               2                 3        It's parent is ID_GRUP=2So looking at the top data my final tree structure should look like
1
2
    4
      6
    7
    8
5
3and so on. ORDER_BY show the order in which each element should display in the heirarchy. I am really struggling to find a way on how to have the heirarchy built and really need some help.
Thanks
Here is the SQL i have to het the data
SELECT ID_GRUP, ID_GRUP_PARENT, DESCRP FROM GRUP ORDER BY ORDER_BY.

First of all, you can't make a (single) tree out of that, because apparently you have two roots.
Anyway, one you fix the requirements, you can do this by defining a tree node type (of course), a reference to the root node, and then a temporary data structure to let you go directly to identified nodes without having to traverse the tree from the root (and thus having to know all the paths to the descendant elements). For example, in Java, a good temp data structure might be a java.util.Map<Integer, YourTreeNode>, where you'll use ID_GRUP values for the keys.

JAXB: Creating Java content tree from scratch - examples?

I'm trying to create XML output by building the content tree from scratch (using a the DDI schema which is fairly complex). I don't have any existing XML instances. Sample application 3 in Sun's JAXB tutorial doesn't give enough info about how to relate the nodes to create the heirarchy. I can create the root node and set it's attributes OK, but then the practical info runs out.
Can anyone point me at some good practical examples? (i.e. not those of the "How to play the quitar: Put your fingers on the frets and move your other hand around" genre).
Thanks in advance.

I don't have examples, but the main thing to remember is that you should use the ObjectFactory to create all of the objects in your tree. That's important.
You must use the element object class for the root node, but you can use type object classes for all the data contained (you can use element object classes for all the nodes, if that's easier).
Use the accessor methods to load the data into the objects you create.
One tip that almost everyone runs into - JAXB only provides a getter for lists - use the getter to get the list, then use .add() methods to add the objects to that list.

Creating a Java content tree from scratch and then marshal it to XML data

Hi,
After binding a schema using JAXB binding, I wrote a class to create a Java content tree from scratch and then marshal it to create an XML document. To see if the resulting xml document is correct, I opened it in XMLSpy and tried to validate it against the original schema.... I got the following error:
"Unable to locate a reference to a supported schema kind (DTD, DCD, W3C Schema, XML-Data, Biz Talk) within this document instance"
Then I realized that the generated xml document didnot contain the following for the root element:
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" and xsi:schemaLocation="....."
i.e, the XML Schema Instance namespace and the schema location.
How do I get these attributes incorporated into the XML document generated during the marshal process.
Thanks.

How do I get these attributes incorporated into the XML document generated during the marshal process.
Add xmlns:xsi and xsi:schemaLocation attributes to the root element in the schema.
<xsd:attribute name="xmlns:xsi" fixed="http://www.w3.org/2001/XMLSchema-instance"/>

How to create af:tree from single database Table

Hi,
i want to create tree Like this: and also we can add node anywhere.
Parent01
----|parent01-child01
--------|parent01-child01-child01
--------|parent01-child01-child02
-------------|parent01-child01-child02-child01
Parent02
----|parent02-child01
----|parent02-child02
--------|parent02-child02-child01
and for this i have created Table like this :
Table name Treetable
NODEID     NUMBER(38,0) --> Primary Key
NODENAME     VARCHAR2(50 BYTE) --> This is the name will display as a node
DESCRIPTION     VARCHAR2(255 BYTE)
ROOTIND     CHAR(1 BYTE) --> to decide root node
SEQUENCENO     NUMBER(38,0)     --> order to display node
PARENTKEY     NUMBER(38,0) -->FK (refering to NODEID(PK) of this table)
But when i am creating tree, its showing root node for each row in the table. but my requirement is: The Row marked as ROOTIND='Y' , show that row only as Root (Example in above tree:Parent01 & Parent02 )
any help highly appreciated :)
Thanks
Pratap Rudra
Edited by: 995114 on Apr 30, 2013 2:50 PM

Hi,
check this http://www.oracle.com/technetwork/developer-tools/adf/learnmore/32-tree-table-from-single-vo-169174.pdf
Frank

Help:create tree node dynamically from java code...

hi there...can anyone give me solution how to create or add tree node dynamically from java code???
currently i am using tree node to handle my menu...i try to create tree and add treenode dynamically from .java page, but it failed...can anyone give solution how to create tree ui from java code, so i can create a dynamic menu...thanz before...

Hi:
Just put the statements you would normally put on a sqlplus command line in jdbc statements and execute them?
http://www-db.stanford.edu/~ullman/fcdb/oracle/or-jdbc.html#0.1_executeUpdate
MJG

Create bookmarks from group tree issue

Hello,
I am the administrator of a calibration software that uses Crystal Reports as it's reporting engine. I currently have Crystal Reports XI Product Version 11.0.0.1282 installed on my computer.
I designed a report last week and when I would export it to a pdf, either through Crystal Reports or through the calibration software, I would have an option allow me to create bookmarks from group tree. It worked great. I then sent this report to our field engineers with instructions on how to run it and no one was able to see the "create bookmarks from group tree" option. Why would this be?
I thought it had something to do with not having the newest version of Crystal Reports so I tried to update the software from Help > Check for Updates. It searched for updates but then timed out and gave me a message that I was not connected to the internet even though I was. I then found my way to this site and downloaded "crxir2_sp4_full_build.exe".
I tried to install this and everything was going good until I was prompted to locate the file CrystalReports.msi. I could browse to any location but by default it was trying to find it in my temporary internet files for my browser. I searched my computer and did not have this file. I checked the CD and found it on there. I copied it from the CD to my hard drive. I tried to run the installation again and when prompted for CrystalReports.msi, I pointed it to the location on my hard drive but the software would not accept it.
I eventually canceled out of the install but every time I would launch Crystal Reports it would prompt me for the same file.
This morning I uninstalled Crystal Reports XI from my machine, rebooted, and reinstalled it. Now when I try to export the report, either through Crystal Reports or through the calibration software, I do not have an option to allow me to create bookmarks from group tree. It has disappeared.
So my questions are:
1. How do I get the "create bookmarks from group tree" option back?
2. How do I get the "create bookmarks from group tree" option to appear on my field engineer's computer when they run the report?
3. Why was I not able to update my software? Was I doing something wrong?
Thanks in advance for the help.

I never had version 11.5 installed but I had the create bookmarks option. I had version 11.0 installed and had the create bookmarks option.
I'm still having problems installing Crystal Reports XI R2. It makes it through the entire installation and then a screen pops up telling me that it can not find "CrystalReports.msi". It is looking for this file in a temp file. I use the browse button and point it to the proper file location but it still won't accept it. The only thing I can do is exit out of the installation. Am I doing something wrong? Do I have to do something special to upgrade Crystal Reports?

Progrmmatically creating Tree Table from a POJO

Hi,
I've a requirement to develope a Tree Table out of a collection(ArrayList). I've not used Tree Table component earlier. I understand its pretty easy to create one from a Data Control(VO). I had looked in to code snippets on Tree component, but my need is for a Tree Table component.
I am looking for programmatic creation of a Tree Table that even handles the selection event, creation of nodes(parent and child both). A way that I store both parent and child nodes in a single list but can identify the difference while rendering.
Please share if there are some code snippets available.
Thank you.

Thanks Shay for your response. As suggested by you, I was walking thru ADFRichclientdemo application.
I am using Jdeveloper 11.1.1.5
I've been asked to avoid Trinidad libraries as there are new classes available to construct a table model and handle the events on the same which I am not aware.
I am looking for code refrences to create a Tree and handle the events using a POJO bean.

How to create tree by database table

hello sir ,
my table is as follows,
NAME LINK ID PID ROLLID
User mgt. f?p=131:1: 1 - 10 ////root node///
district 10 1 1 child
Roles 16 14 4 child
Users 11 10 1 child
ROLLID is given from another table whis is (ROLES). i making tree by the combinations of id , pid, & roll id. by the roll id i can manage the tree to do not display specific nodes to specific users.
ROLE table as :
ROLE_ID NAME DESCRIPTION
1 Administrator This is administrator
2 Assistant Director -
3 Assistant Statistical Officer -
4 Data Entry Operator -
but i think it is very complicated process . give me solution about it
also i have to give my images to each node. how can i do that?

You already have a thread going about this: Re: how to create tree by database table .
Scott

Getting general error when saving site using "create PDF from"

I'm using Adobe Acrobat Professional 8.0.0 for Mac, trying to save websites. This started working fine, but I had to shut down in the middle of a site being saved. Now when I try to save a site using Web Capture/create PDF from I get a "general error, nothing was saved". What do I need to do, remove, replace, reinstall or whatever to get this feature working again?
Also can anyone tell me how to set the feature that saves web pages with the headers and footers showing date, time, URL, page title, etc. I often use the print feature (save to PDF) and up until a day or so ago it always saved with those headers and footers. Now they're missing, which is what prompted me to try saving entire sites, above. I remember setting these a long time ago and being able to choose what went on the left, right,header and footer, but I cannot find those settings now.
Thanks,
Michele

Well, after downloading Applejack, I am completely confused. I'm not sure I understand what will happen if I do any of these steps: see 3a.. "clean out all cache files including the Launch Services database and any cached User Pictures". What kinds of things will I lose? Can I choose only the Acrobat cache files? I don't want to have to spend hours or days resetting things as I'm in the middle of a project with a close deadline. I also don't really understand fully what will happen with all the other things they discuss. The instructions say (I just copied and pasted these):
3. Auto mode: You can let the script run through its tasks automatically by typing 'applejack auto'. If you want the machine to automatically restart at the end of its tasks, use 'applejack auto restart'. You can also tell the computer to shut down automatically at the end by using the command line 'applejack auto shutdown'.
3a. Deep Auto mode: If you want to let AppleJack clean out all cache files, including the Launch Services database and any cached User Pictures, use 'applejack AUTO' instead. Use this if you still have problems booting after running AppleJack already.
4. Interactive mode: To run through just one task, or to run the script manually, type 'applejack' and then choose tasks from the menu. Running the script in interactive mode has the benefit of giving you options for working with user level cache and preference files, not just the default system level caches and preferences. To select an option, type the highlighted number or letter associated with the action, and then hit return. Whenever you enter a choice in AppleJack, you will need to hit return for that choice to take effect.
4. Corrupted preference files are moved into a directory that will mirror the original preference directory, with (Corrupt) added to the directory name. For example, corrupt preferences files found in ~/Library/Preferences will be moved to ~/Library/Preferences (Corrupt). After running AppleJack, you'll probably want to take a look at them (and most likely throw out those folders). As of version 1.4.2, AppleJack now creates a copy of the directory tree inside the (Corrupt) folder so that if any files were deeply nested inside the original preference folder, they will be placed in an identical directory hierarchy in the new (Corrupt) folder. This way, if for any reason you would want to move a preference file back, you know where it should go.
6. AppleJack has a primitive logging mechanism. It writes a journal of most of its activity to /var/log/AppleJack.log. AppleJack will automatically reset the log the next time you run it, if the file should ever reach a size somewhat over 500k.

Can't create MBO from SAP servers

Hi,
I'm trying to create MBO from SAP servers with Sybase Unwired WorkSpace.
I created Connection Profile and it worked well(Ping succeeded!).
However, I expanded profile tree, no BAPI was shown.
Any ideas what is happening here?
SAP version is below,
SAP
ERP: ERP 6.0 EHP 5
NetWeaver: SAP EHP 2 for SAP NetWeaver 7.0
OS: Windows NT 2x X86_64
Sybase Unwired WorkSpace
2.1.0
Additionally, It worked well in SAP ECC 6.0.
Regards,
Hiroshi Saito

Eventually, the problem is resolved.
It related SAP Note 706195.
I did the Solution in the Note, all BAPI is displayed in Sybase Unwired WorkSpace's Enterprise Explorer.
Note 706195:
http://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/oss_notes/sdn_oss_bc_dwb/~form/handler%7b5f4150503d3030323030363832353030303030303031393732265f4556454e543d444953504c4159265f4e4e554d3d373036313935%7d
thanks,
Hiroshi Saito

How to Create Hierarchy From Flat file Structure

Hi Gurus,
There is a scenario for me regarding the Hierarchy.
Required Hierarchy structure - Region>Director>Manager-->Sales id
I have flat file which gives the info like user id , sales id , manager id, director id.
But the transaction data Flat file has structure with sales id, region id, sales amt, sales qty.
Note : Region id is another Master Data.
How i can create hierarchy from the first flat file which doesnot have region info in that but it is available in the transaction data Flat file.
Is there anyway we can create hierarchy based on the first Flat file structure which contains more that 1,00,000 records.
Try to Suggest me in this regard .
This is urgent.
Regards,
Mano

Hi Mano,
                Defining the source system from which to load data
Choose the source system tree File ® Create.
       2.      Defining the InfoSource for which you want to load data
Optional: choose InfoSource Tree ® Root (InfoSources) ® Create Application Components.
Choose InfoSource Tree ® Your Application Component ® Other Functions ® Create InfoSource 3.x ® Direct Update.
Choose an InfoObject from the proposal list, and specify a name and a description.
       3.      Assigning the source system to the InfoSource
Choose InfoSource Tree ® Your Application Component ® Your InfoSource ® Assign Source System. The transfer structure maintenance screen appears.
The system automatically generates DataSources for the three different data types to which you can load data.
○       Attributes
○       Texts
○       Hierarchies (if the InfoObject has access to hierarchies)
The system automatically generates the transfer structure, the transfer rules, and the communication structure (for attributes and texts).
       4.      Maintaining the transfer structure / transfer rules
Select the DataSource for uploading hierarchies.
IDoc transfer method: The system automatically generates a proposal for the DataSource and the transfer structure. This consists of an entry for the InfoObject for which hierarchies are loaded. With this transfer method, the structure is converted to the structure of the PSA during loading, which affects performance.
PSA transfer method: The transfer methods and the communication structure are also generated here.
       5.      Maintaining the hierarchy
Choose Hierarchy Maintenance, and specify a technical name and a description of the hierarchy
Hope this helps
Regards
Karthik
Assign points if Helpful

Creating trees in oracle apex 4.0

Hi
I have to create a 3 level tree from three tables
the table structure are as follows
Customer(table:)
customerid,customer_name
Site(site)
site_id,site_name
equipments(table)
equipid,equipment_name,customerid(fk),siteid(fk)
nowi have to create a tree of the following structure
customer1
--->site1
--->equip1
---->equip2
--->site2
--->equip3
--->equip4
customer2
--->site3
--->equip5
can anyone please help to create a query to make this tree strcuture happen.
thank you
Musab

This is fairly simple - just put the tree data into a view and then access that view when you define the tree region
It would be something like the following but typically you'd add in images or links too...
create view vtree as
select to_number(null) pid, customer_id id, customer_name name from customer
union
select customer_id, site_id, site_name from site
union
select customerid, equipid, equipment_name from equipment --< note this is the same level as site, I'd imagine you'd want this to sit below customer?

How to create tree structure in abap

hi,
   I am mohan. Please send the how to create the tree structure. how to insert the child nodes in root node. actually our requirement is we have list transaction codes. We are planning to put all transaction codes in tree level.
please tell me how to do the program in tree structure.

Hi Mohan,
Check the following program on ALV tree.
REPORT zalvtree.
CLASS cl_gui_column_tree DEFINITION LOAD.
CLASS cl_gui_cfw DEFINITION LOAD.
DATA: go_grid TYPE REF TO cl_gui_alv_grid.
DATA: ro_grid TYPE REF TO cl_gui_alv_grid.
DATA tree1 TYPE REF TO cl_gui_alv_tree.
DATA mr_toolbar TYPE REF TO cl_gui_toolbar.
DATA : gt_checked TYPE lvc_t_chit,
       gs_checked LIKE LINE OF gt_checked,
       l_part_key TYPE lvc_nkey,
       gt_node TYPE lvc_s_chit-nodekey.
INCLUDE <icon>.
INCLUDE zamit_alv_tree_toolbar_event.
INCLUDE zbcalv_tree_event_receiver.
*DATA: toolbar_event_receiver TYPE REF TO lcl_toolbar_event_receiver.
DATA: gt_sflight      TYPE sflight OCCURS 0,      "Output-Table
      gt_fieldcatalog TYPE lvc_t_fcat, "Fieldcatalog
      ok_code LIKE sy-ucomm.           "OK-Code
START-OF-SELECTION.
END-OF-SELECTION.
CALL SCREEN 100.
*&      Module PBO OUTPUT
      process before output
MODULE pbo OUTPUT.
SET PF-STATUS 'MAIN100'.
IF tree1 IS INITIAL.
    PERFORM init_tree.
else.
              CALL METHOD me->refresh_table_display
                EXCEPTIONS
                  PROGRAM_ERROR = 1
                  others        = 2
              IF sy-subrc <> 0.
               MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
              ENDIF.
ENDIF.
CALL METHOD cl_gui_cfw=>flush.
ENDMODULE.                             " PBO OUTPUT
*&      Module PAI INPUT
      process after input
MODULE pai INPUT.
CASE ok_code.
    WHEN 'EXIT' OR 'BACK' OR 'CANC'.
      PERFORM exit_program.
*mrk
    WHEN 'MOVE'.
      PERFORM check_selection.
    WHEN 'MBAK'.
      PERFORM another_selection.
    WHEN 'ALL'.
      PERFORM select_all.
    WHEN 'CLEAR'.
      PERFORM clear_all.
    WHEN 'DELETE'.
      PERFORM delete_all.
    WHEN 'EXPAND'.
      PERFORM expand_all.
    WHEN 'COLLAPSE'.
      PERFORM collapse_all.
    WHEN OTHERS.
      CALL METHOD cl_gui_cfw=>dispatch.
ENDCASE.
CLEAR ok_code.
CALL METHOD cl_gui_cfw=>flush.
ENDMODULE.                             " PAI INPUT
*&      Form build_fieldcatalog
      build fieldcatalog for structure sflight
FORM build_fieldcatalog.
get fieldcatalog
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name = 'SFLIGHT'
    CHANGING
      ct_fieldcat      = gt_fieldcatalog.
change fieldcatalog
DATA: ls_fieldcatalog TYPE lvc_s_fcat.
LOOP AT gt_fieldcatalog INTO ls_fieldcatalog.
    CASE ls_fieldcatalog-fieldname.
      WHEN 'CARRID' OR 'CONNID' OR 'FLDATE'.
        ls_fieldcatalog-no_out = 'X'.
        ls_fieldcatalog-key    = ''.
      WHEN 'PRICE' OR 'SEATSOCC' OR 'SEATSMAX' OR 'PAYMENTSUM'.
        ls_fieldcatalog-do_sum = 'X'.
    ENDCASE.
    MODIFY gt_fieldcatalog FROM ls_fieldcatalog.
ENDLOOP.
ENDFORM.                               " build_fieldcatalog
*&      Form build_hierarchy_header
      build hierarchy-header-information
     -->P_L_HIERARCHY_HEADER strucxture for hierarchy-header
FORM build_hierarchy_header CHANGING
                               p_hierarchy_header TYPE treev_hhdr.
p_hierarchy_header-heading = 'Hierarchy Header'.          "#EC NOTEXT
p_hierarchy_header-tooltip =
                         'This is the Hierarchy Header !'. "#EC NOTEXT
p_hierarchy_header-width = 30.
p_hierarchy_header-width_pix = ''.
ENDFORM.                               " build_hierarchy_header
*&      Form exit_program
      free object and leave program
FORM exit_program.
CALL METHOD tree1->free.
LEAVE PROGRAM.
ENDFORM.                               " exit_program
*&      Form check_selection
      text
--> p1        text
<-- p2        text
FORM check_selection .
create container for alv-tree
DATA: l_tree_container_name(30) TYPE c,
        l_custom_container2 TYPE REF TO cl_gui_custom_container.
l_tree_container_name = 'TREE2'.
IF sy-batch IS INITIAL.
    CREATE OBJECT l_custom_container2
      EXPORTING
            container_name = l_tree_container_name
      EXCEPTIONS
            cntl_error                  = 1
            cntl_system_error           = 2
            create_error                = 3
            lifetime_error              = 4
            lifetime_dynpro_dynpro_link = 5.
    IF sy-subrc <> 0.
      MESSAGE x208(00) WITH 'ERROR'.                        "#EC NOTEXT
    ENDIF.
ENDIF.
CREATE OBJECT go_grid
    EXPORTING
   I_SHELLSTYLE      = 0
   I_LIFETIME        =
      i_parent          = l_custom_container2
   I_APPL_EVENTS     = space
   I_PARENTDBG       =
   I_APPLOGPARENT    =
   I_GRAPHICSPARENT =
   I_NAME            =
EXCEPTIONS
   ERROR_CNTL_CREATE = 1
   ERROR_CNTL_INIT   = 2
   ERROR_CNTL_LINK   = 3
   ERROR_DP_CREATE   = 4
   others            = 5
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
PERFORM load_data_into_grid.
*data: lt_nodes type LVC_T_NKEY,
     ls_nodes like line of lt_nodes,
     ls_checked like line of gt_checked.
*loop at gt_checked into ls_checked.
ls_nodes = ls_checked-nodekey.
append ls_nodes to lt_nodes.
*endloop.
*CALL METHOD tree1->unselect_nodes
EXPORTING
   it_node_key                  = lt_nodes
EXCEPTIONS
   CNTL_SYSTEM_ERROR            = 1
   DP_ERROR                     = 2
   MULTIPLE_NODE_SELECTION_ONLY = 3
   ERROR_IN_NODE_KEY_TABLE      = 4
   FAILED                       = 5
   others                       = 6
*IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.
ENDFORM.                    " check_selection
*&      Form another_selection
      text
--> p1        text
<-- p2        text
FORM another_selection .
create container for alv-tree
DATA: l_tree_container_name(30) TYPE c,
        l_custom_container2 TYPE REF TO cl_gui_custom_container.
l_tree_container_name = 'TREE2'.
IF sy-batch IS INITIAL.
    CREATE OBJECT l_custom_container2
      EXPORTING
            container_name = l_tree_container_name
      EXCEPTIONS
            cntl_error                  = 1
            cntl_system_error           = 2
            create_error                = 3
            lifetime_error              = 4
            lifetime_dynpro_dynpro_link = 5.
    IF sy-subrc <> 0.
      MESSAGE x208(00) WITH 'ERROR'.                        "#EC NOTEXT
    ENDIF.
ENDIF.
CREATE OBJECT ro_grid
    EXPORTING
   I_SHELLSTYLE      = 0
   I_LIFETIME        =
      i_parent          = l_custom_container2
   I_APPL_EVENTS     = space
   I_PARENTDBG       =
   I_APPLOGPARENT    =
   I_GRAPHICSPARENT =
   I_NAME            =
EXCEPTIONS
   ERROR_CNTL_CREATE = 1
   ERROR_CNTL_INIT   = 2
   ERROR_CNTL_LINK   = 3
   ERROR_DP_CREATE   = 4
   others            = 5
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
PERFORM load_data_into_grid1.
DATA: lt_unsel TYPE lvc_t_nkey,
        ls_unsel LIKE LINE OF lt_unsel.
LOOP AT gt_checked INTO gs_checked.
    ls_unsel = gs_checked-nodekey.
    APPEND ls_unsel TO lt_unsel.
ENDLOOP.
CALL METHOD tree1->unselect_nodes
    EXPORTING
      it_node_key                  = lt_unsel
    EXCEPTIONS
      cntl_system_error            = 1
      dp_error                     = 2
      multiple_node_selection_only = 3
      error_in_node_key_table      = 4
      failed                       = 5
      OTHERS                       = 6.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*CALL METHOD tree1->unselect_all
EXCEPTIONS
   CNTL_SYSTEM_ERROR = 1
   FAILED            = 2
   others            = 3
*IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.
DATA: text TYPE lvc_value,
   item TYPE lvc_t_layi,
   node TYPE lvc_s_layn,
   inode TYPE lvc_nkey.
FIELD-SYMBOLS: <wa> TYPE ANY.
DATA: l_dref_wa LIKE LINE OF gt_sflight.
ASSIGN l_dref_wa TO <wa>.
READ TABLE gt_checked INTO gs_checked WITH KEY nodekey = 3.
inode = gs_checked-nodekey.
CALL METHOD tree1->get_outtab_line
    EXPORTING
      i_node_key     = inode
    IMPORTING
      e_outtab_line = <wa>
      e_node_text    = text
      et_item_layout = item
      es_node_layout = node
    EXCEPTIONS
      node_not_found = 1
      OTHERS         = 2.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
DATA: lt_layout TYPE lvc_t_laci,
        layout LIKE LINE OF lt_layout.
layout-chosen = 'X'.
layout-fieldname = tree1->c_hierarchy_column_name.
ls_item_layout-chosen = 'X'.           "To give default checkbox value checked
layout-class   = cl_gui_column_tree=>item_class_checkbox.
layout-editable = 'X'.
LAYOUT-U_CHOSEN = 'X'.
APPEND layout TO lt_layout.
CALL METHOD tree1->change_node
    EXPORTING
      i_node_key     = inode
      i_outtab_line = <wa>
   IS_NODE_LAYOUT =
      it_item_layout = lt_layout
   I_NODE_TEXT    =
   I_U_NODE_TEXT =
    EXCEPTIONS
      node_not_found = 1
      OTHERS         = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*CALL METHOD tree1->change_item
EXPORTING
   i_node_key     = inode
   i_fieldname    = gs_checked-FIELDNAME
   i_data         = <wa>
   I_U_DATA       = ''
   IS_ITEM_LAYOUT = layout
EXCEPTIONS
   NODE_NOT_FOUND = 1
   others         = 2
*IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.
*loop at lt_unsel into ls_unsel.
*CALL METHOD tree1->update_checked_items
EXPORTING
   i_node_key    = ls_unsel
   i_fieldname   = ''
   i_checked     = ''
EXCEPTIONS
   PROGRAM_ERROR = 1
   others        = 2
*IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.
*endif.
ENDFORM.                    " another_selection
*&      Form select_all
      text
--> p1        text
<-- p2        text
FORM select_all .
CONSTANTS: c_x(1) TYPE c VALUE 'X'.
*********Check box modifications.
CALL METHOD tree1->delete_all_nodes
    EXCEPTIONS
      failed            = 1
      cntl_system_error = 2
      OTHERS            = 3.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
clear l_part_key.
create hierarchy
PERFORM create_hierarchy USING c_x.
CALL METHOD tree1->expand_node
    EXPORTING
      i_node_key          = gt_node
   I_LEVEL_COUNT       = 1
      i_expand_subtree    = 'X'
    EXCEPTIONS
      failed              = 1
      illegal_level_count = 2
      cntl_system_error   = 3
      node_not_found      = 4
      cannot_expand_leaf = 5
      OTHERS              = 6
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
add own functioncodes to the toolbar
perform change_toolbar.
register events
perform register_events.
adjust column_width
call method tree1->COLUMN_OPTIMIZE.
ENDFORM.                    " select_all
*&      Form clear_all
      text
--> p1        text
<-- p2        text
FORM clear_all .
CONSTANTS: c_x(1) TYPE c VALUE space.
*********Check box modifications.
CALL METHOD tree1->delete_all_nodes
    EXCEPTIONS
      failed            = 1
      cntl_system_error = 2
      OTHERS            = 3.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
create hierarchy
PERFORM create_hierarchy USING c_x.
CALL METHOD tree1->expand_node
    EXPORTING
      i_node_key          = gt_node
   I_LEVEL_COUNT       = 1
      i_expand_subtree    = 'X'
    EXCEPTIONS
      failed              = 1
      illegal_level_count = 2
      cntl_system_error   = 3
      node_not_found      = 4
      cannot_expand_leaf = 5
      OTHERS              = 6
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " clear_all
*&      Form delete_all
      text
--> p1        text
<-- p2        text
FORM delete_all .
*********Check box modifications.
CALL METHOD tree1->delete_all_nodes
    EXCEPTIONS
      failed            = 1
      cntl_system_error = 2
      OTHERS            = 3.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " delete_all
*&      Form expand_all
      text
--> p1        text
<-- p2        text
FORM expand_all .
CALL METHOD tree1->expand_node
    EXPORTING
      i_node_key          = gt_node
   I_LEVEL_COUNT       = 1
      i_expand_subtree    = 'X'
    EXCEPTIONS
      failed              = 1
      illegal_level_count = 2
      cntl_system_error   = 3
      node_not_found      = 4
      cannot_expand_leaf = 5
      OTHERS              = 6
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " expand_all
*&      Form collapse_all
      text
--> p1        text
<-- p2        text
FORM collapse_all .
CALL METHOD tree1->collapse_all_nodes
    EXCEPTIONS
      failed            = 1
      cntl_system_error = 2
      OTHERS            = 3.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " collapse_all
*&      Form load_data_into_grid
      text
--> p1        text
<-- p2        text
FORM load_data_into_grid .
DATA:
For parameter IS_VARIANT
      l_layout TYPE disvariant,
gs_layout TYPE lvc_s_layo.
DATA gi_sflight TYPE TABLE OF zsflight.
Load data into the grid and display them
l_layout-report = sy-repid.
gs_layout-grid_title = 'Amits Test Program'.
gs_layout-sel_mode = 'A'.
SELECT *
   FROM zsflight
   INTO TABLE gi_sflight.
CALL METHOD go_grid->set_table_for_first_display
    EXPORTING
      i_structure_name = 'SFLIGHT'
      is_layout        = gs_layout
      is_variant       = l_layout
      i_save           = 'A'
    CHANGING
      it_outtab        = gi_sflight.
ENDFORM.                    " load_data_into_grid
*&      Form load_data_into_grid
      text
--> p1        text
<-- p2        text
FORM load_data_into_grid1.
DATA:
For parameter IS_VARIANT
      l_layout TYPE disvariant,
gs_layout TYPE lvc_s_layo.
DATA gi_sflight TYPE TABLE OF zapempl.
Load data into the grid and display them
l_layout-report = sy-repid.
gs_layout-grid_title = 'Rams Test Program'.
gs_layout-sel_mode = 'A'.
SELECT *
   FROM zapempl
   INTO TABLE gi_sflight.
CALL METHOD ro_grid->set_table_for_first_display
    EXPORTING
      i_structure_name = 'ZAPEMPL'
      is_layout        = gs_layout
      is_variant       = l_layout
      i_save           = 'A'
    CHANGING
      it_outtab        = gi_sflight.
ENDFORM.                    " load_data_into_grid1
*&      Form build_header
      build table for html_header
--> p1        text
<-- p2        text
FORM build_comment USING
      pt_list_commentary TYPE slis_t_listheader
      p_logo             TYPE sdydo_value.
DATA: ls_line TYPE slis_listheader.
LIST HEADING LINE: TYPE H
CLEAR ls_line.
ls_line-typ = 'H'.
LS_LINE-KEY: NOT USED FOR THIS TYPE
ls_line-info = 'ALV-tree-demo: flight-overview'.          "#EC NOTEXT
APPEND ls_line TO pt_list_commentary.
STATUS LINE: TYPE S
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-key = 'valid until'.                             "#EC NOTEXT
ls_line-info = 'January 29 1999'.                         "#EC NOTEXT
APPEND ls_line TO pt_list_commentary.
ls_line-key = 'time'.
ls_line-info = '2.00 pm'.                                 "#EC NOTEXT
APPEND ls_line TO pt_list_commentary.
ACTION LINE: TYPE A
CLEAR ls_line.
ls_line-typ = 'A'.
LS_LINE-KEY: NOT USED FOR THIS TYPE
ls_line-info = 'actual data'.                             "#EC NOTEXT
APPEND ls_line TO pt_list_commentary.
p_logo = 'ENJOYSAP_LOGO'.
ENDFORM.                    "build_comment
*&      Form create_hierarchy
      text
--> p1        text
<-- p2        text
FORM create_hierarchy USING p_x.
DATA: ls_sflight TYPE sflight,
        lt_sflight TYPE sflight OCCURS 0.
get data
SELECT * FROM sflight INTO TABLE lt_sflight
                        UP TO 200 ROWS .
SORT lt_sflight BY carrid connid fldate.
add data to tree
DATA: l_carrid_key TYPE lvc_nkey,
        l_connid_key TYPE lvc_nkey,
        l_last_key TYPE lvc_nkey.
       l_part_key TYPE lvc_nkey
PERFORM add_carrid_line USING    ls_sflight
                          CHANGING l_part_key.
gt_node = l_part_key.
LOOP AT lt_sflight INTO ls_sflight.
    ON CHANGE OF ls_sflight-carrid.
      PERFORM add_carrid_line USING    ls_sflight
                                       l_part_key
                              CHANGING l_carrid_key.
      PERFORM add_connid_line USING    ls_sflight
                                       l_carrid_key
                              CHANGING l_connid_key.
      PERFORM add_complete_line USING ls_sflight
                                     l_connid_key
                                     p_x
                            CHANGING l_last_key.
      CONTINUE.
    ENDON.
    ON CHANGE OF ls_sflight-connid.
      PERFORM add_connid_line USING    ls_sflight
                                       l_carrid_key
                              CHANGING l_connid_key.
      PERFORM add_complete_line USING ls_sflight
                                     l_connid_key
                                     p_x
                            CHANGING l_last_key.
      CONTINUE.
    ENDON.
    PERFORM add_complete_line USING ls_sflight
                                     l_connid_key
                                     p_x
                            CHANGING l_last_key.
ENDLOOP.
calculate totals
CALL METHOD tree1->update_calculations.
this method must be called to send the data to the frontend
CALL METHOD tree1->frontend_update.
ENDFORM.                               " create_hierarchy
*&      Form add_carrid_line
      add hierarchy-level 1 to tree
     -->P_LS_SFLIGHT sflight
     -->P_RELEATKEY   relatkey
    <-->p_node_key    new node-key
FORM add_carrid_line USING     ps_sflight TYPE sflight
                               p_relat_key TYPE lvc_nkey
                     CHANGING p_node_key TYPE lvc_nkey.
DATA: l_node_text TYPE lvc_value,
        ls_sflight TYPE sflight.
set item-layout
DATA: lt_item_layout TYPE lvc_t_layi,
        ls_item_layout TYPE lvc_s_layi.
ls_item_layout-t_image = '@3P@'.
ls_item_layout-fieldname = tree1->c_hierarchy_column_name.
ls_item_layout-style   =
                        cl_gui_column_tree=>style_intensifd_critical.
APPEND ls_item_layout TO lt_item_layout.
add node
l_node_text = ps_sflight-carrid.
CALL METHOD tree1->add_node
    EXPORTING
      i_relat_node_key = p_relat_key
      i_relationship   = cl_gui_column_tree=>relat_last_child
      i_node_text      = l_node_text
      is_outtab_line   = ls_sflight
      it_item_layout   = lt_item_layout
    IMPORTING
      e_new_node_key   = p_node_key.
ENDFORM.                               " add_carrid_line
*&      Form add_connid_line
      add hierarchy-level 2 to tree
     -->P_LS_SFLIGHT sflight
     -->P_RELEATKEY   relatkey
    <-->p_node_key    new node-key
FORM add_connid_line USING     ps_sflight TYPE sflight
                               p_relat_key TYPE lvc_nkey
                     CHANGING p_node_key TYPE lvc_nkey.
DATA: l_node_text TYPE lvc_value,
        ls_sflight TYPE sflight.
set item-layout
DATA: lt_item_layout TYPE lvc_t_layi,
        ls_item_layout TYPE lvc_s_layi.
ls_item_layout-t_image = '@3Y@'.
ls_item_layout-style   =
                        cl_gui_column_tree=>style_intensified.
ls_item_layout-fieldname = tree1->c_hierarchy_column_name.
APPEND ls_item_layout TO lt_item_layout.
add node
l_node_text = ps_sflight-connid.
CALL METHOD tree1->add_node
    EXPORTING
      i_relat_node_key = p_relat_key
      i_relationship   = cl_gui_column_tree=>relat_last_child
      i_node_text      = l_node_text
      is_outtab_line   = ls_sflight
      it_item_layout   = lt_item_layout
    IMPORTING
      e_new_node_key   = p_node_key.
ENDFORM.                               " add_connid_line
*&      Form add_cmplete_line
      add hierarchy-level 3 to tree
     -->P_LS_SFLIGHT sflight
     -->P_RELEATKEY   relatkey
    <-->p_node_key    new node-key
FORM add_complete_line USING   ps_sflight TYPE sflight
                               p_relat_key TYPE lvc_nkey
                               p_x
                     CHANGING p_node_key TYPE lvc_nkey.
DATA: l_node_text TYPE lvc_value.
set item-layout
DATA: lt_item_layout TYPE lvc_t_layi,
        ls_item_layout TYPE lvc_s_layi.
ls_item_layout-fieldname = tree1->c_hierarchy_column_name.
ls_item_layout-chosen = p_x.           "To give default checkbox value checked
ls_item_layout-class   = cl_gui_column_tree=>item_class_checkbox.
ls_item_layout-editable = 'X'.
APPEND ls_item_layout TO lt_item_layout.
l_node_text = ps_sflight-fldate.
CALL METHOD tree1->add_node
    EXPORTING
      i_relat_node_key = p_relat_key
      i_relationship   = cl_gui_column_tree=>relat_last_child
      is_outtab_line   = ps_sflight
      i_node_text      = l_node_text
      it_item_layout   = lt_item_layout
    IMPORTING
      e_new_node_key   = p_node_key.
ENDFORM.                               " add_complete_line
*&      Form register_events
      text
--> p1        text
<-- p2        text
FORM register_events.
define the events which will be passed to the backend
DATA: lt_events TYPE cntl_simple_events,
        l_event TYPE cntl_simple_event.
define the events which will be passed to the backend
l_event-eventid = cl_gui_column_tree=>eventid_expand_no_children.
APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_checkbox_change.
APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_header_context_men_req.
APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_node_context_menu_req.
APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_item_context_menu_req.
APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_header_click.
APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_item_keypress.
APPEND l_event TO lt_events.
CALL METHOD tree1->set_registered_events
    EXPORTING
      events                    = lt_events
    EXCEPTIONS
      cntl_error                = 1
      cntl_system_error         = 2
      illegal_event_combination = 3.
IF sy-subrc <> 0.
    MESSAGE x208(00) WITH 'ERROR'.                          "#EC NOTEXT
ENDIF.
set Handler
DATA: l_event_receiver TYPE REF TO lcl_tree_event_receiver.
CREATE OBJECT l_event_receiver.
SET HANDLER l_event_receiver->handle_node_ctmenu_request
                                                        FOR tree1.
SET HANDLER l_event_receiver->handle_node_ctmenu_selected
                                                        FOR tree1.
SET HANDLER l_event_receiver->handle_item_ctmenu_request
                                                        FOR tree1.
SET HANDLER l_event_receiver->handle_item_ctmenu_selected
                                                        FOR tree1.
SET HANDLER l_event_receiver->handle_checkbox_change FOR tree1.
ENDFORM.                               " register_events
*&      Form change_toolbar
      text
--> p1        text
<-- p2        text
FORM change_toolbar.
DATA: toolbar_event_receiver TYPE REF TO lcl_toolbar_event_receiver.
get toolbar control
CALL METHOD tree1->get_toolbar_object
    IMPORTING
      er_toolbar = mr_toolbar.
CHECK NOT mr_toolbar IS INITIAL.
add seperator to toolbar
CALL METHOD mr_toolbar->add_button
    EXPORTING
      fcode     = ''
      icon      = ''
      butn_type = cntb_btype_sep
      text      = ''
      quickinfo = 'This is a Seperator'.                    "#EC NOTEXT
add Standard Button to toolbar (for Delete Subtree)
CALL METHOD mr_toolbar->add_button
    EXPORTING
      fcode     = 'DELETE'
      icon      = '@18@'
      butn_type = cntb_btype_button
      text      = ''
      quickinfo = 'Delete subtree'.                         "#EC NOTEXT
add Dropdown Button to toolbar (for Insert Line)
CALL METHOD mr_toolbar->add_button
    EXPORTING
      fcode     = 'INSERT_LC'
      icon      = '@17@'
      butn_type = cntb_btype_dropdown
      text      = ''
      quickinfo = 'Insert Line'.                            "#EC NOTEXT
set event-handler for toolbar-control
CREATE OBJECT toolbar_event_receiver.
SET HANDLER toolbar_event_receiver->on_function_selected
                                                      FOR mr_toolbar.
SET HANDLER toolbar_event_receiver->on_toolbar_dropdown
                                                      FOR mr_toolbar.
ENDFORM.                               " change_toolbar
*&      Form init_tree
      text
--> p1        text
<-- p2        text
FORM init_tree.
create fieldcatalog for structure sflight
PERFORM build_fieldcatalog.
create container for alv-tree
DATA: l_tree_container_name(30) TYPE c,
        l_custom_container TYPE REF TO cl_gui_custom_container.
l_tree_container_name = 'TREE1'.
IF sy-batch IS INITIAL.
    CREATE OBJECT l_custom_container
      EXPORTING
            container_name = l_tree_container_name
      EXCEPTIONS
            cntl_error                  = 1
            cntl_system_error           = 2
            create_error                = 3
            lifetime_error              = 4
            lifetime_dynpro_dynpro_link = 5.
    IF sy-subrc <> 0.
      MESSAGE x208(00) WITH 'ERROR'.                        "#EC NOTEXT
    ENDIF.
ENDIF.
create tree control
CREATE OBJECT tree1
    EXPORTING
        parent              = l_custom_container
        node_selection_mode = cl_gui_column_tree=>node_sel_mode_multiple "node_sel_mode_single
        item_selection      = 'X'
        no_html_header      = ''
        no_toolbar          = ''
    EXCEPTIONS
        cntl_error                   = 1
        cntl_system_error            = 2
        create_error                 = 3
        lifetime_error               = 4
        illegal_node_selection_mode = 5
        failed                       = 6
        illegal_column_name          = 7.
IF sy-subrc <> 0.
    MESSAGE x208(00) WITH 'ERROR'.                          "#EC NOTEXT
ENDIF.
create Hierarchy-header
DATA l_hierarchy_header TYPE treev_hhdr.
PERFORM build_hierarchy_header CHANGING l_hierarchy_header.
create info-table for html-header
DATA: lt_list_commentary TYPE slis_t_listheader,
        l_logo             TYPE sdydo_value.
PERFORM build_comment USING
                 lt_list_commentary
                 l_logo.
repid for saving variants
DATA: ls_variant TYPE disvariant.
ls_variant-report = sy-repid.
create emty tree-control
CALL METHOD tree1->set_table_for_first_display
    EXPORTING
      is_hierarchy_header = l_hierarchy_header
      it_list_commentary = lt_list_commentary
      i_logo              = l_logo
      i_background_id     = 'ALV_BACKGROUND'
      i_save              = 'A'
      is_variant          = ls_variant
    CHANGING
      it_outtab           = gt_sflight "table must be emty !!
      it_fieldcatalog     = gt_fieldcatalog.
CONSTANTS: c_s(1) TYPE c VALUE space.
create hierarchy
PERFORM create_hierarchy USING c_s.
add own functioncodes to the toolbar
PERFORM change_toolbar.
register events
PERFORM register_events.
adjust column_width
call method tree1->COLUMN_OPTIMIZE.
ENDFORM.                    " init_tree
Award points if found useful.
Regards
Indrajit

Creating tree from HTTPService

Similar Messages

Maybe you are looking for