ЕстьПодключениеККорреспонденту (БСП)

Есть подключение корреспонденту.

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

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

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

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