Заполнить реквизит справочника из другого справочника

НачатьТранзакцию();


Запрос = Новый Запрос;

Запрос.Текст =
"ВЫБРАТЬ
|	Контрагенты.Ссылка КАК Контрагент,
|	ИнформационныеКарты.Ссылка КАК ИК
|ИЗ
|	Справочник.Контрагенты КАК Контрагенты
|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ИнформационныеКарты КАК ИнформационныеКарты
|		ПО Контрагенты.Код = ИнформационныеКарты.Код
|			И Контрагенты.Наименование = ИнформационныеКарты.Наименование
|			И Контрагенты.Ссылка <> ИнформационныеКарты.ВладелецКарты
|
|ДЛЯ ИЗМЕНЕНИЯ
|	Справочник.ИнформационныеКарты";

Выборка = Запрос.Выполнить().Выбрать();

н = 0;
ВсегоДанных = Выборка.Количество();

Пока Выборка.Следующий() Цикл


н = н + 1;
		
Проц = Окр(н * 100 / ВсегоДанных);


Состояние("Обработка ИК: выполнено " + Проц + "%");


СпрОбъект = Выборка.ИК.ПолучитьОбъект();


СпрОбъект.ВладелецКарты = Выборка.Контрагент;


СпрОбъект.Записать();

КонецЦикла;

Если Вопрос("Зафиксировать изменения?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Да Тогда
	ЗафиксироватьТранзакцию();
Иначе
	ОтменитьТранзакцию();
КонецЕсли;