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