Версия 12.03.2012
В новой версии учтены пожелания, указанные в предыдущей версии, переработан интерфейс.
Основные возможности обработки:
- просматривать список активных пользователей (список отключенных пользователей);
- устанавливать действия не активным пользователям (к примеру сообщение при входе)
- быстрое отключением пользователей в два нажатия
- выбор шаблонов сообщений (если справочник есть в конфигурации)
- создание гибких шаблонов завершения работы
- сохранение настроек
- возможность использования как внешней обработки (с ограниченными возможностями)
- задавать кто не будет отключен для сервисной работы;
- установка монопольного режима (автоматическая установка монопольного режима при выходе всех пользователей)
- выдержка времени не подключения;
- запрет подключения к базе в течении определенного времени;
- отправка сообщений пользователям (3 вида отправки)
- гибкое оповещение о необходимости выхода
- запрет работы пользователей пока конфигурация не совпадает с конфигурацией БД
- не ограниченное количество режим заврешения работы с возможностью написания вставок кода
- отображение информации о пользователях, которые ограничены в подключении к ИБ, а так же оставшееся время ограничения
- гибкая система разрешения входа в ИБ
- возможность быстрого продления ограничения доступа на 5 или 10 — 15 минут
Если конфигурацию не хочется дорабатывать то данную обработку можно запускать как внешнюю. При внешнем запуске обработка использует стандартный механизм блокировки пользователей. Для удобства использования на форму добавлена галочка «Дописать новый код разрешения в параметры запуска». Если данныя галочка установлена, то при установке блокировки код доступа будет дописан в параметры запуска текущей ИБ с сохранением уже установленных параметров запуска.
В случае доработки конфигурации
1. необходимы объекты есть в cf файле, который сделан на базе пустой конфигурации
список необхоимых объектов:
1.1 Справочники
— ШаблоныСообщенийЗавершения
— ШаблоныЗавершенияРаботы
— ВариантыЗавершенияРаботы
1.2 Обработка
— ЗавершениеРаботыПользователейEX2
1.3 Регистр сведений
— ОтключениеПользователейEX
1.4 Перечисление
— ДействияСПользователямиEX
1.5 Модуль обычного приложения
Процедура ПередНачаломРаботыСистемы(Отказ)
//какой то код
СтартПроверкиОтключения(Отказ);
КонецПроцедуры
Процедура ПриЗавершенииРаботыСистемы()
//какой то код
СтопПроверкиОтключения();
КонецПроцедуры
1.6 Общий модуль
— ОтключениеПользователейEX2
2. необходимо заполнить справочник «Варианты завершения работы»
При необходимости можно добавить свои варианты завершения, с необходимым кодом.
Справочник пользователей заменять не нужно, он был добавлен чтобы были правильные ссылки в пустой конфигурации!
Версия 06.09.2011
Пояснения по начальному встраиванию в конфигурацию можно так же смотреть тут http://store-1c.blogspot.com/2011/03/1_27.html (если что то не получается 
)
Основные возможности обработки:
- просматривать список активных пользователей;
- задавать кто не будет отключен для сервисной работы;
- возможность быстрого отключения;
- установка монопольного режима;
- выдержка времени не подключения;
- запрет подключения к базе в течении определенного времени;
- отключение не всех пользователей.
- отправка сообщений пользователям
- гибкое оповещение о необходимости выхода
- 4 режима завершения
- Запрет дальнейшего подключения по установленному времени и отключение пользователей от ИБ
- Завершение работы пользователей, с возможностью дальнейшего подключения к ИБ
- Перезапуск сессии пользователя(ей) ИБ
- Завершение работы ИБ с подтверждением пользователя(ей)
- отображение информации о пользователях, которые ограничены в подключении к ИБ, а так же оставшееся время ограничения
- гибкая система разрешения входа в ИБ
- возможность быстрого продления ограничения доступа на 5 или 10 мину
Доработка конфигурации:
- Обработка настройки отключения (в приложении)
- Регистр сведений
- Общий модуль
- Модуль приложения
Обращаю внимание на то что:
Для УПП, КА, УТ, БП необходимо изменить следующий код во всех модулях обработки
ТекПользователь = УправлениеПользователями.ОпределитьТекущегоПользователя();
на следующий:
ТекПользователь = глЗначениеПеременной(«глТекущийПользователь»);
Регистр сведений
доОтключениеПользователей, непереодический, с независимым режимом записи.
Измерения:
Пользователь — справочник пользователи, ведущее или основной отбор
Ресурсы:
- Отключить — Булево;
- ЗапретПодключения — Булево;
- БыстроеОтключение — Булево;
- СостояниеОтключения — Строка, 30 символов, переменная;
- Сообщение — Строка, 300 символов, переменная;
- ДатаВремяПуска — Дата, Дата и время;
- ОтключениеМинут — Число, 2 разряда;
- ПаузаДоОтключения — Число, 3 разряда, точность 2.
- ДействиеОтключения — Строка, 30 символов, переменная;
- ОбменСообщений — Строка, 255 символов
Общий модуль «доОтключениеПользователей»
Функция ИзСекундВчасы(Секунд = 0)
Часов = Цел(Секунд/3600);
СекОстМин = Секунд%3600;
Минут = Цел(СекОстМин/60);
Сек = СекОстМин%60;
Если Часов < 10 Тогда
Часов = «0» + СокрЛП(Часов);
Иначе
Часов = СокрЛП(Часов);
КонецЕсли;
Если Минут < 10 Тогда
Минут = «0» + СокрЛП(Минут);
Иначе
Минут = СокрЛП(Минут);
КонецЕсли;
Если Сек < 10 Тогда
Сек = «0» + СокрЛП(Сек);
Иначе
Сек = СокрЛП(Сек);
КонецЕсли;
Возврат Часов + «:» + Минут + «:» + Сек;
КонецФункции
// Процедура контроля возможности подключения.
//
Процедура СтартПроверкиОтключения(Отказ) Экспорт
Пользователь = УправлениеПользователями.ОпределитьТекущегоПользователя();
Зп = Новый Запрос;
Зп.УстановитьПараметр(«Пользователь»,Пользователь);
Зп.Текст = «ВЫБРАТЬ
| доОтключениеПользователей.Пользователь,
| доОтключениеПользователей.ЗапретПодключения,
| доОтключениеПользователей.ДатаВремяПуска,
| доОтключениеПользователей.ОтключениеМинут,
| доОтключениеПользователей.ПаузаДоОтключения,
| доОтключениеПользователей.ОбменСообщений
|ИЗ
| РегистрСведений.доОтключениеПользователей КАК доОтключениеПользователей
|ГДЕ
| доОтключениеПользователей.Пользователь = &Пользователь»;
РезультатЗп = Зп.Выполнить().Выбрать();
Если РезультатЗп.Следующий() Тогда
Если РезультатЗп.ЗапретПодключения Тогда
НеПодключать = Ложь;
// Расчет времени не подключения
ТекДата = ТекущаяДата();
СтартДата = РезультатЗп.ДатаВремяПуска;
ВремяПаузы = РезультатЗп.ОтключениеМинут * 60 + РезультатЗп.ПаузаДоОтключения * 15;
ДельтаПаузы = ТекДата — СтартДата;
Если ВремяПаузы > ДельтаПаузы Тогда
НеПодключать = Истина;
КонецЕсли;
// Конец Расчета времени не подключения
Если НеПодключать Тогда
#Если Клиент Тогда
Если РезультатЗп.ОбменСообщений <> «» Тогда
ТекДата = ТекущаяДата();
СтартДата = РезультатЗп.ДатаВремяПуска;
ВремяПаузы = РезультатЗп.ОтключениеМинут * 60 + РезультатЗп.ПаузаДоОтключения * 60;
ДельтаПаузы = ТекДата — СтартДата;
ПредполагаемоеВремя = ИзСекундВЧасы(ВремяПаузы — ДельтаПаузы);
ПредВремя = ТекДата + (ВремяПаузы — ДельтаПаузы);
Если Найти(РезультатЗп.ОбменСообщений, «#sys») > 0 Тогда
ОчищенноеСообщение = Сред(РезультатЗп.ОбменСообщений, 5, СтрДлина(РезультатЗп.ОбменСообщений) — 4);
Предупреждение(«Подключение запрещено. Ведутся сервисные работы. » + ОчищенноеСообщение + Символы.ПС + «Предполагаемое время разрешения входа в базу: » + Строка(ПредВремя) + » (через » + Строка(ПредполагаемоеВремя) + «)», 20, «Подключение…»);
Иначе
Предупреждение(«Подключение запрещено. Ведутся сервисные работы. » + РезультатЗп.ОбменСообщений + Символы.ПС + «Предполагаемое время разрешения входа в базу: » + Строка(ПредВремя) + » (через » + Строка(ПредполагаемоеВремя) + «)», 20, «Подключение…»);
КонецЕсли;
Иначе
Предупреждение(«Подключение запрещено. Ведутся сервисные работы.» + Символы.ПС + «Предполагаемое время разрешения входа в базу: » + Строка(ПредВремя) + » (через » + Строка(ПредполагаемоеВремя) + «)», 5, «Подключение…»);
КонецЕсли;
#КонецЕсли
Отказ = Истина;
КонецЕсли;
КонецЕсли;
КонецЕсли;
// Проверка и опрос состояния отключения
ПодключитьОбработчикОжидания(«ЦиклическийВызов»,15);
КонецПроцедуры // СтартПроверкиОтключения()
// Процедура контроля отключения. Конечный автомат состояний отключения.
//
Процедура ЦиклическийВызов() Экспорт
ОтклПользователей = РегистрыСведений.доОтключениеПользователей;
Отбор = Новый Структура(«Пользователь»);
Отбор.Пользователь = УправлениеПользователями.ОпределитьТекущегоПользователя();
ВыборкаРегистра = ОтклПользователей.Выбрать(Отбор);
Пока ВыборкаРегистра.Следующий() Цикл
Запись = ВыборкаРегистра.ПолучитьМенеджерЗаписи();
Запись.Прочитать();
СостояниеОткл = СокрЛП(Запись.СостояниеОтключения);
ДействиеОткл = СокрЛП(Запись.ДействиеОтключения);
ВремяОткл = Запись.ПаузаДоОтключения;
//—————————————
Если СостояниеОткл = «Запрет подключения» Тогда
ДействиеЗавершения = «Запрет подключения»;
СостОткл = «Ожидание»;
Запись.СостояниеОтключения = СостОткл;
Запись.ПаузаДоОтключения = ВремяОткл;
Запись.Записать();
#Если Клиент Тогда
Сигнал();
Сигнал();
Сигнал();
Предупреждение(Запись.Сообщение,15,«Предупреждение»);
#КонецЕсли
ИначеЕсли СостояниеОткл = «Запрет подключения +» Тогда
ДействиеЗавершения = «Запрет подключения»;
СостОткл = «Мини ожидание»;
Запись.СостояниеОтключения = СостОткл;
Запись.ПаузаДоОтключения = ВремяОткл;
Запись.Записать();
#Если Клиент Тогда
Сигнал();
Сигнал();
Сигнал();
Предупреждение(Запись.Сообщение,15,«Предупреждение»);
#КонецЕсли
ИначеЕсли СостояниеОткл = «Завершение работы» Тогда
ДействиеЗавершения = «Завершение работы»;
СостОткл = «Ожидание»;
Запись.СостояниеОтключения = СостОткл;
Запись.ПаузаДоОтключения = ВремяОткл;
Запись.Записать();
#Если Клиент Тогда
Сигнал();
Сигнал();
Сигнал();
Предупреждение(Запись.Сообщение,15,«Предупреждение»);
#КонецЕсли
ИначеЕсли СостояниеОткл = «Завершение работы +» Тогда
ДействиеЗавершения = «Завершение работы»;
СостОткл = «Мини ожидание»;
Запись.СостояниеОтключения = СостОткл;
Запись.ПаузаДоОтключения = ВремяОткл;
Запись.Записать();
#Если Клиент Тогда
Сигнал();
Сигнал();
Сигнал();
Предупреждение(Запись.Сообщение,15,«Предупреждение»);
#КонецЕсли
ИначеЕсли СостояниеОткл = «Перезапуск ИБ» Тогда
ДействиеЗавершения = «Перезапуск ИБ»;
СостОткл = «Ожидание»;
Запись.СостояниеОтключения = СостОткл;
Запись.ПаузаДоОтключения = ВремяОткл;
Запись.Записать();
#Если Клиент Тогда
Сигнал();
Сигнал();
Сигнал();
Предупреждение(Запись.Сообщение,15,«Предупреждение»);
#КонецЕсли
ИначеЕсли СостояниеОткл = «Перезапуск ИБ +» Тогда
ДействиеЗавершения = «Перезапуск ИБ»;
СостОткл = «Мини ожидание»;
Запись.СостояниеОтключения = СостОткл;
Запись.ПаузаДоОтключения = ВремяОткл;
Запись.Записать();
#Если Клиент Тогда
Сигнал();
Сигнал();
Сигнал();
Предупреждение(Запись.Сообщение,15,«Предупреждение»);
#КонецЕсли
ИначеЕсли СостояниеОткл = «Завершение с подтверждением» Тогда
ДействиеЗавершения = «Завершение с подтверждением»;
СостОткл = «Ожидание»;
Запись.СостояниеОтключения = СостОткл;
Запись.ПаузаДоОтключения = ВремяОткл;
Запись.Записать();
#Если Клиент Тогда
Сигнал();
Сигнал();
Сигнал();
Предупреждение(Запись.Сообщение,15,«Предупреждение»);
#КонецЕсли
ИначеЕсли СостояниеОткл = «Завершение с подтверждением +» Тогда
ДействиеЗавершения = «Завершение с подтверждением»;
СостОткл = «Мини ожидание»;
Запись.СостояниеОтключения = СостОткл;
Запись.ПаузаДоОтключения = ВремяОткл;
Запись.Записать();
#Если Клиент Тогда
Сигнал();
Сигнал();
Сигнал();
Предупреждение(Запись.Сообщение,15,«Предупреждение»);
#КонецЕсли
ИначеЕсли СостояниеОткл = «Ожидание» Тогда
Время = ВремяОткл;
Время = Время — 0.25;
//Состояние («Ожидание выхода из системы через» + ИзСекундВчасы(Время * 60), 100,»Ожидание выхода из системы через» + ИзСекундВчасы(Время * 60), БиблиотекаКартинок.ДлительнаяОперация48);
Если Время = 0 Тогда
СостОткл = «Предупреждение +»;
Иначе
СостОткл = «Ожидание»;
КонецЕсли;
Запись.СостояниеОтключения = СостОткл;
Запись.ПаузаДоОтключения = Время;
Запись.Записать();
ИначеЕсли СостояниеОткл = «Предупреждение +» Тогда
СостОткл = «Мини ожидание»;
Запись.СостояниеОтключения = СостОткл;
Запись.ПаузаДоОтключения = 2;
Запись.Записать();
#Если Клиент Тогда
Сигнал();
Сигнал();
Сигнал();
Предупреждение(Запись.Сообщение,15,«Предупреждение!»);
#КонецЕсли
ИначеЕсли СостояниеОткл = «Мини ожидание» Тогда
Время = ВремяОткл;
Время = Время — 0.25;
Если Время * 60 < 60 Тогда
Если Время * 60 = 0 Тогда
ПоказатьОповещениеПользователя(«Внимание! Завершение работы!», ,«Система завершает работу…»);
Иначе
ПоказатьОповещениеПользователя(«Внимание! Завершение работы!», ,«Работа в системе будет завершена менее чем через » + Строка(Время * 60) + » секунд»);
КонецЕсли;
КонецЕсли;
//Состояние («Ожидание выхода из системы через» + ИзСекундВчасы(Время * 60), 100,»Ожидание выхода из системы через» + ИзСекундВчасы(Время * 60), БиблиотекаКартинок.ДлительнаяОперация48);
Если Время = 0 Тогда
СостОткл = «Отключение»;
Иначе
СостОткл = «Мини ожидание»;
КонецЕсли;
Запись.СостояниеОтключения = СостОткл;
Запись.ПаузаДоОтключения = Время;
Запись.Записать();
ИначеЕсли СостояниеОткл = «Отключение» Тогда
#Если Клиент Тогда
Сигнал();
Сигнал();
Сигнал();
СостОткл = «Сеанс выключен»;
Запись.СостояниеОтключения = СостОткл;
Запись.Записать();
Если ДействиеОткл = «Запрет подключения» Тогда
Сообщить(«1С Предприятие завершает работу через 15 секунд…», СтатусСообщения.ОченьВажное);
Сообщить(«Сохраните все данные!», СтатусСообщения.ОченьВажное);
ИначеЕсли ДействиеОткл = «Завершение работы» Тогда
Сообщить(«1С Предприятие завершает работу через 15 секунд…», СтатусСообщения.ОченьВажное);
Сообщить(«Сохраните все данные!», СтатусСообщения.ОченьВажное);
ИначеЕсли ДействиеОткл = «Перезапуск ИБ» Тогда
Сообщить(«1С Предприятие будет перезапущено через 15 секунд…», СтатусСообщения.ОченьВажное);
Сообщить(«Сохраните все данные!», СтатусСообщения.ОченьВажное);
ИначеЕсли ДействиеОткл = «Завершение с подтверждением» Тогда
Сообщить(«Установлено завершение работы пользователей, пожалуйста, завершите работу!», СтатусСообщения.ОченьВажное);
КонецЕсли;
#КонецЕсли
ИначеЕсли СостояниеОткл = «Сеанс выключен» Тогда
#Если Клиент Тогда
Сигнал();
Сигнал();
Сигнал();
Если ДействиеОткл = «Запрет подключения» Тогда
СтопПроверкиОтключения();
Предупреждение(«Система завершила работу!. Нажмите «»ОК»» для выхода», 5,«Внимание!»);
ПрекратитьРаботуСистемы();
ИначеЕсли ДействиеОткл = «Завершение работы» Тогда
СтопПроверкиОтключения();
Предупреждение(«Система завершила работу!. Нажмите «»ОК»» для выхода», 5,«Внимание!»);
ПрекратитьРаботуСистемы();
ИначеЕсли ДействиеОткл = «Перезапуск ИБ» Тогда
СтопПроверкиОтключения();
Предупреждение(«Система завершила работу!. Нажмите «»ОК»» для выхода», 5,«Внимание!»);
ПрекратитьРаботуСистемы(Истина);
ИначеЕсли ДействиеОткл = «Завершение с подтверждением» Тогда
ЗавершитьРаботуСистемы(Истина);
СостояниеОткл = «Мини ожидание»;
СостОткл = «Мини ожидание»;
Запись.СостояниеОтключения = «Мини ожидание»;
Запись.БыстроеОтключение = Истина;
Запись.ПаузаДоОтключения = 2;
Запись.Отключить = Истина;
Запись.Записать();
КонецЕсли;
#КонецЕсли
ИначеЕсли СостояниеОткл = «Работа разрешена» Тогда
Запись.СостояниеОтключения = «Ложь»;
Запись.БыстроеОтключение = Ложь;
Запись.Отключить = Ложь;
Запись.ЗапретПодключения = Ложь;
Запись.ДействиеОтключения = «Ложь»;
Запись.Записать();
Предупреждение(«Работа в системе разрешена, можно продолжать работу!»,15,«Предупреждение!»);
// КонецЕсли;
КонецЕсли;
//——————————————
Если Запись.ОбменСообщений <> «» Тогда
//ПоказатьОповещениеПользователя(«Новое сообщение», ,Запись.ОбменСообщений);
Если Найти(Запись.ОбменСообщений, «#sys») = 0 Тогда
Сообщить(Запись.ОбменСообщений, СтатусСообщения.Информация);
Запись.ОбменСообщений = «»;
Запись.Записать();
Иначе
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры // ЦиклическийВызов()
// Процедура контроля отключения.
//
Процедура СтопПроверкиОтключения() Экспорт
ОтклПользователей = РегистрыСведений.доОтключениеПользователей;
Отбор = Новый Структура(«Пользователь»);
Отбор.Пользователь = УправлениеПользователями.ОпределитьТекущегоПользователя();
ВыборкаРегистра = ОтклПользователей.Выбрать(Отбор);
Пока ВыборкаРегистра.Следующий() Цикл
Запись = ВыборкаРегистра.ПолучитьМенеджерЗаписи();
Запись.Отключить = Ложь;
Если ВыборкаРегистра.СостояниеОтключения = «Предупреждение» ИЛИ ВыборкаРегистра.СостояниеОтключения = «Предупреждение +» ИЛИ ВыборкаРегистра.СостояниеОтключения = «Ожидание» Тогда
Запись.ДатаВремяПуска = ТекущаяДата();
Запись.СостояниеОтключения = «Неактивен»;
Иначе
Запись.СостояниеОтключения = «Неактивен»;
КонецЕсли;
Запись.Записать();
КонецЦикла;
КонецПроцедуры // СтопПроверкиОтключения()
Модуль обычного приложения (модуль управляемого приложения)
Процедура ПередНачаломРаботыСистемы(Отказ)
//какие — то вызовы
СтартПроверкиОтключения(Отказ);
КонецПроцедуры
Процедура ПриЗавершенииРаботыСистемы()
//какие — то вызовы
СтопПроверкиОтключения();
КонецПроцедуры
Related Posts
Восстановление последовательности документов при закрытии месяца в Бухгалтерия 3.0 не завершается
Заполнение табличных частей
Формирование сводных актов выполненных работ
Ввод поступления в переработку на основании передачи сырья (между организациями)- Конспект по установке сервера 1С на linux
Получение имени компьютера и его IP локально и в терминале
0_о
ахха )) видимо был уставший )) поправлю )
Это не обработка. Это подсистема. И в данном случае это минус, т.к. многое из предложенного запросто реализуемо без вмешательства в конфигурацию.
никто и не спорит, просто как вариант, в будущем все это будет дорабатываться, перерабатываться 🙂
Это не обработка. Это подсистема. И в данном случае это минус, т.к. многое из предложенного запросто реализуемо без вмешательства в конфигурацию.
Не совсем понятно как можно реализовать отключение пользователей без изменения конфигурации? Объясните концепцию.
Не совсем понятно как можно реализовать отключение пользователей без изменения конфигурации? Объясните концепцию.
тут видимо подразумеваются совсем минимальные изменения конфигурации ну или использование каких то сторонних средств, хотя и самому интересно услышать на будущее для новой версии )
Мне тоже интересно) Как без вмешательства то?
И это… может стоит в виде cf это всё оформить?
Очень много кода.
Для УПП, КА, УТ придется изменить следующий код во всех модулях обработки
ТекПользователь = УправлениеПользователями.ОпределитьТекущегоПользователя();
на следующий:
ТекПользователь = глЗначениеПеременной(«глТекущийПользователь»);
Спасибо за информацию, добавлю на главную страницу
жаль. что не во все типовые конфигурации подобное внедряется, иногда приходится дописывать самому((
Код действительно некомпактный. Неплохо бы ужать.
Код действительно некомпактный. Неплохо бы ужать.
Будет обязательно новая версия, переработанная, сейчас просто времени немного не хватает
Интегрировал в БП 2.20.1 платформа 8.2
Не работает!
Не выгоняет пользователей! Даже сообщения не выдает!
В чем может быть причина?
Интегрировал в БП 2.20.1 платформа 8.2
Не работает!
Не выгоняет пользователей! Даже сообщения не выдает!
В чем может быть причина?
посмотреть отладчиком идет ли вызов из модуля Общий модуль «доОтключениеПользователей» процедуры ЦиклическийВызов. Проверьте добавлен ли код в процедуру ПередНачаломРаботыСистемы (СтартПроверкиОтключения(Отказ)) и в тот ли модуль он добавлен (управляемое или обычное приложение)
Тогда нужно руководствоваться вот этим:
Обращаю внимание на то что:
Для УПП, КА, УТ, БП необходимо изменить следующий код во всех модулях обработки
ТекПользователь = УправлениеПользователями.ОпределитьТекущегоПользователя();
на следующий:
ТекПользователь = глЗначениеПеременной(«глТекущийПользователь»);
Обращаю внимание на то что:
Для УПП, КА, УТ, БП необходимо изменить следующий код во всех модулях обработки
ТекПользователь = УправлениеПользователями.ОпределитьТекущегоПользователя();
на следующий:
ТекПользователь = глЗначениеПеременной(«глТекущийПользователь»);
ИМХО нужно этот код закинуть в Попытку Исключение
тогда обработка станет рабоочей в разных типовых конфах 1С
Здравая мысль!
(18) ОФФ. Напишу В плане обучения как Модератор пользователю:
понравилась чья-то фраза или предложение, поощри человека плюсом, не ленись 🙂
ЗЫ сам на плюс не напрашиваюсь 🙂
всё-таки хотелось бы без интеграции, а просто внешним отчётом. ИМХО, полезнее так будет. хотя для 8 ничего страшного в интеграции нет.
в любом случае спасибо за идеи и за код.
в любом случае спасибо за идеи и за код.
Всегда рад помочь. Сейчас как раз собираю мнения людей что как лучше сделать и какие то варианты. Планирую сделать чтобы обработку можно было использовать и как только внешнею с ограниченными возможностями так и встраивать ее 🙂
Большое спасибо, понравилось
вкусная штука, вот только еще бы тонкий клиент прикрутить
вкусная штука, вот только еще бы тонкий клиент прикрутить
сейчас разрабатывается 2 версия, там будут более расширенные возможности + тонкий клиент
(25)
И когда ждать?
Вещь нужная, жду выхода нового релиза, в этом слишком много кода менять надо…
(26) Gribo, планирую закончить к 10 октября, сильно не тороплюсь стараюсь качественно писать
Тоже жду релиза
Стоит добавить запрет на вход пока конфигурация не совпадает с конфигурацией базы данных: подгтовили обновление МД поросили всех выйти => внесли изменнеия => (можно входить) => запустили всех кого закрывали (если рабочее время)
(30) i132, спасибо за идею, буду реализовывать. Если есть у кого то еще идеи и предложения буду рад услышать.
в первоначальной обработке присутствовала ошибка которая позволяла коимтообразом не «выганятся» пользователям. В данной разработке пофиксен баг?
Еще предложение заменить полосу регулировки с вариантами отключения на переключатели — аргумент: не видно что скрывается за положениями полосы, пока не переключишь не узнаеш.
еще просьба — установить привязки элементов формы — невозможно развернуть форму на весь экран а в оригинальном виде видны только 2,5 строки с пользователями
в первоначальной обработке присутствовала ошибка которая позволяла коимтообразом не «выганятся» пользователям. В данной разработке пофиксен баг?
поищу сей баг, тестеры поищут, думаю отловим
Еще предложение заменить полосу регулировки с вариантами отключения на переключатели — аргумент: не видно что скрывается за положениями полосы, пока не переключишь не узнаеш.
согласен, в новой версии сей механизм проработан по новому, все будет более наглядно и гибко
еще просьба — установить привязки элементов формы — невозможно развернуть форму на весь экран а в оригинальном виде видны только 2,5 строки с пользователями
эта недоработка уже устранена в новой версии, все растягиваемо во всех видах приложений
Всем спасибо за предложения!
также не работает быстрое (30 сек) отключение
также не работает быстрое (30 сек) отключение
спасибо, учту при разработке
я аналогичную систему делал на 7.7. Очень устал выгонять пользователей по телефону, особенно когда они уходят на обед. Единственное -открытые документы не сохранялись. Другая проблема возникла: пока выгоняю одних — другие уже заходят. Поэтому пришлось — ставить блокировку на вход
Интерфейс понравился, удобно.
Всем привет. Для тех кто ждет новый релиз: к сожалению он задерживается, работы ведутся но не так быстро как рассчитывал, очень много повседневной работы наволилось навалилось 🙁
🙁 хех ждемс.
Еще мысль «вслух»: Добавить сюда возможность, как один из вариантов, использование штатной блокировки (через БлокировкаСеанса).
🙁 хех ждемс.
Еще мысль «вслух»: Добавить сюда возможность, как один из вариантов, использование штатной блокировки (через БлокировкаСеанса).
Спасибо за идею, такая возможность уже реализована.
+++++ Спасибо!!! месяц бегал по конторе, как ошарашенный вырубал всех.. а тут нажал и все.. спасибки удружил))) ну все.. бойся бухгалтер)))) всех поотрублю………………………….)))))))))))))))))))))))
вот спасибо, давно искал что то этакое, и наконец то нашел. автору респект и +
+++++ Спасибо!!! месяц бегал по конторе, как ошарашенный вырубал всех.. а тут нажал и все.. спасибки удружил))) ну все.. бойся бухгалтер)))) всех поотрублю………………………….)))))))))))))))))))))))
ахаха )) скоро выйдет новая версия, еще более беспощадная 🙂
🙂 видимо автор готовит целый арсенал репресивных методов убиения нерадивых бухгалтеров
(49) vetalm, это да )) хочу охватить все возможные методы, так сказать, в одном месте, на данный момент готово где-то 60%
Немного протестил:
1. Оставшееся время отключенных пользователей меньше оставшегося времени пользователей которые на момент отключения в базе не работали.
2. Ставлю время отключения через 3 минуты, включение через 5 мин. по прошествии 10 минут захожу под отключенным пользователем , его состояние отключения «Не активно».
Общие пожелания:
Подразумевается, что список пользователей в базе не маленький, предлагаю расширить табличное поле «СписокАктивныхПользователей», а то больше 2-х пользователей не помещается.
Движок с выбором варианта запрета не очень удобен, для просмотра всех вариантов приходится его постоянно двигать.
Поле «Сообщение» узкое.
Кнопки со скрытыми пунктами тоже не очень удобны.
Желательно добавить Управляемую форму.
(51) see1c.ru, спасибо за тест, теперь по пунктам
1) Хорошее замечание, обязательно учту это
2) Сейчас механизм отключения перерабатывается, надеюсь подобных проблем удастся избежать
По пожеланиям. Сейчас все формы полностью растягиваемые, механизм выбора варианта завершения переработан. Над полями сообщений тоже поработал, теперь они гораздо больше, в т.ч. переработаны и кнопки. Управляемая форма будет, собственно сейчас в основном из за нее и замедляется процесс разработки, т.к. приходится отлаживать работу и для обычной формы и для управляемой + в управляемых формах есть определенные сложности.
+ автору за классный инструмент в моем арсенале
Порой даже мелкие нюансы работы очень важны, обработка классная. Давно искал большое спасибо!!!
спасибо за добрые слова, тем кто ждет 2 версию, обычное приложение полностью готово, остается до насадить все на управляемую форму 🙂
Спасибо долго искал, судя по описанию наиболее адекватный продукт. Скачаю протестирую. Заранее благодарен!
Спасибо, автору + , жаль не работает в управляемом интерфейсе (Тип не определен Запрос) планируется ли расширить функционал для управляемого интерфейса и когда ждать обновлений?
Автор в этом то году порадуешь нас обновлением?
Полезная вещь, тоже хочу спросить.
Когда будет обновление для управляемого интерфейса?
(59) andru_dv, поддерживаю) скорее бы)
спасибо за обработку…
помогите с решением проблемы, при открытии обработки выдает эту ошибку:
{ВнешняяОбработка.доОбработкаОтключения.МодульОбъекта(133)}: Поле объекта не обнаружено (доОтключениеПользователей) ОтклПользователей = РегистрыСведений.доОтключениеПользователей;типовая конфа УПП 1.3.20.1
как бороться?
паходу без правки УПП’шной конфигурации эту обработку не запустить((, жаль. не хотелось бы сниматься с поддержки 1с.
День добрый, не было никак времени посмотреть, сегодня думаю посмотрю вечером что это такое. Времени свободного совсем нет. Самое главное избежать в новой версии подобного.
По большому счету такой функционал редко нужен, да и допиливать конфигурацию ради корректного выхода пользователей тоже лишнее, использую намного более простые вещи и доволен как слон.
Версия обновилась. Учел комментарии по предыдущей, переработал интерфейс.
зачем такие извращения /CЗавершитьРаботуПользователей (поддерживается всеми станд конфигами) и все робит
зачем такие извращения /CЗавершитьРаботуПользователей (поддерживается всеми станд конфигами) и все робит, более подробно тут и тут
(72) Жолтокнижниг, ну не спорю что все робит, только в чем извращения? разные методы.
Извращения, на мой взгляд, в правке конфиги и дальнейшей ее поддержке ( когда обслуживаешь не одну базу а неколько десятков организаций с разными конф), хотя я еще не смотрел твое творение
первое замечание. как уже писалось почему в код не засунуть обработку конфиги или же попытка-исключение, также предусмотреть поддержку конф других поставщиков, надо создавать универсальные, легкие инструменты
и еще обрати внимание на такой код в
Процедура КонтрольРежимаЗавершенияРаботыПользователей() Экспорт
…
Если НЕ ЗначениеЗаполнено(ВремяНачалаБлокировки)
ИЛИ ВремяНачалаБлокировки — ТекущийМомент <= ИнтервалПрекратить Тогда
ПрекратитьРаботуСистемы(Истина);
…
те почти мгновенное отключение пользователей.
Еще одним пожеланием было бы, возможность выполнения какой либо операции после блокировки(обработка, скрипт и т.д) тогдаб цены ей не было 😉
(74) Жолтокнижниг, по поводу правки конфигурации — каждому своё, хочешь правишь — хочешь нет. Для этого она умеет запускаться как внешняя обработка. Некоторые места действительно могут быть написаны не совсем оптимально, как говорится нет предела совершенству, да и я указал что это достаточно
сыраяalpha (не причесанная)версия. По поводу пожеланий буду делать список, по возможности добавлять.…
Если НЕ ЗначениеЗаполнено(ВремяНачалаБлокировки)
ИЛИ ВремяНачалаБлокировки — ТекущийМомент <= ИнтервалПрекратить Тогда
ПрекратитьРаботуСистемы(Истина);
…
Не совсем про это понял, там есть возможность в настройках поставить выдерживание дополнительной паузы перед отключением.
Для конфигураций Управление торговлей, комплексная автоматизация и управление производственным предприятием необходимо будет изменить следующий код во всех-всех модулях обработки
ТекПользователь = УправлениеПользователями.ОпределитьТекущегоПользователя();
на следующий код:
ТекПользователь = глЗначениеПеременной(«глТекущийПользователь»);
(78) Гость, спасибо за комментарий, добавлю в список исправлений
Спасибо друзья за такую разработку 🙂 будем смотреть и пробовать в будущем понадобится =)
коменты не читал, сильно в нюансы не вникал. Скачал *.cf объединил со своей конфигурацией (добавил всё кроме свойств и справочника пользователей). и НЕ работает.Я в расстройстве. Не работают ни блокировки, ни сообщения.
Минус ставить не охота. Что не не так? моя конфа: Зарплата и Управление Персоналом, редакция 2.5 (2.5.47.1) клиент-серверная версия. SQL 2005
(81) Программулькин, справочник заполнили? обычно так не работает когда нет кода
Модуль обычного приложения
Процедура ПередНачаломРаботыСистемы(Отказ)
//какой то код
СтартПроверкиОтключения(Отказ);
КонецПроцедуры
Процедура ПриЗавершенииРаботыСистемы()
//какой то код
СтопПроверкиОтключения();
КонецПроцедуры
Показать
или не заполнен справочник «Варианты завершения работы» (см описание)
Сейчас специально скачал свой CF накатил его на нетиповую 1С:Предприятие 8.2 (8.2.13.205) Зарплата и Управление Персоналом, редакция 2.5 (2.5.31.4), все сработало.
Проверьте пожалуйста. За то, что не стали минус ставить сходу, спасибо 🙂
да, справочник пустой. Вот рекомендация: либо в справке, либо ещё как добавить стандартное заполнение справочника, главное что бы было очевидно, как его заполнять,и можно было «на лету» (без разбора кода) разобраться (тупо нету времени, а вечером не охота…лень, лучше жене время уделить…). Есть шаблон заполнения справочника?
Идея, и функционал хорошие, (я бы по другому переделал, но лень, может потом на досуге), подобные видел, щупал, не устраивали, а это ничего так, нормально.
(83) Программулькин, шаблон есть в виде картинки в описании, а вообще идея хорошая, сделаю мехинзм, который будет проверять заполненность предопределенных элементов автоматически 🙂
Добавил обработку заполнения справочника «Варианты завершения работы»
(5) А вы посмотрите и узнаете, что все эти операции можно делать, нисколько не меняя конфигурацию.
(86) Yashazz, там есть одно НО, только для клиент серверного варианта. Глубоко сомневаюсь что все кто качают обработки подобные моей, работают именно с клиент — сервером.
(87) Если используется файл-серверный вариант, то выход пользователя из базы реализуется путем убийства процесса 1С на стороне клиента — это аварийный вариант, он не очень хороший, но не требует вмешательства в конфигурацию
вещь очень полезная жду под управляемое приложение
(91) sumixam, пока времени совсем нет
На первый взгляд позволяет решать многие задачи. Будем знакомится более подробно.
В бухгалтерии выскакивает ошибка, не работает
{ВнешняяОбработка.ЗавершениеРаботыПользователейEX2.МодульОбъекта(122)}: Недостаточно фактических параметров
ТекПользователь = УправлениеПользователями.ОпределитьТекущегоПользователя();
ЗКБУ 8.2 отказывается
почему- сам не знаю
файловый вариант
Добрый день!
В публикации Вы написали:
Для УПП, КА, УТ, БП необходимо изменить следующий код во всех модулях обработки
ТекПользователь = УправлениеПользователями.ОпределитьТекущегоПользователя();
на следующий:
ТекПользователь = глЗначениеПеременной(«глТекущийПользователь»);
Дело в том, что я просто бухгалтер и мне сложно самой это сделать. Но мне очень нужна данная обработка, так как часто приходится перепроводить и удалять документы в монопольном режиме. У меня Комплексная автоматизация…
(96) buhkaz, попробую поправить
Спасибо за обработку.
В УПП 1.3 объединил конфигурации, заполнил обработкой шаблоны. В результате работает половина функций, а самая главная — выгонять пользователей НЕ РАБОТАЕТ!!!.
(92) когда всё-таки появится данная обработка под управляемые формы?
(100) TrinitronOTV, очень сложный вопрос, времени свободного нет
Отчего это у меня?
{МодульОбычногоПриложения(181,3)}: Процедура или функция с указанным именем не определена (СтартПроверкиОтключения)
<<?>>СтартПроверкиОтключения(Отказ);
{МодульОбычногоПриложения(496,4)}: Процедура или функция с указанным именем не определена (СтопПроверкиОтключения)
<<?>>СтопПроверкиОтключения();
Полный провал с клиент-серверными взаимодействиями.
УПП 1.3 — НЕ РАБОТАЕТ — ЧАС потратил в пустую.
Автор! Обидно!
Отличная разработка. Спасибо автору!
Для КА пришлось сделать замену на глТекущийПользователь как описано в описании установки, а также сделал общий модуль привелигированным, т.к. были проблемы с правами на не стандартных интерфейсах.
Хорошая вещь
Любопытно опробовать))
Хотел сам написать, а тут такое