Форум Администрирование Общие вопросы администрирования (Admin)

Конфигурации 1cv8 Платформа 1С v8.x (все механизмы)

0. inclodes 17 18.10.13 09:04 Сейчас в теме

Запрет запуска нескольких сеансов

Запрет запуска нескольких сеансов
Пользователь запустил несколько сеансов 1с и параллельно формирует отчеты, в результате чего повесил сервак?

Перейти к публикации

Комментарии

Избранное Подписка

1. peterxx 19 18.10.13 11:14 Сейчас в теме

А все ли? Теперь пользователи не могут параллельно формировать много, много разных отчетиков... )

2. inclodes 17 18.10.13 11:22 Сейчас в теме

(1) peterxx, чего-то я совершенно не понял о чём вы.

3. dyak84 18.10.13 13:16 Сейчас в теме

Автор считаю статю не совсем полной а что делать если у пользователя не полные права а работать нужно в 2 сеансах. Давать полные права тогда он может натворить того что не нужно. а что делать если вирубался свет, зайти то в 1С ты тоже не можеш сеанс то висит. Думаю хорошо было б зделать на подобие
ЗапретитьОткрытиеНесколькихСеансов = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ЗапретитьОткрытиеНесколькихСеансов");
Если ЗапретитьОткрытиеНесколькихСеансов Тогда
ТекущийНомерСоединения = НомерСоединенияИнформационнойБазы();
УникальныйИдентификаторПользователя = ПользователиИнформационнойБазы.ТекущийПользователь().УникальныйИдентификатор;

МассивСоединений = ПолучитьСоединенияИнформационнойБазы();
Для Каждого ТекСоединение Из МассивСоединений Цикл
Если (ТекСоединение.ИмяПриложения = "1CV8")
И (НЕ ТекСоединение.НомерСоединения = ТекущийНомерСоединения)
И (НЕ ТекСоединение.Пользователь = неопределено)
И (ТекСоединение.Пользователь.УникальныйИдентификатор = УникальныйИдентификаторПользователя) Тогда

Предупреждение("Пользователем с таким именем уже выполнен вход в систему");
ЗавершитьРаботуСистемы(Ложь);
Возврат;

КонецЕсли;
КонецЦикла;
КонецЕсли;
и завести дополнительное право на работу с несколькими сеансами. И какам то образом проверять время бездействия пользователя.

4. AltF1 21.10.13 08:09 Сейчас в теме

В УПП есть такая настройка пользователя.

5. DrAku1a 1306 23.10.13 03:17 Сейчас в теме

(4) и в УТ и в КА, по-моему эта настройка у 1С уже давно в стандартных решениях. Может даже и в БСП есть. Так что автора можно поздравить - он изобрёл велосипед.

6. DAnry 7 23.10.13 13:18 Сейчас в теме

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

7. Ele1234567 11.04.14 14:36 Сейчас в теме

Нужно будет попробовать.

8. dima_home 111 20.12.16 12:15 Сейчас в теме

Процедуры автора не работают на клиент серверной системе с управляемыми формами.
из-за передачи мутабельных значений.
Переделал
В привилегированном модуле (у нас это "_ПодключениеКом")

Функция ПолучитьСписокАктивныхПользователей() Экспорт
    СписокАктивныхЮзеров=ПолучитьСоединенияИнформационнойБазы();
          //Таблицу значений нельзя использовать, т.к. ее не передать с сервера на клиент
	МассивПользователей =новый Массив();
    для Каждого ЭлементМассива из СписокАктивныхЮзеров Цикл
		если ЛЕВ(ЭлементМассива.ИмяПриложения,4)="1CV8" тогда
			МассивПользователей.Добавить(Новый Структура("Пользователь,ИмяКомпьютера",ВРег(СокрЛП(ЭлементМассива.Пользователь.Имя)),ВРег(СокрЛП(ЭлементМассива.ИмяКомпьютера))));
        КонецЕсли;
    КонецЦикла;
    Возврат МассивПользователей;
КонецФункции

Показать

В модуле управляемого приложения:

&НаКлиенте
Процедура ПриНачалеРаботыСистемы()

 	//Если Не РольДоступна("ПолныеПрава") Тогда  //на клиенте нельзя так проверять роль.
        НеРазрешатьПодключение=Ложь;
        ИмяКомпа=ВРег(ИмяКомпьютера());  //тут автор забыл сделать верхний регистр
        АктивныеПользователи=_ПодключениеКом.ПолучитьСписокАктивныхПользователей();
        мЮзер=ВРег(СокрЛП(УправлениеПользователями.ПолучитьТекущегоПользователя()));  //Это у нас так пользователя получаем.
        //мЮзер=ВРег(СокрЛП(ПараметрыСеанса.ТекущийПользователь.Код)); //так возможно у вас надо получить.

        КолСеанс=0;
		Для ННН = 0 ПО АктивныеПользователи.ВГраница() Цикл
            Если АктивныеПользователи[ННН].Пользователь=мЮзер Тогда
                Если АктивныеПользователи[ННН].ИмяКомпьютера=ИмяКомпа Тогда
                    КолСеанс=КолСеанс+1;
                    Если КолСеанс=2 Тогда
                        Предупреждение("Под пользователем "+АктивныеПользователи[ННН].Пользователь+" на компьютере "+АктивныеПользователи[ННН].ИмяКомпьютера+" уже имеется соединение."+Символы.ПС+"Работа системы будет завершена.",30);  //Модальное окно надо делать всегда с таймаутом.
                        НеРазрешатьПодключение=Истина;
                        Прервать;
                    КонецЕсли;
                КонецЕсли;
            КонецЕсли;
        КонецЦикла;
        Если НеРазрешатьПодключение Тогда
            ЗавершитьРаботуСистемы(Ложь);
        КонецЕсли;
   // КонецЕсли;
КонецПроцедуры
  
//100% рабочее.

Показать

9. kirill_potap 25.04.19 07:40 Сейчас в теме

Ошибка: Метод объекта не обнаружен(ПолучитьСписокАктивныхПользователей) (((

10. nick_e 2 10.06.19 09:29 Сейчас в теме

Может на SQL это как то проще можно сделать?

12. inclodes 17 16.07.19 09:51 Сейчас в теме

(10)

средствами sql?
это вообще возможно?
разве скуль контролирует подключения пользователей?

11. beletskyy 14.06.19 12:48 Сейчас в теме

присоединюсь к вопросу поставленному, есть ли проще варианты?

Оставьте свое сообщение

E-mail:

Новые вопросы с вознаграждением

Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.

Ошибка в отчёте (8) 0.33 $m Dev УТ10	8	сегодня, 17:42 Intercititude
Обмен акцизными марками Frontol 6 - Розница 2.2 (1) 0.2 $m Обмен Розница v8 Розничная и сетевая торговля (FMCG)Акцизы	1	сегодня, 16:18 user811399
Обновить в Perco ключевое поле для синхронизации с 1С (5) 0.5 $m ВК v8	5	сегодня, 13:05 hoyo
Отчет по затратам для УПП (8) 0.14 $m Dev	8	сегодня, 12:23 troshin71
Программное заполнение документа с табличной частью из обработки (12) 0.2 $m Dev	12	вчера, 11:17 katyabelova
Количество застрахованных в РСВ (9) 0.05 $m Зарплата ЗУП3.x	9	27.01.20 Verdad
Маркировка обуви. Из ОФД в ИС МП (Честный знак) не передаются данные по выбытию обуви (тэг 1162) (3) 0.25 $m Dev Розница Маркировка	3	27.01.20 mikhailv

Вакансии

Ведущий программист 1С (с функцией наставничества)
Екатеринбург
зарплата от 100 000 руб.
Полный день

Программист 1С
Санкт-Петербург
зарплата от 80 000 руб. до 120 000 руб.
Полный день

Консультант по 1С:Документооборот
Санкт-Петербург
зарплата от 120 000 руб. до 150 000 руб.
Полный день

Программист по 1С:Бухгалтерии
Санкт-Петербург
зарплата от 120 000 руб. до 150 000 руб.
Полный день

Программист по 1С:ЗУП
Санкт-Петербург
зарплата от 120 000 руб. до 150 000 руб.
Полный день