Добавляем новый документ в обработку Диадок

Для начала сгенерируем нужные нам события

Выбираем обрабплатформаот внешние компонентыать типовой результат. Можно и переопределить полностью, но тогда придется описывать все документы, с которыми мы работ внешние компонентыаем.

Получаем шаблон с событиями, которые нам нужно обрабплатформаот внешние компонентыать

1. ПолучитьТаблицуИспользуемыхПакетов()

Функция ПолучитьТаблицуИспользуемыхПакетов(Параметры)

	Если ТипЗнч(Параметры) = Тип("Структура") И Параметры.Свойство("Результат_ИМ") Тогда 
		
		//ТЗ = ТаблицаЗначенийСКолонками("ID, Наименование, СоставПакета, КатегорияПакета, НаименованиеКатегории, Шаблон");

		ТЗ  = Параметры.Результат_ИМ;
		ОсновнойМодуль.ЭДО_Служебные_ДобавитьСтрокуВТаблицуЗначений(ТЗ, "ID_Приложение", "Приложение" , "ID_Приложение", "ЗаказКлиента", "ЗаказКлиента");  
					
		Возврат1С ТЗ;

	Конецпечатную версиюЕсли;

Конецпечатную версиюФункции

2. ПолучитьТаблицуИспользуемыхВидовДокументов()

Функция ПолучитьТаблицуИспользуемыхВидовДокументов(Параметры)

	Если ТипЗнч(Параметры) = Тип("Структура") И Параметры.Свойство("Результат_ИМ") Тогда  
		
		ТЗ  = Параметры.Результат_ИМ;
		ОсновнойМодуль.ЭДО_Служебные_ДобавитьСтрокуВТаблицуЗначений(ТЗ, "ID_Приложение", "Приложение", "Nonformalized", "");   

		Возврат1С ТЗ;

	Конецпечатную версиюЕсли;

Конецпечатную версиюФункции

3.ПолучитьТекстЗапросаДляСпискаПакетовНаОтправкуПоМассивуВидовПакетов()

Функция ПолучитьТекстЗапросаДляСпискаПакетовНаОтправкуПоМассивуВидовПакетов(Параметры)

	Если ТипЗнч(Параметры) = Тип("Структура") И Параметры.Свойство("Результат_ИМ") Тогда 
				
		Если Параметры.МассивВидовПакетов.Найти("ID_Приложение") <> Неопределено Тогда
		
			ОписаниеВидаПакета = ОсновнойМодуль.ЭДО_СправочникМенеджер_ПолучитьЭлемент("ВидыПакетов", "ID_Приложение");
			     
			Параметры.ПараметрыЗапроса.Вставить("ВидПакетаID_ID_Приложение","ID_Приложение");
			
			Если Параметры.МассивВидовПакетов.Количество() = 1 Тогда
				Результат = ТекстЗапроса_Приложение(ОписаниеВидаПакета);   
				Результат = "ВЫБРАТЬ РАЗРЕШЕННЫЕ" + Сред(Результат, СтрДлина("ВЫБРАТЬ") + 1);
				Результат = ТекстЗапроса_ВременныеТаблицыДляСпискаПакетовНаОтправку_1С() + "
							|;
							|
							|//////////////////////////
							|" + Результат + "
							|УПОРЯДОЧИТЬ ПО
							|	ДатаДокумента, НомерДокумента";    
				Параметры.Результат_ИМ = Результат;

			Иначе	
				Результат = ДобавитьОбъединениеВТекстЗапроса() + ТекстЗапроса_Приложение(ОписаниеВидаПакета);
				ТекстДляЗамены = "
							|" + Результат + " 
							|
							|УПОРЯДОЧИТЬ ПО 
							|";
				Параметры.Результат_ИМ = СтрЗаменить(Параметры.Результат_ИМ, "УПОРЯДОЧИТЬ ПО" , ТекстДляЗамены); 
			Конецпечатную версиюЕсли;
						
			Возврат1С Параметры.Результат_ИМ;
    	Конецпечатную версиюЕсли;
	Конецпечатную версиюЕсли;

Конецпечатную версиюФункции

В функции ПолучитьТекстЗапросаДляСпискаПакетовНаОтправкуПоМассивуВидовПакетов нужно определить, запрос идет ко всем документам, с которыми мы работ внешние компонентыаем, или только к новому документу. Если ко всем, то запрос просто дописываем в конец основного запроса, а если только к новому документу, то нужно написать весь запрос (со всеми временными таблицами).

Запрос к новому документу

