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



Процедура ПриОткрытии()

	ТекДата = Дата;

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

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



Процедура ОзнакомленНажатие(Элемент)

	Если ЗначениеЗаполнено(ТекДата) Тогда

		НаборЗаписей = РегистрыСведений.МЕ_Оповещения.СоздатьНаборЗаписей();	

		НаборЗаписей.Отбор.Получатель.Установить(Пользователь);

		НаборЗаписей.Отбор.Период.Установить(ТекДата);

		НаборЗаписей.Прочитать();

		НовыйНомер = НаборЗаписей[0];

		НовыйНомер.ДатаОзнакомления = ТекущаяДата();

		НаборЗаписей.Записать();

		Если ЗначениеЗаполнено(НовыйНомер.ТипСсылки) Тогда

			ТекСсылка = НовыйНомер.Ссылка;

			ТипСсылки = НовыйНомер.ТипСсылки;

		КонецЕсли;

			

	КонецЕсли;

	Парам = Новый Структура;

	Парам.Вставить("ТипСсылки", ТипСсылки);

	Парам.Вставить("ТекСсылка", ТекСсылка);

	ЭтаФорма.Закрыть(Парам);

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



Процедура ПолеHTMLДокументаonclick(Элемент, pEvtObj)

	// Отказ от стандартной обработки клика.

	pEvtObj.returnValue = Ложь;

	Если ВРег(pEvtObj.srcElement.tagName) = "A" Тогда

		СсылкаТекст = Сред(pEvtObj.srcElement.href, 4);

		Ссылка = ЗначениеИзСтрокиВнутр(СсылкаТекст);

		Если Ссылка.Пустая()

			Или Ссылка.ПолучитьОбъект() = Неопределено Тогда

			Предупреждение("Ошибка открытия объекта.",, "Ошибка");

			Возврат;

		Иначе

			ОткрытьЗначение(Ссылка);

		КонецЕсли;

	КонецЕсли;



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

 Процедура СоздатьОповещение(Получатель,ТекстОповещения, ТипСсылки=Неопределено, Ссылка=Неопределено) Экспорт 

	НаборЗаписей = РегистрыСведений.МЕ_Оповещения.СоздатьНаборЗаписей();

		                                     	

	НовЗапись = НаборЗаписей.Добавить(); 	

	НовЗапись.Период  = ТекущаяДата();     	

	НовЗапись.Получатель = Получатель;        	

	НовЗапись.ТекстОповещения = ТекстОповещения; 	

	Если НЕ ТипСсылки=Неопределено Тогда

		НовЗапись.ТипСсылки = ТипСсылки;

	КонецЕсли;

	Если НЕ Ссылка=Неопределено Тогда

		НовЗапись.Ссылка = Ссылка;

	КонецЕсли;



	НаборЗаписей.Записать(Ложь); 

КонецПроцедуры // СоздатьОповещение()



Процедура ПоказатьОповещение(ТекстОповещения)

	формОповещ = ПолучитьОбщуюФорму("МЕ_Оповещения");

	формОповещ.текст=ТекстОповещения;

	Если Не формОповещ.Открыта() Тогда

		формОповещ.ОткрытьМодально();

	КонецЕсли;   	

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

   

 //Проверим Оповещения для пользователя

	Запрос = Новый Запрос;

	Запрос.Текст =

	"ВЫБРАТЬ

	|	МЕ_Оповещения.Период КАК Период,

	|	МЕ_Оповещения.Получатель,

	|	МЕ_Оповещения.ТекстОповещения,

	|	МЕ_Оповещения.ДатаОзнакомления

	|ИЗ

	|	РегистрСведений.МЕ_Оповещения КАК МЕ_Оповещения

	|ГДЕ

	|	МЕ_Оповещения.ДатаОзнакомления = &ДатаОзнакомления

	|	И МЕ_Оповещения.Получатель = &Получатель

	|

	|УПОРЯДОЧИТЬ ПО

	|	Период";

	Запрос.УстановитьПараметр("ДатаОзнакомления", Дата("01.01.0001 0:00:00"));

	Запрос.УстановитьПараметр("Получатель", ПараметрыСеанса.ТекущийПользователь);

	

	Результат = Запрос.Выполнить().Выбрать();

	Пока Результат.Следующий() Цикл

		формОповещ = ПолучитьОбщуюФорму("МЕ_Оповещения");

		формОповещ.дата=Результат.период;

		формОповещ.пользователь=Результат.Получатель;

		формОповещ.текст=Результат.ТекстОповещения;

		Если Не формОповещ.Открыта() Тогда

			Структ = формОповещ.ОткрытьМодально();

			Если Структ = Неопределено Тогда

				// Ничего

			Иначе

				Если СокрЛП(Структ.ТипСсылки) = "ОбработкаЦен" Тогда

					Обр = Обработки.ОбработкаЦен.Создать();

					Обр.Счет = Структ.ТекСсылка;

					Обр.ПолучитьФорму().Открыть();		

				КонецЕсли;

			КонецЕсли;  		

		КонецЕсли;

	КонецЦикла;

   

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

