// Функция возвращает обособленное подразделение для указанного подразделения - верхний элемент иерархии справочника Структура предприятия // // Параметры: // Подразделение - СправочникСсылка.СтруктураПредприятия - подразделение, для которого необходимо получить верхнего родителя // // Возвращаемое значение: // СправочникСсылка.СтруктураПредприятия - обособленное подразделение (верхний элемент иерархии справочника) // Функция ОбособленноеПодразделение(Подразделение) Экспорт Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | СтруктураПредприятия.Ссылка КАК Ссылка |ИЗ | Справочник.СтруктураПредприятия КАК СтруктураПредприятия |ГДЕ | СтруктураПредприятия.Родитель = ЗНАЧЕНИЕ(Справочник.СтруктураПредприятия.ПустаяСсылка)"; Выборка = Запрос.Выполнить().Выбрать(); Результат = Справочники.СтруктураПредприятия.ПустаяСсылка(); Пока Выборка.Следующий() Цикл Если Подразделение.ПринадлежитЭлементу(Выборка.Ссылка) Тогда Результат = Выборка.Ссылка; Прервать; КонецЕсли; КонецЦикла; Возврат Результат; КонецФункции
{}