Каталог решений - Уникальность и борьба с висящими сеансами БД 1С

//!!! Для обычного приложения версии 8.2

//Размещать код следует в начало Процедуры ПриНачалеРаботыСистемы модуля обычного приложения.

//Принцип работы - Если возникла ситуация, что произошел несанкционированный сбой в сети и после перезагрузки остается на //сервере висеть сеанс (хотя на самом деле пользователь

//не подключен и сеанс неактивен), то появится диалоговое окно с запросом отключить или нет предыдущий сеанс. 

//ПО ПРОСЬБЕ вставлю фрагмент, кот-ый автоматически определит Имя БД, ИмяСервера

//**********

СтрокаСоединения = СтрокаСоединенияИнформационнойБазы(); 

Если СтрЧислоВхождений(ВРег(СтрокаСоединения), "FILE=") Тогда 

Возврат; 

КонецЕсли; 

СтрДлина = СтрДлина(СтрокаСоединения); 

// Ищем имя сервера
 
СтрокаСервера = ВыделитьПодстрокуСтрокиЗапуска(СтрокаСоединения, "Srvr=");

ИмяБД = ВыделитьПодстрокуСтрокиЗапуска(СтрокаСоединения, "Ref=");

// Если в имени сервера присутствует имя порта, то выделяем его 

РазделительПорта = Найти(СтрокаСервера, ":"); 

Если РазделительПорта > 0 Тогда 

ИмяСервера = Сред(СтрокаСервера, 1, (РазделительПорта - 1)); 

НомерПортаКластера = Сред(СтрокаСервера, (РазделительПорта + 1));
 
Иначе 

ИмяСервера = СтрокаСервера; 

ком = Новый COMОбъект("v81.COMConnector"); 

НомерПортаКластера = ком.RMngrPortDefault; 

КонецЕсли; 
//*******

	

ПользовательИБ = ПользователиИнформационнойБазы.ТекущийПользователь();

ПризнакСеанса = 0;

//для обеспечения невозможности повторного входа пользователя, который уже присутствует в БД

//что делается:

ТекущийНомерСоединения=НомерСоединенияИнформационнойБазы();

УникальныйИдентификаторПользователя=ПользователиИнформационнойБазы.ТекущийПользователь().УникальныйИдентификатор;

ТекущееСоединениеИмяКомпьютера = ИмяКомпьютера();

ServerName = ИмяСервера; //Имя Вашего сервера 1С

connector = новый comОбъект("V82.COMConnector");

AgentConnection = Connector.ConnectAgent(ServerName);

МассивКластеров = AgentConnection.GetClusters();

//определяем кластёр как описание типов

Для каждого Кластер ИЗ МассивКластеров Цикл

	Если (Кластер.HostName = ИмяСервера) и (Кластер.SyncPort=НомерПортаКластера) тогда КластерТекущейБД = Кластер; 
//Думаю, что имя сервера будет совпадать с именем компа :)

	    // Сообщить(Кластер.HostName);

	КонецЕсли;

	Прервать;

КонецЦикла;

//Доступ на просмотр сеансов

AgentConnection.Authenticate(КластерТекущейБД,"Администратор","Пароль");

//Для получения ВСЕХ тек.сеансов для данной БД - для инфо.. потом закомм и заодно БД как описание типов 

МассивСеансов = AgentConnection.GetSessions(КластерТекущейБД);     

Для каждого Сеанс ИЗ МассивСеансов Цикл

	Если (Сеанс.Infobase.Name = ИмяБД) и (Сеанс.UserName = ПользователиИнформационнойБазы.ТекущийПользователь().Имя) тогда 

	     ОписаниеБД = Сеанс.Infobase;

	КонецЕсли;

КонецЦикла;

// Для случаев с висящими сеансами

МассивВсехСессийБД = AgentConnection.GetInfoBaseSessions(КластерТекущейБД,ОписаниеБД);    

