Tree Object In Developer2000

Hello to every one
I am using developer2000 and i want to create tree object in only Developer2000 .how can i create Tree in Developer2000.
Majid Niazi.

i suggest u to use forms 6i but u can find demo in oracle forms 5 @
<drivelocation>:\ORANT\TOOLS\DEVDEM20\DEMO\navwiz.fmb
it will help u
it is quite difficult to use treeview rather than forms 6i
download this presentation this will help u and guide u how to create tree view on Developer 2000 ( Forms 5.0)
http://www.rumken.com/ioug2000/455.ppt
Message was edited by:
Fiz Dosani

Similar Messages

Multiple tree objects in ApEx 4.0

Hi all,
I'm working on a project where i need to put 2 tree objects in one region.
First tree object is correct but when i add my second tree below the first one no data is shown or the wrong data is shown.
Strange thing is when i put the second tree above the first tree it all works well.
Is there an explanation for this or is it a bug in ApEx?
my apex version is 4.0.0.00.46
Edited by: Mario DS on 15-nov-2011 14:20

Hi,
Pre-Apex4 you could make use of the A1 and A2 columns in the tree SQL along with the tree template to conditional set the color of the node text. Does anyone know how to achieve this in Apex4? I've tried using the tree SQL shown below but this displays the HTML (SPAN tags) as text.
select case when connect_by_isleaf = 1 then 0
 when level = 1 then 1
 else -1
 end as status,
 level,
 ''||"ENAME"||'' as title,
 null as icon,
 "EMPNO" as value,
 null as tooltip,
 null as link
from "#OWNER#"."EMP"
start with "MGR" is null
connect by prior "EMPNO" = "MGR"
order siblings by "ENAME"Any assistance would be appreciated.
Cheers.

How we know the selected node in a Tree object in a form?

In a TREE object in forms, how can we know the current selected node by clicking a push button.
lets say , there are 10 nodes in my tree, and 5th one i selected. But i want to store the selected node in a variable, when i click a button.
please help
thanks

Hello
I've just notice what might be a bug in Oracle forms because when I have the when-tree-node-selected trigger present for the tree (It does not matter if it executes null or some code), the code in option 1 works fine on a when-button-pressed trigger on a button item. This is what I had done to give you a reply.
My second option will work because you're populating a parameter with when-tree-node-selected trigger which is then readable form anywhere else in the form. All you add is a check on when-button-pressed. Also for bug handling you need to consider setting the value to null when deselecting. I have this option working currently in one of my applications.
DECLARE
     num_selected NUMBER;
     htree ITEM;
curren_node FTREE.NODE;
BEGIN
htree := find_item('tree.form_list');
num_selected := ftree.get_tree_property(htree,ftree.selection_count);
for j in 1..num_selected
LOOP
curren_node := ftree.get_tree_selection(htree,j);
message('hello :'||ftree.Get_Tree_Node_Property(htree,curren_node,ftree.node_value),acknowledge);
end loop;
END;
cheers
Q

How to create a Child node in Tree object

Hi All,
I have a thought to create a tree with a child object, that the child can able to create through by right click the parent tree having the options to create or delete the child objects.Please Suggest me if there is an possible way.
Thanks
Gopinath

Look at sample programm BCALV_TREE_DEMO,
and especially at the methods ADD_NODE or DELETE_SUBTREE of class CL_GUI_ALV_TREE.
For implementing the context menu, consider event ITEM_CONTEXT_MENU_REQUEST.
Regards,
Ulrich

How to serialize a binary tree object

HI Friends,
This is the problem.............................
I got a binary Tree Program with root (object ) containing the elements in the tree.
I got a server which performs insertions and deletions in the root.
Once it has got the operations right it has to send this object to client and Client will perform the search over this Binary Tree.
How to do this................................ Any Idea
Anyone can get me the Code....... It will be great to u....
reply me in this Id : [email protected]

Have you looked at the TreeSet code.
This is a collection which stores data as a binary tree. It is serializable, has a look at the readObject and writeObject methods.

Crazy!! Tree object Casting... Error