" - Отклонен!!! - "+ИмяПользователя()+"!"+Символы.ПС+" Исправьте его учитывая Комментарии и запустите на Согласование!", "", ТекДоговорКИзменению.Ссылка);



или



//Создадим оповещение с Передачей ссылки

Текст = "" + ПараметрыСеанса.ТекущийПользователь+": Необходимо Доработать цены:<br> <b>"+Счет.Ссылка+"</b>";

МЕ_Оповещения.СоздатьОповещение(СнабженецПоследнееИзменение, Текст, "ОбработкаЦен", Счет.Ссылка);    

 // Возвращает менеджер объекта по переданной ссылке.

// Не обрабатываются точки маршрутов бизнес-процессов.

Функция МенеджерОбъектаПоСсылке(Ссылка) Экспорт

	

	ИмяОбъекта = Ссылка.Метаданные().Имя;

	ТипСсылки = ТипЗнч(Ссылка);

	

	Если Справочники.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат Справочники[ИмяОбъекта];

	ИначеЕсли Документы.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат Документы[ИмяОбъекта];

	ИначеЕсли БизнесПроцессы.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат БизнесПроцессы[ИмяОбъекта];

	ИначеЕсли ПланыВидовХарактеристик.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат ПланыВидовХарактеристик[ИмяОбъекта];

	ИначеЕсли ПланыСчетов.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат ПланыСчетов[ИмяОбъекта];

	ИначеЕсли ПланыВидовРасчета.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат ПланыВидовРасчета[ИмяОбъекта];

	ИначеЕсли Задачи.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат Задачи[ИмяОбъекта];

	ИначеЕсли ПланыОбмена.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат ПланыОбмена[ИмяОбъекта];

	ИначеЕсли Перечисления.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат Перечисления[ИмяОбъекта];

	Иначе

		Возврат НеОпределено;

	КонецЕсли;

	

КонецФункции   

 

// Возвращает вид объекта по переданной ссылке - строку "Справочник", "Документ" и т.д.

// Не обрабатываются точки маршрутов бизнес-процессов.

Функция ВидОбъектаПоСсылке(Ссылка) Экспорт

	ТипСсылки = ТипЗнч(Ссылка);

	Если Справочники.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "Справочник";



	ИначеЕсли Документы.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "Документ";



	ИначеЕсли БизнесПроцессы.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "БизнесПроцесс";



	ИначеЕсли ПланыВидовХарактеристик.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "ПланВидовХарактеристик";



	ИначеЕсли ПланыСчетов.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "ПланСчетов";



	ИначеЕсли ПланыВидовРасчета.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "ПланВидовРасчета";



	ИначеЕсли Задачи.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "Задача";



	ИначеЕсли ПланыОбмена.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "ПланОбмена";



	ИначеЕсли Перечисления.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат "Перечисление";



	Иначе

		Возврат "";



	КонецЕсли;

	

КонецФункции