select value from dynamic list item.. [message #600515] |
Thu, 07 November 2013 09:16 |
shahzad-ul-hasan
Messages: 625 Registered: August 2002
|
Senior Member |
|
|
I want to insert the selected value in this box.this tree is working fine. but i want to select a value from tree and insert into medicin box. please see the attached file.when i click the expanded list it happens nothing.
i have used the following code in When_new_Form_instance ...
DECLARE
CURSOR c_dept IS
SELECT *
FROM comp;
CURSOR c_emp ( n_dept NUMBER ) IS
SELECT *
FROM comp_det
WHERE cpid = N_DEPT;
n_level NUMBER := 1;
n_row NUMBER := 1;
rg_id RecordGroup;
node Ftree.Node;
init_val NUMBER := -1;
BEGIN
Tree_Control.v_item_name := 'MY_TREE_DATA.MY_TREE';
rg_id := Tree_Control.Create_RG;
<<parent>>
FOR r_dept IN c_dept LOOP
-- Add Parent Department_ID
Tree_Control.ADD_RG_ROW(rg_id, ftree.collapsed_node, n_row, n_level,
r_dept.cpname, null, r_dept.cpid);
n_row := n_row + 1;
n_level := n_level + 1;
--Add Child Employee Records
<<child>>
FOR r_emp IN c_emp(r_dept.cpid) LOOP
Tree_Control.ADD_RG_ROW(rg_id, ftree.collapsed_node, n_row, n_level,
r_emp.cpmname, null, r_emp.cpid);
n_row := n_row + 1;
END LOOP child;
n_level := n_level - 1;
END LOOP parent;
ftree.Add_Tree_Data(Tree_Control.v_item_name, ftree.ROOT_NODE, ftree.PARENT_OFFSET,
ftree.LAST_CHILD, ftree.RECORD_GROUP, rg_id);
END;
it works fine . now i want to insert the selected value in medicin box. as described in picture...
please advised.
-
Attachment: 2.JPG
(Size: 89.93KB, Downloaded 835 times)
[Updated on: Fri, 08 November 2013 07:36] Report message to a moderator
|
|
|