1С Программная отправка сообщения в обсуждение системы взаимодействия
Я новичок в 1С, не серчайте.
При нажатии кнопки необходимо отправить сообщение боту.
Бот находится в обсуждении системы взаимодействия.
Обсуждение должно быть единым и хранить в себе историю запросов команд.
С кодом у меня совсем беда, помогите реализовать.
Заранее спасибо!
Вот примерный код, который пытаюсь реализовать
&НаСервере
Процедура ОтправитьНаСервере()
ИдентификаторОбсуждения = СистемаВзаимодействия.ПолучитьОбсуждение("КомандныйКанал");
Текст1 = "Привет";
Сообщение = СистемаВзаимодействия.СоздатьСообщение(ИдентификаторОбсуждения);
Сообщение.Данные = Текст1;
Сообщение.Записать();
КонецПроцедуры
p.s: платформа 1с v8.3, в теге не смог указать
При нажатии кнопки необходимо отправить сообщение боту.
Бот находится в обсуждении системы взаимодействия.
Обсуждение должно быть единым и хранить в себе историю запросов команд.
С кодом у меня совсем беда, помогите реализовать.
Заранее спасибо!
Вот примерный код, который пытаюсь реализовать
&НаСервере
Процедура ОтправитьНаСервере()
ИдентификаторОбсуждения = СистемаВзаимодействия.ПолучитьОбсуждение("КомандныйКанал");
Текст1 = "Привет";
Сообщение = СистемаВзаимодействия.СоздатьСообщение(ИдентификаторОбсуждения);
Сообщение.Данные = Текст1;
Сообщение.Записать();
КонецПроцедуры
p.s: платформа 1с v8.3, в теге не смог указать
Прикрепленные файлы:
По теме из базы знаний
- Система взаимодействия. Не интерактивное взаимодействие
- Взаимодействие с сотрудниками и клиентами из одного окна конфигурации 1С (Телеграм, ВКонтакте, Facebook, Discord). Преимущества, технические особенности, подводные камни
- Как программно обрабатывать сообщения обсуждений системы взаимодействия 1С
- Нестандартное использование Системы взаимодействия
- "Система взаимодействия 1С" Установка локально. Развертывание S3 хранилища на своих мощностях. Перехват сообщений пользователей и не только.
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
СистемаВзаимодействия.ПолучитьОбсуждение возвращает не идентификатор,
а Тип: ОбсуждениеСистемыВзаимодействия.
Попробуй вот так
Сообщение = СистемаВзаимодействия.СоздатьСообщение(ИдентификаторОбсуждения.Идентфикатор)
И все должно сработать.
а Тип: ОбсуждениеСистемыВзаимодействия.
Попробуй вот так
Сообщение = СистемаВзаимодействия.СоздатьСообщение(ИдентификаторОбсуждения.Идентфикатор)
И все должно сработать.
(3)
Спасибо за ответ! Однако все равно выдает ошибку:
Значение не является значением объектного типа (Идентификатор)
{Обработка.СкладскойУчет.Форма.Форма.Форма(817)}:Сообщение = СистемаВзаимодействия.СоздатьСообщение(ИдентификаторОбсуждения.Идентификатор);
{Обработка.СкладскойУчет.Форма.Форма.Форма(824)}:ОтправитьНаСервере();
[ОшибкаВоВремяВыполненияВстроенногоЯзыка, ОшибкаИспользованияВстроенногоЯзыка]
Сообщение = СистемаВзаимодействия.СоздатьСообщение(ИдентификаторОбсуждения.Идентфикатор)
Спасибо за ответ! Однако все равно выдает ошибку:
Значение не является значением объектного типа (Идентификатор)
{Обработка.СкладскойУчет.Форма.Форма.Форма(817)}:Сообщение = СистемаВзаимодействия.СоздатьСообщение(ИдентификаторОбсуждения.Идентификатор);
{Обработка.СкладскойУчет.Форма.Форма.Форма(824)}:ОтправитьНаСервере();
[ОшибкаВоВремяВыполненияВстроенногоЯзыка, ОшибкаИспользованияВстроенногоЯзыка]
(3) У меня получилось реализовать отправку сообщения через код ниже, спасибо. Не могли бы вы подсказать, как реализовать данный код в одном обсуждении, чтоб не создавать его каждый раз заново?
&НаСервере
Процедура ОтправитьНаСервере()
Обсуждение = СистемаВзаимодействия.СоздатьОбсуждение();
Обсуждение.Отображаемое = Истина;
Обсуждение.Ключ = "Тест1";
Обсуждение.Участники.Добавить(СистемаВзаимодействия.СтандартныеПользователи.ВсеПользователиПриложения);
Обсуждение.Записать();
ИдентификаторОбсуждения = СистемаВзаимодействия.ПолучитьОбсуждение("Тест1");
Текст1 = "Привет";
Сообщение = СистемаВзаимодействия.СоздатьСообщение(ИдентификаторОбсуждения.Идентификатор);
Сообщение.Текст = Текст1;
Сообщение.Записать();
КонецПроцедуры
&НаСервере
Процедура ОтправитьНаСервере()
Обсуждение = СистемаВзаимодействия.СоздатьОбсуждение();
Обсуждение.Отображаемое = Истина;
Обсуждение.Ключ = "Тест1";
Обсуждение.Участники.Добавить(СистемаВзаимодействия.СтандартныеПользователи.ВсеПользователиПриложения);
Обсуждение.Записать();
ИдентификаторОбсуждения = СистемаВзаимодействия.ПолучитьОбсуждение("Тест1");
Текст1 = "Привет";
Сообщение = СистемаВзаимодействия.СоздатьСообщение(ИдентификаторОбсуждения.Идентификатор);
Сообщение.Текст = Текст1;
Сообщение.Записать();
КонецПроцедуры
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот