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