HelpF.pro

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

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

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq82/view/1200.html