From 270d7a6e76c697a5f9dc241b3b2dfbdbedb33cfe Mon Sep 17 00:00:00 2001 From: GenVP Date: Wed, 9 Sep 2020 22:27:53 +0300 Subject: [PATCH] =?UTF-8?q?#240=20=D0=9F=D0=BE=D0=B4=D0=B4=D0=B5=D1=80?= =?UTF-8?q?=D0=B6=D0=BA=D0=B0=20=D0=BA=D0=BE=D0=BC=D0=B0=D0=BD=D0=B4=20?= =?UTF-8?q?=D0=BF=D0=BE=20=D0=BD=D0=BE=D0=B2=D0=BE=D0=B9=20=D0=B7=D0=B0?= =?UTF-8?q?=D0=B4=D0=B0=D1=87=D0=B5?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../узТелеграмБотКоманды/Ext/Module.bsl | 41 ++++++++++++++++++- 1 file changed, 39 insertions(+), 2 deletions(-) diff --git a/src/cf/CommonModules/узТелеграмБотКоманды/Ext/Module.bsl b/src/cf/CommonModules/узТелеграмБотКоманды/Ext/Module.bsl index 7e98af488..8961f4cf3 100644 --- a/src/cf/CommonModules/узТелеграмБотКоманды/Ext/Module.bsl +++ b/src/cf/CommonModules/узТелеграмБотКоманды/Ext/Module.bsl @@ -13,12 +13,15 @@ ЗадачаСсылка = Неопределено; Если НачинаетсяСНомераЗадачи(Сообщение, ЗадачаСсылка) Тогда Если ПроверитьНовыйФайл(Сообщение, ЗадачаСсылка, НастройкиБота) + ИЛИ ПроверитьНовуюЗадачу(Сообщение, ЗадачаСсылка) ИЛИ ПроверитьНовыйВопрос(Сообщение, ЗадачаСсылка) ИЛИ ПроверитьНовыйКомментарий(Сообщение, ЗадачаСсылка) Тогда Возврат; КонецЕсли; КонецЕсли; + ПроверитьНовуюЗадачу(Сообщение); + КонецПроцедуры // #240 Пиганов Г.В. 2020-09-08 @@ -139,6 +142,39 @@ КонецФункции +Функция ПроверитьНовуюЗадачу(Сообщение, ЗадачаСсылка = Неопределено) + + //НоваяЗадача - "#ТекстОписания" + //НоваяПодзадача - "#НомерЗадачи #ТекстОписания" + + Если Сообщение.Обработано Тогда + Возврат Истина; + КонецЕсли; + + Если СтрНачинаетсяС(Сообщение.Текст, "#") Тогда + Сообщение.Текст = СокрЛ(Сред(Сообщение.Текст, 2)); + //ИначеЕсли СтрНачинаетсяС(Сообщение.Текст, "/#") Тогда + // ТекстСообщения = Сред(Сообщение.Текст, 3); + Иначе + Возврат Ложь; + КонецЕсли; + + ЗадачаОбъект = Справочники.узЗадачи.СоздатьЭлемент(); + ЗадачаОбъект.Автор = Сообщение.Пользователь; + ЗадачаОбъект.ДатаСоздания = Сообщение.Дата; + ЗадачаОбъект.ТекстСодержания = Сообщение.Текст; + ЗадачаОбъект.Наименование = Сообщение.Текст; + ЗадачаОбъект.ОформлениеТекста = Перечисления.узОформлениеТекста.Текст; + ЗадачаОбъект.Статус = Справочники.узКонстанты.ПолучитьЗначениеКонстанты("СтатусЗадачиПоУмолчанию", Тип("СправочникСсылка.узСтатусыЗадачи"), , Ложь); + ЗадачаОбъект.Родитель = ЗадачаСсылка; + ЗадачаОбъект.Записать(); + + Сообщение.Обработано = Истина; + + Возврат Истина; + +КонецФункции + // #240 Пиганов Г.В. 2020-09-08 Функция ПроверитьНовыйКомментарий(Сообщение, ЗадачаСсылка) @@ -189,8 +225,9 @@ Для ПозЧисла = 2 По СтрДлина(ТекстСообщения) Цикл КодСимволаЧисла = КодСимвола(ТекстСообщения, ПозЧисла); Если КодСимволаЧисла < 48 ИЛИ КодСимволаЧисла > 57 Тогда // "0" - "9" - Если НЕ ПустаяСтрока(Символ(КодСимволаЧисла)) Тогда - // После номера найден не пробельный символ и значит начинается не с номера задачи + Если НЕ ПустаяСтрока(Символ(КодСимволаЧисла)) ИЛИ НомерЗадачи = "" Тогда + // Если после номера найден не пробельный символ или пробельный при + // пустом номере задачи, то сообщение начинается не с номера задачи НомерЗадачи = ""; ИначеЕсли ПозЧисла > 1 Тогда // Удаление из текста сообщения номера задачи