1С 7.x : Создать всем подчиненный элемент справочника

  //проуедура всем контрагентам мозжает подчиненный докогвор "Дополнительный"

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

    Попытка

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

    исключение

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

        возврат;

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

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

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

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

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

        КонецЕсли;

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

        дог.Новый();

        Дог.наименование="Дополнительный";

        дог.записать();//это часто забывают написать

    конецЦикла;