Настройка бесшовной интеграции 1С: ERP 2.0 и 1С: "Документооборот" КОРП. Варианты реализации бизнес-процессов

// Получаем Уникальный идентификатор интегрированного объекта
ID = Строка(Объект.Ссылка.УникальныйИдентификатор());
//На стороне 1С ДО в расширение добавляем новый Web Сервис
//Отправляем данные в 1С ДО (детали чуть ниже будут
Данные = ПолучитьДанныеС1СДокументооборот (уид);
//1С ДО Формирует печать листа согласования и возвращает двоичные данные сформированного MXL листа
//ERP получает данные 
ИмяФайла = ПолучитьИмяВременногоФайла("mxl");
Данные.Записать(ИмяФайла);
ТабДок = Новый ТабличныйДокумент;
ТабДок.Прочитать(ИмяФайла);
Возврат ТабДок;

&НаСервере
Функция 
ПолучитьДанныеС1СДокументооборот(уид)
	
	АдресДО = Константы.АдресВебСервиса1СДокументооборот.Получить();
	АдресСервиса = "ws/approvalsheet.1cws?wsdl";
	АдресWDSL = АдресДО + АдресСервиса;	
	ИмяПользователя = ПараметрыСеанса.ИнтеграцияС1СДокументооборотИмяПользователя;
	ПарольПользователя = ПараметрыСеанса.ИнтеграцияС1СДокументооборотПароль;
	
	Попытка
		WSПрокси = ОбщегоНазначения.WSПрокси(АдресWDSL,"ПростарнствоИмен","ИмяСервиса","ИмяТочкиПодключения",ИмяПользователя,ПарольПользователя);	
	Исключение
	    Сообщить ("Не удалось подключиться к 1С Документооборот");
		Возврат Неопределено;
	КонецПопытки;	
	
	ДвоичныеДанные = WSПрокси.get_sheet(уид);
	Возврат ДвоичныеДанные;
КонецФункции

