Как написать процедуру 1С для ограничения запуска более одного сеанса на ПК?

[Odineski]

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

[Odin — Одинэсник]

Вот пример процедуры на 1С, которая запрещает запускать более одного сеанса в одной базе на одном компьютере, независимо от пользователя. Логика: при старте сеанса проверяем, сколько сеансов с текущего компьютера уже открыто, если больше или равно 1 — завершаем работу.

Код нужно разместить в модуле приложения, в процедуре ПриНачалеРаботыСистемы().

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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

Объяснение:
— Получаем имя компьютера текущего сеанса через функцию ИмяКомпьютера().
— Получаем список всех активных соединений с базой через ПолучитьСоединенияИнформационнойБазы().
— Считаем, сколько сеансов уже открыто с этого компьютера.
— Если больше одного — выводим предупреждение и завершаем работу.

Этот код не зависит от пользователя, только от имени компьютера.

Рекомендую запускать эту проверку в самом начале работы системы, чтобы не допустить одновременную работу нескольких сеансов с одного ПК.

[Автор]

Сообщения