НужныйОбъект = Справочники.Контрагенты.ПолучитьСсылку();
Если НужныйОбъект.Код = ИК.Код И
НужныйОбъект.Наименование = ИК.Наименование
Тогда
Выборка = ИК.ВладелецКарты.Выбрать();
Пока Выборка.Следующий() Цикл
Объект = Выборка.ПолучитьОбъект();
Объект.ВладелецКарты = НужныйОбъект.Ссылка;
Попытка
Объект.Записать();
Исключение
Предупреждение("Не удалось записать объект """ + Объект + """
|" + ОписаниеОшибки(),60);
КонецПопытки;
КонецЦикла;