Сравнение страниц

Процедура ПередатьВсеФайлыВЯндексОблако()
    ЗапросФайлов = Новый Запрос;
	ЗапросФайлов.Текст = 
		"ВЫБРАТЬ
		|	Файлы.Ссылка КАК Ссылка
		|ИЗ
		|	Справочник.Файлы КАК Файлы
		|ГДЕ
		|	Файлы.МестоХраненияФайла = ЗНАЧЕНИЕ(Перечисление.РВ_МестоХраненияФайла.ВИнформационнойБазе)";			
	РезультатЗапросаФайлов = ЗапросФайлов.Выполнить();			
	ВыборкаДетальныеЗаписиФайлов = РезультатЗапросаФайлов.Выбрать();			
	Пока ВыборкаДетальныеЗаписиФайлов.Следующий() Цикл
		Попытка
			РезультатПередачи = ПередатьФайлВЯндексОблако(ВыборкаДетальныеЗаписиФайлов.Ссылка);
		Исключение
			РезультатПередачи = ОписаниеОшибки();
		КонецПопытки;
		Если РезультатПередачи = Истина Тогда
			ФайлОбъект = ВыборкаДетальныеЗаписиФайлов.Ссылка.ПолучитьОбъект();
			ФайлОбъект.МестоХраненияФайла = Перечисления.РВ_МестоХраненияФайла.YandexCloud;
			ФайлОбъект.Данные = Новый ХранилищеЗначения(Неопределено);
			Попытка
				ФайлОбъект.Записать();
			Исключение
				Ошибка = НСтр("ru = 'Не удалось изменить место хранения фото'");
				Ошибка = Ошибка + ". " + НСтр("ru = 'Ошибка'") + ": " + ОписаниеОшибки();
				Сообщить(Ошибка);	
			КонецПопытки;
		Иначе
			Ошибка = НСтр("ru = 'Не удалось передать фото в ЯндексОблако'");
			Ошибка = Ошибка + ". " + НСтр("ru = 'Ошибка'") + ": " + РезультатПередачи;
			Сообщить(Ошибка);
		КонецЕсли;
	КонецЦикла;
КонецПроцедуры