Система оповещений Пользователей (универсальная)

 Перем ТекДата, ТипСсылки, ТекСсылка;

Процедура ПриОткрытии()
	ТекДата = Дата;
	ЭлементыФормы.ПолеHTMLДокумента.УстановитьТекст(Текст);	
КонецПроцедуры

Процедура ОзнакомленНажатие(Элемент)
	Если ЗначениеЗаполнено(ТекДата) Тогда
		НаборЗаписей = РегистрыСведений.МЕ_Оповещения.СоздатьНаборЗаписей();	
		НаборЗаписей.Отбор.Получатель.Установить(Пользователь);
		НаборЗаписей.Отбор.Период.Установить(ТекДата);
		НаборЗаписей.Прочитать();
		НовыйНомер = НаборЗаписей[0];
		НовыйНомер.ДатаОзнакомления = ТекущаяДата();
		НаборЗаписей.Записать();
		Если ЗначениеЗаполнено(НовыйНомер.ТипСсылки) Тогда
			ТекСсылка = НовыйНомер.Ссылка;
			ТипСсылки = НовыйНомер.ТипСсылки;
		КонецЕсли;
			
	КонецЕсли;
	Парам = Новый Структура;
	Парам.Вставить("ТипСсылки", ТипСсылки);
	Парам.Вставить("ТекСсылка", ТекСсылка);
	ЭтаФорма.Закрыть(Парам);
КонецПроцедуры

Процедура ПолеHTMLДокументаonclick(Элемент, pEvtObj)
	// Отказ от стандартной обработки клика.
	pEvtObj.returnValue = Ложь;
	Если ВРег(pEvtObj.srcElement.tagName) = "A" Тогда
		СсылкаТекст = Сред(pEvtObj.srcElement.href, 4);
		Ссылка = ЗначениеИзСтрокиВнутр(СсылкаТекст);
		Если Ссылка.Пустая()
			Или Ссылка.ПолучитьОбъект() = Неопределено Тогда
			Предупреждение("Ошибка открытия объекта.",, "Ошибка");
			Возврат;
		Иначе
			ОткрытьЗначение(Ссылка);
		КонецЕсли;
	КонецЕсли;

КонецПроцедуры   

 Процедура СоздатьОповещение(Получатель,ТекстОповещения, ТипСсылки=Неопределено, Ссылка=Неопределено) Экспорт 
	НаборЗаписей = РегистрыСведений.МЕ_Оповещения.СоздатьНаборЗаписей();
		                                     	
	НовЗапись = НаборЗаписей.Добавить(); 	
	НовЗапись.Период  = ТекущаяДата();     	
	НовЗапись.Получатель = Получатель;        	
	НовЗапись.ТекстОповещения = ТекстОповещения; 	
	Если НЕ ТипСсылки=Неопределено Тогда
		НовЗапись.ТипСсылки = ТипСсылки;
	КонецЕсли;
	Если НЕ Ссылка=Неопределено Тогда
		НовЗапись.Ссылка = Ссылка;
	КонецЕсли;

	НаборЗаписей.Записать(Ложь); 
КонецПроцедуры // СоздатьОповещение()

Процедура ПоказатьОповещение(ТекстОповещения)
	формОповещ = ПолучитьОбщуюФорму("МЕ_Оповещения");
	формОповещ.текст=ТекстОповещения;
	Если Не формОповещ.Открыта() Тогда
		формОповещ.ОткрытьМодально();
	КонецЕсли;   	
КонецПроцедуры
   

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

 МЕ_Оповещения.СоздатьОповещение(ТекДоговорКИзменению.Менеджер, "Ваш Договор №"+СокрЛП(ТекДоговорКИзменению.Номер)+
" - Отклонен!!! - "+ИмяПользователя()+"!"+Символы.ПС+" Исправьте его учитывая Комментарии и запустите на Согласование!", "", ТекДоговорКИзменению.Ссылка);

или

//Создадим оповещение с Передачей ссылки
Текст = "" + ПараметрыСеанса.ТекущийПользователь+": Необходимо Доработать цены:<br> <b>"+Счет.Ссылка+"</b>";
МЕ_Оповещения.СоздатьОповещение(СнабженецПоследнееИзменение, Текст, "ОбработкаЦен", Счет.Ссылка);