Для отображения персонализированного контента и рекламных сообщений, а также хранения личных настроек на локальном компьютере веб-сайт www.vdgb.ru используют технологию cookie и аналогичные. Продолжив использование наших веб-сайтов, Вы даете согласие на обработку персональных данных, выражаете согласие с Политикой конфиденциальности www.vdgb.ru и применением этих технологий.

ПРОДАЖА И ВНЕДРЕНИЕ 1С

по всей России

Как оповестить пользователей из серверного модуля или регламентного задания.

Проконсультироваться
со специалистом 1С

Консультироваться

Код 1C v 8.2 УП
 
      
// Оповестим пользователей о неактуальности данных.
// Если мы не хотим подключать обработчик ожидания,
//воспользуемся командой Windows
МинутаХ = Формат(НачалоМинуты(КонецМинуты(ТекущаяДата()+300)+1),"ДФ=HH:mm:ss");
Текст = " Внимание!"+Символ(13)+ "Данные в системе 1с ЗУП Тест будут неактуальны 5 минут!"+Символ(13)+"Не формируйте отчеты и документы до "+МинутаХ;
Соединения = ПолучитьСоединенияИнформационнойБазы();
КОМПЫ = Новый Соответствие ;
Для каждого ЭлементСоединения Из Соединения Цикл
КОМПЫ.Вставить(ЭлементСоединения.ИмяКомпьютера);
КонецЦикла;
Для каждого Компьютер из КОМПЫ Цикл
СтрокаМесаги = "MSG /time:30 /server:"+ СокрЛП(Компьютер.Ключ)+" * "+Текст;
//СтрокаМесаги = "NET SEND "+ СокрЛП(Компьютер.Ключ)+Текст;
ЗапуститьПриложение(СтрокаМесаги);
КонецЦикла;


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.