Есть ли у текущего элемента подчиненные

 Выборка = Справочники.Номенклатура.Выбрать( , Владелец); 
Если Выборка.Следующий() = Истина Тогда 
	// Есть подчиненные элементы.
КонецЕсли; 

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

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