Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Как получить всех родителей элемента справочника?
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
kostya77
Добрый день. Подскажиет как получить всех родетелей елемента справочника
AnryMc
kostya77 @ Сегодня, 15:23 необходимо зарегистрироваться для просмотра ссылки ,

ПолныйКод()

Синтаксис:
ПолныйКод()
Назначение:
Возвращает строку, содержащую полный код выбранного элемента справочника со всеми вышестоящими уровнями, разделенными символом /.
volodya1122
kostya77 @ 15.02.24, 14:23 необходимо зарегистрироваться для просмотра ссылки ,

Якщо потрібно ссилки на кожнного родителя

       // ЭлСправ- ссилка на конкректний елемент справочника 
    Если Метаданные.Справочники.МойСправочник.ОграничиватьКоличествоУровней тогда
        МаксимумУровней=Метаданные.Справочники.МойСправочник.КоличествоУровней;
    иначе    
        МаксимумУровней=100; // хватає з великим запасорв в реальних базах
    КонецЕсли;
    Сообщить(ЭлСправ.ПолныйКод());
    Ел1=ЭлСправ;
    Для к=1 по МаксимумУровней цикл
        Ел1=Ел1.Родитель; // по ссилці
        Если Ел1=Справочники.МойСправочник.ПустаяСсылка() тогда
            Прервать;
        КонецЕсли;
        Сообщить("-"+к+"-"+Ел1.Наименование);
    КонецЦикла;
andrew76
Этот код от 1С 8.

andrew76 @ Сегодня, 20:06 необходимо зарегистрироваться для просмотра ссылки ,


Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Обрабатывать НеПомеченныеНаУдаление;
|Период с  ДатаАкт по ДатаАкт;
|Сотр      = Справочник.Сотрудники.ТекущийЭлемент;
|Без итогов;
|группировка Сотр;
|"//}}ЗАПРОС
;
      

// Если ошибка в запросе, то выход из процедур
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
     Возврат;
КонецЕсли;


Пока Запрос.Группировка() = 1 Цикл              
     Сообщить(Запрос.Сотр.ПолныйКод());
КонецЦикла;
takefive
    Родитель = СсылкаНаОбъект.Родитель;
    Пока Родитель.Выбран() = 1 Цикл
        Сообщить(Родитель);
        Родитель = Родитель.Родитель;
    КонецЦикла;
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.