I've created a Jtree, consisting of objects of type (String x, String y, String z), When i rename a leaf id like the first String "x" in the object to change accordingly and the rest to remain the same...
I've used a TreeModelListener with the treeNodesChanged methods to listen for a rename and the below code to change it, But i keep getting the following:-
java.lang.ClassCastException: java.lang.String
// Code
DefaultMutableTreeNode node = (DefaultMutableTreeNode) tree.getLastSelectedPathComponent();
MObject obj = (MObject) node.getUserObject(); //error
node.setUserObject(new MObject (obj.x, obj.y, obj.z));
the casting works perfectly in other sections of the code just not here. please help Thx

pl. giv code for ur MObject and node creation

Tree object name in SM Project

Hi everyone,
I'm trying to get the name of some object and cannot find it.
The object is the tree which is presented in every Solution Manager project at the left side of the screen.
Can anyone help with this issue.
Thanks in advance,
Roy

Hi Clemens,
Thanks a lot.
I think that this is the direction however in my environment when search for "REP_BROWSER I got only the following results:
CL_WB_REP_BROWSER_RADA
CL_WB_REP_BROWSER_STATE
CL_WB_REP_BROWSER_STATE_RADA
CL_WB_REP_BROWSER_VIS_RADA
IF_WB_REP_BROWSER
IF_WB_REP_BROWSER_VIS
Then I run the "where used" for each one of the above and did not find any of these even once.
Do you have any idea why?

How to print/download scorecard,strategic tree,objectives in OBIEE 11g?.

Hi All,
Has anyone worked in Scorecards in obiee11g.If yes could you please let me know if is there any way to downloading/printing scorecards,objectives,strategic tree etc?..
We are in OBIEE 11.1.1.5.0 version.
Regards,
Veeresh Rayan

Hi Dpka,
I don't see anything like page options button to the left of ? icon.Could you help me in locating that?.Page options is available only to the dashboards but not for scorecard..
Regards,
Veeresh Rayan
Edited by: 937868 on 09-Aug-2012 06:02
Edited by: 937868 on 09-Aug-2012 06:02

Flash Tree Object & node list

Hi All,
Unsure if this is a noodle scratcher or undoable!
Either way, does anyone know of a way when using the 'tree'
flash component in Director to get the component to supply a list
of some sort back to director.
I'm adding & subtracting branches to the Object
successfully, but I figure it must know whats where I just need it
to tell Director so I can manipulate it out to a XML file !!
Cheers