Функция get_sheet(уид)
ДанныеДляПечати = Новый Структура ("уид);
	ОбъектДО = ВерутьВнутреннийДокументПоУИД (уид);
	ЛистСогласования = ПечатьЛистаСогласованияИзДокумента(ОбъектДО,,Истина,ДанныеДляПечати);
	Возврат ЛистСогласования;	
КонецФункции


Функция ВерутьВнутреннийДокументПоУИД (уид)
	//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
	// Данный фрагмент построен конструктором.
	// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	СвязиОбъектовИнтегрированныхСистем.СсылкаНаОбъектДО
		|ИЗ
		|	РегистрСведений.СвязиОбъектовИнтегрированныхСистем КАК СвязиОбъектовИнтегрированныхСистем
		|ГДЕ
		|	СвязиОбъектовИнтегрированныхСистем.ИДВнешнегоОбъекта = &ИДВнешнегоОбъекта";
	
	Запрос.УстановитьПараметр("ИДВнешнегоОбъекта", уид);
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		Возврат ВыборкаДетальныеЗаписи.СсылкаНаОбъектДО;
	КонецЦикла;
	
	//}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
		
КонецФункции


Функция ПечатьЛистаСогласованияИзДокумента(МассивОбъектов, ОбъектыПечати = Неопределено, История = Ложь, СтруктураЗполнения)
	ОбъектыПечати = Новый СписокЗначений;
	// Создаем табличный документ и устанавливаем имя параметров печати
	ТабличныйДокумент = Новый ТабличныйДокумент;
	ТабличныйДокумент.ИмяПараметровПечати = "ПараметрыПечати_ЛистСогласования";
	
	Если История = Истина Тогда 
		Макет = ПолучитьОбщийМакет("ПФ_MXL_ЛистСогласованияСИсторией");
	Иначе 
		Макет = УправлениеПечатью.МакетПечатнойФормы("БизнесПроцесс.Согласование.ПФ_MXL_ЛистСогласования");
	КонецЕсли;
	
	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
	ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
	ОбластьИсполнителиШапка = Макет.ПолучитьОбласть("ИсполнителиШапка");
	ОбластьИсполнители = Макет.ПолучитьОбласть("Исполнители");
	Если История Тогда 
		ОбластьЗаголовокИстории = Макет.ПолучитьОбласть("ЗаголовокИстории");
	КонецЕсли;
	
	Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ РАЗРЕШЕННЫЕ
	|	ВизыСогласования.Документ КАК Ссылка,
	|	ВизыСогласования.Исполнитель,
	|	ВизыСогласования.РольИсполнителя.Владелец КАК РольИсполнителя,
	|	ВизыСогласования.РольИсполнителя.ОсновнойОбъектАдресации КАК ОсновнойОбъектАдресации,
	|	ВизыСогласования.РольИсполнителя.ДополнительныйОбъектАдресации КАК ДополнительныйОбъектАдресации,
	|	ВизыСогласования.РезультатСогласования КАК РезультатСогласования,
	|	ВизыСогласования.ДатаИсполнения КАК ДатаИсполнения,
	|	СведенияОПользователяхДокументооборот.Должность.Представление КАК Должность,
	|	ВизыСогласования.Комментарий КАК РезультатВыполнения,
	|	ВизыСогласования.Источник,
	|	ВизыСогласования.ПомещенаВИсторию,
	|	ВизыСогласования.ДатаПомещенияВИсторию,
	|	ВизыСогласования.Порядок
	|ИЗ
	|	Справочник.ВизыСогласования КАК ВизыСогласования
	|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СведенияОПользователяхДокументооборот КАК СведенияОПользователяхДокументооборот
	|		ПО ВизыСогласования.Исполнитель = СведенияОПользователяхДокументооборот.Пользователь
	|ГДЕ
	|	ВизыСогласования.Документ В(&МассивОбъектов)
	|	И НЕ ВизыСогласования.ПометкаУдаления
	|	И НЕ ВизыСогласования.Удалена";
	
	Если Не История Тогда 
		Запрос.Текст = Запрос.Текст + "
		|И Не ВизыСогласования.ПомещенаВИсторию";
	КонецЕсли;
	
	Запрос.Текст = Запрос.Текст + "
		|УПОРЯДОЧИТЬ ПО
		|	ПомещенаВИсторию,
		|	ДатаПомещенияВИсторию УБЫВ
		|ИТОГИ ПО
		|	Ссылка ";
	
	Запрос.УстановитьПараметр("МассивОбъектов", МассивОбъектов);
	
	Результат = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкам);
	
 	ПервыйДокумент = Истина;
	Для Каждого СтрокаСсылка Из Результат.Строки Цикл
	
		Если Не ПервыйДокумент Тогда
			ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
		КонецЕсли;
		ПервыйДокумент = Ложь;

		// Запомним номер строки с которой начали выводить текущий документ
		НомерСтрокиНачало = ТабличныйДокумент.ВысотаТаблицы + 1;
		
		ТабличныйДокумент.Вывести(ОбластьЗаголовок);
		
		Предмет = СтрокаСсылка.Ссылка;
		Если ЗначениеЗаполнено(Предмет) Тогда
			ОбластьШапка.Параметры.Предмет = Предмет.Метаданные().ПредставлениеОбъекта 
				+ " """ + Строка(Предмет) + """";
				
			Если История Тогда 
				РеквизитыПредмета = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Предмет,
					"Подготовил, Ответственный");
				Если ЗначениеЗаполнено(РеквизитыПредмета.Ответственный) Тогда 
					ОбластьШапка.Параметры.Ответственный = 
						СтрШаблон(НСтр("ru = 'Ответственный: %1'"), РеквизитыПредмета.Ответственный);
				Иначе 
					ОбластьШапка.Параметры.Ответственный = 
						СтрШаблон(НСтр("ru = 'Ответственный: %1'"), РеквизитыПредмета.Подготовил);
				КонецЕсли;
			КонецЕсли;

	ТабличныйДокумент.Вывести(ОбластьШапка);
	
	КонецЕсли;
		Если История Тогда 
			ТаблицаСроков = СтрокаСсылка.Строки;
			
			ДатаПомещенияВИсторию = Дата(1,1,1);
			ПериодИРезультат = ОпределитьПериодИРезультатЦиклаВизы(ТаблицаСроков, ДатаПомещенияВИсторию);
			ОбластьИсполнителиШапка.Параметры.Период = ПериодИРезультат.Период;
			ОбластьИсполнителиШапка.Параметры.РезультатСогласования = ПериодИРезультат.РезультатСогласования;
				
			ТабличныйДокумент.Вывести(ОбластьИсполнителиШапка);
			
			Для Каждого СтрокаИсполнитель Из СтрокаСсылка.Строки Цикл
				
				Если ДатаПомещенияВИсторию <> СтрокаИсполнитель.ДатаПомещенияВИсторию Тогда 
					
					Если Не ЗначениеЗаполнено(ДатаПомещенияВИсторию) Тогда 
						ТабличныйДокумент.Вывести(ОбластьЗаголовокИстории);
					КонецЕсли;
					
					ДатаПомещенияВИсторию = СтрокаИсполнитель.ДатаПомещенияВИсторию;
					
					ПериодИРезультат = ОпределитьПериодИРезультатЦиклаВизы(ТаблицаСроков, ДатаПомещенияВИсторию);
					ОбластьИсполнителиШапка.Параметры.Период = ПериодИРезультат.Период;
					ОбластьИсполнителиШапка.Параметры.РезультатСогласования = ПериодИРезультат.РезультатСогласования;
						
					ТабличныйДокумент.Вывести(ОбластьИсполнителиШапка);
				КонецЕсли;
				
				ОбластьИсполнители.Параметры.Заполнить(СтрокаИсполнитель);
				
				
				ТабличныйДокумент.Вывести(ОбластьИсполнители);
			КонецЦикла;
			
		Иначе 
			
			ТабличныйДокумент.Вывести(ОбластьИсполнителиШапка);
			
			Для Каждого СтрокаИсполнитель Из СтрокаСсылка.Строки Цикл
				ОбластьИсполнители.Параметры.Заполнить(СтрокаИсполнитель);
				
				Если ЗначениеЗаполнено(СтрокаИсполнитель.Исполнитель) Тогда 
					ОбластьИсполнители.Параметры.Исполнитель = СтрокаИсполнитель.Исполнитель;
					
					Если ЗначениеЗаполнено(СтрокаИсполнитель.РольИсполнителя) Тогда 
						ОтборСтрок = Новый Структура("Исполнитель", СтрокаИсполнитель.Исполнитель);
						НайденныеСтроки = СтрокаСсылка.Строки.НайтиСтроки(ОтборСтрок);
						Если НайденныеСтроки.Количество() > 1 Тогда // есть одинаковые исполнители
							ОбластьИсполнители.Параметры.Должность = СтрокаИсполнитель.РольИсполнителя;
						КонецЕсли;
					КонецЕсли;	
				Иначе
					ОбластьИсполнители.Параметры.Исполнитель = СтрокаИсполнитель.РольИсполнителя;
				КонецЕсли;	
				
				ТабличныйДокумент.Вывести(ОбластьИсполнители);
			КонецЦикла;
		КонецЕсли;
		
		// В табличном документе зададим имя области в которую был 
		// выведен объект. Нужно для возможности печати по-комплектно.
		УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабличныйДокумент, 
			НомерСтрокиНачало, ОбъектыПечати, СтрокаСсылка.Ссылка);
	КонецЦикла;
	
	ИмяФ = ПолучитьИмяВременногоФайла("mxl");
	ТабличныйДокумент.Записать(ИмяФ,ТипФайлаТабличногоДокумента.MXL);
	ДД = Новый ДвоичныеДанные (ИмяФ);
	Возврат ДД;
//	Возврат ТабличныйДокумент;
	
КонецФункции