ОбновитьНастройкиXDTOКорреспондента (БСП)

Обновить настройки xdto корреспондента.

Процедура ОбновитьНастройкиXDTOКорреспондента(КомпонентыОбмена) Экспорт
	
	// Проверяем возможность увеличения версии в корреспонденте.
	НомерВерсииКорреспондента  = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(КомпонентыОбмена.УзелКорреспондента, "ВерсияФорматаОбмена");
	МаксимальнаяОбщаяВерсия    = МаксимальнаяОбщаяВерсияФормата(
		ОбменДаннымиПовтИсп.ПолучитьИмяПланаОбмена(КомпонентыОбмена.УзелКорреспондента),
		КомпонентыОбмена.НастройкиXDTOКорреспондента.ПоддерживаемыеВерсии);
	
	Если МаксимальнаяОбщаяВерсия <> НомерВерсииКорреспондента Тогда
		УзелКорреспондентаОбъект = КомпонентыОбмена.УзелКорреспондента.ПолучитьОбъект();
		УзелКорреспондентаОбъект.ВерсияФорматаОбмена = МаксимальнаяОбщаяВерсия;
		УзелКорреспондентаОбъект.Записать();
		ЗаписатьВПротоколВыполнения(КомпонентыОбмена, 
			НСтр("ru = 'Изменен номер версии формата обмена.'"), , Ложь, , , Истина);
	КонецЕсли;
	
	РегистрыСведений.НастройкиОбменаДаннымиXDTO.ОбновитьНастройкиКорреспондента(КомпонентыОбмена.УзелКорреспондента,
		"ПоддерживаемыеОбъекты",
		КомпонентыОбмена.НастройкиXDTOКорреспондента.ПоддерживаемыеОбъекты);
	
КонецПроцедуры

///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////

Процедура ОбновитьНастройкиXDTOКорреспондента(КомпонентыОбмена) Экспорт
	
	// Проверяем возможность увеличения версии в корреспонденте.
	НомерВерсииКорреспондента  = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(КомпонентыОбмена.УзелКорреспондента, "ВерсияФорматаОбмена");
	МаксимальнаяОбщаяВерсия    = МаксимальнаяОбщаяВерсияФормата(
		ОбменДаннымиПовтИсп.ПолучитьИмяПланаОбмена(КомпонентыОбмена.УзелКорреспондента),
		КомпонентыОбмена.НастройкиXDTOКорреспондента.ПоддерживаемыеВерсии);
	
	Если МаксимальнаяОбщаяВерсия <> НомерВерсииКорреспондента Тогда
		УзелКорреспондентаОбъект = КомпонентыОбмена.УзелКорреспондента.ПолучитьОбъект();
		УзелКорреспондентаОбъект.ВерсияФорматаОбмена = МаксимальнаяОбщаяВерсия;
		УзелКорреспондентаОбъект.Записать();
		ЗаписатьВПротоколВыполнения(КомпонентыОбмена, 
			НСтр("ru = 'Изменен номер версии формата обмена.'"), , Ложь, , , Истина);
	КонецЕсли;
	
	РегистрыСведений.НастройкиОбменаДаннымиXDTO.ОбновитьНастройкиКорреспондента(КомпонентыОбмена.УзелКорреспондента,
		"ПоддерживаемыеОбъекты",
		КомпонентыОбмена.НастройкиXDTOКорреспондента.ПоддерживаемыеОбъекты);
	
КонецПроцедуры

///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////