Alright, this is a long one. Make a Director file based on
the following and when it starts it’ll open the xmlDoc.xml
XML file, parse it into a Flash XML object and assign that object
as the dataProvider for a Flash component Tree. Then you can select
a planet node from the Tree, enter text into the Flash component
text field, and click the Flash button to add a moon to the
selected planet node with the entered text as its label. The button
also saves whatever XML makes up the tree to the xmlDoc.xml XML
file by calling the saveXml() function. You could have whatever
event you want call the save function.
To start, drag a Flash Tree component to the stage as sprite
1, a Flash TextInput component to the stage as sprite 2 and a Flash
Button component to the stage as sprite 3. Make sure to do
Modify>Movie>Xtras… and add the FileIo.x32 Xtra so
it’ll work if you make a projector.
Add this script to Frame one:
function exitFrame(me)
///// make Fileio obj, Flash XML obj, populate Tree
// Fileio
var fileObj = new xtra("fileio");
fileObj.openFile(_movie.path + "xmlDoc.xml",0);
var xmlString = fileObj.readFile();
fileObj.closeFile();
fileObj = null;
// Flash XML obj
var fTree = sprite(1);
var fXmlObj = fTree.newObject("XML");
fXmlObj.ignoreWhite = true;
fXmlObj.parseXML(xmlString);
// populate Tree
fTree.dataProvider = fXmlObj;
///// make button listerner to handle clicks
var fButton = sprite(3);
var fButtonEvt = fButton.newObject("Object");
fButton.addEventListener("click",fButtonEvt);
fButton.setCallback(fButton, "click",
symbol("fButtonClick"), "fButtonEvtScript");
Make this Movie Script, name it fButtonEvtScript:
function fButtonClick(me,evtObj)
var fTree = sprite(1);
var fText = sprite(2);
// determine if a Tree node is selected
try
String(fTree.selectedNode.attributes.label);
// execute if node selected is planet
if (fTree.selectedNode.nodeName == "planet")
var newNode = fTree.newObject("XMLNode",1,"moon");
// make node lable text field if text present, else default
text
if (fText.text == "")
newNode.attributes.label = "Default Moon";
} else {
newNode.attributes.label = fText.text;
// add new moon node
fTree.selectedNode.addTreeNode(newNode);
saveXml();
} else {
_player.alert("Must select planet node");
} catch (errObj) {
// alert no node
_player.alert("No Node Selected");
function saveXml()
var fTree = sprite(1);
// make string to save
var xmlString = "<?xml version=\"1.0\"
encoding=\"iso-8859-1\" ?>\n"
xmlString += fTree.dataProvider.firstChild.toString();
// save file
var fileObj = new xtra("fileio");
fileObj.openFile(_movie.path + "xmlDoc.xml",0);
fileObj["delete"].call(fileObj);
fileObj.createFile(_movie.path + "xmlDoc.xml");
fileObj.openFile(_movie.path + "xmlDoc.xml",0);
fileObj.writeString(xmlString);
fileObj.closeFile();
fileObj = null;
Finaly add this script to any Frame after Frame one; I used
Frame 10.
function exitFrame(me)
_movie.go(_movie.frame);
Here’s the XML file:
<?xml version="1.0" encoding="iso-8859-1" ?>
<star label="Sol">
<planet label="Mercury" />
<planet label="Venus" />
<planet label="Terra">
<moon label="Luna" />
</planet>
<planet label="Mars">
<moon label="Phobos" />
<moon label="Deimos" />
</planet>
<planet label="Jupiter">
<moon label="Callisto" />
<moon label="Ganymede" />
<moon label="Europa" />
<moon label="Io" />
</planet>
<planet label="Saturn">
<moon label="Titan" />
</planet>
<planet label="Uranus" />
<planet label="Neptune" />
<planet label="Pluto">
<moon label="Charon" />
</planet>
</star>
Sorry I got slack with the code comments, but I reckon you
can figure out what’s going on. I figure this’ll give
you a good start on what you’re trying to accomplish. I
strongly suggest checking out the LiveDocs for Director regarding
Flash and Components and Flash regarding Flash XML, XMLNode and the
Components Language Reference. Remember though, things have changed
since the Flash 8 Asset Xtra, so some of the documentation is out
of date.

How to: display the pcd in a htmlb tree object?

Hello @ all,
I'm currently trying to implement the contents of the PCD into a htmlb tree structure for an application of mine.
while the tree creation isn't a problem, i have no idea where to start on how to read/parse the pcd structure.
the reason for me trying to stuff the pcd into a tree is to achieve an easier to handle navigation.
so of anybody could point me in the right direction as how to get access to the pcd porperly and how to get the complete pcd structure (folder, iviews, everything) so that i could include it in the tree, i would be really thankful.
cheers,
jürgen

Hi Jürgen,
See http://help.sap.com/saphelp_nw04/helpdata/en/44/6aaf92f5a23672e10000000a114a6b/frameset.htm
Only Worksets and Roles are not described, anyhow, doing a bit research via decompiling or just by searching on SDN will bring you the needed extra info; just as an example for roles access: https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/6112ecb7-0a01-0010-ef90-941c70c9e401
Hope it helps
Detlev

Problem Adding BOM using Product Trees Object

Hey I am having problems with the following code:
qProductTree = (SAPbobsCOM.ProductTrees)this.m_SboAddon.SboCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oProductTrees);
int RetVal = 0;
qProductTree.TreeCode = "productTree1";
qProductTree.TreeType = SAPbobsCOM.BoItemTreeTypes.iProductionTree;
qProductTree.Quantity = 5;
qProductTree.Items.ItemCode = "test1";
qProductTree.Items.Price = 20;
qProductTree.Items.Quantity = 1;
qProductTree.Items.Currency = "Eur";
qProductTree.Items.Comment = "test comment";
qProductTree.Items.IssueMethod = SAPbobsCOM.BoIssueMethod.im_Manual;
RetVal = qProductTree.Add();
string errMsg;
int errCode;
if (RetVal != 0 )
 this.m_SboAddon.SboCompany.GetLastError(out errCode, out errMsg);
 MessageBox.Show(errMsg);