Для каждого СессияБД ИЗ МассивВсехСессийБД Цикл

	Если //(СессияБД.Host = ТекущееСоединениеИмяКомпьютера) И //ЭТО ЕСЛИ НАДО ИНИЦИАЛИЗАЦИЯ ПО КОМПУ

	     (СессияБД.UserName = ПользователиИнформационнойБазы.ТекущийПользователь().Имя) И

	     (СессияБД.Connection.Application = "1CV8")

	тогда

	       Если СессияБД.Connection.ConnID <> ТекущийНомерСоединения 

	       тогда

	            Режим = РежимДиалогаВопрос.ДаНет;

	            Текст = "Сеанс данного пользователя активен! " + СессияБД.UserName + 

	                    "| Закрыть предыдущий сеанс? При сбое в сети нажмите <<Да>>";

	            Ответ = Вопрос(Текст,Режим,0);

	            Если Ответ = КодВозвратаДиалога.Да тогда

	                  AgentConnection.TerminateSession(КластерТекущейБД,СессияБД);

	            КонецЕсли;

	            Если Ответ = КодВозвратаДиалога.Нет тогда

	                   ПризнакСеанса = 1;

	                   Предупреждение("Внимание! Активно несколько сеансов для одного пользователя"); 

	            КонецЕсли;

	      КонецЕсли;

	       //если просто висяк,тада безоговорочно закроет на серваке висячий сеанс. проверить

	      Сообщить("НомерСоединения: " + СессияБД.Connection.ConnID + " Номер сеанса: " + СессияБД.SessionID);//Сеансы

	КонецЕсли;

КонецЦикла;

//а если с другого компа под этим ползуном, ЗАКРЫВАТЬ БУДЕТ ГОСТЯ

//Этот фрагмент кода можно не включать, если Вам нужно просто закрыть висящий сеанс.

МассивСоединений=ПолучитьСоединенияИнформационнойБазы();

Для Каждого ТекСоединение Из МассивСоединений Цикл

	Сообщить(ТекСоединение.НомерСоединения);

	Если (ТекСоединение.ИмяПриложения="1CV8")                

	и(НЕ ТекСоединение.НомерСоединения=ТекущийНомерСоединения)

	и(НЕ ТекСоединение.Пользователь=неопределено)        

	и(ТекСоединение.Пользователь.УникальныйИдентификатор=УникальныйИдентификаторПользователя)

	и(ПризнакСеанса = 0)

	//и(НЕ СессияБД.Host = ТекущееСоединениеИмяКомпьютера)

	//и(ТекСоединение.Пользователь.ИмяКомпьютера = ТекущееСоединениеИмяКомпьютера)

	тогда

	    Предупреждение("Пользователь с таким именем уже выполнил вход ! Имя ПК >> " + СессияБД.Host);

	        ЗавершитьРаботуСистемы(Ложь);

	КонецЕсли;    

КонецЦикла;       

По просьбе — И еще добавить в Модуль новую функцию

// Функция выделяет необходимые части из строки запуска 

// 

Функция ВыделитьПодстрокуСтрокиЗапуска(СтрокаЗапуска, КлючПодстроки) Экспорт 

НомерПервогоСимвола = Найти(ВРег(СтрокаЗапуска), ВРег(КлючПодстроки)) + СтрДлина(КлючПодстроки); 

Для Счетчик = НомерПервогоСимвола По СтрДлина(СтрокаЗапуска) Цикл 

   Если Сред(СтрокаЗапуска, Счетчик, 1) = ";" Тогда 

       НомерПоследнегоСимвола = Счетчик - 1; 

       Прервать; 

   КонецЕсли; 

КонецЦикла; 

// Получаем искомую подстроку 

ИскомаяПодстрока = Сред(СтрокаЗапуска, НомерПервогоСимвола, (НомерПоследнегоСимвола - НомерПервогоСимвола + 1)); 

Если Сред(ИскомаяПодстрока, 1, 1) = """" Тогда 

// Если подстрока в кавычках, то выделяем их 

ИскомаяПодстрока = Сред(ИскомаяПодстрока, 2, (СтрДлина(ИскомаяПодстрока) - 2)); 

КонецЕсли; 

Возврат ИскомаяПодстрока;

КонецФункции // ВыделитьПодстроку()