ПоместитьФайлВХранилищеМенеджераСервиса (БСП)

Поместить файл хранилище менеджера сервиса. Добавляет файл в хранилище менеджера сервиса.

// Добавляет файл в хранилище менеджера сервиса.
//
// Параметры:
//   АдресДанныеФайл - Строка - адрес файла во временном хранилище,
//                   - ДвоичныеДанные - двоичные данные файла,
//                   - Файл - файл.
//   ИмяФайла - Строка - хранимое имя файла.
//		
// Возвращаемое значение:
//   УникальныйИдентификатор - Идентификатор файла в хранилище.
//
Функция ПоместитьФайлВХранилищеМенеджераСервиса(Знач АдресДанныеФайл, Знач ИмяФайла = "") Экспорт
	
	ИдентификаторФайлаВХранилище = Неопределено;
	
	ПараметрыДоступаКХранилищу = Новый Структура;
	ПараметрыДоступаКХранилищу.Вставить("URL", ВнутреннийАдресМенеджераСервиса());
	ПараметрыДоступаКХранилищу.Вставить("UserName", ИмяСлужебногоПользователяМенеджераСервиса());
	ПараметрыДоступаКХранилищу.Вставить("Password", ПарольСлужебногоПользователяМенеджераСервиса());
	
	Если ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса.ПередачаДанных") Тогда
		
		ПоддерживаемыеВерсии = ОбщегоНазначения.ПолучитьВерсииИнтерфейса(ПараметрыДоступаКХранилищу, "DataTransfer");
		
		Если ПоддерживаемыеВерсии.Количество() > 0 Тогда
			
			// В одной из версий БТС общий модуль ПередачаДанных был переименован в ПередачаДанныхСервер для разрешения конфликта имен.
			// Для совместимости реализована поддержка обоих имен модулей.
			Попытка
				
				МодульПередачаДанных = ОбщегоНазначения.ОбщийМодуль("ПередачаДанныхСервер");
				
			Исключение
				
				МодульПередачаДанных = ОбщегоНазначения.ОбщийМодуль("ПередачаДанных");
				
			КонецПопытки;
			
			ИдентификаторФайлаВХранилище = МодульПередачаДанных.ОтправитьВЛогическоеХранилище(ПараметрыДоступаКХранилищу, "files", АдресДанныеФайл, ИмяФайла);
			
		КонецЕсли;
		
	КонецЕсли;
		
	Если ЗначениеЗаполнено(ИдентификаторФайлаВХранилище) Тогда
		
		Возврат ИдентификаторФайлаВХранилище;
		
	Иначе
		
		Возврат ПоместитьФайлВХранилище(АдресДанныеФайл, ПараметрыДоступаКХранилищу, ИмяФайла);
		
	КонецЕсли;

КонецФункции

///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////

// Добавляет файл в хранилище менеджера сервиса.
//
// Параметры:
//   АдресДанныеФайл - Строка - адрес файла во временном хранилище,
//                   - ДвоичныеДанные - двоичные данные файла,
//                   - Файл - файл.
//   ИмяФайла - Строка - хранимое имя файла.
//		
// Возвращаемое значение:
//   УникальныйИдентификатор - Идентификатор файла в хранилище.
//
Функция ПоместитьФайлВХранилищеМенеджераСервиса(Знач АдресДанныеФайл, Знач ИмяФайла = "") Экспорт
	
	ИдентификаторФайлаВХранилище = Неопределено;
	
	ПараметрыДоступаКХранилищу = Новый Структура;
	ПараметрыДоступаКХранилищу.Вставить("URL", ВнутреннийАдресМенеджераСервиса());
	ПараметрыДоступаКХранилищу.Вставить("UserName", ИмяСлужебногоПользователяМенеджераСервиса());
	ПараметрыДоступаКХранилищу.Вставить("Password", ПарольСлужебногоПользователяМенеджераСервиса());
	
	Если ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса.ПередачаДанных") Тогда
		
		ПоддерживаемыеВерсии = ОбщегоНазначения.ПолучитьВерсииИнтерфейса(ПараметрыДоступаКХранилищу, "DataTransfer");
		
		Если ПоддерживаемыеВерсии.Количество() > 0 Тогда
			
			// В одной из версий БТС общий модуль ПередачаДанных был переименован в ПередачаДанныхСервер для разрешения конфликта имен.
			// Для совместимости реализована поддержка обоих имен модулей.
			Попытка
				
				МодульПередачаДанных = ОбщегоНазначения.ОбщийМодуль("ПередачаДанныхСервер");
				
			Исключение
				
				МодульПередачаДанных = ОбщегоНазначения.ОбщийМодуль("ПередачаДанных");
				
			КонецПопытки;
			
			ИдентификаторФайлаВХранилище = МодульПередачаДанных.ОтправитьВЛогическоеХранилище(ПараметрыДоступаКХранилищу, "files", АдресДанныеФайл, ИмяФайла);
			
		КонецЕсли;
		
	КонецЕсли;
		
	Если ЗначениеЗаполнено(ИдентификаторФайлаВХранилище) Тогда
		
		Возврат ИдентификаторФайлаВХранилище;
		
	Иначе
		
		Возврат ПоместитьФайлВХранилище(АдресДанныеФайл, ПараметрыДоступаКХранилищу, ИмяФайла);
		
	КонецЕсли;

КонецФункции

///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////