Закрытие незавершенных сеансов

31.10.19

Разработка - Инструментарий разработчика

Как удалять потерянные сеансы пользователей, чтобы они не мешали работе. Обработка протестирована на платформе версии 8.3.13.1644.

Скачать исходный код

Наименование Файл Версия Размер
УдалитьПотерянныеСеансы
.epf 20,07Kb
175
.epf 20,07Kb 175 Скачать

Время от времени у меня возникает ощущение, что с какой-то проблемой никто, кроме меня, не сталкивался. То ли остальные не считают это проблемой и не видят смысла обсуждать, то ли секретную инструкцию вовремя прочитали и тем более молчат. В общем, никого вокруг проблема не беспокоит, хотя надо бы. А мне и спросить не у кого.

Именно такая ситуация возникла, когда я несколько лет назад занялся администрированием серверов 1С. А конкретно проблема заключалась в потерянных сеансах пользователей, мешающих обслуживать базы на сервере. Коллеги в таком случае просто открывали консоль администрирования и жали мышкой на красный крестик, да и то лишь когда им позвонят и попросят удалить сеансы.

Меня такой подход совершенно не устраивал, тем более что приближались новогодние каникулы. Бухгалтера, как водится, собирались ударно поработать чуть ли не со 2 января, а я вовсе не горел желанием чего-то там удалять мышкой по крестику, отвлекаясь от личных дел.

Средства, предусмотренные на этот случай разработчиками платформы (Конфигуратор – Администрирование – Параметры ИБ – Время засыпания пассивного сеанса, Время завершения спящего сеанса), почему-то работали как хотели и не гарантировали результат. Возможно, они до сих пор точно так же халтурят. Давно не проверял за ненадобностью.

Когда я стал искать в интернете готовый рецепт, довольно легко нашел, как удалять соединения, но не сеансы. Недоумение переросло в беспокойство. У меня-то проблем с соединениями не было, у меня проблема с сеансами! У меня что, платформа какая-то не такая, как у всех?

Но все же через синтакс-помощник и путем экспериментов решение было найдено достаточно быстро. Первый вариант внешней обработки был готов к нужному моменту, и результат стоил того. С тех пор накопился реальный опыт применения, обработка неспешно обросла опциями и в своем нынешнем виде прикреплена к этой статье. А здесь хотелось бы поговорить о том, как этим средством пользоваться.

 

Окно обработки с параметрами по умолчанию

Алгоритм удаления

Алгоритм, предлагаемый платформой 1С для получения сведений о сеансах, а заодно и удаления, в схематичном виде выглядит так:

Процедура ОбходКластеров(Сервер1С, База, АдминКластера = "", ПарольАдминКластера = "")

	// Все аргументы - тип Строка
	
	Коннектор = Новый COMОбъект("v83.COMConnector");
	Исключение ...
	
	Агент = Коннектор.ConnectAgent(Сервер1С);
	Исключение ...
	
	Кластеры = Агент.GetClusters();
	
	Для каждого Кластер из Кластеры Цикл
		
		Агент.Authenticate(Кластер, АдминКластера, ПарольАдминКластера);
		Исключение ...
		
		Сеансы(Агент, Кластер, База);
		
	КонецЦикла;
	
КонецПроцедуры // ОбходКластеров()

Процедура Сеансы(Агент, Кластер, База)
	
	Сеансы = Агент.GetSessions(Кластер);
	
	Для каждого Сеанс из Сеансы Цикл
		
		Если Сеанс.InfoBase.Name = База Тогда
			
			Агент.TerminateSession(Кластер, Сеанс);
			Исключение ...
			
		КонецЕсли;
		
	КонецЦикла;
	
КонецПроцедуры // Сеансы()

Здесь АдминКластера и ПарольАдминКластера – это логин и пароль администратора кластера серверов 1С. На практике их обычно можно не задавать. Значения по умолчанию – пустая строка.

Посмотрите еще раз на процедуру Сеансы(). В свойствах объекта Сеанс содержится все, что нужно, чтобы отличить одни сеансы от других. Ну, кроме того, чего в платформе все равно нет. А нет там хоть какого-то признака потерянных сеансов.

