Диадок, модуль 1С - заполнение полей с дополнительной информацией

СлужебнаяИнформация = Элемент.СлужебнаяИнформация; // структура с полями "Номенклатура", "Характеристика" и "Упаковка"
Номенклатура = СлужебнаяИнформация.Номенклатура;

Процедура ОбработатьСобытиеПослеЗаполненияКонтента(Параметры)
	
	ТипыКонтента = ТипыКонтента();
	
	СсылкаНаДокумент			 = Параметры.ДокументСсылка;
	Протоконтент				 = Параметры.Content;
	ТипКонтента					 = Параметры.ТипКонтента;
	ПараметрыФормированияФайла	 = Параметры.ПараметрыФормированияФайла;
	
	Если ТипКонтента = ТипыКонтента.Utd820SellerContent Тогда
		
		//ПримерОбработкиУПД820(СсылкаНаДокумент, Протоконтент);
		//-->
		_ОбработатьДляАгавы(СсылкаНаДокумент, Протоконтент);
		//--<
...

Перем ОсновнойМодуль Экспорт;

Процедура УПД_ДобавитьИнфПолФХЖ1(Content, Key, Value)
	
	Если НЕ ЗначениеЗаполнено(Value) Тогда
		Возврат;
	КонецЕсли;
	
	AdditionalInfoId = Content.AdditionalInfoId;
	
	ОсновнойМодуль.ДобавитьИнформационноеПоле(AdditionalInfoId, Key, Value);

КонецПроцедуры

//-->20210516 
Функция _ПолучитьШтрихКод(_номенклатура)
	Если НЕ ЗначениеЗаполнено(_номенклатура) Тогда
		Возврат Неопределено;
	КонецЕсли;
	
	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ
					|	ШтрихкодыНоменклатуры.Штрихкод КАК Штрихкод
					|ИЗ
					|	РегистрСведений.ШтрихкодыНоменклатуры КАК ШтрихкодыНоменклатуры
					|ГДЕ
					|	ШтрихкодыНоменклатуры.Номенклатура = &Номенклатура";
	Запрос.УстановитьПараметр("Номенклатура",_номенклатура);
	Рез = Запрос.Выполнить().Выгрузить();
	Если Рез.Количество()=0 Тогда
		Сообщить("Не указан ШК: ("+_номенклатура.Код+") "+_номенклатура.Наименование,СтатусСообщения.Важное);
	Иначе
		Возврат СокрЛП(Рез[0].Штрихкод);
	КонецЕсли;

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

// Обработка заполнения контента в формате приказа ММВ-7-15/820@.
//
// Параметры:
//  СсылкаНаДокумент - ЛюбаяСсылка	 - ссылка на документ информационной базы;
//  Протоконтент	 - Структура	 - http://1c-pro-docs.diadoc.ru/ru/latest/objects/Utd820SellerContent.html
//
Процедура _ОбработатьДляАгавы(СсылкаНаДокумент, Протоконтент)
			
	_СвойствоGLN = УправлениеСвойствами.НаборСвойствПоИмени("GLN");
	GLN = УправлениеСвойствами.ЗначениеСвойства(СсылкаНаДокумент,_СвойствоGLN);
	Сообщить(""+СсылкаНаДокумент+" GLN:"+GLN);
	
	УПД_ДобавитьИнфПолФХЖ1(Протоконтент, "грузополучатель", Строка(GLN));	
			
	КоллекцияСтрок = Протоконтент.Table.Items;
		
	Для Каждого Элемент Из КоллекцияСтрок Цикл
		
		Номенклатура	 = Справочники.Номенклатура.НайтиПоКоду(Элемент.ItemVendorCode);
		
		ШХ = _ПолучитьШтрихКод(Номенклатура);
		Если НЕ ЗначениеЗаполнено(ШХ) Тогда
			Сообщить("("+Номенклатура.Код+") " + Номенклатура.Наименование + " - не указан ШХ!", СтатусСообщения.Важное);
		КонецЕсли;
		
		Если ЗначениеЗаполнено(ШХ) Тогда
			ОсновнойМодуль.ДобавитьИнформационноеПоле(Элемент, "штрихкод", ШХ);  
		КонецЕсли;		
		
	КонецЦикла;

КонецПроцедуры
//--<

Функция ОбработатьСобытие(ИмяСобытия, Параметры) Экспорт

	Если ИмяСобытия = "ПодготовитьЭлектронныйДокумент" Тогда
		Возврат ПодготовитьЭлектронныйДокумент(Параметры);
	КонецЕсли;
	
