Oracle JInitiator: Version 1.3.1.22
Using JRE version 1.3.1.22-internal Java HotSpot(TM) Client VM
.
.
.
Forms Applet version is : 10.1.2.0

Exception occurred during event dispatching:

java.lang.IllegalArgumentException: oracle.forms.ui.TreeDataSource.getData(): illegal index
	at oracle.forms.ui.TreeDataSource.getData(Unknown Source)
	at oracle.forms.ui.TreeFactory.createItem(Unknown Source)
.
.
.

DECLARE
  hTree         ITEM;
   v_Ignore      NUMBER;
   rg_emps       RECORDGROUP;
   Where_Clause  VARCHAR2(4000);
BEGIN
  Where_Clause := 'status = ''A''';
  
  IF :parameter.p_Lov_Mode = 1 THEN
    IF :parameter.p_Where_Clause IS NOT NULL  THEN
      Where_Clause := Where_Clause
                      ||' and ' ||: Parameter.p_Where_Clause;
      
      Set_Block_Property('AMM_POSAOD',Default_Where,Where_Clause);
    END IF;
    
    Set_Item_Property('dugmad.povratak',Visible,Property_True);
  ELSE
    Set_Item_Property('dugmad.povratak',Visible,Property_False);
  END IF;
  
  hTree := Find_Item('tree_blk.tree');
  
  fTree.Set_Tree_Property(hTree,fTree.Allow_Empty_Branches,Property_False);
  
  rg_emps := Create_Group_From_Query('rg_emps','select 1,level,naziv,null,POSAOD_PK
                                                    from AMM_POSAOD p1 where '
                                               ||Where_Clause
                                               ||'                                                                                                                 
                                                    start with 
                                                    (SELECT p2.POSAOD_PK
                                                    FROM amm_posaod p2
                                                    WHERE '
                                               ||Where_Clause
                                               ||' and p2.POSAOD_PK = p1.POSAOD_POSAOD_PK_NAD) IS NULL
                                                    connect by prior POSAOD_PK = 
                                                       (SELECT p2.POSAOD_PKFROM amm_posaod p2 WHERE '
                                               ||Where_Clause
                                               ||' and p2.POSAOD_PK = p1.POSAOD_POSAOD_PK_NAD)');
  
  v_Ignore := Populate_Group(rg_emps);
  
  fTree.Set_Tree_Property(hTree,fTree.Record_Group,rg_emps);
END;

DECLARE
  Node_Value             VARCHAR2(512);
   blk_Id                 BLOCK;
   ExistIng_Where_Clause  VARCHAR2(512);
   New_Where              VARCHAR2(512);
BEGIN
  Node_Value := fTree.Get_Tree_Node_Property('TREE_BLK.TREE',:system.Trigger_Node,fTree.Node_Value);
  
  blk_Id := Find_Block('AMM_POSAOD');
  
  ExistIng_Where_Clause := Get_Block_Property(blk_Id,Default_Where);
  
  Set_Block_Property(blk_Id,Query_Allowed,Property_True);
  
  New_Where := 'posaod_pk='
               ||Node_Value;
  
  Set_Block_Property(blk_Id,Default_Where,New_Where);
  
  Go_Block('AMM_POSAOD');
  
  Execute_Query;
  
  Set_Block_Property(blk_Id,Default_Where,ExistIng_Where_Clause);
  
  Go_Block('TREE_BLK');
END;