С остальным все просто. Например, на вопрос, каким приложением создан сеанс, отвечает свойство Сеанс.AppID. Оно может иметь значения: "1CV8" – толстый клиент, "1CV8C" – тонкий клиент, "WebClient" – веб-клиент, "Designer" – конфигуратор, "BackgroundJob" – фоновое задание.

Примерно так же можно узнать имя информационной базы (Сеанс.InfoBase.Name), имя пользователя (Сеанс.UserName), имя компьютера (Сеанс.Host), время создания сеанса (Сеанс.StartedAt), время последней активности (Сеанс.LastActiveAt) и является ли сеанс заснувшим (Сеанс.Hibernate).

Есть еще свойства, значения которых сообщаются только для толстого клиента, конфигуратора и фонового задания. Это номер процесса (Сеанс.Process.PID) и номер соединения (Сеанс.Connection.ConnID). Учитывая все большее распространение тонкого клиента, эти сведения приходится признать бесполезными. Скорее всего, таким способом вам не удастся выяснить связь конкретного процесса rphost.exe с какой-либо базой. Кстати, в консоли администрирования мы наблюдаем ту же картину.

А еще жаль, что в длинном списке свойств нет явного указания на тот самый сеанс, в котором работает наша программа. Ведь его ни в коем случае нельзя удалять. Значит, придется самим организовать паспортный контроль. Например, вот так:

СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();
СтрокаСоединения = СтрЗаменить(СтрокаСоединения, ";", Символы.ПС);
ФлагСерверныйРежим = (Найти(Врег(СтрокаСоединения), "SRVR=") = 1);

Если ФлагСерверныйРежим Тогда
	
	// Имя базы содержится в подстроке Ref="имя_базы" внутри СтрокаСоединения
	// Далее имя базы будет в переменной ТекущийСеанс_ИмяИБ
	...
КонецЕсли;

...

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

...
			
ЭтоТекущийСеанс = 
	Сеанс.InfoBase.Name = ТекущийСеанс_ИмяИБ
	И (Сеанс.UserName = ТекущийСеанс.Пользователь
		ИЛИ (Сеанс.UserName = "DefUser" И Строка(ТекущийСеанс.Пользователь) = ""))
	И Сеанс.Host = ТекущийСеанс.ИмяКомпьютера
	И Сеанс.SessionID = ТекущийСеанс.НомерСеанса
	И Сеанс.StartedAt = ТекущийСеанс.НачалоСеанса
	И Сеанс.AppID = ТекущийСеанс.ИмяПриложения;

У объекта ТекущийСеанс есть еще свойство НомерСоединения, но надежность этого признака может зависеть от того, когда объекту присваивается значение – в начале работы или непосредственно перед проверкой. Ну, и замечание, сделанное выше, тоже надо иметь в виду.

Впрочем, даже показанный здесь набор условий выглядит избыточным. Наверняка хватило бы имени базы и номера сеанса, ведь остальные свойства – по сути атрибуты сочетания база + сеанс. Но, сдается мне, лучше воздержаться от такой оптимизации. Никто ведь не гарантировал корректность паспортных данных у потерянных сеансов и невозможность случайных совпадений.

Лучше обратите внимание на то, что проверка имени пользователя должна учитывать подвох, возникающий, например, при работе с пустой базой или при запуске фоновых заданий в отсутствие активных пользователей.

Ну, а если кому-то необходимо посмотреть или удалить соединения, то вместо процедуры Сеансы() нужно вызвать процедуру Соединения(), показанную ниже, но тогда еще потребуются логин и пароль администратора информационной базы:

