FRM-47321

Question

Hi!
I want to create a h-tree for forms9i. And i get this error message "For padding tree the used datas are illegal"
But when i execute my query in sql plus i get the data!
Here is my code:
WHEN-NEW-FORM-INSTANCE-trigger:
ECLARE
htree ITEM;
v_ignore NUMBER;
rg_emps RECORDGROUP;
rg_id RecordGroup;
gc_id GroupColumn;
errcode NUMBER;
id_BAUM ITEM := Find_Item('BAUM.BAUM');
DUMMY varchar2(5);
it_id Item;
BEGIN
     DUMMY := ' x ';
     rg_id := Find_Group( 'B_TYP' );
IF NOT Id_Null(rg_id) THEN
Delete_Group( rg_id );
END IF;
rg_id := Create_Group('B_Typ');
-- Add columns to the record group
gc_id := Add_Group_Column(rg_id,'DEPTH',
NUMBER_COLUMN);
gc_id := Add_Group_Column(rg_id, 'LABEL',
CHAR_COLUMN,128);
gc_id := Add_Group_Column(rg_id, 'DATA',
CHAR_COLUMN,128);
gc_id := Add_Group_Column(rg_id, 'STATE',
NUMBER_COLUMN);
gc_id := Add_Group_Column(rg_id, 'ICON',
CHAR_COLUMN,20);
errcode := Populate_Group_With_Query( rg_id,
     'select 1 , std_bm_id_besch.typ_betrmittel ,std_bm_id_besch.typ_betrmittel , -1,NULL from std_bm_id_besch ');
-- Find the tree itself.
htree := FIND_ITEM('BAUM.BAUM');
-- Check for the existence of the record group.
rg_emps := FIND_GROUP('B_TYP');
-- Create the record group.
-- Populate the record group with data.
v_ignore := POPULATE_GROUP(rg_emps);
-- Transfer the data from the record group to the hierarchical
-- tree and cause it to display.
FTREE.SET_TREE_PROPERTY(htree, FTREE.RECORD_GROUP, rg_emps);
select distinct bez_id1_betrmit,bez_id2_betrmit,bez_id3_betrmit,bez_name_betrmit
into :navigation.bez_id1, :navigation.bez_id2, :navigation.bez_id3, :navigation.bez_name
from STD_BM_ID_BESCH
where STD_BM_ID_BESCH.ID_BM_TYP = 1;
Go_Block('AUFTRAG_ANZEIGE');
     do_key('execute_query');
END;
--EXCEPTION
--     WHEN OTHERS THEN
--     :PRIORITAET.ANZEIGE := NULL;
--Get_MENU_ITEMS;
Thanks for help.
With best regards
Nicole

Answer 1

I've study the oh and i've found the function:
Populate_GROUP_FROM_TREE b�t i doesn't really know how i should handle this function.
I've tried this code in my trigger but i always get the error mesaage:FRM-40738-The first argument in the procedure Populate_Group_From_Tree may not been null.
DECLARE
find_node FTREE.NODE;
node_label VARCHAR2(100);
Auftrag VARCHAR2(100);
htree ITEM;
v_ignore NUMBER;
tree_data_reg RECORDGROUP;
rg_id RecordGroup;
gc_id GroupColumn;
errcode NUMBER;
id_BAUM ITEM := Find_Item('BAUM.BAUM');
DUMMY varchar2(5);
it_id Item;
BEGIN
htree := Find_Item('BAUM.BAUM');
-- Find the value of the node clicked on.�
node_label := Ftree.Get_Tree_Node_Property(htree, :SYSTEM.TRIGGER_NODE, Ftree.NODE_LABEL);
MESSAGE(:SYSTEM.TRIGGER_NODE);
Message(node_label);
find_node := FTREE.FIND_TREE_NODE(htree,node_label,FTREE.FIND_NEXT,FTREE.NODE_LABEL,FTREE.ROOT_NODE,FTREE.ROOT_NODE);
     DUMMY := ' x ';
     rg_id := Find_Group( 'tree_data_reg' );
IF NOT Id_Null(rg_id) THEN
Delete_Group( rg_id );
END IF;
rg_id := Create_Group('tree_data_reg');
-- Add columns to the record group
gc_id := Add_Group_Column(rg_id,'STATE',
NUMBER_COLUMN);
gc_id := Add_Group_Column(rg_id, 'DEPT',
NUMBER_COLUMN);
gc_id := Add_Group_Column(rg_id, 'LABEL',
CHAR_COLUMN,128);
gc_id := Add_Group_Column(rg_id, 'ICON',
CHAR_COLUMN,20);
gc_id := Add_Group_Column(rg_id, 'DATA',
CHAR_COLUMN,128);
errcode := Populate_Group_With_Query( rg_id,
     'select 1 , 1 , auftrag_typ.auftragstyp , NULL ,auftrag_typ.auftragstyp from auftrag_typ where typ_betrmittel ='||node_label||'');
     Message(errcode);
--v_ignore := POPULATE_GROUP(tree_data_reg);
FTREE.POPULATE_GROUP_FROM_TREE('tree_data_rg', htree, find_node);
--htree := FIND_ITEM('BAUM.BAUM');
-- Check for the existence of the record group.
--rg_emps_1 := FIND_GROUP('B1_TYP');
-- Create the record group.
-- Populate the record group with data.
--v_ignore := POPULATE_GROUP(rg_emps_1);
-- Transfer the data from the record group to the hierarchical
-- tree and cause it to display.
--FTREE.SET_TREE_PROPERTY(htree, FTREE.RECORD_GROUP, rg_emps_1);
END;
With best regards.
Nicole