I get an error message with ID 2028 which when I look it up in the SDK it states DataSource - No Data found.
Any ideas?

Hi Laura!
In DI reference you can find topic 'Add a Bill Of Material sample', hope it'll help you.
Note, that there are some lines in that sample:
 Dim vItem As SAPbobsCOM.Items
 Set vItem = vCmp.GetBusinessObject(oItems)
 Dim vProdTree As SAPbobsCOM.ProductTrees
 Set vProdTree = vCmp.GetBusinessObject(oProductTrees)
 'Get the Item I want to create as Product Tree
 RetVal = vItem.GetByKey("MyProdTree")
 'Set Values to the fields
 vProdTree.TreeCode = "MyProdTree"
 vProdTree.TreeType = iProductionTree
In my mind, you should find an existing Item (via GetByKey) before you create ProductTree.

ALV tree using Objects

Hi,
I am making an ALV tree using objects and the code is crashing due to an error in the Screen 100 ( which I am using ). I tried to implement the example provided at http://www.sapdevelopment.co.uk/reporting/alv/alvtree.htm but that is not working.
Can anyone please tell me a working example or a brief tutorial so that I can correct the logical errors in my code.
Thanks,
Gaurav

Hi,
Check whether u have uncommented the PAI and PBO modules.
Try this one.
REPORT ZZZTEST_3
 NO STANDARD PAGE HEADING
 MESSAGE-ID zcs_cs_001.
1/ Report Name: ZZZ_ALV_TREE_DEMO
The definition and implementation of the event reciever class
include <icon>.
Predefine a local class for event handling to allow the
declaration of a reference variable before the class is defined.
class lcl_event_receiver definition deferred.
data :
 Alv Containers
 tree definition
 o_tree type ref to cl_gui_simple_tree,
 Event Handler
 o_eventreceiver type ref to lcl_event_receiver,
 o_dockingcontainer TYPE REF TO cl_gui_docking_container.
data :
 node structures for tree building
 i_nodes type table of abdemonode, " node table def create bespoke
 w_nodes like line of i_nodes, " work area
 i_tree_event type cntl_simple_events, " Itab for Tree Events
 w_tree_event type cntl_simple_event. " Work area for Tree Events
data:
 v_ratio1 type i, "docking container screen area
container screen area
 v_action(12) type c.
Internal Tables Used for Object ALV Display.
data:
 i_toolbar type table of stb_button, "Tool bar for Grid1
 i_exclude1 type ui_functions,
 i_exclude2 type ui_functions,
 i_groups type lvc_t_sgrp, " Group Definitions
 i_selected_rows type lvc_t_row. " Select row type
constants: c_x(1) type c value 'X', "Checked
 c_a(1) type c value 'A'. "All Layouts
 CLASS lcl_event_receiver DEFINITION
class lcl_event_receiver definition.
event receiver definitions for ALV actions
public section.
 class-methods:
Status bar
 handle_user_command
 for event user_command of cl_gui_alv_grid
 importing e_ucomm,
Tree Actions
 handle_node_double_click
 for event node_double_click of cl_gui_simple_tree
 importing node_key,
Row Double click for dirll down.
 handle_double_click
 for event double_click of cl_gui_alv_grid
 importing e_row
 e_column
 es_row_no.
endclass.
Implementation
Every event handler that is specified below should also be set after
the object has been created. This is done in the PBO processing.
with the following command
SET HANDLER oEventreceiver->handle_toolbar FOR o_Alvgrid.
class lcl_event_receiver implementation.
method handle_user_command.
In event handler method for event USER_COMMAND: Query your
function codes defined in step 2 and react accordingly.
endmethod.
*& Method handle_double_click
This method is called when the user double clicks on a line to drill
down.
The following are exported from the ALV
LVC_S_ROW
LVC_S_COL
LVC_S_ROID
method handle_double_click.
The double click drill down processing should be
coded in the form below.
endmethod.
*& Method handle_node_double_click
This method handles the node double click event of the tree
LVC_S_ROW
LVC_S_COL
LVC_S_ROID
method handle_node_double_click.
 perform f9903_handle_node_double_click using node_key.