Процедура Соединения(Сервер1С, Коннектор, Агент, Кластер, База, 
	АдминКластера, ПарольАдминКластера, АдминИБ, ПарольАдминИБ)
	
	Процессы = Агент.GetWorkingProcesses(Кластер);
	
	Для каждого Процесс из Процессы Цикл
		
		Порт = Процесс.MainPort;
		
		РабПроц = Коннектор.ConnectWorkingProcess(Сервер1С + ":" + Порт);
		Исключение ...
		
		РабПроц.AuthenticateAdmin(АдминКластера, ПарольАдминКластера);
		Исключение ...
		
		РабПроц.AddAuthentication(АдминИБ, ПарольАдминИБ);
		Исключение ...
		
		ИнформационнаяБаза = РабПроц.CreateInfoBaseInfo();
		
		ИнформационнаяБаза.Name = База;
		
		СоединенияБазы = РабПроц.GetInfoBaseConnections(ИнформационнаяБаза);
		Исключение ...
		
		Для Каждого Соединение Из СоединенияБазы Цикл 
			
			РабПроц.Disconnect(Соединение);
			Исключение ...
			
		КонецЦикла;
		
	КонецЦикла;
	
КонецПроцедуры // Соединения()

Разбирая весьма неочевидную последовательность действий, описанную в этой процедуре, можно догадаться, почему в свое время на каком-то форуме нашлась подсказка именно насчет соединений. Для прохождения этого квеста нужен опытный проводник, а с сеансами можно и самому разобраться.

Впрочем, для меня до сих пор остается загадкой, зачем кому-то может потребоваться удалять соединения. Они и сами исправно отваливаются. Лично мне они никогда не мешали.

К тому же, сеанс может быть без соединения, если не нуждается в нем в данный момент. Если сеанс не обращается к кластеру (то есть пользователь бездействует), соединение ему не назначается. Так что для нас объект охоты – сеансы, а не соединения.

Объект охоты

Ну так вот, что, собственно, мы собираемся удалять, если у сеансов нет никакого специально предусмотренного флажка вроде ЭтоПотерянный? Как отличить хороших от плохих?

А никак. Нет ведь флажка. Это и есть правильный ответ. Но меня он совершенно не устраивал.

Поэтому моя обработка удаляет сеансы, которые выглядят потерянными. Первый кандидат на это звание – заснувшие сеансы, созданные тонким или толстым клиентом. Просто с другими клиентами я до сих пор не сталкивался, так что пусть пока будет так.

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

И вот тут возникает пара совершенно справедливых вопросов.

Во-первых, как быть с сеансами, заснувшими во время перерыва на обед? Пользователи будут несколько удивлены, вернувшись к рабочим местам. В конце концов им просто надоест каждый день читать сообщения про сеансы, удаленные за ненадобностью.

А во-вторых, как быть с сеансами, которым не спится? Как ни заглянешь в консоль, у них последняя активность вот только что была. Звонишь пользователю – нет никого. Пингуешь компьютер – опять никого. А сеанс все трудится, занят непонятно чем.

В ответ обработка обзавелась парой самых важных опций.

Во-первых, предусмотрен период бездействия, то есть время, в течение которого автоматическое удаление не выполняется. Границы периода задаются с учетом обстоятельств.

Например, если у вас лицензия на 50 подключений, в консоли стабильно наблюдаются 45-48 реальных сеансов, а денег на еще одну лицензию не дают, значит бездействуем только в обед и немного до и после него. Здесь главная задача – обеспечить резерв подключений, чему пользователи будут только рады. Их гораздо больше раздражает невозможность подключиться к базе, когда очень надо.

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

А если за вашими пользователями замечена склонность работать с утра до ночи, а вам все-таки надо когда-то бэкапить базы, закрывайте интервал с шести утра до трех ночи. С трех до шести спят все, вот тогда и бэкапьте. А кто не спит – пусть получают окошки с сообщениями.

Кроме того, параметр «Время засыпания пассивного сеанса» все-таки чаще работает, чем не работает. Можно увеличить его с традиционных 20 минут до часа, и это сильно сократит количество жалоб.

Вторая важная опция – возможность удалять сеансы, созданные вчера или еще раньше, но не позднее заданного количества часов назад. Последнее условие позволяет не обрушивать ровно в полночь всю работу. По умолчанию задано 12 часов в расчете на тех, кто приступил к работе после обеда.

Не стоит легкомысленно относиться к этому параметру. Мало ли кто засиделся за компом, нервно смотрит на часы и хочет домой. Кофе давно допит, отчетность вот-вот будет сдана, а тут бац – и карета превращается в тыкву. Тут уж не сомневайтесь – утром придет злая мачеха, и вы узнаете о себе много такого, о чем, в принципе, догадывались.

Необходимо сделать важное замечание, связанное с сеансом самой обработки. Очевидно, что ее выполнение не должно зависеть от пользователей. Самый простой способ добиться этого – специально создать пустую базу и запускать обработку поверх нее. Разумеется, в этом случае база с обработкой займет лишний сеанс.

Сеанс, в котором запущена сама обработка, игнорируется. Но тут есть пара нюансов. С одной стороны, ничто не мешает запускать несколько экземпляров обработки с разными настройками, причем каждый в своем сеансе. С другой стороны, при перезапуске сервера сеанс базы с обработкой может восстановиться, но стать недоступным для управления, то есть по сути потерянным.

Из этих и не только этих соображений предусмотрена возможность указывать базы, исключенные из проверки, а для быстрого заполнения списков добавлены галочки «Проверять все базы» и «кроме этой базы». По умолчанию база с обработкой игнорируется.

Со временем появилась еще пара опций, требующихся редко, даже очень редко, но иногда полезных.

Во-первых, иногда коллеги-админы забывают закрыть конфигуратор после обслуживания базы на сервере. Пришлось предусмотреть возможность удалять такие сеансы. Но это только возможность, а вовсе не обязанность!

Только не забудьте, что если вы решили с помощью обработки расчищать дорогу для бэкапа, а бэкап баз 1С делаете запуском конфигуратора из командной строки, то придется как-то развести по времени удаление чужих сеансов конфигуратора и запуск своих. Тут период бездействия будет как раз кстати.

Ну, а во-вторых, один раз за свою не слишком долгую практику я наблюдал потерянные сеансы фоновых заданий. Уж не помню, что там за катаклизм приключился, но сеансы дружно повисли в консоли. Ладно, пусть будет и такая галочка. Опять же только возможность, а не обязанность.

Поскольку здесь обсуждались индивидуальные настройки процесса удаления для каждого конкретного сервера, возникает вопрос, не обзавелась ли моя обработка, как любая уважающая себя программа, файлом конфигурации? Да, есть такой. Назовем его файлом параметров, чтобы не путаться в терминах. Но об этом ниже.

Quick start

В командной строке приложений 1С предусмотрены два очень полезных ключика. Ну, не считая других, разумеется. Это /Execute и /C.

Благодаря им установка и первый запуск моей обработки на сервере выглядят так:

1. Копирую на сервер комплект файлов:

собственно обработка

v8i-файл для ее запуска

файл параметров

cmd-файл для регистрации библиотеки comcntr.dll

2. Создаю пустую базу. Пусть будет emptybase, к примеру.

3. Регистрирую на сервере библиотеку comcntr.dll, если это до сих пор еще не сделано.

4. В меню стартера 1С добавляю готовый v8i-файл запуска базы с обработкой, хотя это можно и не делать.

5. И запускаю.

Где взять файл обработки, сказано в конце статьи.

Файл для регистрации comcntr.dll сделан из файла RegMSC.cmd. В нем просто заменено имя библиотеки. Ну, и запускать его надо в подкаталоге bin каталога нужной версии платформы.

Файл для запуска базы с обработкой выглядит примерно так:

[Удалить потерянные сеансы]
Connect=Srvr="SRVR";Ref="emptybase";
ID=db847d2c-c326-4ece-bc72-0a19833a02dd
OrderInList=6359
Folder=/
OrderInTree=393472
External=0
ClientConnectionSpeed=Normal
App=Auto
WA=1
Version=8.3
AdditionalParameters=/executeD:\EPF\УдалитьПотерянныеСеансы.epf /CD:\EPF\setup.txt

Уверен, вы знаете, как им пользоваться. Самое интересное написано в последней строке.

Ну и наконец, файл параметров. Здесь он называется setup.txt. Одновременно он служит руководством по написанию таких файлов. Вот реальный пример:

// Сервер1С = "SRVR"

ИнтервалПовтора = 10

ФлагУдалитьВчерашние = Да
СозданНеМенее = 16

ПериодБездействияНачало = 5:00
ПериодБездействияКонец = 2:50

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

// Формат строки файла параметров:

// ИмяРеквизита = значение

// Значения типа Булево: 1, ДА, ИСТИНА (в любом регистре) - Истина; 
// 0, НЕТ, ЛОЖЬ (в любом регистре) - Ложь

// Значения типа Время: ожидаются форматы ЧЧ:ММ:СС, Ч:ММ:СС, ЧЧ:ММ, Ч:ММ

// Пробелы и символы табуляции в начале и конце строки, а также прилегающие к 
// знаку "=", игнорируются

// Строки, начинающиеся не с имени реквизита или не содержащие знак "=" после 
// имени реквизита, игнорируются, поэтому любая такая строка может быть 
// комментарием

// Строки, содержащие некорректные значения (не соответствуют типу, не входят в 
// допустимый диапазон, записаны с нарушением формата), игнорируются

// Строки, начинающиеся с имен реквизитов, не включенных в список, фактически 
// игнорируются, так как инициализация этих реквизитов происходит после чтения 
// файла параметров

// Имена и типы значений реквизитов

// Сервер1С, Строка - Сервер 1С:Предприятие
// СписокБаз, Строка - Информационные базы
// ИсключитьБазы, Строка - Базы, исключенные из проверки

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

// ФлагЭтотСервер, Булево - Сервер с базой, с которой запущена эта обработка
// ФлагВсеБазы, Булево - Проверять все базы, кроме исключенных
// ФлагИсключитьЭтуБазу, Булево - Исключить только базу, с которой запущена эта 
// обработка
// ФлагСократитьОтчет, Булево - Сократить отчет

// ФлагПовторять, Булево - Автоматически повторять операцию
// ИнтервалПовтора, Число, 2, 0, Неотрицательное - Интервал повтора (минут)

// ФлагПериодБездействия, Булево - Задан период бездействия
// ПериодБездействияНачало, Время - Начало периода бездействия
// ПериодБездействияКонец, Время - Конец периода бездействия

// ФлагУдалитьВчерашние, Булево - Удалить вчерашние сеансы
// СозданНеМенее, Число, 2, 0, Неотрицательное - Сеанс создан не позднее (часов 
// назад)

// ФлагКонфигуратор, Булево - Удалить сеансы конфигуратора
// ФлагФоновые, Булево - Удалить сеансы фоновых заданий

// АдминКластера, Строка - Администратор кластера серверов 1С
// ПарольАдминКластера, Строка - Пароль администратора кластера серверов 1С

Поскольку я в основном работаю в среде Windows, файл сделан в Блокноте в кодировке ANSI. Кто работает в Linux, надеюсь, разберется сам, как тут быть.

Желаю успеха! Мне этот инструмент реально помогает каждый день в течение нескольких лет.

обработка сеансы сервер пользователи администрирование

См. также

Infostart Toolkit: Инструменты разработчика 1С 8.3 на управляемых формах

Инструментарий разработчика Роли и права Запросы СКД Программист Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Конфигурации 1cv8 Платные (руб)

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

10000 руб.

02.09.2020    130610    704    390    

756

Infostart PrintWizard - создание и редактирование печатных форм в 1С 8.3

Пакетная печать Печатные формы Инструментарий разработчика Программист Платформа 1С v8.3 Запросы 1С:Зарплата и кадры бюджетного учреждения 1С:Конвертация данных 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Платные (руб)

Инструмент, позволяющий абсолютно по-новому взглянуть на процесс разработки печатных форм. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и "прозрачность" разработки, а также навести порядок в многообразии корпоративных печатных форм.

18000 руб.

06.10.2023    9212    27    6    

49

Infostart УДиФ: Управление данными и формами 1С

Инструменты администратора БД Инструментарий разработчика Роли и права Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.

10000 руб.

10.11.2023    5351    14    2    

39

SALE! %

PowerTools

Инструментарий разработчика Инструменты администратора БД Системный администратор Программист Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

3600 2880 руб.

14.01.2013    179859    1094    0    

868

OneDebugger - инструмент для отладки кода без использования режима конфигуратора

Инструментарий разработчика Программист Платформа 1С v8.3 Платные (руб)

Инструмент для написания и отладки кода в режиме «1С:Предприятие». Представляет собой консоль кода с возможностью пошаговой отладки, просмотра значений переменных любых типов, использования процедур и функций, просмотра стека вызовов, вычисления произвольных выражений на встроенном языке в контексте точки останова, синтаксического контроля и остановки по ошибке. В консоли используется удобный редактор кода с подсветкой, контекстной подсказкой, возможностью вызова конструкторов запроса и форматной строки.

5400 руб.

17.05.2024    5881    10    12    

37

Бустер Конвертации данных 3 (Infostart Toolkit)

Инструментарий разработчика Программист 8.3.14 1С:Конвертация данных Россия Платные (руб)

Расширение для конфигурации “Конвертация данных 3”. Добавляет подсветку синтаксиса, детальную контекстную подсказку, глобальный поиск по коду.

15000 руб.

07.10.2021    15416    3    12    

38

Многопоточность. Универсальный «Менеджер потоков» 2.1

Инструментарий разработчика Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Восстановление партий или взаиморасчетов, расчет зарплаты, пакетное формирование документов или отчетов - теперь все это стало доступнее. * Есть желание повысить скорость работы медленных алгоритмов! Но... * Нет времени думать о реализации многопоточности? * о запуске и остановке потоков? * о поддержании потоков в рабочем состоянии? * о передаче данных в потоки и как получить ответ из потока? * об организации последовательности? Тогда ЭТО - то что надо!!!

5000 руб.

07.02.2018    100322    240    97    

299

1С HTML Шаблоны / HTML Templates

Инструментарий разработчика Программист Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Быстрая и удобная обработка для работы с шаблонами HTML. Позволяет легко и быстро формировать код HTML.

2040 руб.

27.12.2017    28701    4    10    

17
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Maxx2008 26.09.19 15:13 Сейчас в теме
Сделал подобное при запуске 1с в режиме предприятия. У 90 процентов пользователей разрешён только один сеанс, поэтому при запуске чистим все, кроме текущего. У остальных пользователе могут быть одновременно запущено два-три сеанса: выгрузки/загрузки, большие отчёты, закрытия месяца и т.д. Плюсы: не зависших сеансов), минусы - чуть дольше загружается 1С, но люди предупреждены и относятся с пониманием)
У начальства механизм отключен, но это буквально три человека.
Есть в проекте фиксировать новый сеанс и старые чистить в фоне.
AnatolPopov; +1 Ответить
3. hollyfood 04.10.19 12:57 Сейчас в теме
(1) Подскажите, пожалуйста, каким способом реализовали запрещение пользователям открывать еще один сеанс к той же БД?
4. AnatolPopov 169 04.10.19 13:18 Сейчас в теме
5. Maxx2008 14.10.19 16:22 Сейчас в теме
(3)В процедуре ПриНачалеРаботыСистемы был добавлен кусок кода, например для пользователей, которым можно до двух сеансов:

//можно до двух сеансов
		КолвоСеансов =0;
		ТекНомерСоединения = НомерСоединенияИнформационнойБазы();
		УИДПользюка = ПользователиИнформационнойБазы.ТекущийПользователь().УникальныйИдентификатор;
		МассивСоединений = ПолучитьСоединенияИнформационнойБазы();
		Для Каждого ТекСоединение Из МассивСоединений Цикл
			Если (ТекСоединение.ИмяПриложения = "1CV8") И (НЕ ТекСоединение.НомерСоединения = ТекНомерСоединения) И (НЕ ТекСоединение.Пользователь = Неопределено) И (ТекСоединение.Пользователь.УникальныйИдентификатор = УИДПользюка) Тогда
				КолвоСеансов=КолвоСеансов+1;;
			КонецЕсли;
		КонецЦикла;
		Если КолвоСеансов > 2 тогда
			Предупреждение("У Вас уже открыто два сеанса!",3);
			ЗавершитьРаботуСистемы(Ложь);
		КонецЕсли;
		Возврат;
Показать


Тут интересны два момента:
1) НомерСоединенияИнформационнойБазы() - Получает номер текущего соединения с информационной базой.
2) ПолучитьСоединенияИнформационнойБазы() - Получает массив описаний соединений с текущей информационной базой.

И всё, третий сеанс им не даёт открыть.

У нас ещё есть пользователи, которым можно любое количество сеансов.
Всем остальным было сделано при открытии нового сеанса просто сбрасывали все ранние. Так решилась проблема зависших сеансов, когда пользователи не могли зайти в документ, который они открывали зависшими сеансами.

Топорно, но работает)
volodya82; AnatolPopov; +2 Ответить
2. AnatolPopov 169 26.09.19 16:06 Сейчас в теме
Это у вас в самописной конфигурации реализовано или к типовым что-то пристроили?
6. Maxx2008 14.10.19 16:25 Сейчас в теме
(2) Много лет назад она была типовой)))
7. vasilev2015 2710 24.12.19 13:34 Сейчас в теме
Здравствуйте, Анатолий !

Подскажите, насколько большая конфигурация ?

Там есть лишние объекты ?
8. AnatolPopov 169 24.12.19 13:54 Сейчас в теме
(7) Это маленькая внешняя обработка. Никаких объектов ни в какой базе не создает, обходится реквизитами формы.
9. __guest__ 06.05.21 14:17 Сейчас в теме
Здравствуйте. Скачал обработку, тестирую, вроде работает. Такой вопрос. Можно ли как-то ее изменить так чтобы был функционал:
1. Подключение одновременно к нескольким экземплярам серверов 1С:Предприятия
2. Чтобы была опция просто удаления всех сеансов с указанных серверов 1С:Предприятия, вне зависимости от того, считает обработка их потерянными или нет.
10. AnatolPopov 169 06.05.21 16:16 Сейчас в теме
(9)
1. Несколько серверов - в смысле, чтобы в поле Сервер можно было задать список через запятую или еще как, а все остальное было как прежде?
Можно подумать. Гораздо лучшая идея - взять мой код, посмотреть на него критически, сказать "ну, кто ж так пишет" и сделать свой, гораздо более правильный ;) А потом опубликовать на Инфостарте и не забыть сказать в начале статьи, кто вдохновил вас на подвиг ;)
Тем более, что вы лучше знаете, чего хотите. Здесь много разработок именно так и возникли.
2. Удаление всех сеансов не глядя - как раз то, что мне предлагали сделать с самого начала в качестве единственной функции. Я тогда сказал, что с ума еще не сошел ;)
Наверно, это все же полезная опция. Может, даже полезнее, чем некоторые из имеющихся. Просто я всегда руководствовался принципом "не навреди" ;)
11. пользователь 12.05.21 08:36
Сообщение было скрыто модератором.
...
12. пользователь 12.05.21 08:38
Сообщение было скрыто модератором.
...
13. __guest__ 12.05.21 08:39 Сейчас в теме
(10)
Несколько серверов - в смысле, чтобы в поле Сервер можно было задать список через запятую или еще как

Наподобие. Анатолий, если более подробно, нам нужно несколько переделать вашу обработку, чтобы она удаляла зависшие сеансы не только из серверов 1С, но так же из базы контроля сеансов ( база, подключаемая в поле "Внешнее управление сеансами" в свойствах БД в оснастке Администрирование Серверов 1С:Предприяития. Мы за это готовы заплатить. Если интересует - давайте свяжемся и более подробно все обсудим
Skype sanya.admin1 .
14. AnatolPopov 169 12.05.21 13:14 Сейчас в теме
(13) К сожалению, я сейчас не готов взяться за такую работу. В последнее время приходится заниматься другими делами.
Оставьте свое сообщение