НапрямуюЗапись в регистр

Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	РегистрСведенийСрезПоследних.Контрагент КАК Контрагент
		|ИЗ
		|	РегистрСведений.РегистрСведений.СрезПоследних КАК РегистрСведенийСрезПоследних
		|ГДЕ
		|	РегистрСведенийСрезПоследних.Статус = &Статус";
	
	Запрос.УстановитьПараметр("Статус", Перечисления.Статус.Активен);
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		Контрагент = ВыборкаДетальныеЗаписи.Контрагент.ПолучитьОбъект () ;
		Статус = Перечисления.Статус.НеАктивен;
		Контрагент.УстановитьСсылкуНового();
		Контрагент.Записать();