КонецФункции


// Обработчики событий подключаемого модуля

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

	// Имя шаблона: Произвольное изменение контента УПД
	Если ТипЗнч(Параметры) = Тип("Структура") И Параметры.Свойство("Результат_ИМ") Тогда
				
		Content		= Параметры.Результат.Content;
		Документ1С 	= Параметры.Результат.Документ1С;

		ВидДокументаРазвернутый = Параметры.ВидДокументаРазвернутый;
		
		ТипКонтента_XDTO = ВидДокументаРазвернутый.ТипКонтента;
		
		Если ВРЕГ(ТипКонтента_XDTO) = ВРЕГ("Utd820SellerContent") Тогда
			
			_ОбработатьДляАгавы(Документ1С, Content);

		КонецЕсли;

		//Возврат Истина;

	КонецЕсли;

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

  
// Общие функции для использования в обработчиках событий



// Методы работы с XDTO



// общие функции подключаемого модуля (БСП и взаимодействие с основным модулем)

Функция СведенияОВнешнейОбработке() Экспорт
	
	ПараметрыРегистрации = Новый Структура;
	ПараметрыРегистрации.Вставить("Вид",			 	"ДополнительнаяОбработка");
	ПараметрыРегистрации.Вставить("Наименование", 		"Диадок (СКБ Контур): Подключаемый модуль");
	ПараметрыРегистрации.Вставить("БезопасныйРежим", 	Ложь);
	ПараметрыРегистрации.Вставить("Версия", 			ЭДО_ВерсияAPIПодключаемогоМодуля());
	ПараметрыРегистрации.Вставить("Информация", 		"Модуль работы с электронными первичными документами через Диадок (подключаемая часть)");
	
	ТаблицаКоманд = ПолучитьТаблицуКоманд();
	
	ДобавитьКоманду(ТаблицаКоманд, "Выполнение регламентных операций подключаемого модуля Диадок", "ВыполнитьРегламентныеДействияПМ", "ВызовСерверногоМетода");
	
	ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);
	
	Возврат ПараметрыРегистрации;
	
КонецФункции

Функция ПолучитьТаблицуКоманд()
	
	Команды = Новый ТаблицаЗначений;
	
	Команды.Колонки.Добавить("Представление", 			Новый ОписаниеТипов("Строка")); 
	Команды.Колонки.Добавить("Идентификатор", 			Новый ОписаниеТипов("Строка"));
	Команды.Колонки.Добавить("Использование", 			Новый ОписаниеТипов("Строка"));
	Команды.Колонки.Добавить("ПоказыватьОповещение", 	Новый ОписаниеТипов("Булево"));
	Команды.Колонки.Добавить("Модификатор", 			Новый ОписаниеТипов("Строка"));
	
	Возврат Команды;
	
КонецФункции

Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")
	
	НоваяКоманда						= ТаблицаКоманд.Добавить();
	НоваяКоманда.Представление			= Представление;
	НоваяКоманда.Идентификатор			= Идентификатор;
	НоваяКоманда.Использование			= Использование;
	НоваяКоманда.ПоказыватьОповещение	= ПоказыватьОповещение;
	НоваяКоманда.Модификатор			= Модификатор;
	
КонецПроцедуры

Процедура ВыполнитьКоманду(ИдентификаторКоманды, ПараметрыВыполненияКоманды = Неопределено) Экспорт
	
	Если ИдентификаторКоманды = "ВыполнитьРегламентныеДействияПМ" Тогда
		ВыполнитьРегламентныеДействияПМ(ПараметрыВыполненияКоманды);
	КонецЕсли;
	
КонецПроцедуры

Процедура ВыполнитьРегламентныеДействияПМ(Параметры)
	// Регламентные действия, НЕ требующие инициализации основного модуля
КонецПроцедуры

Функция ЭДО_ВерсияAPIПодключаемогоМодуля() Экспорт
	
	Возврат 4;
	
КонецФункции

Процедура ЭДО_СлужебнаяИнформацияГенератораШаблона()

	// Данный метод не выполняет кода и содержит только настройки построителя ПМ в момент генерации кода.
	// Предназначен для облегчения анализа изменений реального кода относительно шаблона.
	
	// ВерсияПостроителя: 0.5.6
	//{ Сценарии
	// Произвольное изменение контента УПД
	//} Сценарии

КонецПроцедуры