1С 7.x : Есть ли у текущего элемента подчиненные

 Выборка = Справочники.Номенклатура.Выбрать( , Владелец); 

Если Выборка.Следующий() = Истина Тогда 

	// Есть подчиненные элементы.

КонецЕсли; 



Запрос = Новый Запрос; 

Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1 

|	ЕдиницыИзмерения.Ссылка 

|ИЗ 

|	Справочник.ЕдиницыИзмерения КАК ЕдиницыИзмерения 

|ГДЕ 

|	ЕдиницыИзмерения.Владелец = &Владелец"; 

Запрос.УстановитьПараметр("Владелец", Владелец); 

Если НЕ Запрос.Выполнить().Пустой() Тогда 

	// Есть подчиненные элементы!

КонецЕсли;    

  Спр=СоздатьОбъект("Справочник.Контрагенты");

    Попытка

        дог=СоздатьОбъект("Справочник.Договоры");

    исключение

        Предупреждение("В конфигурации нет справочника ДОГОВОРЫ");

        возврат;

    конецПопытки;

    Спр.ВыбратьЭлементы();//перебираем справочник-владелец

    Пока спр.ПолучитьЭлемент()=1 Цикл     

        Если спр.ЭтоГруппа()=1  Тогда

            продолжить;//группы не имеют подчиненных элементов

        КонецЕсли;

        Сообщить("Контрагент "+спр.Наименование+ "  его договоры:");

        дог.ИспользоватьВладельца(Спр.ТекущийЭлемент());//будем перебирать только 

        //подчиненные владельцу

        дог.ВыбратьЭлементы(); //перебираем только подчиненные конкретному владельцу

        Пока дог.получитьЭлемент()=1 Цикл

            сообщить("----------"+дог.наименование);

        КонецЦикла;

    КонецЦикла;