endmethod.
endclass.
INITIALIZATION
INITIALIZATION.
PERFORM f050_initialize_values.
FORM f050_initialize_values.
v_ratio1 = 30. "tree size
ENDFORM. " f050_initialize_values
START-OF-SELECTION
START-OF-SELECTION.
END-OF-SELECTION
END-OF-SELECTION.
CALL SCREEN 9001.
*Data Selection
FORM f9000_objects_create USING value(pobject)
 pparent
 value(pratio)
 value(prows)
 value(pcolumns).
CASE pobject.
 WHEN 'o_dockingcontainer'.
 IF o_dockingcontainer IS INITIAL.
 CREATE OBJECT o_dockingcontainer
 EXPORTING
 side = v_dock_side1
 ratio = pratio "amount of screen
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 create_error = 3
 lifetime_error = 4
 lifetime_dynpro_dynpro_link = 5
 others = 6.
 PERFORM f9800_error_handle USING text-e06.
 ENDIF.
 WHEN 'o_tree'.
 IF o_tree IS INITIAL.
 CREATE OBJECT o_tree
 EXPORTING
 LIFETIME =
 parent = pparent
 SHELLSTYLE =
 node_selection_mode = o_tree->node_sel_mode_single
 HIDE_SELECTION =
 name = 'Transactions'
 EXCEPTIONS
 lifetime_error = 1
 cntl_system_error = 2
 create_error = 3
 failed = 4
 illegal_node_selection_mode = 5
 others = 6.
 PERFORM f9800_error_handle USING text-e06.
 ENDIF.
 WHEN 'o_eventreceiver'.
 IF o_eventreceiver IS INITIAL.
 CREATE OBJECT o_eventreceiver.
 PERFORM f9800_error_handle USING text-e08.
 ENDIF.
 WHEN OTHERS.
 do nothing
ENDCASE.
ENDFORM. " f9000_objects_create
*& Form f9100_create_tree
 Create the Tree
 -->P_O_TREE tree data
FORM f9100_create_tree USING p_o_tree TYPE REF TO cl_gui_simple_tree.
REFRESH: i_nodes.
CLEAR: w_nodes.
Header Tree Folder
w_nodes-node_key = 'ROOT'.
w_nodes-isfolder = c_x.
w_nodes-expander = c_x.
w_nodes-text = 'Transactions'.
APPEND w_nodes TO i_nodes.
Adding Root Nodes for the tree.
Key:
NODE_KEY, RELATKEY, RELATSHIP, HIDDEN, DISABLED, ISFOLDER, N_IMAGE,
EXP_IMAGE, STYLE, LAST_HITEM, NO_BRANCH, EXPANDER, DRAGDROPID, TEXT
PERFORM f9101_node_list USING: '1' 'ROOT' '' '' '' c_x '' '' '' '' ''
 c_x '' 'Sales Orders'.
Adding subitems for the root node.
PERFORM f9101_node_list USING:
 Material Details
 'VA01' '1' '' '' '' '' '@15@' '' '' '' '' ''
 '' 'Create Sales Orders',
 Document Details
 'VA02' '1' '' '' '' '' '@15@' '' '' '' '' ''
 '' 'Change Sales Orders'.
PERFORM f9101_node_list USING: '2' 'ROOT' '' '' '' c_x '' '' '' '' ''
 c_x '' 'Deliveries'.
Adding subitems for the root node.
PERFORM f9101_node_list USING:
 Material Details
 'VL01' '2' '' '' '' '' '@15@' '' '' '' '' ''
 '' 'Create Outbound Delivery',
 Document Details
 'VL02' '2' '' '' '' '' '@15@' '' '' '' '' ''
 '' 'Change Outbound Delivery'.
add the nodes to the tree object,
PERFORM f9102_add_treenodes TABLES i_nodes
 USING 'ABDEMONODE' "node definition
 p_o_tree. "tree declaration
