- Добавил доработки

src/cf/CommonModules/ТелеграмРаботаСКлавиатурой/Ext/Module.bsl

@@ -16,7 +16,35 @@
 	
 КонецФункции
 
-Функция КнопкаКлавиатуры(Надпись) Экспорт
+Функция КлавиатураВстроенная(Клавиатура) Экспорт
+	
+	СоответствиеКлавиатуры = Новый Соответствие();
+	
+	СоответствиеКлавиатуры.Вставить("inline_keyboard", Клавиатура);
+	
+	Возврат СоответствиеКлавиатуры;
+	
+КонецФункции
+
+
+Функция КнопкаКлавиатурыВстроенной(Надпись, Url = Неопределено, CallbackData = Неопределено) Экспорт
+	
+	СоответствиеКнопка = Новый Соответствие;
+	СоответствиеКнопка.Вставить("text", ?(НЕ ЗначениеЗаполнено(Надпись), "<?>", Надпись));
+	
+	Если Url <> Неопределено Тогда
+		СоответствиеКнопка.Вставить("url", Url);
+	КонецЕсли;
+
+	Если CallbackData <> Неопределено Тогда
+		СоответствиеКнопка.Вставить("callback_data", CallbackData);
+	КонецЕсли;
+	
+	Возврат СоответствиеКнопка;
+	
+КонецФункции
+
+Функция КнопкаКлавиатурыОтвета(Надпись) Экспорт
 	
 	СоответствиеКнопка = Новый Соответствие;
 	СоответствиеКнопка.Вставить("text", ?(НЕ ЗначениеЗаполнено(Надпись), "<?>", Надпись));
@@ -34,7 +62,7 @@
 	КонецЕсли;
 	
 	Для каждого НадписьКнопки Из МассивНаименованийКнопок Цикл
-		Результат.Добавить(КнопкаКлавиатуры(НадписьКнопки));
+		Результат.Добавить(КнопкаКлавиатурыОтвета(НадписьКнопки));
 	КонецЦикла;
 	
 	Возврат Результат;