Modber Сообщество
профессионалов по 1С

v8: контроль выхода из системы

как управлять выходом из системы
  
Сообщений: 11

0
Если обработка сделана под программу, и изменить ее невозможно для 1С: Бухгалтерии. Суть программы такая: устанавливаем время, ну, например, 21:00, выбираем Тип действия: "Выход с сохранением данных" вставляем текст, а когда наступает 21:00 и остались пользователи, которые сидят в 1С, то им открывается сообщение о закрытии доступа, после 21:00 пользователи не зайдут. Это хорошая функция, когда пользователи висят в 1С, и мешают мне сделать архив. У кого есть такие обработка делитесь, а я могу свою дать, чтоб переделать.
МедальГрамота
Сообщений: 541

+8
Что именно то переделать?
Грамота
Сообщений: 83

0
У пользователей на ПК добавить при блокировке станции (в планировщике Windows для триггера "блокировка рабочей станции") команду для закрытия всех

экземпляров 1С:
Код 1C:
  1. taskkill /IM 1c* /f
Или задание на выключение ПК в 20:30, например. Правда, тогда, если кто-тот задержится после 20:30 может получить сюрприз…
Грамота
Сообщений: 156

+2
Например можно сделать справочник пользователей с графой: Отключить от системы.
При необходимости ставить галочку напротив пользователя в этой графе и нажимать кнопку ДА.
Тут надо написать обработчик этого функционала.
Или использовать скрипт, в сети таких полно, например:
Скрипт на VBS в расписание заданий:

'имя пользователя 1С:Предприятия
UserName = «USER»

'пароль пользователя 1С:Предприятия
UserPass = «PASS»

'имя сервера 1С
ServerName = «SERVER»
BaseName = «BASE»

'Удаление всех соединений заданной ИБ сервера 1С
Dim сonnector
Set сonnector = СreateObject(«v8.СOMСonnector»)

Dim sеrvеr
Sеt sеrvеr = сonnector.СonnectServer(ServerName)
servеr.AddAuthеntication UsеrNаmе, UsеrPаss
Dim ibDеsc
Sеt ibDеsc = sеrvеr.CrеatеInfoBaseInfo()
ibDеsc.Nаmе = BasеName
Dim cоnnеctions
connеctions = sеrvеr.GetIBCоnnections(ibDеsc)
Dim i
Dim connеction
Fоr i = LBоund(connеctions) Tо UBоund(connеctions)
sеt connеction = connеctions(i)
sеrvеr.Disconnеct connеction
Nеxt
В начало страницы 
|
Перейти на форум: