ПеренестиНастройкиТранспортаОбменаСообщениями (БСП)

Перенести настройки транспорта обмена сообщениями. Переносит настройки транспорта обмена сообщениями в новый регистр.

// Переносит настройки транспорта обмена сообщениями в новый регистр.
//
Процедура ПеренестиНастройкиТранспортаОбменаСообщениями() Экспорт
	
	Если ОбщегоНазначения.РазделениеВключено()
		И ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных() Тогда
		Возврат;
	КонецЕсли;
	
	Запрос = Новый Запрос(
	"ВЫБРАТЬ
	|	НастройкиТранспорта.УзелИнформационнойБазы КАК КонечнаяТочка,
	|	НастройкиТранспорта.WSURLВебСервиса КАК АдресВебСервиса,
	|	НастройкиТранспорта.WSИмяПользователя КАК ИмяПользователя,
	|	НастройкиТранспорта.WSЗапомнитьПароль КАК ЗапомнитьПароль
	|ИЗ
	|	РегистрСведений.УдалитьНастройкиТранспортаОбмена КАК НастройкиТранспорта
	|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ПланОбмена.ОбменСообщениями КАК ОбменСообщениями
	|		ПО (ОбменСообщениями.Ссылка = НастройкиТранспорта.УзелИнформационнойБазы)
	|ГДЕ
	|	(ВЫРАЗИТЬ(НастройкиТранспорта.WSURLВебСервиса КАК СТРОКА(100))) <> """"");
	
	ТаблицаНастройки = Запрос.Выполнить().Выгрузить();
	
	НачатьТранзакцию();
	Попытка
		Для Каждого СтрокаНастройки Из ТаблицаНастройки Цикл
			НаборЗаписейНовый = РегистрыСведений.НастройкиТранспортаОбменаСообщениями.СоздатьНаборЗаписей();
			НаборЗаписейНовый.Отбор.КонечнаяТочка.Установить(СтрокаНастройки.КонечнаяТочка);
			
			ЗаписьНастройки = НаборЗаписейНовый.Добавить();
			ЗаполнитьЗначенияСвойств(ЗаписьНастройки, СтрокаНастройки);
			
			НаборЗаписейНовый.Записать(Истина);
			
			МенеджерЗаписиСтарый = РегистрыСведений.УдалитьНастройкиТранспортаОбмена.СоздатьМенеджерЗаписи();
			МенеджерЗаписиСтарый.УзелИнформационнойБазы = СтрокаНастройки.КонечнаяТочка;
			МенеджерЗаписиСтарый.Прочитать();
			
			МенеджерЗаписиСтарый.WSURLВебСервиса   = "";
			МенеджерЗаписиСтарый.WSЗапомнитьПароль = Ложь;
			МенеджерЗаписиСтарый.WSИмяПользователя = "";
			
			МенеджерЗаписиСтарый.Записать(Истина);
		КонецЦикла;
		ЗафиксироватьТранзакцию();
	Исключение
		ОтменитьТранзакцию();
		ВызватьИсключение;
	КонецПопытки;
	
КонецПроцедуры

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

// Переносит настройки транспорта обмена сообщениями в новый регистр.
//
Процедура ПеренестиНастройкиТранспортаОбменаСообщениями() Экспорт
	
	Если ОбщегоНазначения.РазделениеВключено()
		И ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных() Тогда
		Возврат;
	КонецЕсли;
	
	Запрос = Новый Запрос(
	"ВЫБРАТЬ
	|	НастройкиТранспорта.УзелИнформационнойБазы КАК КонечнаяТочка,
	|	НастройкиТранспорта.WSURLВебСервиса КАК АдресВебСервиса,
	|	НастройкиТранспорта.WSИмяПользователя КАК ИмяПользователя,
	|	НастройкиТранспорта.WSЗапомнитьПароль КАК ЗапомнитьПароль
	|ИЗ
	|	РегистрСведений.УдалитьНастройкиТранспортаОбмена КАК НастройкиТранспорта
	|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ПланОбмена.ОбменСообщениями КАК ОбменСообщениями
	|		ПО (ОбменСообщениями.Ссылка = НастройкиТранспорта.УзелИнформационнойБазы)
	|ГДЕ
	|	(ВЫРАЗИТЬ(НастройкиТранспорта.WSURLВебСервиса КАК СТРОКА(100))) <> """"");
	
	ТаблицаНастройки = Запрос.Выполнить().Выгрузить();
	
	НачатьТранзакцию();
	Попытка
		Для Каждого СтрокаНастройки Из ТаблицаНастройки Цикл
			НаборЗаписейНовый = РегистрыСведений.НастройкиТранспортаОбменаСообщениями.СоздатьНаборЗаписей();
			НаборЗаписейНовый.Отбор.КонечнаяТочка.Установить(СтрокаНастройки.КонечнаяТочка);
			
			ЗаписьНастройки = НаборЗаписейНовый.Добавить();
			ЗаполнитьЗначенияСвойств(ЗаписьНастройки, СтрокаНастройки);
			
			НаборЗаписейНовый.Записать(Истина);
			
			МенеджерЗаписиСтарый = РегистрыСведений.УдалитьНастройкиТранспортаОбмена.СоздатьМенеджерЗаписи();
			МенеджерЗаписиСтарый.УзелИнформационнойБазы = СтрокаНастройки.КонечнаяТочка;
			МенеджерЗаписиСтарый.Прочитать();
			
			МенеджерЗаписиСтарый.WSURLВебСервиса   = "";
			МенеджерЗаписиСтарый.WSЗапомнитьПароль = Ложь;
			МенеджерЗаписиСтарый.WSИмяПользователя = "";
			
			МенеджерЗаписиСтарый.Записать(Истина);
		КонецЦикла;
		ЗафиксироватьТранзакцию();
	Исключение
		ОтменитьТранзакцию();
		ВызватьИсключение;
	КонецПопытки;
	
КонецПроцедуры

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