Уведомления
Очистить все

Как серверу вызвать событие на клиенте в 1С?

1 Записи
1 Пользователи
0 Likes
1,117 Просмотры
349247987bafcbd2885c912bce74fa21?s=80&d=mm&r=g Okolokompa Форум
(@salamander)
Trusted Member
Присоединился: 4 года назад
Записи: 28
Создатель темы  
Вот пример без использования ВК - используя
сообщения в Windows


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

   
Цитата
Поделиться: