Выбрать все элементы рекурсией

[moid]

EmplTable EmplTableFind;
   list ListSub = new list(types::String);
   listIterator it;

 EmplTableFind = EmplTable::findUserId("LMA");
    ListSub = (ZG_HRMOrganization::getOrganizationChildren(ZG_HRMOrganizationType::Line, emplTableFind.hrmOrganizationId) );

    //Выводим список
    it = new listIterator (ListSub);
    while (it.more())
    {
      //вывод в текстовое поле
      it.next();
    }

При выполнении этой процедуры в лист заносится список, который выглядит примерно так:

AA
ББ
ВВ


emplTableFind.hrmOrganizationId - изначально оно соделжит к примеру значение АБ.
При выполнении этой процедуры в лист заносится список, который выглядит примерно так:

AA
ББ
ВВ

Потом нужно выполнить эту процедуру по каждому из занесенных значений в лист.
т.е.:

AA
ББ
ВВ


Каждая из этих строк вернет еще какие-то комбинации слов, по ним тоже нужно пройтись.

Нужно сделать так, чтобы был рекурсивный обход по каждому из полученных элементов до тех пор пока не будет возвращено пустое значение по всем конечным ветвям.

В итоге лист должен содердать все элементы дерева, но не повторяющиеся...

А теперь самое главное... Как это реализовать?

[moid]

для получения списка служит функция:

 ListSub = (ZG_HRMOrganization::getOrganizationChildren(ZG_HRMOrganizationType::Line, emplTableFind.hrmOrganizationId) );

В ней нужно менять тоько emplTableFind.hrmOrganizationId, для выбора по новой ветви

[Eldar9x]

если пригодится... мы создали свою функцию, которая учитывала вложенность подразделений

    void organizationHierarchyOutput( RPayHRMOrganizationId _rpayHRMOrganization = "" )
    {
        RHRMStaffList           rhrmStaffList       ;
        RPayHRMOrganization     rPayHRMOrganization ;
        PersonTitleTable        personTitleTable    ;
        ;
        while select rPayHRMOrganization
            order by  hrmOrganizationId asc
            where rPayHRMOrganization.parentOrganizationId  == _rpayHRMOrganization
        {
            while select rhrmStaffList order by rhrmSortingCode asc
                where   rhrmStaffList.startDate         ==  staffListHeader.StartDate               &&
                        rhrmStaffList.hrmOrganizationId ==  rPayHRMOrganization.hrmOrganizationId
            {
                staffListOutput( rhrmStaffList ) ;
            }
            organizationHierarchyOutput( rPayHRMOrganization.hrmOrganizationId ) ;
        }
    }

[moid]

Блин комп глючит...
Тему создал, а ответы вот до 14:30 не мог просмотреть...
Так, что надеятся неначто было... Сам с алгоритмом тупил сидел...
Но в итоге сделал всетаки...

[Eldar9x]

Цитата:

но не повторяющиеся...

как реализовал?

[moid]

ща немного подправлю и скину...

[moid]

Короче получилось так... но так нельзя програмить... Если списки очень большие, то будет долго выполняться...Но для относительно небольших сойдет пока...
Возможно еще где-то переменные лишние висят...Да и работу с массивом можно оптимизировать...
Вообщем вот этот громоздкий код:

void clicked()
{  str arrSub[];
   int a=1;//размерность массива
   int c=1,d=1;
   int b;
   int OutLoadArr,OutLoadArrF;
   EmplTable EmplTableFind;
   list ListSub, ListSub2 = new list(types::String);
   listIterator it, it2;
   ;
    super();
    StaticTextPodch.text("");
    EmplTableFind = EmplTable::findUserId("ZLD");
//*************************************************************************************************************************
//************************************************** Получаем родительские списки *****************************************
    ListSub = (ZG_HRMOrganization::getOrganizationChildren(ZG_HRMOrganizationType::Line, emplTableFind.hrmOrganizationId) );

    //Выводим список
    it = new listIterator (ListSub);
    while (it.more())
    {
        arrSub[a] = it.value();
        a++;
        it.next();
    }
    //info("первый обход выгрузили = "+ int2str(a));
//*************************************************************************************************************************
//************************************************* Продвигаемся вниз по ветвям *******************************************
       while (c > 0)
       {
         d = a;
         for (b=c; b<=d; b++)
         {
           //info("смотрим по списку " + ArrSub[b]);
           if (ArrSub[b] == "")
           {
           // info("ПУСТОЙ СИМВОЛ");
            break;
           }
           ListSub2 = (ZG_HRMOrganization::getOrganizationChildren(ZG_HRMOrganizationType::Line, arrSub[b]));
           //Выводим список
            it2 = new listIterator (ListSub2);
            while (it2.more())
            {
              arrSub[a] = it2.value();
             // info("Находим " + ArrSub[a]);
              a++;
              it2.next();
            }
            c=a-d;//на сколько увеличелся список
            c=a-c;//не обработанные элементы начинаются с этого значения
         }
           //info("Второй тоже = "+ int2str(a));

           // убираем повторяющиеся записи
           for(OutLoadArr=1; OutLoadArr <= a-1; OutLoadArr++)
           {
             for(OutLoadArrF=OutLoadArr+1; OutLoadArrF <= a; OutLoadArrF++)
             {
               if(ArrSub[OutLoadArr] == ArrSub[OutLoadArrF])
               {
                 ArrSub[OutLoadArr] = "";
               }
             }
           }

           //Выводим список
            for (OutLoadArr=1; OutLoadArr <= a; OutLoadArr++)
            {
              StaticTextPodch.text(StaticTextPodch.text() +", "+ arrSub[OutLoadArr]);
            }
            break;
       }

[macklakov]

Вы осторожнее с рекурсией. В аксапте есть ограничение на количество вложенных вызовов. Начнет вылетать без указания причины, замучаетесь дебагером 400 итераций проходить

[moid]

Если info раскоментировать, то получится подробный анализ, кто - откуда

[Eldar9x]

действительно,

    int i;
    void iter()
    {
        i++;
        if (i<1000)
        iter();
    }
    ;
    iter();
    print i;
    pause;

выдает "переполнение во внутреннем стеке исполнения кода" причем как раз i = 400. С чего бы это?

[moid]

Кстати там в конце самом нужно поставить еще одну "}"

[Eldar9x]

Цитата:

Короче получилось так...

точно подмечено

[moid]

Ну да... зато результат нужный выдает...