u4me2
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: Использую сетевую версию 1С-7.7. Можно ли сделать, если можно, то подскажите как. Необходимо, чтоб по моему требованию выдавалось всем пользователям сообщении о том, что «через 5 минут будет произведена реконструкцию конфигурации, выйдите из программы». Кто если не вышел, то через 5 минут все закрывается принудительно. | 1.Создать константу ЗавершениеРаботы 2.Добавить В ГМ Процедура ПриНачалеРаботыСистемы() Экспорт //Запрет на работу если пользователь не админ Если (ИмяПользователя()<>"Администратор") И (Константа.ЗавершитьРаботу=1) Тогда Предупреждение("Работа невозможна вносятся изменения!"); СтатусВозврата(0); КонецЕсли; КонецПроцедуры //Проверка на необходимость завершения работы //и если нужно завершать то ждем 5 мин и завершаем Процедура ЗавершитьРаботу() Если Константа.ЗавершитьРаботу = 1 Тогда Предупреждение("ВНИМАНИЕ ! Для внесения изменений Через 5 минут произойдет |завершение работы, сохраните все Документы",30); ОбработкаОжидания("ЗавершитьРС",300); КонецЕсли; КонецПроцедуры //А это само завершение Процедура ЗавершитьРС() Предупреждение("Время вышло, завершаем работу системы",30); ЗавершитьРаботуСистемы(); КонецПроцедуры //проверка нужно или нет завершать каждую минуту ОбработкаОжидания("ЗавершитьРаботу",60); |