1С Оповещение пользователя

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