enabling event handlers for the tree
PERFORM f9103_tree_event_handle USING p_o_tree.
ENDFORM. " f9100_create_tree
*& Form f9101_node_list
 Adding Nodes in a TREE
FORM f9101_node_list USING value(pnodekey)
 value(prelatkey)
 value(prelatship)
 value(phidden)
 value(pdisabled)
 value(pisfolder)
 value(pimage)
 value(pexpimage)
 value(pstyle)
 value(plastitem)
 value(pnobranch)
 value(pexpander)
 value(pdragdropid)
 value(ptext).
w_nodes-node_key = pnodekey.
w_nodes-relatkey = prelatkey.
w_nodes-relatship = prelatship. "Natural number
w_nodes-hidden = phidden.
w_nodes-disabled = pdisabled.
w_nodes-isfolder = pisfolder.
w_nodes-n_image = pimage. "Icons / embedded bitmap
w_nodes-exp_image = pexpimage. "Icons / embedded bitmap
w_nodes-style = pstyle.
w_nodes-last_hitem = plastitem. "Tree Control: Column Name / Item
"Name
w_nodes-no_branch = pnobranch.
w_nodes-expander = pexpander.
w_nodes-dragdropid = pdragdropid.
w_nodes-text = ptext.
APPEND w_nodes TO i_nodes.
ENDFORM. " f9101_node_list
*& Form f9102_add_treenodes
 Adding the Nodes to the Tree
 -->PI_NODES Table containg the Nodes
 -->PTABLE Name of the Table structure name
 -->PO_TREE tree object
FORM f9102_add_treenodes TABLES pi_nodes TYPE STANDARD TABLE
 USING value(ptable)
 po_tree TYPE REF TO cl_gui_simple_tree.
CALL METHOD po_tree->add_nodes
 EXPORTING
 table_structure_name = ptable "may need to change
 node_table = pi_nodes[]
 EXCEPTIONS
 error_in_node_table = 1
 failed = 2
 dp_error = 3
 table_structure_name_not_found = 4
 OTHERS = 5
PERFORM f9800_error_handle USING text-e10.
ENDFORM. " f9102_add_treenodes
*& Form f9103_tree_event_handle
 Event Handling for Tree.
 -->P_P_O_TREE text
FORM f9103_tree_event_handle USING
 p_o_tree TYPE REF TO cl_gui_simple_tree.
w_tree_event-eventid = cl_gui_simple_tree=>eventid_node_double_click.
w_tree_event-appl_event = ' '. " process PAI if event occurs
APPEND w_tree_event TO i_tree_event.
CALL METHOD p_o_tree->set_registered_events
 EXPORTING
 events = i_tree_event
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 illegal_event_combination = 3.
IF sy-subrc <> 0.
 MESSAGE A000.
ENDIF.
IF o_eventreceiver IS INITIAL.
 CREATE OBJECT o_eventreceiver.
ENDIF.
SET HANDLER o_eventreceiver->handle_node_double_click FOR p_o_tree.
ENDFORM. " f9103_tree_event_handle
 -->P_IEXCLUDE text
 -->P_1150 text
FORM f9200_exclude_functions USING pexclude LIKE i_exclude1
 value(pfunction).
DATA: l_exclude TYPE ui_func.
l_exclude = pfunction.
APPEND l_exclude TO pexclude.
ENDFORM. " f9200_exclude_functions
*& Form f9903_handle_node_double_click
 This form is used to handle the double click event for the tree
 -->P_NODE_KEY Node clicked.
FORM f9903_handle_node_double_click USING p_node_key.
CASE p_node_key.
 WHEN 'VA01'.
 SUBMIT ZZZ_TEST AND RETURN.
 CALL TRANSACTION 'VA01'. " and skip first screen.
 WHEN 'VA02'.
 CALL TRANSACTION 'VA02'. " and skip first screen.
 WHEN 'VL01'.
 CALL TRANSACTION 'VL01'. " and skip first screen.
 WHEN 'VL02'.
 CALL TRANSACTION 'VL02'. " and skip first screen.
 WHEN OTHERS.
 do nothning.
