Notes

Процедура ОтправитьНовыеСообщенияТелеграмВЧатыСГД(ВыборкаДетальныеЗаписи, ИДГруппыЧата, ТокенБотаГруппы) Экспорт

УстановитьПривилегированныйРежим(Истина);
АдресTelegramAPI = "api.telegram.org";
СоединениеHTTP = Новый HTTPСоединение(АдресTelegramAPI,443,,,,,Новый ЗащищенноеСоединениеOpenSSL());

ЧтениеJSON = Новый ЧтениеJSON();
Менеджер = РегистрыСведений.БОТ_ЧатСГенеральнымДиректоромЗапросы.СоздатьМенеджерЗаписи();
ЗаполнитьЗначенияСвойств(Менеджер, ВыборкаДетальныеЗаписи);
ИДСообщенияВНовомЧате = Неопределено;
Попытка
Успешно = Ложь;
УспешноФайл = Ложь;
ТекстОшибкиОтправки = "";
//Если ВыборкаДетальныеЗаписи.ОтправитьФайл Тогда
// ДДФайла = ВыборкаДетальныеЗаписи.ХранилищеФайла.Получить();
// Если ТипЗнч(ДДФайла) = Тип("ДвоичныеДанные") Тогда
// УспешноФайл = ОтправитьФайл(ВыборкаДетальныеЗаписи.ТокенБота, ВыборкаДетальныеЗаписи.ИдЧата, ВыборкаДетальныеЗаписи.ИмяФайла, ДДФайла, ТекстОшибкиОтправки);
// КонецЕсли;
//Иначе
// УспешноФайл = Истина;
//КонецЕсли;
СтруктураИсходногоСообщения = ПолучитьСтруктуруПересылаемогоСообщения();
СтруктураИсходногоСообщения.ТокенБотаИсходный = ВыборкаДетальныеЗаписи.ТокенБота;
СтруктураИсходногоСообщения.ИдЧатаИсходный = ВыборкаДетальныеЗаписи.ИдЧата;
СтруктураИсходногоСообщения.message_idИсходный = ВыборкаДетальныеЗаписи.message_id;
СтруктураИсходногоСообщения.ТокенБотаПересланный = ТокенБотаГруппы;
СтруктураИсходногоСообщения.ИдЧатаПересланный = ИДГруппыЧата;
СтруктураИсходногоСообщения.Направление = "Запрос";

