Обмен файлами через бесшовную интеграцию. ДО 2.1 - ЗУП 3.1

Общий модуль ОбработкаЗапросовXDTOДокументы.ПолучитьДанныеВнутреннегоДокумента

// Заполним файлы.

Если ЗначениеЗаполнено(Документ.Ссылка) Тогда
	
	Если ПолучатьВсеКолонки Или Колонки.Найти(НРег("files")) <> Неопределено Тогда
		
		НаборКолонокФайлов = Новый Массив;
		
		// Начало блока
		
		// Было:
		
		//ЗаполнитьКолонкиСпискаФайлов(НаборКолонокФайлов, ДляОбмена);
		
		// Стало:      
		
		Доработка_ДляОбмена = Истина;
		
		Если Доработка_ИнтеграцияСДО.ВыгружатьДанныеФайловДокумента(Документ) = Истина Тогда
			
			НаборКолонокФайлов.Добавить("binaryData");
			
			Доработка_ДляОбмена = Ложь;
			
		КонецЕсли;
		
		ЗаполнитьКолонкиСпискаФайлов(НаборКолонокФайлов, Доработка_ДляОбмена);
		
		// Конец блока
		
		ВключатьПомеченныеНаУдаление =
		
		(Колонки.Найти(НРег("ignoreDeletionMark")) <> Неопределено);
		
		МассивОбъектовДО = РаботаСФайламиВызовСервера.ПолучитьВсеПодчиненныеФайлы(
		
		Документ.Ссылка, ВключатьПомеченныеНаУдаление);
		
		МассивФайлов = ОбработкаЗапросовXDTOФайлы.ЗаполнитьСписокФайлов(МассивОбъектовДО, НаборКолонокФайлов);
		
		ОбработкаЗапросовXDTOФайлы.ЗаполнитьСписокФайловИзМассива(ОбъектXDTO, МассивФайлов, НаборКолонокФайлов);
		
	КонецЕсли;
	
ИначеЕсли ЗначениеЗаполнено(Документ.Шаблон) Тогда
	
	ФайлыШаблона = Новый ТаблицаЗначений;
	
	ФайлыШаблона.Колонки.Добавить("Наименование");
	
	ФайлыШаблона.Колонки.Добавить("ПолныйПуть");
	
	ФайлыШаблона.Колонки.Добавить("Расширение");
	
	ФайлыШаблона.Колонки.Добавить("ШаблонОснованиеДляСоздания");
	
	ФайлыШаблона.Колонки.Добавить("ДобавленИзШаблона");
	
	ШаблоныДокументов.ЗаполнитьФайлыДокументаПоШаблону(Документ.Шаблон, ФайлыШаблона, Ложь);
	
	ОбработкаЗапросовXDTOФайлы.ЗаполнитьСписокФайловПоШаблону(ОбъектXDTO, ФайлыШаблона);
	
КонецЕсли;

В функции «Доработка_ИнтеграцияСДО.ВыгружатьДанныеФайловДокумента(Документ)» определяем нужно ли выгружать данные для этого документа, ее можно создать произвольной. Это просто установка признака, что нужно выгружать данные

Строка кода «НаборКолонокФайлов.Добавить("binaryData");» - добавляем колонку для выгрузки двоичный данных. Далее система сама понимает, что нужно полностью выгрузить файлы, а не только их название.

Справочники. ПравилаИнтеграцииС1СДокументооборотом.МодульМенеджера. ЗаполнитьСтруктуруРеквизитовОбъектаДОПоПравилу

Если ДанныеПравила.ТипОбъектаДО <> "DMCorrespondent" Тогда
	СтруктураРеквизитов.Файлы = ИнтеграцияС1СДокументооборотБазоваяФункциональность.ПечатныеФормыКСозданию(
	
	Источник,
	
	ИнтеграцияС1СДокументооборот.ПрисоединяемыеПечатныеФормы(ДанныеПравила.ПрисоединяемыеПечатныеФормы),
	
	ДанныеПравила.ТипФайловСохраненияПечатныхФорм,
	
	ТолькоОбновление);  
	
	// Начало блока

	Доработка_ПрисоединенныеФайлы = ИнтеграцияС1СДокументооборотБазоваяФункциональность.Доработка_ПрисоединенныеФайлыКСозданию(Источник, ДанныеПравила, ТолькоОбновление);
	
	Если НЕ Доработка_ПрисоединенныеФайлы.Количество() = 0 Тогда
		
		ОбщегоНазначенияКлиентСервер.ДополнитьМассив(
		
		СтруктураРеквизитов.Файлы,
		
		Доработка_ПрисоединенныеФайлы);
		
	КонецЕсли;
	
	// Конец блока

