Рефакторинг по замечаниям SonarQube
- Добавил области в модуль общей формы. Исправил прочие замечания SQ.
This commit is contained in:
@@ -4,8 +4,6 @@
|
||||
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1"/>
|
||||
<Events>
|
||||
<Event name="AfterWrite">ПослеЗаписи</Event>
|
||||
<Event name="OnOpen">ПриОткрытии</Event>
|
||||
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
|
||||
</Events>
|
||||
<ChildItems>
|
||||
<InputField name="ТелеграмВебХук" id="1">
|
||||
|
||||
@@ -1,27 +1,26 @@
|
||||
|
||||
#Область ОбработчикиСобытийФормы
|
||||
|
||||
&НаКлиенте
|
||||
Процедура ПослеЗаписи(ПараметрыЗаписи)
|
||||
|
||||
Ответ = ТелеграмМетодыВызовСервера.SetWebHook(ТелеграмВебХук());
|
||||
ТекстСообщения = СтрШаблон(?(Ответ.Успех, "Успешно: %1","Ошибка: %1"), Ответ.Описание);
|
||||
ТекстСообщения = СтрШаблон(?(Ответ.Успех, "Успешно: %1", "Ошибка: %1"), Ответ.Описание);
|
||||
Сообщение = Новый СообщениеПользователю;
|
||||
Сообщение.Текст = ТекстСообщения;
|
||||
Сообщение.Сообщить();
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
&НаСервереБезКонтекста
|
||||
Функция ТелеграмВебХук()
|
||||
#КонецОбласти
|
||||
|
||||
Возврат Константы.ТелеграмВебХук.Получить();
|
||||
|
||||
КонецФункции
|
||||
#Область ОбработчикиКомандФормы
|
||||
|
||||
&НаКлиенте
|
||||
Процедура УдалитьВебХук(Команда)
|
||||
|
||||
Ответ = ТелеграмМетодыВызовСервера.DeleteWebhook();
|
||||
ТекстСообщения = СтрШаблон(?(Ответ.Успех, "Успешно: %1","Ошибка: %1"), Ответ.Описание);
|
||||
ТекстСообщения = СтрШаблон(?(Ответ.Успех, "Успешно: %1", "Ошибка: %1"), Ответ.Описание);
|
||||
Сообщение = Новый СообщениеПользователю;
|
||||
Сообщение.Текст = ТекстСообщения;
|
||||
Сообщение.Сообщить();
|
||||
@@ -33,11 +32,25 @@
|
||||
|
||||
Ответ = ТелеграмМетодыВызовСервера.GetWebhookInfo();
|
||||
Если Ответ.Успех И ЗначениеЗаполнено(Ответ.Тело) Тогда
|
||||
Для каждого ПараметрОтвета из Ответ.Тело["result"] Цикл
|
||||
Для каждого ПараметрОтвета Из Ответ.Тело["result"] Цикл
|
||||
Сообщение = Новый СообщениеПользователю;
|
||||
Сообщение.Текст = "" + ПараметрОтвета.Ключ + "=" + ПараметрОтвета.Значение;
|
||||
Сообщение.Сообщить();
|
||||
КонецЦикла;
|
||||
КонецЕсли
|
||||
КонецЕсли;
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
#Область СлужебныеПроцедурыИФункции
|
||||
|
||||
&НаСервереБезКонтекста
|
||||
Функция ТелеграмВебХук()
|
||||
|
||||
Возврат Константы.ТелеграмВебХук.Получить();
|
||||
|
||||
КонецФункции
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
|
||||
Reference in New Issue
Block a user