ENDCASE.
ENDFORM. " f9903_handle_node_double_click
*& Form f9700_free_objects
This form handles the freeing of the following objects
ALV
Docking Container
 -->P_O_ALVGRID text
 -->P_0020 text
 -->P_0021 text
FORM f9700_free_objects USING pobject
 value(ptype)
 value(ptext).
Need to type the field symbol or it does not work
CASE ptype.
 WHEN 'DOCKING'.
 DATA: l_odock TYPE REF TO cl_gui_docking_container.
 l_odock = pobject.
 IF NOT ( l_odock IS INITIAL ).
 CALL METHOD l_odock->free
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 OTHERS = 3.
 CLEAR: pobject, l_odock.
 PERFORM f9800_error_handle USING ptext.
 ENDIF.
 WHEN 'TREE'.
 DATA: l_otree TYPE REF TO cl_gui_simple_tree.
 l_otree = pobject.
 IF NOT ( l_otree IS INITIAL ).
 CALL METHOD l_otree->free
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 OTHERS = 3.
 CLEAR: pobject, l_otree.
 PERFORM f9800_error_handle USING ptext.
 ENDIF.
 WHEN OTHERS.
 do something.
ENDCASE.
ENDFORM. " f9700_free_objects
*& Form f9800_error_handle
 Handles Errors
 -->P_PTEXT text
FORM f9800_error_handle USING value(ptext).
IF sy-subrc NE 0.
add your handling, for example
 CALL FUNCTION 'POPUP_TO_INFORM'
 EXPORTING
 titel = text-e01
 txt2 = sy-subrc
 txt1 = ptext.
ENDIF.
ENDFORM. " f9800_error_handle
*PBO & PAI Modules
*& Module STATUS_9001 OUTPUT
 text
module status_9001 output.
Set the Status Bar
set pf-status 'Z_STATUS'.
Set the Title
set titlebar 'Z_TITLE'.
perform f9000_objects_create using:
 create docking container
 'o_dockingcontainer' '' v_ratio1 '' '',
 create a tree
 'o_tree' o_dockingcontainer '' '' '',
 Create the event reciever
 'o_eventreceiver' '' '' '' ''.
Create the Tree View.
perform f9100_create_tree using o_tree.
endmodule. " STATUS_9001 OUTPUT
*& Module USER_COMMAND_9001 INPUT
 text
module user_command_9001 input.
case sy-ucomm.
 when 'EXIT' or 'CANC'.
 perform f9700_free_objects using:
 o_tree 'TREE' text-E03,
 o_dockingcontainer 'DOCKING' text-E05,
 o_eventreceiver 'EVENT' text-e09.
leave program.
 leave. " to SCREEN 0.
 when 'BACK'.
 perform f9700_free_objects using:
 o_tree 'TREE' text-E03,
 o_dockingcontainer 'DOCKING' text-e05,
 o_eventreceiver 'EVENT' text-E09.
 set screen '0'.
 leave screen.
 when others.
endcase.
endmodule. " USER_COMMAND_9001 INPUT
Get back to me if u have any queries. Give me ur mail id, i will send one more sample code for ALV tree. This sample program will display only Tree not grid u can add ALV grid too.
Thanks & Regards,
Judith.

Remove-ADUser when object is a tree

Hi,
I have a problem with some AD user objects.
If some AD users have ActiveSync device registered in Exchange, their user object is a "tree" object rather than a "leaf" object.
Therefore, when I try to delete such an AD user object, I get error below:
+ $users | % {Remove-ADUser -Identity $_.distinguishedname}
+             ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : NotSpecified: (CN=John Doe...C=acme,DC=local:ADUser) [Remove-ADUser], ADException
    + FullyQualifiedErrorId : The directory service can perform the requested operation only on a leaf object,Microsoft.ActiveDirectory.Management.Comm
   ands.RemoveADUser
My only solution is to use GUI (dsa.msc) and delete users one by one from there. The GUI shows warning, but continuing on warning gets the job done. So, I have three questions.
1. How can I test if the object is a leaf?
2. How can I test if the object is a tree?
3. How can I delete AD user in Powershell when user object is a tree?
Thanks in advance,
Les

