Даю кода
Модуль управляемого приложения
&НаКлиенте
Процедура ОбработатьОжидание()Экспорт
РезультатПроверкиСообщений = ОбщийМодульЧат.ПроверитьНаличиеСообщенийСервер();
Если Не РезультатПроверкиСообщений = "" Тогда
Сообщить("Сообщение чата " + РезультатПроверкиСообщений);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПриНачалеРаботыСистемы()
ПодключитьОбработчикОжидания("ОбработатьОжидание",5,);
Общий модуль
&НаСервере
Функция ПроверитьНаличиеСообщенийСервер() Экспорт
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| СообщенияЧата.Текст
|ИЗ
| РегистрСведений.СообщенияЧата КАК СообщенияЧата
|ГДЕ
| СообщенияЧата.ДатаВремя = &ТекущаяДата";
Запрос.УстановитьПараметр("ТекущаяДата", ТекущаяДата());
Выборка = Запрос.Выполнить().Выбрать();
ТекстСообщения = "";
Если Выборка.Следующий() Тогда
ТекстСообщения = Выборка.Текст;
КонецЕсли;
Возврат ТекстСообщения;
КонецФункции