Изменения в форме настроек

- Улучшил механизм переключения webhook/long poll
- Изменил расписания оповещения об актуальности

src/cf/CommonForms/Настройки/Ext/Form/Module.bsl

@@ -1,4 +1,5 @@
-
+#Область ОбработчикиСобытийФормы
+
 &НаКлиенте
 Процедура ПослеЗаписи(ПараметрыЗаписи)
 	
@@ -18,12 +19,14 @@
 		Сообщение.Текст = "Не заполнен адрес вебхука";
 		Сообщение.Поле = "НаборКонстант.ТелеграмВебХук";
 		Сообщение.Сообщить();
-		ПараметрыЗаписи.Вставить("Модифицированность");
+		//ПараметрыЗаписи.Вставить("Модифицированность");
+		Отказ = Истина;
+		Возврат;
 	КонецЕсли;
 	
-	Если Модифицированность ИЛИ НужноУказатьВебхух Тогда
-		ПараметрыЗаписи.Вставить("Модифицированность");
-	КонецЕсли;
+	//Если Модифицированность ИЛИ НужноУказатьВебхух Тогда
+		ПараметрыЗаписи.Вставить("Модифицированность", Модифицированность);
+	//КонецЕсли;
 	
 КонецПроцедуры
 
@@ -41,7 +44,6 @@
 	УстановитьПривилегированныйРежим(Истина);
 	
 	Если КэшЗначений.ТелеграмИспользоватьВебХук И НЕ ТекущийОбъект.ТелеграмИспользоватьВебХук Тогда
-		ТелеграмМетодыВызовСервера.DeleteWebhook();
 		ТелеграмРегламентВызовСервера.ЗапускПроверкиОбновлений();
 	КонецЕсли;
 	
@@ -51,4 +53,25 @@
 	
 	УстановитьПривилегированныйРежим(Ложь);
 	
-КонецПроцедуры
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ТелеграмИспользоватьВебХукПриИзменении(Элемент)
+	
+	УстановитьЗначениеКонстанты(НаборКонстант.ТелеграмИспользоватьВебХук);
+	ОбновитьИнтерфейс();
+	
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+&НаСервереБезКонтекста
+Процедура УстановитьЗначениеКонстанты(ЗначениеКонстанты)
+
+	Константы.ТелеграмИспользоватьВебХук.Установить(ЗначениеКонстанты);
+
+КонецПроцедуры
+
+#КонецОбласти