Содержание
Регистрация бота
Для начала, зарегистрируем бота, получим его id — токен. В Telegram для этого создан специальный бот — @BotFather. Добавляем его в контакт. Получаем получаем список его команд, написав ему /start.
Введите команду /newbot — бот попросит придумать имя нашему новому боту (оно должно оканчиваться на «bot»). BotFather предоставит токен бота и ссылку для добавления бота в контакты. Проверим полученный токен с помощью ссылки api.telegram.org/bot<TOKEN>/getMe
Этого, в принципе, достаточно.
Создание обработки в 1С
Создадим внешнюю обработку. Добавим реквизиты обработки строковый переменной длины «Бот», «Токен», «Сервер».
Т.к. обработку не будем привязывать к конкретной конфигурации, то список понимаемых команд будем хранить в табличной части обработки «ТаблицаПонимаемыхКоманд» (а так, в принципе, команды можно хранить в справочнике конфигурации).
Реквизиты ТЧ строковые: «Имя», «ВыполняемоеДействие», «Параметр», «Описание»
Команды пользователя (те, которые он буде писать боту) по той же причине будем хранить в табличной части «КомандыПользователей» (если не делать обработку универсальной, то, конечно, предпочтительно использовать регистр сведений – далее, в листингах кода укажем примеры и для регистра сведений тоже).
Реквизиты ТЧ: числовые «chat_id», «date», булево «Выполнено» и строковый «Команда»
Теперь создадим управляемую форму обработки, назначим ее основной и разместим реквизиты «Бот» и «Токен» (необязательно, но для наглядности):
Также создадим реквизит формы «Дерево» – тип «ДеревоЗначений». В нем будут отображаться чаты. Для наглядности выведем его на форму. Колонки дерева создадим программно (см.далее).
Для события формы ПриСозданииНаСервере добавим процедуру:
&НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) Объект.Бот = «@бот_bot»;//Имя бота Объект.Токен = «111111111:ххххххххххххххххххххххCJw»;//Ваш токен telegram Объект.Сервер = «api.telegram.org»; //Заполнение таблицы команд бота НоваяКоманда = Объект.ТаблицаПонимаемыхКоманд.Добавить(); НоваяКоманда.Имя = «/start»; НоваяКоманда.ВыполняемоеДействие = «ВывестиПриветствие»; НоваяКоманда.Параметр = «»; НоваяКоманда.Описание = «начало работы»; НоваяКоманда.Параметр = «»; НоваяКоманда = Объект.ТаблицаПонимаемыхКоманд.Добавить(); НоваяКоманда.Имя = «/help»; НоваяКоманда.ВыполняемоеДействие = «ВывестиПодсказку»; НоваяКоманда.Описание = «получение подсказки»; НоваяКоманда.Параметр = «»; НоваяКоманда = Объект.ТаблицаПонимаемыхКоманд.Добавить(); НоваяКоманда.Имя = «/sys_info»; НоваяКоманда.ВыполняемоеДействие = «СистемнаИнформация»; НоваяКоманда.Описание = «системная инф-ция. Параметр через пробел:» + Символы.ПС + Символы.Таб + «ВерсияОС;ВерсияПриложения {по умолчанию};ИдентификаторКлиента;ИнформацияПрограммыПросмотра;ОперативнаяПамять;Процессор;ТипПлатформы.»; НоваяКоманда.Параметр = «»; КонецПроцедуры
Создадим команду формы «ПоказатьСообщения», выведем ее на форму в виде кнопки и Обработчик команды
&НаКлиенте Процедура ПоказатьСообщения(Команда = Неопределено) Ресурс = «bot» + Объект.Токен + «/getUpdates»; Соединение = Новый HTTPСоединение(Объект.Сервер,443,,,,,Новый ЗащищенноеСоединениеOpenSSL()); Запрос = Новый HTTPЗапрос(Ресурс); Ответ = Соединение.Получить(Запрос); ДвоичныеДанныеОтвета = Ответ.ПолучитьТелоКакДвоичныеДанные(); ПрочитатьДвоичныеДанныеОтвета(ДвоичныеДанныеОтвета); КонецПроцедуры
Обратите внимание, что для протокола «https» порт указывается 443
Если Вы используете версию 1С 8.3.6 и выше, то в процедура ПрочитатьДвоичныеДанныеОтвета() будем использовать новый объект ЧтениеJSON().
&НаСервере Процедура ПрочитатьДвоичныеДанныеОтвета(ДвоичныеДанныеОтвета) ИмяФайла = ПолучитьИмяВременногоФайла(«tgm»); ДвоичныеДанныеОтвета.Записать(ИмяФайла); ДеревоЗн = Новый ДеревоЗначений(); //{Для версии 1С 8.3.6 и выше ЧтениеJSON = Новый ЧтениеJSON(); ЧтениеJSON.ОткрытьФайл(ИмяФайла); СформироватьДерево(ДеревоЗн, ДеревоЗн, ЧтениеJSON); ЧтениеJSON.Закрыть(); //} //Создание колонок Реквизита формы типа ДанныеФормыДерево Если ЭтаФорма.Элементы.Дерево.ПодчиненныеЭлементы.Количество() = 0 Тогда МассивДобавляемыхРеквизитов = Новый Массив; Для Каждого Колонка Из ДеревоЗн.Колонки Цикл МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы(Колонка.Имя, Колонка.ТипЗначения, «Дерево»)); КонецЦикла; ИзменитьРеквизиты(МассивДобавляемыхРеквизитов); КонецЕсли; //// // Преобразование объекта прикладного типа ДеревоЗначений // в реквизит управляемой формы (данные формы) ЗначениеВРеквизитФормы(ДеревоЗн, «Дерево»); //Создание колонок элемента формы типа ТаблицаФормы для отображения дерева //которое для наглядности разместили на форме дерево сообщений Если ЭтаФорма.Элементы.Дерево.ПодчиненныеЭлементы.Количество() = 0 Тогда Для Каждого Колонка Из ДеревоЗн.Колонки Цикл НовыйЭлемент = Элементы.Добавить(Колонка.Имя, Тип(«ПолеФормы»), Элементы.Дерево); НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода; НовыйЭлемент.ПутьКДанным = «Дерево.» + Колонка.Имя; КонецЦикла; КонецЕсли; //// ЗаполнитьРС(ДеревоЗн); КонецПроцедуры
В процедуре ЗаполнитьРС() будем заполнять табличную часть «КомандыПользователей» (или же регистр сведений). (код процедуры далее).
Процедура ЗаполнитьСтруктуруИзОтветаJSON() заполняет дерево чатов:
//Рекурсивное заполнение дерева для версии 1С 8.3.6 и выше &НаСервере Процедура СформироватьДерево(Дерево, СтрДерево, ЧтениеJSON, Знач ИмяКолонки = Неопределено) ЧтениеJSON.Прочитать(); TипJSON = ЧтениеJSON.ТипТекущегоЗначения; Если TипJSON = ТипЗначенияJSON.НачалоОбъекта ИЛИ TипJSON = ТипЗначенияJSON.НачалоМассива Тогда НовСтр = СтрДерево.Строки.Добавить(); СформироватьДерево(Дерево, НовСтр, ЧтениеJSON); ИначеЕсли TипJSON = ТипЗначенияJSON.ИмяСвойства Тогда СформироватьДерево(Дерево, СтрДерево, ЧтениеJSON, ЧтениеJSON.ТекущееЗначение); ИначеЕсли TипJSON = ТипЗначенияJSON.Число ИЛИ TипJSON = ТипЗначенияJSON.Строка ИЛИ TипJSON = ТипЗначенияJSON.Булево ИЛИ TипJSON = ТипЗначенияJSON.Null Тогда Если Дерево.Колонки.Найти(ИмяКолонки) = Неопределено Тогда Дерево.Колонки.Добавить(ИмяКолонки); КонецЕсли; СтрДерево = ЧтениеJSON.ТекущееЗначение; СформироватьДерево(Дерево, СтрДерево, ЧтениеJSON); ИначеЕсли TипJSON = ТипЗначенияJSON.Комментарий Тогда Если Дерево.Колонки.Найти(«Комментарий») = Неопределено Тогда Дерево.Колонки.Добавить(«Комментарий»); КонецЕсли; СтрДерево.Комментарий = ЧтениеJSON.ТекущееЗначение; СформироватьДерево(Дерево, СтрДерево, ЧтениеJSON); ИначеЕсли СтрДерево <> Неопределено Тогда СформироватьДерево(Дерево, СтрДерево.Родитель, ЧтениеJSON); КонецЕсли; КонецПроцедуры //}
Если Вы используете версию 1С ниже 8.3.6 то процедура ПрочитатьДвоичныеДанныеОтвета() будет такой:
&НаСервере Процедура ПрочитатьДвоичныеДанныеОтвета(ДвоичныеДанныеОтвета) ИмяФайла = ПолучитьИмяВременногоФайла(«tgm»); ДвоичныеДанныеОтвета.Записать(ИмяФайла); ДеревоЗн = Новый ДеревоЗначений(); //{для версии 1С ниже 8.3.6 — раскомментируйте ЧтениеJSON = Новый ТекстовыйДокумент(); ЧтениеJSON.Прочитать(ИмяФайла); Рез = ЗаполнитьСтруктуруИзОтветаJSON(ДеревоЗн, ДеревоЗн.Строки.Добавить(), ЧтениеJSON.ПолучитьТекст()); //} //Создание колонок Реквизита формы типа ДанныеФормыДерево Если ЭтаФорма.Элементы.Дерево.ПодчиненныеЭлементы.Количество() = 0 Тогда МассивДобавляемыхРеквизитов = Новый Массив; Для Каждого Колонка Из ДеревоЗн.Колонки Цикл МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы(Колонка.Имя, Колонка.ТипЗначения, «Дерево»)); КонецЦикла; ИзменитьРеквизиты(МассивДобавляемыхРеквизитов); КонецЕсли; //// // Преобразование объекта прикладного типа ДеревоЗначений // в реквизит управляемой формы (данные формы) ЗначениеВРеквизитФормы(ДеревоЗн, «Дерево»); //Создание колонок элемента формы типа ТаблицаФормы для отображения дерева //которое для наглядности разместили на форме дерево сообщений Если ЭтаФорма.Элементы.Дерево.ПодчиненныеЭлементы.Количество() = 0 Тогда Для Каждого Колонка Из ДеревоЗн.Колонки Цикл НовыйЭлемент = Элементы.Добавить(Колонка.Имя, Тип(«ПолеФормы»), Элементы.Дерево); НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода; НовыйЭлемент.ПутьКДанным = «Дерево.» + Колонка.Имя; КонецЦикла; КонецЕсли; //// ЗаполнитьРС(ДеревоЗн); КонецПроцедуры
Как уже было сказано, в процедуре ЗаполнитьРС() будем заполнять табличную часть «КомандыПользователей» (или же регистр сведений). (код процедуры далее).
Процедура ЗаполнитьСтруктуруИзОтветаJSON() – это парсер JSON и рекурсивное заполнение дерева для версии ниже 1С 8.3.6:
//{Рекурсивное заполнение дерева для версии ниже 1С 8.3.6 &НаСервере Функция ЗаполнитьСтруктуруИзОтветаJSON(Дерево, СтрДерево, Знач ТекстJSON) Экспорт Результат = Новый Структура; ТекстJSON = СтрЗаменить(ТекстJSON, «\»»», «»»»); ТекстJSON = СтрЗаменить(ТекстJSON, «»»», «»); Если Лев(ТекстJSON, 1) = «{» Тогда ЗаполнитьДанныеИзОтветаJSON(Результат, ТекстJSON, «Структура», Дерево, СтрДерево); ИначеЕсли Лев(ТекстJSON, 1) = «» И ТипДанных = «Массив» Тогда ТекстJSON = СокрЛП(Сред(ТекстJSON, 2)); Если Лев(ТекстJSON, 1) = «,» Тогда ТекстJSON = СокрЛП(Сред(ТекстJSON, 2)); КонецЕсли; Возврат; Иначе Если ТипДанных = «Структура» Тогда Поз = Найти(ТекстJSON, «:»); Если Поз = 0 Тогда Прервать; КонецЕсли; ИмяЗначения = СокрЛП(Лев(ТекстJSON, Поз-1)); ТекстJSON = СокрЛП(Сред(ТекстJSON, Поз+1)); Если Лев(ТекстJSON, 1) = «{» Тогда Значение = Новый Структура; НовСтр = СтрДерево.Строки.Добавить(); ЗаполнитьДанныеИзОтветаJSON(Значение, ТекстJSON, «Структура», Дерево, НовСтр); ИначеЕсли Лев(ТекстJSON, 1) = «» ИЛИ Символ = «}» Тогда Поз = Сч; Прервать; КонецЕсли; КонецЦикла; Если Поз = 0 Тогда Значение = ТекстJSON; ТекстJSON = «»; Иначе Значение = Лев(ТекстJSON, Поз-1); ТекстJSON = СокрЛП(Сред(ТекстJSON, Поз + ?(Сред(ТекстJSON, Поз, 1) = «,», 1, 0))); КонецЕсли; Значение = СокрЛП(Значение); КонецЕсли; Результат.Вставить(ИмяЗначения, Значение); Если Дерево.Колонки.Найти(ИмяЗначения) = Неопределено Тогда Дерево.Колонки.Добавить(ИмяЗначения); КонецЕсли; Если ИмяЗначения = «text» Тогда СтрДерево = ?(СтрДлина(Значение) > 1, Сред(Значение, 2), Значение); ИначеЕсли ИмяЗначения = «id» ИЛИ ИмяЗначения = «date» Тогда СтрДерево = Число(Значение); Иначе СтрДерево = Значение; КонецЕсли; ИначеЕсли ТипДанных = «Массив» Тогда Поз = 0; Для Сч = 1 По СтрДлина(ТекстJSON) Цикл Символ = Сред(ТекстJSON, Сч, 1); Если Символ = «,» ИЛИ Символ = «]» ИЛИ Символ = «}» Тогда Поз = Сч; Прервать; КонецЕсли; КонецЦикла; Если Поз = 0 Тогда Значение = ТекстJSON; ТекстJSON = «»; Иначе Значение = Лев(ТекстJSON, Поз-1); ТекстJSON = СокрЛП(Сред(ТекстJSON, Поз + ?(Сред(ТекстJSON, Поз, 1) = «,», 1, 0))); КонецЕсли; Значение = СокрЛП(Значение); Результат.Добавить(Значение); КонецЕсли; КонецЕсли; КонецЦикла; КонецПроцедуры
Теперь опишем процедуру, заполняющую табличную часть «КомандыПользователей» либо регистр сведений:
&НаСервере Процедура ЗаполнитьРС(ДеревоЗн) Для Каждого СтрОк Из ДеревоЗн.Строки Цикл//»Ок» Для Каждого СтрНов Из СтрОк.Строки Цикл// Для Каждого СтрАп Из СтрНов.Строки Цикл//update_id Для Каждого СтрМесс Из СтрАп.Строки Цикл//message_id date = СтрМесс.date; Команда = СокрЛП(СтрМесс.text); Параметр = «»; ПозицияПараметра = Найти(Команда, » «);//СтрНайти(Команда, » «) не подходит, т.к. ищет в различных направлениях — не только с начала строки Если ПозицияПараметра <> 0 Тогда Параметр = СокрЛП(Сред(Команда, ПозицияПараметра + 1)); //{если версия ниже 1С 8.3.6 разкомментируйте //Параметр = ПереобразоватьЮникод(Параметр); //} Команда = Лев(Команда, ПозицияПараметра — 1); КонецЕсли; Если ЗначениеЗаполнено(Команда) Тогда МассивНайденныхКоманд = Объект.ТаблицаПонимаемыхКоманд.НайтиСтроки(Новый Структура(«Имя», Команда)); Если МассивНайденныхКоманд.Количество() > 0 Тогда Для Каждого СтрИнфо Из СтрМесс.Строки Цикл//message_id chat_id = СтрИнфо.id; Если ЗначениеЗаполнено(chat_id) И chat_id > 0 Тогда //{Раскомментируйте, если используете регистр сведений КомандыПользователей //РС = РегистрыСведений.КомандыПользователей.СоздатьНаборЗаписей(); //РС.Отбор.chat_id.Установить(chat_id); //РС.Отбор.date.Установить(date); //РС.Прочитать(); // //Если РС.Количество() > 0 Тогда // // Для Каждого СтрРС Из РС Цикл // Если НЕ СтрРС.Выполнено Тогда // СтрРС.Выполнено = ВыполнитьКомандуБота(СтрРС); // КонецЕсли; // КонецЦикла; // // РС.Записать(); // //Иначе // РСЗ = РегистрыСведений.КомандыПользователей.СоздатьМенеджерЗаписи(); // РСЗ.chat_id = chat_id; // РСЗ.date = date; // РСЗ.Команда = Команда; // РСЗ.Выполнено = ВыполнитьКомандуБота(РСЗ); // РСЗ.Записать(); // //КонецЕсли; //} //{а это закомментируйте, если используете РС КомандыПользователей РС = Объект.КомандыПользователей.НайтиСтроки(Новый Структура(«chat_id, date», chat_id, date)); Если РС.Количество() > 0 Тогда Для Каждого СтрРС Из РС Цикл Если НЕ СтрРС.Выполнено Тогда СтрРС.Выполнено = ВыполнитьКомандуБота(СтрРС, Параметр); КонецЕсли; КонецЦикла; Иначе РСЗ = Объект.КомандыПользователей.Добавить(); РСЗ.chat_id = chat_id; РСЗ.date = date; РСЗ.Команда = Команда; РСЗ.Выполнено = ВыполнитьКомандуБота(РСЗ, Параметр); КонецЕсли; //} прервать; КонецЕсли; КонецЦикла; Иначе //команда не найдена //можно вывести справку по командам //… КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; КонецЦикла КонецПроцедуры
Если вы будете использовать регистр сведений (я назвал его «КомандыПользователей»), то закомментируйте/раскомментируйте соответствующие участки кода.
Обратите внимание, что если версия ниже 1С 8.3.6, то в коде переменную Параметр надо преобразовать из Юникода (этот участок обозначен в коде в комментарии):
//{если версия ниже 1С 8.3.6 разкомментируйте //Параметр = ПереобразоватьЮникод(Параметр); //} Для этого используем две функции Юникод – парсер (он нужен только для версии 1С ниже 8.3.6): &НаСервере Функция ПереобразоватьЮникод(Знач СтрокаВход) Строка = СтрокаВход; // Создаем таблицу спецСимволов ТаблицаСимволов = Новый ТаблицаЗначений; ТаблицаСимволов.Колонки.Добавить(«КодСимвола»,Новый ОписаниеТипов(«Строка», , Новый КвалификаторыСтроки(9, ДопустимаяДлина.Переменная)),,); ТаблицаСимволов.Колонки.Добавить(«ЗначениеКода»,Новый ОписаниеТипов(«Строка», , Новый КвалификаторыСтроки(1, ДопустимаяДлина.Переменная)),,); Стр = ТаблицаСимволов.Добавить(); Стр.КодСимвола = «\»»»; Стр.ЗначениеКода = «»»»; Стр = ТаблицаСимволов.Добавить(); Стр.КодСимвола = «\n»; Стр.ЗначениеКода = Символы.ПС; Стр = ТаблицаСимволов.Добавить(); Стр.КодСимвола = «\t»; Стр.ЗначениеКода = Символы.Таб; Стр = ТаблицаСимволов.Добавить(); Стр.КодСимвола = «\/»; Стр.ЗначениеКода = «\»; Стр = ТаблицаСимволов.Добавить(); Стр.КодСимвола = «\u2013»; Стр.ЗначениеКода = «–»; Стр = ТаблицаСимволов.Добавить(); Стр.КодСимвола = «\r»; Стр.ЗначениеКода = Символы.ВК; Стр = ТаблицаСимволов.Добавить(); Стр.КодСимвола = «\u00bb»; Стр.ЗначениеКода = «»»»; Стр = ТаблицаСимволов.Добавить(); Стр.КодСимвола = «\u00ab»; Стр.ЗначениеКода = «»»»; Для каждого Стр Из ТаблицаСимволов Цикл // перебор спец символов КодСимв = СокрЛП(Стр.КодСимвола); ЗначениеСимвола = Стр.ЗначениеКода; Строка = СтрЗаменить(Строка,КодСимв,ЗначениеСимвола); КонецЦикла; СтрокаСимволов =»абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ»»»; // набор декодируемых символов. Если вам нужны еще символы просто впишите их КоличествоСимв = СтрДлина(СтрокаСимволов); Счетчик = 0; Пока Счетчик <= КоличествоСимв Цикл // кодировка в обычные символы ТекСимвол = Сред(СтрокаСимволов,Счетчик,1); ЮКод = ЮникодСимвола(ТекСимвол); Строка = СтрЗаменить(Строка,НРег(ЮКод),ТекСимвол); Строка = СтрЗаменить(Строка,ВРег(ЮКод),ТекСимвол); Счетчик = Счетчик+1; КонецЦикла; Возврат Строка; КонецФункции &НаСервере Функция ЮникодСимвола(знач Символ) пЧисло = КодСимвола(Символ,1); СимвСтр = «\u0000»; лЦифры = «123456789ABCDEF»; Рез = пЧисло; лСтр = «»; Пока Рез > 0 Цикл Ост = Рез % 16; если ост < 10 Тогда лСтр= «»+Ост+лСтр; Иначе лСтр = Сред(лЦифры, Ост, 1) + лСтр; КонецЕсли; Рез = Цел(Рез / 16); КонецЦикла; Возврат Лев(СимвСтр,6-СтрДлина(лСтр))+лСтр; КонецФункции //}
В процедуре ЗаполнитьРС() вызывается функция ВыполнитьКомандуБота(ЗаписьРегистра, Параметр), где ЗаписьРегистра – это строка табличной части ТаблицаПонимаемыхКоманд. Параметр – параметр команды (то, что написал боту пользователь).
&НаСервере Функция ВыполнитьКомандуБота(ЗаписьРегистра, Параметр) Команда = ЗаписьРегистра.Команда; МассивНайденныхСтрок = Объект.ТаблицаПонимаемыхКоманд.НайтиСтроки(Новый Структура(«Имя», Команда));//исправьте, если используете РС Если МассивНайденныхСтрок.Количество() > 0 Тогда Для Каждого Стр Из МассивНайденныхСтрок Цикл Если Стр.ВыполняемоеДействие = «ВывестиПриветствие» Тогда //////ВывестиПриветствие(ЗаписьРегистра.chat_id); ИначеЕсли Стр.ВыполняемоеДействие = «ВывестиПодсказку» Тогда //////ВывестиПодсказку(ЗаписьРегистра.chat_id); ИначеЕсли Стр.ВыполняемоеДействие = «СистемнаИнформация» Тогда //////ВывестиСистемнуюИнформацию(ЗаписьРегистра.chat_id, Параметр); Иначе //////ВывестиПодсказку(ЗаписьРегистра.chat_id); КонецЕсли; КонецЦикла; Иначе //////ВывестиПодсказку(ЗаписьРегистра.chat_id); КонецЕсли; возврат Истина; КонецФункции &НаСервере Процедура СообщитьОбОшибке(chat_id, ТекстОшибки) Ресурс = «bot» + Объект.Токен + «/sendMessage?chat_id=» + СтрЗаменить(Формат(chat_id, «ЧДЦ=; ЧС=; ЧРГ=.»), «.», «») + «&text=» + ТекстОшибки; Соединение = Новый HTTPСоединение(Объект.Сервер,443,,,,,Новый ЗащищенноеСоединениеOpenSSL()); Запрос = Новый HTTPЗапрос(Ресурс); Ответ = Соединение.Получить(Запрос); КонецПроцедуры //Текстовое представление списка команд &НаСервере Функция СписокКоманд() СтрВозврата = «»; Для Каждого Стр Из Объект.ТаблицаПонимаемыхКоманд Цикл СтрВозврата = СтрВозврата + ?(СтрВозврата <> «», Символы.ПС, «») + Стр.Имя + » — » + Стр.Описание; КонецЦикла; возврат СтрВозврата; КонецФункции &НаСервере Процедура ВывестиПриветствие(chat_id) Ресурс = «bot» + Объект.Токен + «/sendMessage?chat_id=» + СтрЗаменить(Формат(chat_id, «ЧДЦ=; ЧС=; ЧРГ=.»), «.», «») + «&text= Здравствуйте!» + Символы.ПС + СписокКоманд() + Символы.ПС + «Удачи!»; Соединение = Новый HTTPСоединение(Объект.Сервер,443,,,,,Новый ЗащищенноеСоединениеOpenSSL()); Запрос = Новый HTTPЗапрос(Ресурс); Ответ = Соединение.Получить(Запрос); КонецПроцедуры &НаСервере Процедура ВывестиПодсказку(chat_id) Ресурс = «bot» + Объект.Токен + «/sendMessage?chat_id=» + СтрЗаменить(Формат(chat_id, «ЧДЦ=; ЧС=; ЧРГ=.»), «.», «») + «&text= » + СписокКоманд(); Соединение = Новый HTTPСоединение(Объект.Сервер,443,,,,,Новый ЗащищенноеСоединениеOpenSSL()); Запрос = Новый HTTPЗапрос(Ресурс); Ответ = Соединение.Получить(Запрос); КонецПроцедуры &НаСервере Процедура ВывестиСистемнуюИнформацию(chat_id, Параметр) Параметр = ?(СокрЛП(Параметр) = «», «ВерсияПриложения», СокрЛП(Параметр)); Инфо = Новый СистемнаяИнформация(); Информация = «»; Попытка Информация = Инфо; Исключение Информация = ОписаниеОшибки(); КонецПопытки; Ресурс = «bot» + Объект.Токен + «/sendMessage?chat_id=» + СтрЗаменить(Формат(chat_id, «ЧДЦ=; ЧС=; ЧРГ=.»), «.», «») + «&text= » + Информация; Соединение = Новый HTTPСоединение(Объект.Сервер,443,,,,,Новый ЗащищенноеСоединениеOpenSSL()); Запрос = Новый HTTPЗапрос(Ресурс); Ответ = Соединение.Получить(Запрос); КонецПроцедуры
Здесь ВывестиСистемнуюИнформацию() – выводит информацию из базы данных1С. В нашем примере пользователю в Telegram бот может отправить информацию:
- о версии операционной системы;
- о версии используемого 1С:Предприятия 8 в формате <основная версия>.<младшая версия>.<релиз>.<дополнительный номер релиза>.(например, 8.2.9.200);
- Уникальный идентификатор клиента. Для данного компьютера и данного пользователя операционной системы идентификатор один, вне зависимости от информационной базы и пользователя информационной базы;
- о веб-браузере (userAgent);
- о размере оперативной памяти;
- Идентификатор процессора;
- тип платформы, в рамках которой осуществляется работа.
Все, что мы сделали будет работать только тогда, когда пользователь нажмет кнопку «Показать сообщения».
Для того, чтобы все работало автоматом, лучше использовать фоновое задание. Но так как наша обработка не привязана к конкретной базе данных и к конкретной конфигурации. То подключим обработчик ожидания.
Сделаем так:
Создадим команду формы «ЗапускФоновыхЗаданий», разместим соответствующую кнопку на форме. Обработчик команды:
//Автоматическая работа &НаКлиенте Процедура АвтоматическаяРабота(Команда) ПодключитьОбработчикОжидания(«Автомат»,15);//Запуск каждые 15 секунд КонецПроцедуры &НаКлиенте Процедура Автомат() ПоказатьСообщения(); КонецПроцедуры ////
Вот и все – обработка прилагается.
Отдельное спасибо пользователю Инфостарт igo1 — перекодировка из Юникода (Unicode) в строку.
Основу для построения чата для версии 1С ниже 8.3.6 (парсер JSON) получил отсюда
UPD. В комментариях был задан вопрос «как отправлять файлы».
Вот текст процедуры, которая выполняет отчет «Продажи» (на СКД), сохраняет результат в Excel и отправляет в Telegram^
Процедура ОтправитьФайл(chat_id) Таб = Новый ТабличныйДокумент; Отчеты.Продажи.Создать().СкомпоноватьРезультат(Таб); ИмяФайла = ПолучитьИмяВременногоФайла(«xlsx»); Таб.Записать(ИмяФайла); СтрокаСоединения = «/bot» + Объект.Токен + «/sendDocument»; Boundary = «—-«+Строка(Новый УникальныйИдентификатор()); //Определяем массив для процедуры ОбъединитьФайлы МассивФайловДляОбъединения = Новый Массив; //Формируем начальный фрагмент файла POST-запроса ИмяФайлаОтправкиНачало = ПолучитьИмяВременногоФайла(«txt»); ФайлОтправкиНачало = Новый ЗаписьТекста(ИмяФайлаОтправкиНачало, КодировкаТекста.UTF8); //Формируем конечный фрагмент файла POST-запроса ИмяФайлаОтправкиКонец = ПолучитьИмяВременногоФайла(«txt»); ФайлаОтправкиКонец = Новый ЗаписьТекста(ИмяФайлаОтправкиКонец, КодировкаТекста.UTF8); ТекстДляОтправки = «»; ТекстДляОтправки = ТекстДляОтправки + «—«+Boundary + Символы.ПС; ТекстДляОтправки = ТекстДляОтправки + «Content-Disposition: form-data; name=»»chat_id»»» + Символы.ПС + Символы.ПС; ТекстДляОтправки = ТекстДляОтправки + chat_id + Символы.ПС; ТекстДляОтправки = ТекстДляОтправки + «—«+Boundary + Символы.ПС; ТекстДляОтправки = ТекстДляОтправки + «Content-Disposition: form-data; name=»»document»»; filename=»»report.xlsx»»» + Символы.ПС; ФайлОтправкиНачало.ЗаписатьСтроку(ТекстДляОтправки ); ФайлОтправкиНачало.Закрыть(); МассивФайловДляОбъединения.Добавить(ИмяФайлаОтправкиНачало); МассивФайловДляОбъединения.Добавить(СокрЛП(ИмяФайла)); ТекстДляОтправки = «» + Символы.ПС; ТекстДляОтправки = ТекстДляОтправки + «—«+Boundary+»—«; ФайлаОтправкиКонец.ЗаписатьСтроку(ТекстДляОтправки); ФайлаОтправкиКонец.Закрыть(); МассивФайловДляОбъединения.Добавить(ИмяФайлаОтправкиКонец); ИмяФайлаОтправки = ПолучитьИмяВременногоФайла(«txt»); ОбъединитьФайлы(МассивФайловДляОбъединения, ИмяФайлаОтправки); HTTPЗапрос = Новый HTTPЗапрос; Заголовки = Новый Соответствие; HTTPЗапрос.Заголовки.Вставить(«Connection», «keep-alive»); HTTPЗапрос.Заголовки.Вставить(«Content-Type», «multipart/form-data; boundary=»+Boundary); HTTPЗапрос.УстановитьИмяФайлаТела(ИмяФайлаОтправки); HTTPЗапрос.АдресРесурса = СтрокаСоединения; ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(Новый СертификатКлиентаWindows, Новый СертификатыУдостоверяющихЦентровWindows); HTTPСоединение = Новый HTTPСоединение(Объект.Сервер,,,,,, ЗащищенноеСоединение); Попытка ОтветHTTP = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос); Исключение СообщитьОбОшибке(chat_id, ОписаниеОшибки()); КонецПопытки; КонецПроцедуры
Спасибо, FSerg, отличие отправки фото от файла — API метод sendDocument.
1С: Предприятие 8 — Ошибка: «Ожидается оператор препроцессора»
При запуске «Закрытие месяца» выдает сообщение об ошибках
{ОбщийМодуль.РезервыПоСомнительнымДолгам.Модуль(1,2)}: Ожидается оператор препроцессора
#Область ПрограммныйИнтерфейс
{ОбщийМодуль.РезервыПоСомнительнымДолгам.Модуль(290,2)}: Ожидается оператор препроцессора
#КонецОбласти
{ОбщийМодуль.РезервыПоСомнительнымДолгам.Модуль(292,2)}: Ожидается оператор препроцессора
#Область РасчетРезервов
{ОбщийМодуль.РезервыПоСомнительнымДолгам.Модуль(765,2)}: Ожидается оператор препроцессора
#КонецОбласти
{ОбщийМодуль.РезервыПоСомнительнымДолгам.Модуль(767,2)}: Ожидается оператор препроцессора
#Область Коллекции
{ОбщийМодуль.РезервыПоСомнительнымДолгам.Модуль(910,2)}: Ожидается оператор препроцессора
#КонецОбласти
Как устранить Ошибку
В файле ReadMe.txt, который входит в пакет обновления релиза сказано: Внимание!
Текущая версия конфигурации «Бухгалтерия предприятия» предназначена
для использования с версией системы 1С:Предприятие не ниже 8.3.8.1747
При работе с операционной системой Microsoft Windows 10 необходимо использовать версию 8.3 платформы «1С:Предприятие».
Работа конфигурации в режимах совместимости «Версия 8.3» и «Версия 8.2.х» поддерживается. Это означает, что
необходимо установить любую платформу линейки 8.3.х.хххх, но не ниже рекомендуемой 8.3.8.1747 Не путайте платформу с конфигурацией (редакцией, релизом)! Смотреть — Установка платформы 1С:Предприятие 8
После написания программы на встроенном языке 1С она сохраняется в конфигурацию в составе модуля. При запуске 1С в режиме 1С Предприятие программа на языке 1С будет выполнена.
Сначала немного терминов:
- Препроцессор — специальная программа, которая перерабатывает программный код из «вида» удобного для работы программиста, в «вид», удобный для работы копилятора;
- Компилятор — специальная программа, которая умеет перерабатывать программный код в «машинный» код — выполняемый непосредственно процессором компьютера;
- Интерпретатор — специальная программа, которая вместо компилирования кода в машинный код для процессора, выполняет его самостоятельно. Интерпретатор с предварительной компиляцией — компилирует программу не в машинный код, а в специальный «байт-код» удобный для последующего выполнения интерпретатором.
Как выполняются программы написанные на встроенном языке 1С?
Программа на языке 1С перед выполнением компилируется – преобразовывается в специальный код.
Выполнение кода на языке 1С производится в три этапа:
- Обработка модулей препроцессором 1С согласно директив препроцессора 1С
- Компиляция в байт-код
- Исполнение
Компиляция производится отдельно на клиенте и отдельно на сервере (даже одного и того же модуля), при первом обращении к нему.
Компилятор 1С на входе получает модуль не в том виде, в каком его видит программист. Препроцессор 1С разрезает модуль на части (вырезая не нужное) и потом соединяет его.
Директива препроцессора 1С — это способ указать препроцессору 1С где будет выполняться указанный участок кода на языке 1С.
Это связано с тем, что выполнение текста программы производится на сервере и на клиенте. Есть функции и процедуры, которые не могут быть выполнены на сервере/клиенте. Например на сервере Вы не можете показать пользователю предупреждение с необходимостью нажатия кнопки ОК.
Поэтому в модуле указывается где должен выполняться код:
- Общий модуль (ветка Общие/Общие модули) – в свойствах модуля указывается может ли он выполняться на сервере и на клиенте
- В остальных модулях – для этого используются директива препроцессора 1С.
Препроцессор 1С
Непосредственно в тексте модуля, блоки программного кода, отмечаются директивы препроцессора 1С:
Функция Пример1() //будет выполнена и на клиенте и на сервере
КонецФункции
#Если Сервер Тогда //будет выполнена только на сервере
Процедура Пример2()
КонецПроцедуры
#КонецЕсли
#Если Клиент Тогда //будет выполнена на клиенте
Процедура Пример3()
КонецПроцедуры
#КонецЕсли
Если никаких инструкций препроцессору 1С в тексте не указано, и использована функция, которую нельзя выполнять на сервере/клиенте, то в момент компилирования модуля (при первом доступе к нему) в исполняемом режиме будет вызвана ошибка.
«Обертывать» можно не только функции, но и конкретные строки исполняемого кода.
Так как компиляция 1С на данный момент еще не началась, то можно с помощью таких блоков создавать функции с одинаковыми наименованиями (для сервера, для клиента).
Есть разница между «функция есть на сервере» и «функцию можно вызывать на сервере». Во втором случае функция «видна» с клиента и может быть вызвана. В первом – не видна на клиенте и может быть вызвана только из другой функции, выполняемой на сервере. Поэтому есть инструкция #Сервер (доступен вызов с клиенте) и #НаСервере (видна только на сервере), и аналогично для клиента.
В модуле управляемой формы инструкции препроцессору 1С рекомендуется использовать только внутри функций/процедур.
Исполнение
После того, как препроцессор 1С «склеил» модуль, он передает его компилятору 1С, который его компилирует. Далее в режиме исполнения код будет выполнен.
При выполнении кода одного модуля, происходит разовое/множественное переключения выполнения с клиента на сервер и обратно.
Например, если требуется выполнить запрос к базе данных, то выполнение будет переключено на сервер, выполнен запрос, данные переданы на клиент. Таким образом модуль существует на сервере и на клиенте.
Переключение исполнения с клиента на сервер и обратно производится «автоматически».
По умолчанию толстый клиент выполняет весь код на клиенте и иногда вызывает сервер. Тонкий клиент наоборот – все выполняет на сервере и иногда вызывает клиент (хотя в любом случае инициализация первого вызова сервера производится клиентом).
Программист в получившемся «склеенном» модуле может для каждой функции указать, где ее требуется исполнять. Не забываем, что доступ к данным производится на сервере, а инициализация вызова на клиенте. Например:
&НаСервере
Функция ПолучитьДанныеБазыДанных()
Запрос = Новый Запрос(«»);
КонецФункции
&НаКлиенте
Процедура ОбработчикНажатияКнопки()
ПолучитьДанныеБазыДанных();
КонецПроцедуры
Ранее, в толстом клиенте, форма создавалась и была доступна только на клиенте (если не передать ее параметром на сервер, конечно). Управляемая форма создается на сервере и может обрабатываться на клиенте и на сервере.
Поэтому, при выполнении функций модуля, при переключении выполнения с клиента на сервер и обратно, передаются кроме прочего все данные формы (называется «контекст»).
Данных может быть много и передаваться они будут «долго». А в вызываемой функции они могут быть и не нужны, она их не использует вовсе. Для таких случаев есть директива &НаСервереБезКонтекста.
Область применения: управляемое приложение, мобильное приложение, обычное приложение.
1. Директивы компиляции:
&НаКлиенте (&AtClient)
&НаСервере (&AtServer)
&НаСервереБезКонтекста (&AtServerNoContext)
следует применять только в коде модулей управляемых форм и в коде модулей команд. В остальных модулях рекомендуется применять инструкции препроцессору.
В серверных или клиентских общих модулях контекст исполнения очевиден, поэтому смысла в директивах компиляции нет. В общих модулях с признаками клиент и сервер применение директив компиляции затрудняет понимание, какие же процедуры (функции) доступны в конечном итоге.
2. Не следует использовать инструкции препроцессора в клиент-серверных общих модулях для проверки клиентского и серверного контекстов (#Если Сервер, #Если Клиент) ввиду невозможности надежного определения контекста исполнения. Процедуры и функции, которые работают по-разному при вызове с клиента и с сервера, следует размещать в общих модулях с постфиксами Клиент и Сервер , а не КлиентСервер .
В противном случае невозможно гарантировать корректную работу клиент-серверных процедур и функций в различных режимах работы платформы 1С:Предприятие.
Функция КодОсновногоЯзыка() Экспорт
#Если НЕ ТонкийКлиент И НЕ ВебКлиент Тогда
Возврат Метаданные.ОсновнойЯзык.КодЯзыка;
#Иначе
Возврат СтандартныеПодсистемыКлиент.ПараметрКлиента(«КодОсновногоЯзыка”);
#КонецЕсли
КонецФункции
Функция КодОсновногоЯзыка() Экспорт
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
Возврат Метаданные.ОсновнойЯзык.КодЯзыка;
#Иначе
Возврат СтандартныеПодсистемыКлиент.ПараметрКлиента(«КодОсновногоЯзыка”);
#КонецЕсли
КонецФункции
Правильно: разделить на две одноименные функции в серверном и клиентском модуле с различной реализацией. В общем случае, когда у них имеется определенная общая часть, одинаковая для клиента и сервера, то для того чтобы избежать дублирования кода, этот общий код (и только его) следует оставить в клиент-серверном общем модуле и вызывать его из клиентской и серверной функций, соответственно. Тем самым надежно достигается различное поведение в клиентском и серверном контекстах без использования инструкций препроцессора.
В то же время, как и в обычных клиентских модулях, допустимо ветвление кода для учета специфики различных режимов работы клиентского приложения: веб-клиент, тонкий или толстый клиент (например, #Если ВебКлиент).
3. Не следует разрывать инструкциями препроцессора и областями отдельные грамматические конструкции, выражения, а также объявления и места вызова процедур и функций.
Процедура Пример1()
а = 1
#Область ИмяОбласти
+ 2;
#КонецОбласти // разрыв выражения
КонецПроцедуры
#Область ИмяОбласти
Процедура Пример2()
// .
#КонецОбласти // разрыв процедуры
КонецПроцедуры
Если Тогда
// .
#Если ВебКлиент Тогда // разрыв блока Если
Иначе
// .
#КонецЕсли
КонецЕсли;
Результат = Пример4(Параметр1,
#Если Клиент Тогда
Параметр2, // некорректный вызов функции
#КонецЕсли
Параметр3);
Данные ошибки диагностируются автоматически с помощью среды разработки 1C:Enterprise Development Tools (EDT).
Правильно использовать инструкции препроцессора без разрыва конструкций.
При запуске «Закрытие месяца” выдает сообщение об ошибках
В файле ReadMe.txt, который входит в пакет обновления релиза сказано:
Внимание!
Текущая версия конфигурации «Бухгалтерия предприятия” предназначена
для использования с версией системы 1С:Предприятие не ниже 8.3.8.1747
При работе с операционной системой Microsoft Windows 10 необходимо использовать версию 8.3 платформы «1С:Предприятие”.
Работа конфигурации в режимах совместимости «Версия 8.3» и «Версия 8.2.х» поддерживается.
Это означает, что
необходимо установить любую платформу линейки 8.3.х.хххх, но не ниже рекомендуемой 8.3.8.1747
Не путайте платформу с конфигурацией (редакцией, релизом)!
После установки новой платформы (8.3.х.хххх) запустите свою рабочую ИБ и ошибка исчезнет.
Подскажите пожалуйста
Установлена 1С: Предприятие 8.2 (8.2.12.87), на нее поставил 1С: Розница. Магазин автозапчастей 2.1 (2.1.3.11). Прои запуске ошибка: : Ожидается оператор препроцессора
# >Область ПрограммныйИнтерфейс
: Ожидается оператор препроцессора
# >КонецОбласти
: Ожидается оператор препроцессора
# >Область ОбработчикиСобытий
: Ожидается оператор препроцессора
# >КонецОбласти