КонецЕсли;

Общий модуль ИнтеграцияС1СДокументооборотОбмен. ПолучитьДанные

Если ИнтеграцияС1СДокументооборотБазоваяФункциональность.СвойствоУстановлено(ОбъектXDTO, "files") Тогда
	
	Если ОбъектXDTO.files.Количество() > 0 Тогда
		
		ИнтеграцияС1СДокументооборотБазоваяФункциональность.ПриПоявленииПрисоединенныхФайловДокументооборота(
		
		ОбъектXDTO.objectID.ID,
		
		ОбъектXDTO.objectID.type,
		
		ОбъектСсылка,
		
		Истина);
		
		// Начало блока
		
		ИнтеграцияС1СДокументооборотБазоваяФункциональность.Доработка_ОбновитьФайлыВИС(ОбъектXDTO, ОбъектСсылка, Правило);
		
		// Конец блока

	Иначе
		
		ИнтеграцияС1СДокументооборотБазоваяФункциональность.ПриУдаленииПрисоединенныхФайловДокументооборота(
		
		ОбъектXDTO.objectID.ID,
		
		ОбъектXDTO.objectID.type,
		
		ОбъектСсылка);
		
	КонецЕсли;
	
КонецЕсли;

Текст процедуры Доработка_ОбновитьФайлыВИС

Процедура        Доработка_ОбновитьФайлыВИС(Знач ОбъектXDTO, Знач ОбъектСсылка, Знач ПравилоСсылка) Экспорт
	
	МассивФайлов = ИнтеграцияС1СДокументооборотБазоваяФункциональностьВызовСервера.ПолучитьХранимыеФайлы(ОбъектСсылка);
	
	Если МассивФайлов.Количество() = 0 Тогда
		
		Возврат;
		
	КонецЕсли;
	
	ФайлыДО = ОбъектXDTO.files;
	
	Автор   = Пользователи.АвторизованныйПользователь();
	
	Для Каждого ФайлДО Из ФайлыДО Цикл
		
		Если СвойствоУстановлено(ФайлДО, "binaryData") = Ложь Тогда
			
			Продолжить;
			
		КонецЕсли;
		
		ПрисоединенныйФайл                                                              = Неопределено;
		
		АдресФайлаВоВременномХранилище              = ПоместитьВоВременноеХранилище(ФайлДО.binaryData);
		
		Для Каждого ДанныеФайла Из МассивФайлов Цикл
			
			Если ДанныеФайла.Наименование = ФайлДО.name Тогда
				
				ПрисоединенныйФайл = ДанныеФайла.Ссылка;        
				
			КонецЕсли;
			
		КонецЦикла; 
		
		Если ПрисоединенныйФайл = Неопределено Тогда   
			
			ПараметрыДобавленияФайла = РаботаСФайлами.ПараметрыДобавленияФайла();
			
			ПараметрыДобавленияФайла.Автор                                                 = Автор;
			
			ПараметрыДобавленияФайла.ВладелецФайлов          = ОбъектСсылка;
			
			ПараметрыДобавленияФайла.ИмяБезРасширения    = ФайлДО.name; 
			
			ПараметрыДобавленияФайла.РасширениеБезТочки = ФайлДО.extension;
			
			РаботаСФайлами.ДобавитьФайл(
			
			ПараметрыДобавленияФайла, 
			
			АдресФайлаВоВременномХранилище,,
			
			"Файл созданный через интеграцию с ДО");  
			
			Иначе          
			
			ИнформацияОФайле = Новый Структура;
			
			ИнформацияОФайле.Вставить("АдресФайлаВоВременномХранилище", АдресФайлаВоВременномХранилище);
			
			ИнформацияОФайле.Вставить("АдресВременногоХранилищаТекста", "");
			
			РаботаСФайлами.ОбновитьФайл(ПрисоединенныйФайл, ИнформацияОФайле); 
			
		КонецЕсли;
		
	КонецЦикла;
	
КонецПроцедуры