Конвертация данных, выгрузка картинки в формате ХранилищеЗначения

			Если ТекущееПВД.ИмяОбъектаДляЗапроса <> Неопределено Тогда
						
						Построитель.Текст =
						"ВЫБРАТЬ Разрешенные _.* ИЗ " + ТекущееПВД.ИмяОбъектаДляЗапроса + " КАК _
						|
						|
						|{ГДЕ _.Ссылка.* КАК " + СтрЗаменить(ТекущееПВД.ИмяОбъектаДляЗапроса, ".", "_") + "}";
						
					КонецЕсли;
					Отбор = Построитель.Отбор;
					Если Отбор.Найти("Справочник_НоменклатураПрисоединенныеФайлы") = Неопределено Тогда
						Отбор.Добавить("Справочник_НоменклатураПрисоединенныеФайлы");
					КонецЕсли;
					Запрос = Новый Запрос;
					Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1
					|	НоменклатураПрисоединенныеФайлы.Ссылка КАК ФайлКартинки,
					|	НоменклатураПрисоединенныеФайлы.ДатаСоздания КАК ДатаСоздания
					|ИЗ
					|	Справочник.НоменклатураПрисоединенныеФайлы КАК НоменклатураПрисоединенныеФайлы
					|ГДЕ
					|	НоменклатураПрисоединенныеФайлы.ВладелецФайла = &ВладелецФайла
					|
					|УПОРЯДОЧИТЬ ПО
					|	ДатаСоздания УБЫВ";
					
					Запрос.УстановитьПараметр("ВладелецФайла",Источник.Ссылка);
					Результат = Запрос.Выполнить().Выгрузить();
					Темп = Результат[0].ФайлКартинки.ПолучитьОбъект();
					Файл = Новый Картинка(Темп.Том.ПолныйПутьWindows+Темп.ПутьКФайлу);
					В = Новый ХранилищеЗначения(Файл,Новый  СжатиеДанных(9));
					Темп.ФайлХранилище = В;
					Отбор["Справочник_НоменклатураПрисоединенныеФайлы"].Использование = Истина;
					Отбор["Справочник_НоменклатураПрисоединенныеФайлы"].Значение = Темп.Ссылка;
					Отбор["Справочник_НоменклатураПрисоединенныеФайлы"].ВидСравнения = ВидСравнения.Равно;
					ДоступностьПостроителя = Истина;

ПодчиненныеФайлы = РаботаСФайламиВызовСервера.ПолучитьВсеПодчиненныеФайлы(Источник.Ссылка, Ложь, Истина);

ФайлыКПереносу = Новый ТаблицаЗначений;
ФайлыКПереносу.Колонки.Добавить("ИмяФайла");
ФайлыКПереносу.Колонки.Добавить("ДвоичныеДанные");

Если ПодчиненныеФайлы.Количество() > 0 тогда
	
	Для Каждого Файл Из ПодчиненныеФайлы Цикл
		
		ДанныеФайла = РаботаСФайламиВызовСервера.ДанныеФайла(Файл);
		Если Не ДанныеФайла = Неопределено Тогда
				
			ДвоичныеДанные = РаботаСФайламиВызовСервера.ПолучитьДвоичныеДанныеФайла(Файл);
			Если ТипЗнч(ДвоичныеДанные) = Тип("ДвоичныеДанные") Тогда
				НоваяСтрока = ФайлыКПереносу.Добавить();
				НоваяСтрока.ИмяФайла = ДанныеФайла.ПолноеНаименованиеВерсии + "." + ДанныеФайла.Расширение;
				НоваяСтрока.ДвоичныеДанные = ДвоичныеДанные;
			КонецЕсли;
				
		КонецЕсли;
			
    КонецЦикла;    
    
КонецЕсли;

Значение = ЗначениеВСтрокуВнутр(ФайлыКПереносу);

Если ЗначениеЗаполнено(ПараметрыОбъекта["ФайлыКПереносу"]) тогда
        
    ФайлыКПереносу = ЗначениеИзСтрокиВнутр(ПараметрыОбъекта["ФайлыКПереносу"]);
    
    Если ФайлыКПереносу.Количество() > 0 Тогда
            
         Для каждого СтрокаФайл из ФайлыКПереносу Цикл
                
            ИмяФайлаИнфо = ОбщегоНазначенияКлиентСервер.РазложитьПолноеИмяФайла(СтрокаФайл.ИмяФайла);
			ВремяИзмененияУниверсальное = УниверсальноеВремя(ТекущаяДатаСеанса());
			
			АдресВременногоХранилища = ПоместитьВоВременноеХранилище(СтрокаФайл.ДвоичныеДанные);
			СвязанныеФайлыВызовСервера.ДобавитьФайлИзВременногоХранилища(СсылкаДокумента, АдресВременногоХранилища, ИмяФайлаИнфо.Имя,
				ИмяФайлаИнфо.Расширение, 0, ТекущаяДатаСеанса(), ВремяИзмененияУниверсальное);   
			УдалитьИзВременногоХранилища(АдресВременногоХранилища);

		КонецЦикла;  
			          
	КонецЕсли;
	
КонецЕсли;