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

рекурсией

получать родителя, пока он не пустой. или полный путь(?)

Либо ПолныйКод()

(1) +1

можно пример рекурсии?

(5) Для того, чтобы понять, что такое рекурсия - нужно понять, что такое рекурсия.

(5)
#include <iostream>

size_t fact(size_t n)
{
    if(n==0) return 1;
    return n*fact(n-1);
}

int main()
{
    std::cout << fact(12) << std::endl;
    return 0;
}

(5) Коктейль рекурсивный. Его состав: 10% спирта, 30% воды и 60% коктейля рекурсивного.

http://lurkmore.to/Сепульки

(5)
def short_story():
    print("У попа была собака, он ее любил.")
    print("Она съела кусок мяса, он ее убил,")
    print("В землю закопал и надпись написал:")
    short_story()

(9) сепульки - уже не рекурсия, а замкнутый граф

(5)

(defun my-copy-tree (D)
  (cond ((null D) nil)
        ((atom D) D)
        (t (cons (my-copy-tree (car D))
                 (my-copy-tree (cdr D))))))

(5)

Функция ВернутьРодителя(ССылка)
   Если ПустоеЗначение(ССылка) = 0 Тогда
      Возврат ВернутьРодителя(ССылка.Родитель);
   Иначе
      Возврат "";
КонецФункции

(11) а рекурсия - это замкнутый граф без рёбер, состоящий из одной вершины?

в 1с8 я знаю как, а для 1с7?

(5)

Procedure Power (X: real; N: integer; var Y: real);
Begin
   If N=0 then
      Y:= 1
   Else Begin Power(X, N-1,Y);
      Y:= Y*X;
   End ;
End ;

(15) Что как?

(15) Та ты шо ?

(15) а как в 8?

(15) аналогично, коллека!

запросом можно

(14) угу. вырожденный

(21) иногда

(21) Зачем пихать запрос туда где он не нужен?

Всё, все выдохлись с помощью? А бедняга ТС делай что хочешь?

(25) сейчас он скопипастит у Ёпрста, поправит ошибку и скажем спасибо

(26) Кому скажем?

(24) а что не так?

+28 ИТОГИ ПО Ссылка ТОЛЬКО ИЕРАРХИЯ

так что никто примера получений родителя верхнего уровня в 1с7 не приведет?

+29 блин... клюшки проглядел :)

(30) Чем тебе (13) не понравилось?

(0)
ТекущийЭлементНоменклатуры = ЭлементНоменклатура;
Запрос = Новый Запрос("ВЫБРАТЬ 
                      | Номенклатура.Родитель, 
                      | Номенклатура.Родитель.Родитель, 
                      | Номенклатура.Родитель.Родитель.Родитель, 
                      | Номенклатура.Родитель.Родитель.Родитель.Родитель, 
                      | Номенклатура.Родитель.Родитель.Родитель.Родитель.Родитель 
                      |ИЗ 
                      | Справочник.Номенклатура КАК Номенклатура 
                      |
                      |ГДЕ 
                      | Номенклатура.Ссылка = &ТекущийЭлементНоменклатуры";
Пока Истина Цикл
    Запрос.УстановитьПараметр("ТекущийЭлементНоменклатуры", ТекущийЭлементНоменклатуры); 
    Результат = Запрос.Выполнить(); 
    Если Результат.Пустой() Тогда 
        Прервать; 
    КонецЕсли; 
    Выборка = Результат.Выбрать(); 
    Выборка.Следующий(); 
    Для НомерКолонки = 0 По Результат.Колонки.Количество() - 1 Цикл 
        ТекущийЭлементНоменклатуры = Выборка[НомерКолонки]; 
        Если ТекущийЭлементНоменклатуры = Справочники.Номенклатура.ПустаяСсылка() Тогда 
            Прервать; 
        Иначе 
            Сообщить(ТекущийЭлементНоменклатуры); 
        КонецЕсли; 
    КонецЦикла; 

    Если ТекущийЭлементНоменклатуры = Справочники.Номенклатура.ПустаяСсылка() Тогда 
        Прервать; 
    КонецЕсли;
КонецЦикла;

http://its.1c.ru/db/metod8dev/content/2659/hdoc/_top/%E2%F1%E5%20%F0%EE%E4%E8%F2%E5%EB%E8%20%F1%EF%F0%E0%E2%EE%F7%ED%E8%EA

(33) Еще один? Там 77

(30) а сам?

вот вы мозг загадили тс
:-))

(36) Было, что загаживать?

(36) был бы мозг - не было б таких вопросов...

(37)(38)Ну ладно, пусть переваривает:-)...Посмотрим что скажет

(37) (38) спинной

(30) самый верхний ?
Тогда так:

ВерхнийРодитель=ЗначениеИзСтрокиВнутр(Шаблон("[ЗначениеВСтрокуВнутр(Спр"+СтрЗаменить(Формат("","С"+(Спр.Уровень()-1))," ",".Родитель")+")]"));
©РупорАбсурда

или так:



род=ТекущийЭлемент();
Пока род.Родитель.Выбран()=1 цикл
  Род=Род.Родитель;
КонецЦикла;
сообщить(Род.Наименование);

(30) Ну, вот еще один способ:
ТвойЭлементСправочника.ПолноеНаименование();
А лучше-то - как в (3)
псле чего разложить полученную строку в СЗ, и уж найти первый элемент по коду

Процедура ПолучитьРодителя(ТекЭлемент)
    Если  ТекЭлемент.Уровень()>1 Тогда
        Сообщить(ТекЭлемент.Родитель);
        ПолучитьРодителя(ТекЭлемент.Родитель)
    КонецЕсли;
КонецПроцедуры

+42 А, надо всех родителей? Тогда по полученному СЗ найти по коду и вывести n-1 значений, кроме последнего.

Надо уже новые ники подставлять, из прошлого:

(24)Nag:    А как получить полное дерево? :)
(25)Рупор абсурда :(24) Тут много таких ..., но самые полные, по-моему, это СаШка и Алекс_Парен ...

всем спасибо - разобрался

Аллилуйя!

(45) помню...