Problem with navigator

Question

I'am trying to use the demo program 'navwiz.fmb' to make a program that can fetch data from several tables in the navigator. but i doesn't work. Please see the procedure below.
Can you help me. I looking for docs that can help me .
In fact i want to know more than 3 level tree is possible
Thanks
PROCEDURE r_t (p_view VARCHAR2) IS
     cursor cursor_soc is
select soc_designation, soc_societe
from societes
order by soc_designation;
cursor cursor_dept(p_soc varchar2) is
select sec_designation, sec_secteur
from zones
where          rtrim(ltrim(sec_societe)) = rtrim(ltrim(p_soc))
order by sec_designation;
cursor cursor_emp(p_sec varchar2) is
select div_designation, div_division
from secteurs
where rtrim(ltrim(div_secteur)) = rtrim(ltrim(p_sec))
order by div_designation;
cursor cursor_centre(p_div varchar2) is
select cen_designation, cen_cf
from centres
where rtrim(ltrim(cen_division)) = rtrim(ltrim(p_div))
order by cen_designation;
cursor cursor_ens(p_cf varchar2) is
select ens_designation, ens_ensemble
from ensembles
where rtrim(ltrim(ens_cf)) = rtrim(ltrim(p_cf))
order by ens_designation;
cursor cursor_equ(p_ens varchar2) is
select equ_designation, equ_equipement
from equipements x,liens_ens_equ y
where rtrim(ltrim(lee_ensemble)) = rtrim(ltrim(p_ens))
and               rtrim(ltrim(equ_equipement)) = rtrim(ltrim(lee_equipement))
order by equ_designation;
cursor cursor_org(p_equ varchar2) is
select org_designation, org_organe
from organes x,liens y
where rtrim(ltrim(lie_equipement)) = rtrim(ltrim(p_equ))
and               rtrim(ltrim(org_organe)) = rtrim(ltrim(lie_organe))
order by org_designation;
v_i number;
v_ignore number;
rg_emps recordgroup;
rg_depts recordgroup;
v_init_state groupcolumn;
v_level groupcolumn;
v_label groupcolumn;
v_icon groupcolumn;
v_value groupcolumn;
i_soc number := 1;
i_zone                         number := 1;
i_secteur               number := 1;
i_cf                              number := 1;
i_ens                         number := 1;
i_equ                         number := 1;
i_org                         number := 1;
begin
     /*if p_view = 'EMP' then
     --the emps hierarchy
     rg_emps := find_group('EMPS');
     if not id_null(rg_emps) then
          delete_group(rg_emps);
     end if;
     rg_emps := create_group_from_query('EMPS',
'select 1, level, ename, NULL, to_char(empno) ' ||
'from emp ' ||
'connect by prior empno = mgr ' ||
'start with job = ''PRESIDENT''');
v_ignore := populate_group(rg_emps);
ftree.set_tree_property('navigator.nav_display', ftree.record_group, rg_emps);
else
     --the organization
rg_depts := find_group('SOCIETES');
if not id_null(rg_depts) then
     delete_group(rg_depts);
end if;
rg_depts := create_group('SOCIETES');
v_init_state := add_group_column(rg_depts, 'init_state', number_column);
v_level := add_group_column(rg_depts, 'level', number_column);
v_label := add_group_column(rg_depts, 'label', char_column, 150);
v_icon := add_group_column(rg_depts, 'icon', char_column, 20);
v_value := add_group_column(rg_depts, 'value', char_column,20);
v_i := 1;
for socrec in cursor_soc loop
     add_group_row(rg_depts, v_i);
set_group_number_cell(v_init_state, v_i, 1);
set_group_number_cell(v_level , v_i, 1);
set_group_char_cell (v_label , v_i, socrec.soc_designation);
set_group_char_cell (v_icon , v_i, NULL);
set_group_char_cell (v_value , v_i, socrec.soc_societe);
v_i := v_i + 1;
               i_soc := i_soc + 1;
               for deptrec in cursor_dept(socrec.soc_societe) loop
               add_group_row(rg_depts, v_i);
          set_group_number_cell(v_init_state, v_i, 1);
          set_group_number_cell(v_level , v_i, 2);
          set_group_char_cell (v_label , v_i, deptrec.sec_designation);
          set_group_char_cell (v_icon , v_i, NULL);
          set_group_char_cell (v_value , v_i, deptrec.sec_secteur);
          v_i := v_i + 1;
          i_zone := i_zone + 1;
          for emprec in cursor_emp(deptrec.sec_secteur) loop
                    add_group_row(rg_depts, v_i);
                    set_group_number_cell(v_init_state, v_i, 1);
               set_group_number_cell(v_level , v_i, 3);
               set_group_char_cell (v_label , v_i, emprec.div_designation);
               set_group_char_cell (v_icon , v_i, NULL);
               set_group_char_cell (v_value , v_i, (emprec.div_division));
               v_i := v_i + 1;
               i_secteur := i_secteur + 1;
               for centrerec in cursor_centre(emprec.div_division) loop
                              add_group_row(rg_depts, v_i);
                              set_group_number_cell(v_init_state, v_i, 1);
                         set_group_number_cell(v_level , v_i, 4);
                         set_group_char_cell (v_label , v_i, centrerec.cen_designation);
                         set_group_char_cell (v_icon , v_i, NULL);
                         set_group_char_cell (v_value , v_i, (centrerec.cen_cf));
                         v_i := v_i + 1;
                         i_cf := i_cf + 1;
                         for ensrec in cursor_ens(centrerec.cen_cf) loop
                                        add_group_row(rg_depts, v_i);
                                        set_group_number_cell(v_init_state, v_i, i_ens);
                                   set_group_number_cell(v_level , v_i, 5);
                                   set_group_char_cell (v_label , v_i, ensrec.ens_designation);
                                   set_group_char_cell (v_icon , v_i, NULL);
                                   set_group_char_cell (v_value , v_i, (ensrec.ens_ensemble));
                                   v_i := v_i + 1;
                                   i_ens := i_ens + 1;
                                   for equrec in cursor_equ(ensrec.ens_ensemble) loop
                                                  add_group_row(rg_depts, v_i);
                                                  set_group_number_cell(v_init_state, v_i, i_equ);
                                             set_group_number_cell(v_level , v_i, 6);
                                             set_group_char_cell (v_label , v_i, equrec.equ_designation);
                                             set_group_char_cell (v_icon , v_i, NULL);
                                             set_group_char_cell (v_value , v_i, (equrec.equ_equipement));
                                             v_i := v_i + 1;
                                             i_equ := i_equ + 1;
                                             for orgrec in cursor_org(equrec.equ_equipement) loop
                                                            add_group_row(rg_depts, v_i);
                                                            set_group_number_cell(v_init_state, v_i,i_org);
                                                       set_group_number_cell(v_level , v_i, 7);
                                                       set_group_char_cell (v_label , v_i, orgrec.org_designation);
                                                       set_group_char_cell (v_icon , v_i, NULL);
                                                       set_group_char_cell (v_value , v_i, (orgrec.org_organe));
                                                       v_i := v_i + 1;
                                                       i_org := i_org+1;
                                                  end loop;
                                        end loop;
                              end loop;
                    end loop;
          end loop;
               end loop;
end loop;
ftree.set_tree_property('navigator.nav_display', ftree.record_group, rg_depts);
--end if;
end;
Message was edited by:
user507429

Answer 1

thank you for helping me. the problem i have is that only the 3 first level data are fecthed. the rest are ignored.
Any indication will be appreciate
hope you speak french.
au fait en basant sur le from demo navwiz.fmb j'essaye de mettre en oeuvre une arborescence à 7 niveaux. seulement à l'execution je n'ai que 3 niveaux affichés. les autres sont simplement ignorés.
Merci
Message was edited by:
user507429