I'm not sure how to test for that.
I'd just use Remove-ADObject for removing all users or do something like this to cover all bases:
$user = Get-ADUser username
try {
Remove-ADUser -Identity $user.DistinguishedName -ErrorAction Stop
} catch {
Remove-ADObject -Identity $user.DistinguishedName -Recursive
Don't retire TechNet! -
(Don't give up yet - 13,085+ strong and growing)

How to make a Tree model, if I want different Objects in different levels?

Hello!
Please help me!
I want to model a firm layout, every node is an Object, (not the same object) and every node has a name variable to search by.
Is there a Tree Object in java where I can search very fast? Where I can choose between in-order, pre-order,post-order search?
Sorry for the bad English....
Thanks for any help...
henpanta

Hi,
DefaultMutableTreeNode takes any object as user object. The label displayed will be the string version of the object (i.e. toString). The DefaultMutableTreeNode does also have methods to get different enumerations of the children.
/Kaj

Save tree the lists of which is class' object

Hi, my question :
how can i save tree the lists of which is class' object?
i save tree with the help of ObjectOutputStream class, but when i read tree object from file i have leaf without name(clean leaf)
how read and save tree in file for normal with it?
Code of my function for save tree:
import javax.swing.JTree;
import java.io.*;
import java.util.*;
public class SaveTree {
    public SaveTree(){
    public void saveTree(JTree tree){
        try{
        ObjectOutputStream out = new ObjectOutputStream(new FileOutputStream("tree.info"));
        out.writeObject(tree);
        out.close();
        catch(Exception e){
            e.printStackTrace();
    public JTree loadTree(){
        JTree tree = new JTree();
        try{
            ObjectInputStream in = new ObjectInputStream(new FileInputStream("tree.info"));
            tree = (JTree)in.readObject();
            in.close();
        catch(Exception e){
            e.printStackTrace();
        return tree;
}the code where i create new node as class' object
public void actionPerformed(ActionEvent e) {
        String command = e.getActionCommand();
        if (ADD_COMMAND.equals(command)) {
            //Add button clicked
            book = new DefaultMutableTreeNode(new BookInfo
            (name.getText(),
            "file:///"+ System.getProperty("user.dir") + "/" + ID.getText() + ".html", Integer.parseInt(ID.getText())));
            treePanel.addObject(book);
            name.setText("");
            ID.setText("");
}my class BookInfo
public class BookInfo {
        public String bookName;
        public String bookURL;
        private int bookID;
        public BookInfo(String book, String filename, int ID) {
            bookID = ID;
            bookName = book;
            bookURL = filename;
            System.out.println(bookURL);
            if (bookURL == null) {
                System.err.println("Couldn't find file: "
                                   + filename);
        public String toString() {
            return bookName;
        public int getID(){
            return bookID;
        public void setID(int ID){
            bookID = ID;
    }thanks for attention ! :)

Jos, thanks for answer :)
Erm, get the TreeModel from the JTree, serialize it and later deserialize it and set it as the TreeModel for your JTree again?
kind regards,
JosHm, i save treeModel the same way, but when i (de)serialize treeModel from file i get clean tree
my function to save treeModel
class Save{
public Save(){}
public DefaultTreeModel loadModel(DefaultTreeModel model){
        try{
            ObjectInputStream in = new ObjectInputStream(new FileInputStream("tree.info"));
            model = (DefaultTreeModel)in.readObject();
            in.close();
        catch(Exception e){
            e.printStackTrace();
        return model;
        public DefaultTreeModel saveModel(DefaultTreeModel model){
        try{
            ObjectOutputStream out = new ObjectOutputStream(new FileOutputStream("tree.info"));
            out.writeObject(model);
            out.close();
        catch(Exception e){
            e.printStackTrace();
        //return model;
}and here i init tree with treeModel
Save save = new Save();
DefaultMutableTreeNode root = new DefaultMutableTreeNode(myObject);
DefaultTreeModel model = new DefaultTreeModel(root);
JTree tree = new JTree(save.saveModel(model));
JPanel panel = new JPanel();
panel.add(new JScrollPane(tree));
this.add(panel);Edited by: Tmrs on May 18, 2008 6:00 AM

Tree Object In Developer2000

Similar Messages

Maybe you are looking for