Функция ТекстЗапроса_Приложение(ОписаниеВидаПакета)
	
	ВидПакетаID = ОписаниеВидаПакета.ID;
	
	Результат = 
	"ВЫБРАТЬ
	|	ЗаказКлиента.Ссылка КАК Документ,
	|	ЗаказКлиента.Номер КАК НомерДокумента,
	|	ЗаказКлиента.Дата КАК ДатаДокумента,
	|	ЗаказКлиента.Контрагент КАК Контрагент,
	|	ЗаказКлиента.Организация КАК Организация,
	|	ЗаказКлиента.СуммаДокумента КАК СуммаДокумента,
	|	&ВидПакетаID КАК ВидПакетаID
	|ИЗ
	|	Документ.ЗаказКлиента КАК ЗаказКлиента
	|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТ_КэшКонтрагентовПоВидамПакетов КАК ВТ_КэшКонтрагентовПоВидамПакетов
	|		ПО ЗаказКлиента.Организация = ВТ_КэшКонтрагентовПоВидамПакетов.Организация1С
	|			И ЗаказКлиента.Контрагент = ВТ_КэшКонтрагентовПоВидамПакетов.Контрагент1С
	|			И (ВТ_КэшКонтрагентовПоВидамПакетов.ВидПакетаID = &ВидПакетаID)
	|		ЛЕВОЕ СОЕДИНЕНИЕ ВТ_ОтправленныеДокументы КАК ОтправленныеДокументы
	|		ПО ЗаказКлиента.Ссылка = ОтправленныеДокументы.Документ
	|			И (ОтправленныеДокументы.КатегорияПакета = &КатегорияПакета)
	|ГДЕ
	|	ОтправленныеДокументы.Документ ЕСТЬ NULL
	|	И ЗаказКлиента.Дата МЕЖДУ &НачалоПериода И &Конецпечатную версиюПериода
	|	И НЕ ЗаказКлиента.ПометкаУдаления";

	Результат = СтрЗаменить(Результат, "&ВидПакетаID",	"""" + ВидПакетаID + """");
	
	Результат = ТекстЗапроса_СкорректированныеСвязиДляОтправленныхДокументов(Результат, ОписаниеВидаПакета);
	
	Возврат1С Результат;
	
Конецпечатную версиюФункции

Функция ДобавитьОбъединениеВТекстЗапроса()
	
 
	Возврат1С 		"
					|
					|ОБЪЕДИНИТЬ ВСЕ 
					|
					|";

Конецпечатную версиюФункции

Функция ТекстЗапроса_СкорректированныеСвязиДляОтправленныхДокументов(ТекстЗапроса, ОписаниеВидаПакета)
	
	КатегорияПакета	= ОписаниеВидаПакета.КатегорияПакета;
	ВидПакетаID		= ОписаниеВидаПакета.ID;
	
	ПодстрокаПоиска = "ОтправленныеДокументы.КатегорияПакета = &КатегорияПакета";
	
	Если ОсновнойМодуль.ИспользоватьПодсистемуДиадока() Тогда
		
		Если ЗначениеЗаполнено(КатегорияПакета) Тогда
			ПодстрокаЗамены = "ОтправленныеДокументы.КатегорияПакета = """ + КатегорияПакета + """";
		Иначе
			ПодстрокаЗамены = "ОтправленныеДокументы.ВидПакета = &ВидПакетаID_" + ВидПакетаID;
		Конецпечатную версиюЕсли;
		
	Иначе
		ПодстрокаЗамены = "ИСТИНА";
	Конецпечатную версиюЕсли;

	Результат = СтрЗаменить(ТекстЗапроса, ПодстрокаПоиска, ПодстрокаЗамены);
	
	Возврат1С Результат;
	
Конецпечатную версиюФункции

Если у вас модуль Диадока встроен в конфигурацию, то у вас будут другие временные таблицы. Их можно будет взять из запроса, когда мы добавляем наш запрос к основному запросу.

Временные таблицы

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

4. ПодготовитьПакет()

Функция ПодготовитьПакет(Параметры)

	Если ТипЗнч(Параметры) = Тип("Структура") И Параметры.Свойство("Результат_ИМ") Тогда
		
		Если Параметры.ВидПакетаРазвернутый.ID = "ID_Приложение" Тогда	
			ОсновнойМодуль.ЭДО_ДокументМенеджер_ПодготовитьИДобавитьДокументВПакет(Параметры.Пакет, Параметры.СтрокаСписка.Документ, "ID_Приложение");     
			Возврат1С Истина;
		Конецпечатную версиюЕсли;	

	Конецпечатную версиюЕсли;

Конецпечатную версиюФункции

Далее подключаем модуль и жмем сохран обрабплатформаоткиить

Заходим в настройки организации.

Ставим галочку на новый документ

Там же выбираем нужную печатную форму (желательно, чтобы в печатной форме была одна команда), которую будем отправлять и подписывать

готово

Тестировал:

1С:Комплексная автоматизация 2 (2.4.13.209)
Платформа 1С:Предприятие 8.3 (8.3.19.1467)

Диадок:

Версия модуля: 4.21.2.2018
Версия плагина: 1.4.5.286
Расположение модуля: ВСправочнике
Модуль интеграции: ПМ_УТ_11

Файлы

	Наименование	Файл	Версия	Размер	Кол. Скачив.
	ДиадокПодключаемыйМодуль.epf .epf 7,31Kb 14	.epf		7,31Kb	14	Скачать

Полная версия