Добавление вида деятельности

Всем доброе утро. Уже второй день мучаюсь, как только не пытался добавить. Нужно у каждого контрагента из определенного списка добавить вид деятельности. Пожалуйста, помогите, никак не получается. Вот пример, но он не работает.

Для каждого стр Из ЭтаФорма.Таблица Цикл
//попытка
наш = Справочники.Контрагенты.НайтиПоКоду(стр.Код);
объект = наш.ПолучитьОбъект();
//Объект.ОсновнойВидДеятельности = Справочники.ВидыДеятельностиКонтрагентов.НайтиПоКоду("000000010");
//Объект.ВидыДеятельности.Вставить(1);
вд=объект.ВидыДеятельности.Добавить();
вд.ВидДеятельности=Справочники.ВидыДеятельностиКонтрагентов.НайтиПоКоду("000000010");
объект.Записать();

//Исключение Сообщить("не нашел - "+стр.Код);
//КонецПопытки;
КонецЦикла;