Передача файла во внутренний документ через COM

	СсылкаНового = Объект.Ссылка;
	
	Результат = Новый Структура;
	Результат.Вставить("ФайлДобавлен", Ложь);
	Результат.Вставить("ФайлСсылка",   Неопределено);
	Результат.Вставить("ТекстОшибки",  "");
	
	ТаблицаФайлов = ЗначениеИзСтрокиВнутр(ПараметрыОбъекта.Получить("Файлы"));
	
	Для Каждого СТр Из ТаблицаФайлов Цикл 
		ВременныйКаталог = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(ПолучитьИмяВременногоФайла());
		
		СоздатьКаталог(ВременныйКаталог);
		ФайлКлиента = Новый Файл(ВременныйКаталог+СТр.ИмяФайла);
		
		СТр.ДвоичныеДанные.Записать(ВременныйКаталог+СТр.ИмяФайла); 
		
		
		ФайловыеФункцииСлужебныйКлиентСервер.ПроверитьВозможностьЗагрузкиФайла(ФайлКлиента);
		
		АдресВременногоХранилищаТекста = "";
		
		ВремяИзменения              = ФайлКлиента.ПолучитьВремяИзменения();
		ВремяИзмененияУниверсальное = ФайлКлиента.ПолучитьУниверсальноеВремяИзменения();
		Если Стр.ИмяФайла <> Неопределено Тогда
			ИмяСоздания = ФайлКлиента.ИмяБезРасширения;
		Иначе
			ИмяСоздания = ФайлКлиента.ИмяБезРасширения;
		КонецЕсли;
		
		ИмяФайла  = ИмяСоздания + ФайлКлиента.Расширение;
		РазмерВМб = ФайлКлиента.Размер() / (1024 * 1024);
		
		ТекстСостояния = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
		НСтр("ru = 'Идет сохранение файла ""%1"" (%2 Мб).
		|Пожалуйста, подождите...'"),
		ИмяФайла,
		ФайловыеФункцииСлужебныйКлиентСервер.ПолучитьСтрокуСРазмеромФайла(РазмерВМб));
		
		// Помещение файла во временное хранилище.
		АдресВременногоХранилищаФайла = "";
		
		ПомещаемыеФайлы = Новый Массив;
		Описание = Новый ОписаниеПередаваемогоФайла(ФайлКлиента.ПолноеИмя, "");
		ПомещаемыеФайлы.Добавить(Описание);
		
		ПомещенныеФайлы = Новый Массив;
		//ФайлыПомещены = ПоместитьФайлы(ПомещаемыеФайлы, ПомещенныеФайлы, , Ложь, Новый УникальныйИдентификатор);
		//АдресВременногоХранилищаФайла = ПоместитьВоВременноеХранилище(ПомещаемыеФайлы,Новый УникальныйИдентификатор);
		//Если НЕ ФайлыПомещены Тогда
		//	Отказ = Истина;
		//КонецЕсли;
		АдресВременногоХранилищаФайла = ВременныйКаталог+СТр.ИмяФайла;
		
		Если ПомещенныеФайлы.Количество() = 1 Тогда
			АдресВременногоХранилищаФайла = ПомещенныеФайлы[0].Хранение;
		КонецЕсли;
		
		// Создание карточки Файла в БД.
		Попытка
			Результат.ФайлСсылка = РаботаСФайламиВызовСервера.СоздатьФайлСВерсией(
			СсылкаНового,
			ИмяСоздания,
			ОбщегоНазначенияКлиентСервер.РасширениеБезТочки(ФайлКлиента.Расширение),
			ВремяИзменения,
			ВремяИзмененияУниверсальное,
			ФайлКлиента.Размер(),
			АдресВременногоХранилищаФайла,
			АдресВременногоХранилищаТекста,
			Ложь,         // Это не Веб-клиент.
			Неопределено, // Пользователь.
			"",           // Комментарий.
			Неопределено,
			Истина, 	  //ХранитьВерсии
			Истина,      // ЗаписатьВИсторию.
			Неопределено);
			Результат.ФайлДобавлен = Истина;
		Исключение
			Результат.ТекстОшибки = ФайловыеФункцииСлужебныйКлиентСервер.ОшибкаСозданияНовогоФайла(ИнформацияОбОшибке());
		КонецПопытки;
		
		Если Результат.ТекстОшибки <> "" Тогда
			Сообщение = Новый СообщениеПользователю;
			Сообщение.Текст = Результат.ТекстОшибки;
			Сообщение.Сообщить();
			
		КонецЕсли;
		
		ПараметрыОповещения = Новый Структура;
		ПараметрыОповещения.Вставить("Владелец", СсылкаНового);
		ПараметрыОповещения.Вставить("Файл",     Результат.ФайлСсылка);
		ПараметрыОповещения.Вставить("Событие",  "СозданФайл");
	КонецЦикла;