3_0_2_150

SSL/src/CommonModules/НапоминанияПользователяСлужебный/Module.bsl

@@ -1,3 +1,11 @@
+///////////////////////////////////////////////////////////////////////////////////////////////////////
+// Copyright (c) 2018, ООО 1С-Софт
+// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
+// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
+// Текст лицензии доступен по ссылке:
+// https://creativecommons.org/licenses/by/4.0/legalcode
+///////////////////////////////////////////////////////////////////////////////////////////////////////
+
 #Область СлужебныйПрограммныйИнтерфейс
 
 ////////////////////////////////////////////////////////////////////////////////
@@ -44,7 +52,7 @@
 Функция НастройкиПодсистемы() Экспорт
 	Настройки = Новый Структура;
 	Настройки.Вставить("Расписания", ПолучитьСтандартныеРасписанияДляНапоминания());
-	Настройки.Вставить("СтандартныеИнтервалы", НапоминанияПользователяКлиентСервер.ПолучитьСтандартныеИнтервалыОповещения());
+	Настройки.Вставить("СтандартныеИнтервалы", СтандартныеИнтервалыОповещения());
 	НапоминанияПользователяПереопределяемый.ПриОпределенииНастроек(Настройки);
 	
 	// Поддержка обратной совместимости.
@@ -54,6 +62,19 @@
 	Возврат Настройки;
 КонецФункции
 
+Функция СтандартныеИнтервалыОповещения()
+	
+	Результат = Новый Массив;
+	
+	ИнтервалыВремени = Новый Структура("_5м,_10м,_15м,_30м,_1ч,_2ч,_4ч,_8ч,_1д,_2д,_3д,_1н,_2н");
+	Для Каждого Интервал Из ИнтервалыВремени Цикл
+		Результат.Добавить(НапоминанияПользователяКлиентСервер.ОформитьВремя(Интервал.Ключ));
+	КонецЦикла;
+	
+	Возврат Результат;
+	
+КонецФункции
+
 // Возвращает стандартные расписания для периодических напоминаний.
 Функция ПолучитьСтандартныеРасписанияДляНапоминания()
 	
@@ -341,7 +362,6 @@
 Функция ГрафикСобытия(Расписание, НачалоПериода, КонецПериода)
 
 	Результат = Неопределено;
-	ТекущаяДатаСеанса = ТекущаяДатаСеанса();
 	
 	ДатаОтсчета = НачалоПериода;
 	
@@ -719,7 +739,7 @@
 	Напоминание = НапоминанияПользователяКлиентСервер.ОписаниеНапоминания(ПараметрыНапоминания, Истина);
 	
 	Если Не ЗначениеЗаполнено(Напоминание.Пользователь) Тогда
-		Напоминание.Пользователь = ПользователиКлиентСервер.ТекущийПользователь();
+		Напоминание.Пользователь = Пользователи.ТекущийПользователь();
 	КонецЕсли;
 	
 	Если Не ЗначениеЗаполнено(Напоминание.СпособУстановкиВремениНапоминания) Тогда
@@ -813,7 +833,6 @@
 			Или ГрафикСобытияНаГод.Количество() = 1 И ТекущаяДатаСеанса() > ДобавитьМесяц(Напоминание.ВремяСобытия, 1)
 			// - напоминание ежемесячное, но уже прошла неделя со времени события.
 			Или ГрафикСобытияНаГод.Количество() = 12 И ТекущаяДатаСеанса() > Напоминание.ВремяСобытия + 60*60*24*7 Тогда
-				ВремяБлижайшегоСобытия = Неопределено;
 				Если ПодошедшееВремяСобытия.Количество() > 0 Тогда
 					ОтключитьНапоминание(Напоминание, Ложь);