"<pre>НачатьТранзакцию();<br><br><br>Запрос = Новый Запрос;<br><br>Запрос.Текст =<br>"ВЫБРАТЬ<br>| Контрагенты.Ссылка КАК Контрагент,<br>| ИнформационныеКарты.Ссылка КАК ИК<br>|ИЗ<br>| Справочник.Контрагенты КАК Контрагенты<br>| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ИнформационныеКарты КАК ИнформационныеКарты<br>| ПО Контрагенты.Код = ИнформационныеКарты.Код<br>| И Контрагенты.Наименование = ИнформационныеКарты.Наименование<br>| И Контрагенты.Ссылка <> ИнформационныеКарты.ВладелецКарты<br>|<br>|ДЛЯ ИЗМЕНЕНИЯ<br>| Справочник.ИнформационныеКарты";<br><br>Выборка = Запрос.Выполнить().Выбрать();<br><br>н = 0;<br>ВсегоДанных = Выборка.Количество();<br><br>Пока Выборка.Следующий() Цикл<br><br><br>н = н + 1;<br> <br>Проц = Окр(н * 100 / ВсегоДанных);<br><br><br>Состояние("Обработка ИК: выполнено " + Проц + "%");<br><br><br>СпрОбъект = Выборка.ИК.ПолучитьОбъект();<br><br><br>СпрОбъект.ВладелецКарты = Выборка.Контрагент;<br><br><br>СпрОбъект.Записать();<br><br>КонецЦикла;<br><br>Если Вопрос("Зафиксировать изменения?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Да Тогда<br> ЗафиксироватьТранзакцию();<br>Иначе<br> ОтменитьТранзакцию();<br>КонецЕсли; </pre>"