- Рефакторинг процедур http запросов

- Изменил структуру логирования
- Добавил метод sendDocument()
- Структурировал код для большей читабельности

src/cf/CommonForms/ТелеграмВебХук/Ext/Form.xml

@@ -4,16 +4,29 @@
 	<AutoCommandBar name="ФормаКоманднаяПанель" id="-1"/>
 	<Events>
 		<Event name="AfterWrite">ПослеЗаписи</Event>
+		<Event name="OnOpen">ПриОткрытии</Event>
+		<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
 	</Events>
 	<ChildItems>
 		<InputField name="ТелеграмВебХук" id="1">
 			<DataPath>НаборКонстант.ТелеграмВебХук</DataPath>
 			<EditMode>EnterOnInput</EditMode>
+			<AutoMaxWidth>false</AutoMaxWidth>
 			<MultiLine>true</MultiLine>
 			<ExtendedEditMultipleValues>true</ExtendedEditMultipleValues>
 			<ContextMenu name="ТелеграмВебХукКонтекстноеМеню" id="2"/>
 			<ExtendedTooltip name="ТелеграмВебХукРасширеннаяПодсказка" id="3"/>
 		</InputField>
+		<Button name="УдалитьВебХук" id="4">
+			<Type>UsualButton</Type>
+			<CommandName>Form.Command.УдалитьВебХук</CommandName>
+			<ExtendedTooltip name="УдалитьВебХукРасширеннаяПодсказка" id="5"/>
+		</Button>
+		<Button name="ВывестиИнформациюОВебхуке" id="6">
+			<Type>UsualButton</Type>
+			<CommandName>Form.Command.ВывестиИнформациюОВебхуке</CommandName>
+			<ExtendedTooltip name="ВывестиИнформациюОВебхукеРасширеннаяПодсказка" id="7"/>
+		</Button>
 	</ChildItems>
 	<Attributes>
 		<Attribute name="НаборКонстант" id="1">
@@ -24,4 +37,36 @@
 			<SavedData>true</SavedData>
 		</Attribute>
 	</Attributes>
+	<Commands>
+		<Command name="УдалитьВебХук" id="1">
+			<Title>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Удалить веб хук</v8:content>
+				</v8:item>
+			</Title>
+			<ToolTip>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Удалить веб хук</v8:content>
+				</v8:item>
+			</ToolTip>
+			<Action>УдалитьВебХук</Action>
+		</Command>
+		<Command name="ВывестиИнформациюОВебхуке" id="2">
+			<Title>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Вывести информацию о вебхуке</v8:content>
+				</v8:item>
+			</Title>
+			<ToolTip>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Вывести информацию о вебхуке</v8:content>
+				</v8:item>
+			</ToolTip>
+			<Action>ВывестиИнформациюОВебхуке</Action>
+		</Command>
+	</Commands>
 </Form>

src/cf/CommonForms/ТелеграмВебХук/Ext/Form/Module.bsl

@@ -2,20 +2,42 @@
 &НаКлиенте
 Процедура ПослеЗаписи(ПараметрыЗаписи)
 	
-	Сообщить(РезультатУстановкиВебХукаНаСервере());
+	Ответ = ТелеграмМетодыВызовСервера.SetWebHook(ТелеграмВебХук());
+	ТекстСообщения = СтрШаблон(?(Ответ.Успех, "Успешно: %1","Ошибка: %1"), Ответ.Описание);
+	Сообщение = Новый СообщениеПользователю;
+	Сообщение.Текст = ТекстСообщения;
+	Сообщение.Сообщить();
 	
 КонецПроцедуры
 
 &НаСервереБезКонтекста
-Функция РезультатУстановкиВебХукаНаСервере()
-	
-	Ответ = ТелеграмМетодыВызовСервера.SetWebHook(Константы.ТелеграмВебХук.Получить());
-	ОтветОбъект = HttpОбщегоНазначения.СтрокаJsonВОбъект(Ответ);
-	
-	Если ОтветОбъект.Получить("description") <> Неопределено Тогда
-		Возврат ОтветОбъект["description"];
-	КонецЕсли;
-	
-	Возврат Ответ;
-	
+Функция ТелеграмВебХук()
+
+	Возврат Константы.ТелеграмВебХук.Получить();
+
 КонецФункции
+
+&НаКлиенте
+Процедура УдалитьВебХук(Команда)
+	
+	Ответ = ТелеграмМетодыВызовСервера.DeleteWebhook();
+	ТекстСообщения = СтрШаблон(?(Ответ.Успех, "Успешно: %1","Ошибка: %1"), Ответ.Описание);
+	Сообщение = Новый СообщениеПользователю;
+	Сообщение.Текст = ТекстСообщения;
+	Сообщение.Сообщить();
+	
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ВывестиИнформациюОВебхуке(Команда)
+	
+	Ответ = ТелеграмМетодыВызовСервера.GetWebhookInfo();
+	Если Ответ.Успех И ЗначениеЗаполнено(Ответ.Тело) Тогда
+		Для каждого ПараметрОтвета из Ответ.Тело["result"] Цикл
+			Сообщение = Новый СообщениеПользователю;
+			Сообщение.Текст = "" + ПараметрОтвета.Ключ + "=" + ПараметрОтвета.Значение;
+			Сообщение.Сообщить();
+		КонецЦикла;
+	КонецЕсли
+	
+КонецПроцедуры