ИмяПользователя = ПолучитьИмяПользователяТелеграм(ВыборкаДетальныеЗаписи.ТокенБота, ВыборкаДетальныеЗаписи.ИдЧата);
ТекстСсылкаНаПользователя = "<a href=""tg://user?id="+ВыборкаДетальныеЗаписи.ИдЧата+""">Сообщение от пользователя "+ИмяПользователя+"</a>";
//ТекстСообщеня = "[Сообщение от пользователя](tg://user?id="+ВыборкаДетальныеЗаписи.ИдЧата+")"; //для &parse_mode=Markdown
ТекстСообщеня = ""+ТекстСсылкаНаПользователя;
ТекстСообщеня = ТекстСообщеня + Символы.ПС + ВыборкаДетальныеЗаписи.Описание;
АдресЗапроса = "bot"
+ ТокенБотаГруппы
+ "/sendMessage"
+ "?chat_id=" + ИДГруппыЧата
+ "&text=" + ТекстСообщеня
+"&parse_mode=HTML";

ТекстКнопок = ПолучитьТекстКнопокВсехКомандГруппы(, ИДГруппыЧата);
Если ЗначениеЗаполнено(ТекстКнопок) Тогда
АдресЗапроса = АдресЗапроса + "&reply_markup="+ТекстКнопок;
КонецЕсли;

Если ВыборкаДетальныеЗаписи.ТипЗаписи = "ДопВопрос" Тогда
СтруктураПервогоСобщенияВГруппе = СтруктураПараметрыПервогоИсходногоПересланногоСообщенияИДСообщенияЧата(ВыборкаДетальныеЗаписи.ТокенБота, ВыборкаДетальныеЗаписи.ИДЧата, ВыборкаДетальныеЗаписи.message_id, ТокенБотаГруппы, ИДГруппыЧата);

//СтруктураЗаписисЗапроса = ПолучитьСтруктуруПервойЗаписисЗапросаБОТ_ЧатСГенеральнымДиректоромЗапросы(ВыборкаДетальныеЗаписи.ТокенБота,ВыборкаДетальныеЗаписи.ИДЧата,ВыборкаДетальныеЗаписи.message_id);
Если ЗначениеЗаполнено(СтруктураПервогоСобщенияВГруппе.message_idПересланный) Тогда
АдресЗапроса = АдресЗапроса + "&reply_to_message_id="+СтруктураПервогоСобщенияВГруппе.message_idПересланный + "&allow_sending_without_reply=true";
КонецЕсли;
КонецЕсли;


ЗапросHTTP = Новый HTTPЗапрос(АдресЗапроса);
ОтветHTTP = СоединениеHTTP.Получить(ЗапросHTTP);
ТекстОтвета = ОтветHTTP.ПолучитьТелоКакСтроку();
ЧтениеJSON.УстановитьСтроку(ТекстОтвета);
Результат = ПрочитатьJSON(ЧтениеJSON);
Успешно = Результат.ok;
Попытка
ИДСообщенияВНовомЧате = Формат(Результат.result.message_id, "ЧГ=0");
Исключение
КонецПопытки;

Если ЗначениеЗаполнено(ИДСообщенияВНовомЧате) и не СтруктураИсходногоСообщения = Неопределено Тогда
СтруктураИсходногоСообщения.message_idПересланный = ИДСообщенияВНовомЧате;
ДобавитьБОТ_ПересланныеМеждуЧатамиСообщения(СтруктураИсходногоСообщения)
КонецЕсли;

Если Успешно Тогда
//пересылаем файлы
МассивФайлов = ВыборкаДетальныеЗаписи.МассивПутейФайлов.Получить();
Если ТипЗнч(МассивФайлов) = Тип("Массив") Тогда
для Каждого СтрФайл из МассивФайлов Цикл
Попытка
Файл = новый Файл(СтрФайл);
ДДФайла = новый ДвоичныеДанные(СтрФайл);
ТекстОшибкиОтправкиФайла = "";

ПараметрыЗапросаОтправки = "?parse_mode=HTML"+"&caption="+ТекстСсылкаНаПользователя;
Если ЗначениеЗаполнено(ИДСообщенияВНовомЧате) Тогда
ПараметрыЗапросаОтправки = ПараметрыЗапросаОтправки + "&reply_to_message_id="+ИДСообщенияВНовомЧате + "&allow_sending_without_reply=true";
КонецЕсли;

УспешноФайл = ОтправитьФайл(ТокенБотаГруппы, ИДГруппыЧата, Файл.Имя, ДДФайла, ТекстОшибкиОтправкиФайла, СтруктураИсходногоСообщения, ПараметрыЗапросаОтправки);
Если ЗначениеЗаполнено(ТекстОшибкиОтправкиФайла) Тогда
ТекстОшибкиОтправки = ТекстОшибкиОтправки + ?(ЗначениеЗаполнено(ТекстОшибкиОтправки), Символы.ПС, "") + "Ошибка при отправке в телеграм файла " + СтрФайл + ": " + ТекстОшибкиОтправкиФайла;
КонецЕсли;
Исключение
ТекстОшибкиОтправки = ТекстОшибкиОтправки + ?(ЗначениеЗаполнено(ТекстОшибкиОтправки), Символы.ПС, "") + "Ошибка при отправке файла " + СтрФайл + ": " + ОписаниеОшибки();
КонецПопытки;
КонецЦикла;
КонецЕсли;
КонецЕсли;

Если Результат.ok = Ложь и Результат.свойство("description") Тогда
ТекстОшибкиОтправки = ТекстОшибкиОтправки + ?(ЗначениеЗаполнено(ТекстОшибкиОтправки), Символы.ПС, "") + Результат.description;
КонецЕсли;

//Если Успешно и ЗначениеЗаполнено(ВыборкаДетальныеЗаписи.ТекстКонтакта) Тогда
// ОтправитьКонтакт(ВыборкаДетальныеЗаписи.ТокенБота, ВыборкаДетальныеЗаписи.ИдЧата, ВыборкаДетальныеЗаписи.ТекстКонтакта, ВыборкаДетальныеЗаписи.ИмяКонтакта);
//КонецЕсли;

Если ЗначениеЗаполнено(ИДСообщенияВНовомЧате) Тогда
Менеджер.ИДСообщенияВЧате = ИДСообщенияВНовомЧате;
Менеджер.ЗапросПеренаправленВГруппы = Успешно;
Менеджер.ТекстОшибкиОтправки = ТекстОшибкиОтправки;
Менеджер.Записать();
ИначеЕсли Успешно Тогда
Менеджер.ЗапросПеренаправленВГруппы = Успешно;
Менеджер.ТекстОшибкиОтправки = ТекстОшибкиОтправки;
Менеджер.Записать();
Иначе
Менеджер.ЗапросПеренаправленВГруппы = Успешно;
Менеджер.ТекстОшибкиОтправки = ТекстОшибкиОтправки;
Менеджер.Записать();
КонецЕсли;

СтруктураПересланногоСообщения = ПолучитьСтруктуруСообщения();
СтруктураПересланногоСообщения.ТокенБота = ТокенБотаГруппы;
СтруктураПересланногоСообщения.ИдЧата = ИДГруппыЧата;
СтруктураПересланногоСообщения.ТекстСообщения = ТекстСообщеня;
СтруктураПересланногоСообщения.вставить("message_id", ИДСообщенияВНовомЧате);
СтруктураПересланногоСообщения.вставить("ДатаСообщения", ТекущаяДата());
СтруктураПересланногоСообщения.вставить("СообщениеОбработано", Успешно);
СтруктураПересланногоСообщения.вставить("ТекстОшибкиОтправки", ТекстОшибкиОтправки);
СтруктураПересланногоСообщения.Вставить("Направление","Исходящее");

ДобавитьСообщениеДляОтправки(СтруктураПересланногоСообщения, ИДСообщенияВНовомЧате);

Исключение
ТеекстОш = ""+ ОписаниеОшибки();
КонецПопытки;
ЧтениеJSON.Закрыть();


КонецПроцедуры