Доработка Диадок для 1С. Заполнение графы 5а в УПД (с 01.07.2021). Подключаемый модуль

Функция ОбработатьСобытиеДиадок(ИмяСобытия, Параметры, СтандартнаяОбработкаДиадок = Истина) Экспорт
	
	Если ИмяСобытия = "ПослеЗаполненияКонтента" Тогда    
		
		ОбработатьСобытиеПослеЗаполненияКонтента(Параметры);
		
	ИначеЕсли ИмяСобытия = "ПослеСозданияСчетФактуры" Тогда
		
		//ОбработатьСобытиеПослеСозданияСчетФактуры(Параметры);
		
	ИначеЕсли ИмяСобытия = "ПолучитьНоменклатуру1С" Тогда
		
		//Возврат ОбработатьСобытиеПолучитьНоменклатуру1С(Параметры);
		
	ИначеЕсли ИмяСобытия = "ПослеЗаполненияНовогоДокументаПоступления" Тогда
		
		//ОбработатьСобытиеПослеЗаполненияНовогоДокументаПоступления­(Параметры);
	
	ИначеЕсли ИмяСобытия = "ТорговыеСетиЗаполнитьПараметрыХраненияНомераАкта" Тогда
		
		//Возврат ОбработатьСобытиеТорговыеСетиЗаполнитьПараметрыХраненияНомер­аАкта(Параметры);
		
	ИначеЕсли ИмяСобытия = "ТорговыеСетиПослеПроверкиДокумента" Тогда
		
		//ОбработатьСобытиеТорговыеСетиПослеПроверкиДокумента(Параметры);
		
	ИначеЕсли ИмяСобытия = "ТорговыеСетиПослеСопоставленияДокумента" Тогда
		
		//ОбработатьСобытиеТорговыеСетиПослеСопоставленияДокумента(Параметры);
		
	ИначеЕсли ИмяСобытия = "ТорговыеСетиПослеВыполненияОбработкиДокумента" Тогда
		
		//ОбработатьСобытиеТорговыеСетиПослеВыполненияОбработкиДокум­ента(Параметры);
		
	ИначеЕсли ИмяСобытия = "ПередОтправкойPackageSendTask" Тогда
		
		//ОбработатьСобытиеПередОтправкойPackageSendTask(Параметры);
		
	ИначеЕсли ИмяСобытия = "ПередОбновлениемСпискаДокументовДляСопоставленияСНакладной"­ Тогда
		
		//ОбработатьСобытиеПередОбновлениемСпискаДокументовДляСопост­авленияСНакладной(Параметры);
		
	ИначеЕсли ИмяСобытия = "ДанныеДляКонтента_ТабличнаяЧасть" Тогда
		
		//ОбработатьСобытие_ДанныеДляКонтента_ТабличнаяЧасть(Параметры, СтандартнаяОбработкаДиадок);
		
	ИначеЕсли ИмяСобытия = "ПослеОтправкиДокумента" Тогда
		
		//ОбработатьСобытие_ПослеОтправкиДокумента(Параметры);
		
	ИначеЕсли ИмяСобытия = "ПослеОбновленияСпискаДокументов" Тогда
		
		//ОбработатьСобытие_ПослеОбновленияСпискаДокументов(Параметры);
		
	ИначеЕсли ИмяСобытия = "ПриОткрытииФормы" Тогда
		
		//ОбработатьСобытие_ПриОткрытииФормы(Параметры);
		
	ИначеЕсли ИмяСобытия = "ПодключаемаяКоманда" Тогда
		
		//ОбработатьСобытие_ПодключаемаяКоманда(Параметры);
		
	ИначеЕсли ИмяСобытия = "ПослеПолученияТаблицыДокументовДляОтправки" Тогда
		
		//ОбработатьСобытие_ПослеПолученияТаблицыДокументовДляОтправ­ки(Параметры);
		
	КонецЕсли;
	
КонецФункции


// Позволяет дополнить/изменить контент электронного документа
// перед его отправкой.
//
// Параметры
//  Параметры - Структура - Содержит коллекцию, переданных параметров:
//    * ТипКонтента		 - Строка - идентификатор типа контента (см. ТипыКонтента());
//    * Content			 - Структура - Протоконтент исходящего документа;
//    * ДокументСсылка	 - ЛюбаяСсылка - Ссылка на документ информационной базы, по которому собирается протоконтент;
//    * DocumentType	 - Строка - (Устарел) Позволяет определить тип протоструктуры.
//                                  Параметр сохранен для обратной совместимости с ПМ версии 1.1 или ниже.
//                                  Рекомендуется вместо него ориентироваться на ТипКонтента.
//
Процедура ОбработатьСобытиеПослеЗаполненияКонтента(Параметры)
	
	ТипыКонтента = ТипыКонтента();
	
	СсылкаНаДокумент = Параметры.ДокументСсылка;
	Протоконтент	 = Параметры.Content;
	ТипКонтента		 = Параметры.ТипКонтента;
	
	Если ТипКонтента = ТипыКонтента.Utd820SellerContent Тогда
		
		//ПримерОбработкиУПД820(СсылкаНаДокумент, Протоконтент);
		ДокументыОтгрузки = Протоконтент.DocumentShipments;
		Если ДокументыОтгрузки.Количество() = 1 Тогда
			СтрДокументаОтгрузки = ДокументыОтгрузки[0];
			КоличествоСтрок = Протоконтент.Table.Items.Количество();
			СтрДокументаОтгрузки.Number = " п/п " + ?(КоличествоСтрок=1, "1", "1 - "+КоличествоСтрок) +" № "+ СтрДокументаОтгрузки.Number;
		КонецЕсли;
		
	ИначеЕсли ТипКонтента = ТипыКонтента.UtdSellerContent Тогда
		
		//ПримерОбработкиУПД155(СсылкаНаДокумент, Протоконтент);
		
	ИначеЕсли ТипКонтента = ТипыКонтента.Torg12SellerContent Тогда
		
		//ПримерОбработкиНакладной172(СсылкаНаДокумент, Протоконтент);
		
	ИначеЕсли ТипКонтента = ТипыКонтента.AcceptanceCertificateSellerContent Тогда
		
		//ПримерОбработкиАкта172(СсылкаНаДокумент, Протоконтент);
		
	КонецЕсли;
	
КонецПроцедуры

ТипыКонтента = ТипыКонтента();

	DocumentType 	= Параметры.DocumentType;
	Content 		= Параметры.Content;
	ДокументСсылка 	= Параметры.ДокументСсылка;
	ТипКонтента		 = Параметры.ТипКонтента;
		
	Если ТипКонтента = ТипыКонтента.Utd820SellerContent Тогда
Если Content.Function = "Invoice" ИЛИ Content.Function = "InvoiceAndBasic" Тогда
			
			ДокПодтвОтгр = Новый ТаблицаЗначений;
			ДокПодтвОтгр.Колонки.Добавить("Name");
			ДокПодтвОтгр.Колонки.Добавить("Number");
			ДокПодтвОтгр.Колонки.Добавить("Date");
			Стр = ДокПодтвОтгр.Добавить();
			КоличествоСтрок = Строка(ДокументСсылка.ДокументОснование.Товары.Количество());
			Стр.Number = " п/п " + "1-"+ КоличествоСтрок + " " +"№ "+ ДокументСсылка.ДокументОснование.Номер;
			Стр.Date = ДокументСсылка.ДокументОснование.Дата;
			Стр.Name = "ДокПодтвОтгр";
			Content.DocumentShipments = ДокПодтвОтгр;
			Content.Добавить("DocumentShipments",ДокПодтвОтгр);
		КонецЕсли;