ПоступлениеТоваров добавляет запись в подчиненный регистр сведений ЦеныКниг, только если изменилась цена

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