Загрузка данных


&НаСервере
Процедура СогранитьФайлНаСервере()
		
	НовыйЭлемент = ВнешниеИсточникиДанных.БазаСФайлами.Таблицы.Файлы.СоздатьОбъект();
	НовыйЭлемент.dataF = Файл1.Получить();
	НовыйЭлемент.name = "Тест";
	Гуид = Строка(Новый УникальныйИдентификатор);
	НовыйЭлемент.GUID = Гуид;
	НовыйЭлемент.Записать();
		
КонецПроцедуры

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

	Выборка = Запрос.Выполнить().Выбрать();
	Если Выборка.Следующий() тогда
		//Выборка.dataF.Записать("D:\темп\111.jpg");
		хз = ПолучитьХЗ(Выборка.dataF);
		ФайлИзВнешнегоИсточника = хз;
	Иначе
		
		Сообщить("Во внешнем источнике не найден файл.");
		
	КонецЕсли;
	
	
КонецПроцедуры