1c/OpenIntegrations
1
0
Fork 0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2025-02-07 13:43:35 +02:00
Code Issues Releases Activity

VKT: Закрепление сообщений

Browse Source
This commit is contained in:
Anton 2024-08-18 13:15:08 +03:00
parent 3eb6eba4ad
commit 0e5642ef61
19 changed files with 2687 additions and 2159 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
docs/en/data/VKTeams/PinMessage.json Normal file
View File

@ -0,0 +1,5 @@
{
"Token": "001.3501506236.091...",
"ChatID": "689203963@chat.agent",
"MessageID": "7401463509940174907"
}

5
docs/en/data/VKTeams/UnpinMessage.json Normal file
View File

@ -0,0 +1,5 @@
{
"Token": "001.3501506236.091...",
"ChatID": "689203963@chat.agent",
"MessageID": "7401463509940174907"
}

5
docs/en/examples/VKTeams/PinMessage.txt Normal file
View File

@ -0,0 +1,5 @@
 Token = "001.3501506236.091...";
ChatID = "689203963@chat.agent";
MessageID = "7401463509940174907";
Result = OPI_VKTeams.PinMessage(Token, ChatID, MessageID);

5
docs/en/examples/VKTeams/UnpinMessage.txt Normal file
View File

@ -0,0 +1,5 @@
 Token = "001.3501506236.091...";
ChatID = "689203963@chat.agent";
MessageID = "7401463509940174907";
Result = OPI_VKTeams.UnpinMessage(Token, ChatID, MessageID);

5
docs/ru/data/VKTeams/ЗакрепитьСообщение.json Normal file
View File

@ -0,0 +1,5 @@
{
"Токен": "001.3501506236.091...",
"IDЧата": "689203963@chat.agent",
"IDСообщения": "7401463509940174907"
}

5
docs/ru/data/VKTeams/ОткрепитьСообщение.json Normal file
View File

@ -0,0 +1,5 @@
{
"Токен": "001.3501506236.091...",
"IDЧата": "689203963@chat.agent",
"IDСообщения": "7401463509940174907"
}

5
docs/ru/examples/VKTeams/ЗакрепитьСообщение.txt Normal file
View File

@ -0,0 +1,5 @@
 Токен = "001.3501506236.091...";
IDЧата = "689203963@chat.agent";
IDСообщения = "7401463509940174907";
Результат = OPI_VKTeams.ЗакрепитьСообщение(Токен, IDЧата, IDСообщения);

5
docs/ru/examples/VKTeams/ОткрепитьСообщение.txt Normal file
View File

@ -0,0 +1,5 @@
 Токен = "001.3501506236.091...";
IDЧата = "689203963@chat.agent";
IDСообщения = "7401463509940174907";
Результат = OPI_VKTeams.ОткрепитьСообщение(Токен, IDЧата, IDСообщения);

4230
service/dictionaries/en.json
View File

File diff suppressed because it is too large Load Diff

60
src/en/OInt/core/Modules/OPI_VKTeams.os
View File

@ -396,13 +396,13 @@ EndFunction
// //
// Parameters: // Parameters:
// Token - String - Bot token - token // Token - String - Bot token - token
// MessageID - String, Number - Original message ID - message // MessageID - String, Number - Original message ID - messageid
// FromChatID - String, Number - Source chat ID - fromid // FromChatID - String, Number - Source chat ID - fromid
// ChatID - String, Number - Chat ID for message sending - chatid // ChatID - String, Number - Chat ID for message sending - chatid
// Text - String - Additional message text - text // Text - String - Additional message text - text
// //
// Returns: // Returns:
// HTTPResponse - Forward message // Map Of KeyAndValue - Serialized JSON response from VK Teams
Function ForwardMessage(Val Token, Val MessageID, Val FromChatID, Val ChatID, Val Text = "") Export Function ForwardMessage(Val Token, Val MessageID, Val FromChatID, Val ChatID, Val Text = "") Export
URL = "/messages/sendText"; URL = "/messages/sendText";
@ -419,6 +419,62 @@ Function ForwardMessage(Val Token, Val MessageID, Val FromChatID, Val ChatID, Va
EndFunction EndFunction
// Pin message
// Pins the selected message in the chat room
//
// Note
// To call this method, the bot must be an administrator in the chat room
// Method at API documentation: [GET /chats/pinMessage](@teams.vk.com/botapi/#/chats/get_chats_pinMessage)
//
// Parameters:
// Token - String - Bot token - token
// ChatID - String, Number - Chat ID - chatid
// MessageID - String, Number - ID of the message to be pinned - messageid
//
// Returns:
// Map Of KeyAndValue - Serialized JSON response from VK Teams
Function PinMessage(Val Token, Val ChatID, Val MessageID) Export
URL = "/chats/pinMessage";
Parameters = NormalizeMain(URL, Token);
OPI_Tools.AddField("chatId", ChatID , "String", Parameters);
OPI_Tools.AddField("msgId" , MessageID, "String", Parameters);
Response = OPI_Tools.Get(URL, Parameters);
Return Response;
EndFunction
// Unpin message
// Unpins a previously pinned chat message
//
// Note
// To call this method, the bot must be an administrator in the chat room
// Method at API documentation: [GET /chats/unpinMessage](@teams.vk.com/botapi/#/chats/get_chats_unpinMessage)
//
// Parameters:
// Token - String - Bot token - token
// ChatID - String, Number - Chat ID - chatid
// MessageID - String, Number - ID of the message to be unpinned - messageid
//
// Returns:
// Map Of KeyAndValue - Serialized JSON response from VK Teams
Function UnpinMessage(Val Token, Val ChatID, Val MessageID) Export
URL = "/chats/unpinMessage";
Parameters = NormalizeMain(URL, Token);
OPI_Tools.AddField("chatId", ChatID , "String", Parameters);
OPI_Tools.AddField("msgId" , MessageID, "String", Parameters);
Response = OPI_Tools.Get(URL, Parameters);
Return Response;
EndFunction
#EndRegion #EndRegion
#Region ChatManagement #Region ChatManagement

52
src/en/OInt/tests/Modules/internal/OPI_Tests.os
View File

@ -69,8 +69,8 @@ EndFunction
Procedure TelegramAPI_GetBotInfo() Export Procedure TelegramAPI_GetBotInfo() Export
TestParameters = New Structure; TestParameters = New Structure;
OPI_TestDataRetrieval.ParameterToCollection("Telegram_Token", TestParameters); OPI_TestDataRetrieval.ParameterToCollection("Telegram_Token", TestParameters);
Telegram_GetBotInformation(TestParameters); Telegram_GetBotInformation(TestParameters);
@ -78,10 +78,10 @@ EndProcedure
Procedure TelegramAPI_GetUpdates() Export Procedure TelegramAPI_GetUpdates() Export
TestParameters = New Structure; TestParameters = New Structure;
OPI_TestDataRetrieval.ParameterToCollection("Telegram_Token", TestParameters); OPI_TestDataRetrieval.ParameterToCollection("Telegram_Token", TestParameters);
Telegram_DeleteWebhook(TestParameters); Telegram_DeleteWebhook(TestParameters);
Telegram_GetUpdates(TestParameters); Telegram_GetUpdates(TestParameters);
EndProcedure EndProcedure
@ -100,10 +100,10 @@ EndProcedure
Procedure TelegramAPI_SendTextMessage() Export Procedure TelegramAPI_SendTextMessage() Export
TestParameters = New Structure; TestParameters = New Structure;
OPI_TestDataRetrieval.ParameterToCollection("Telegram_Token" , TestParameters); OPI_TestDataRetrieval.ParameterToCollection("Telegram_Token" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("Telegram_ChatID" , TestParameters); OPI_TestDataRetrieval.ParameterToCollection("Telegram_ChatID" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("Telegram_ChannelID", TestParameters); OPI_TestDataRetrieval.ParameterToCollection("Telegram_ChannelID", TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("String" , TestParameters); OPI_TestDataRetrieval.ParameterToCollection("String" , TestParameters);
Telegram_SendTextMessage(TestParameters); Telegram_SendTextMessage(TestParameters);
@ -3162,6 +3162,8 @@ Procedure VKT_MessagesSending() Export
VKTeams_SendFile(TestParameters); VKTeams_SendFile(TestParameters);
VKTeams_ResendFile(TestParameters); VKTeams_ResendFile(TestParameters);
VKTeams_EditMessageText(TestParameters); VKTeams_EditMessageText(TestParameters);
VKTeams_PinMessage(TestParameters);
VKTeams_UnpinMessage(TestParameters);
VKTeams_DeleteMessage(TestParameters); VKTeams_DeleteMessage(TestParameters);
VKTeams_SendVoice(TestParameters); VKTeams_SendVoice(TestParameters);
VKTeams_ResendVoice(TestParameters); VKTeams_ResendVoice(TestParameters);
@ -10980,6 +10982,38 @@ Procedure VKTeams_UnblockChatUser(FunctionParameters)
EndProcedure EndProcedure
Procedure VKTeams_PinMessage(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
MessageID = FunctionParameters["VkTeams_MessageID"];
Result = OPI_VKTeams.PinMessage(Token, ChatID, MessageID);
// END
OPI_TestDataRetrieval.WriteLog(Result, "PinMessage", "VkTeams");
Check_VKTTrue(Result);
EndProcedure
Procedure VKTeams_UnpinMessage(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
MessageID = FunctionParameters["VkTeams_MessageID"];
Result = OPI_VKTeams.UnpinMessage(Token, ChatID, MessageID);
// END
OPI_TestDataRetrieval.WriteLog(Result, "UnpinMessage", "VkTeams");
Check_VKTTrue(Result);
EndProcedure
#EndRegion #EndRegion
#EndRegion #EndRegion

52
src/en/OPI/src/CommonModules/OPI_Tests/Module.bsl
View File

@ -69,8 +69,8 @@ EndFunction
Procedure TelegramAPI_GetBotInfo() Export Procedure TelegramAPI_GetBotInfo() Export
TestParameters = New Structure; TestParameters = New Structure;
OPI_TestDataRetrieval.ParameterToCollection("Telegram_Token", TestParameters); OPI_TestDataRetrieval.ParameterToCollection("Telegram_Token", TestParameters);
Telegram_GetBotInformation(TestParameters); Telegram_GetBotInformation(TestParameters);
@ -78,10 +78,10 @@ EndProcedure
Procedure TelegramAPI_GetUpdates() Export Procedure TelegramAPI_GetUpdates() Export
TestParameters = New Structure; TestParameters = New Structure;
OPI_TestDataRetrieval.ParameterToCollection("Telegram_Token", TestParameters); OPI_TestDataRetrieval.ParameterToCollection("Telegram_Token", TestParameters);
Telegram_DeleteWebhook(TestParameters); Telegram_DeleteWebhook(TestParameters);
Telegram_GetUpdates(TestParameters); Telegram_GetUpdates(TestParameters);
EndProcedure EndProcedure
@ -100,10 +100,10 @@ EndProcedure
Procedure TelegramAPI_SendTextMessage() Export Procedure TelegramAPI_SendTextMessage() Export
TestParameters = New Structure; TestParameters = New Structure;
OPI_TestDataRetrieval.ParameterToCollection("Telegram_Token" , TestParameters); OPI_TestDataRetrieval.ParameterToCollection("Telegram_Token" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("Telegram_ChatID" , TestParameters); OPI_TestDataRetrieval.ParameterToCollection("Telegram_ChatID" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("Telegram_ChannelID", TestParameters); OPI_TestDataRetrieval.ParameterToCollection("Telegram_ChannelID", TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("String" , TestParameters); OPI_TestDataRetrieval.ParameterToCollection("String" , TestParameters);
Telegram_SendTextMessage(TestParameters); Telegram_SendTextMessage(TestParameters);
@ -3162,6 +3162,8 @@ Procedure VKT_MessagesSending() Export
VKTeams_SendFile(TestParameters); VKTeams_SendFile(TestParameters);
VKTeams_ResendFile(TestParameters); VKTeams_ResendFile(TestParameters);
VKTeams_EditMessageText(TestParameters); VKTeams_EditMessageText(TestParameters);
VKTeams_PinMessage(TestParameters);
VKTeams_UnpinMessage(TestParameters);
VKTeams_DeleteMessage(TestParameters); VKTeams_DeleteMessage(TestParameters);
VKTeams_SendVoice(TestParameters); VKTeams_SendVoice(TestParameters);
VKTeams_ResendVoice(TestParameters); VKTeams_ResendVoice(TestParameters);
@ -10980,6 +10982,38 @@ Procedure VKTeams_UnblockChatUser(FunctionParameters)
EndProcedure EndProcedure
Procedure VKTeams_PinMessage(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
MessageID = FunctionParameters["VkTeams_MessageID"];
Result = OPI_VKTeams.PinMessage(Token, ChatID, MessageID);
// END
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "PinMessage", "VkTeams");
Check_VKTTrue(Result);
EndProcedure
Procedure VKTeams_UnpinMessage(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
MessageID = FunctionParameters["VkTeams_MessageID"];
Result = OPI_VKTeams.UnpinMessage(Token, ChatID, MessageID);
// END
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "UnpinMessage", "VkTeams");
Check_VKTTrue(Result);
EndProcedure
#EndRegion #EndRegion
#EndRegion #EndRegion

60
src/en/OPI/src/CommonModules/OPI_VKTeams/Module.bsl
View File

@ -396,13 +396,13 @@ EndFunction
// //
// Parameters: // Parameters:
// Token - String - Bot token - token // Token - String - Bot token - token
// MessageID - String, Number - Original message ID - message // MessageID - String, Number - Original message ID - messageid
// FromChatID - String, Number - Source chat ID - fromid // FromChatID - String, Number - Source chat ID - fromid
// ChatID - String, Number - Chat ID for message sending - chatid // ChatID - String, Number - Chat ID for message sending - chatid
// Text - String - Additional message text - text // Text - String - Additional message text - text
// //
// Returns: // Returns:
// HTTPResponse - Forward message // Map Of KeyAndValue - Serialized JSON response from VK Teams
Function ForwardMessage(Val Token, Val MessageID, Val FromChatID, Val ChatID, Val Text = "") Export Function ForwardMessage(Val Token, Val MessageID, Val FromChatID, Val ChatID, Val Text = "") Export
URL = "/messages/sendText"; URL = "/messages/sendText";
@ -419,6 +419,62 @@ Function ForwardMessage(Val Token, Val MessageID, Val FromChatID, Val ChatID, Va
EndFunction EndFunction
// Pin message
// Pins the selected message in the chat room
//
// Note
// To call this method, the bot must be an administrator in the chat room
// Method at API documentation: [GET /chats/pinMessage](@teams.vk.com/botapi/#/chats/get_chats_pinMessage)
//
// Parameters:
// Token - String - Bot token - token
// ChatID - String, Number - Chat ID - chatid
// MessageID - String, Number - ID of the message to be pinned - messageid
//
// Returns:
// Map Of KeyAndValue - Serialized JSON response from VK Teams
Function PinMessage(Val Token, Val ChatID, Val MessageID) Export
URL = "/chats/pinMessage";
Parameters = NormalizeMain(URL, Token);
OPI_Tools.AddField("chatId", ChatID , "String", Parameters);
OPI_Tools.AddField("msgId" , MessageID, "String", Parameters);
Response = OPI_Tools.Get(URL, Parameters);
Return Response;
EndFunction
// Unpin message
// Unpins a previously pinned chat message
//
// Note
// To call this method, the bot must be an administrator in the chat room
// Method at API documentation: [GET /chats/unpinMessage](@teams.vk.com/botapi/#/chats/get_chats_unpinMessage)
//
// Parameters:
// Token - String - Bot token - token
// ChatID - String, Number - Chat ID - chatid
// MessageID - String, Number - ID of the message to be unpinned - messageid
//
// Returns:
// Map Of KeyAndValue - Serialized JSON response from VK Teams
Function UnpinMessage(Val Token, Val ChatID, Val MessageID) Export
URL = "/chats/unpinMessage";
Parameters = NormalizeMain(URL, Token);
OPI_Tools.AddField("chatId", ChatID , "String", Parameters);
OPI_Tools.AddField("msgId" , MessageID, "String", Parameters);
Response = OPI_Tools.Get(URL, Parameters);
Return Response;
EndFunction
#EndRegion #EndRegion
#Region ChatManagement #Region ChatManagement

64
src/en/cli/data/Classes/internal/Classes/vkteams.os
View File

@ -446,7 +446,7 @@
NewLine.Модуль = "OPI_VKTeams"; NewLine.Модуль = "OPI_VKTeams";
NewLine.Метод = "ForwardMessage"; NewLine.Метод = "ForwardMessage";
NewLine.МетодПоиска = "FORWARDMESSAGE"; NewLine.МетодПоиска = "FORWARDMESSAGE";
NewLine.Параметр = "--message"; NewLine.Параметр = "--messageid";
NewLine.Описание = "Original message ID"; NewLine.Описание = "Original message ID";
NewLine.Область = "Message sending"; NewLine.Область = "Message sending";
@ -481,6 +481,68 @@
NewLine.Область = "Message sending"; NewLine.Область = "Message sending";
NewLine = CompositionTable.Add();
NewLine.Библиотека = "vkteams";
NewLine.Модуль = "OPI_VKTeams";
NewLine.Метод = "PinMessage";
NewLine.МетодПоиска = "PINMESSAGE";
NewLine.Параметр = "--token";
NewLine.Описание = "Bot token";
NewLine.Область = "Message sending";
NewLine.ОписаниеМетода = "Pins the selected message in the chat room";
NewLine = CompositionTable.Add();
NewLine.Библиотека = "vkteams";
NewLine.Модуль = "OPI_VKTeams";
NewLine.Метод = "PinMessage";
NewLine.МетодПоиска = "PINMESSAGE";
NewLine.Параметр = "--chatid";
NewLine.Описание = "Chat ID";
NewLine.Область = "Message sending";
NewLine = CompositionTable.Add();
NewLine.Библиотека = "vkteams";
NewLine.Модуль = "OPI_VKTeams";
NewLine.Метод = "PinMessage";
NewLine.МетодПоиска = "PINMESSAGE";
NewLine.Параметр = "--messageid";
NewLine.Описание = "ID of the message to be pinned";
NewLine.Область = "Message sending";
NewLine = CompositionTable.Add();
NewLine.Библиотека = "vkteams";
NewLine.Модуль = "OPI_VKTeams";
NewLine.Метод = "UnpinMessage";
NewLine.МетодПоиска = "UNPINMESSAGE";
NewLine.Параметр = "--token";
NewLine.Описание = "Bot token";
NewLine.Область = "Message sending";
NewLine.ОписаниеМетода = "Unpins a previously pinned chat message";
NewLine = CompositionTable.Add();
NewLine.Библиотека = "vkteams";
NewLine.Модуль = "OPI_VKTeams";
NewLine.Метод = "UnpinMessage";
NewLine.МетодПоиска = "UNPINMESSAGE";
NewLine.Параметр = "--chatid";
NewLine.Описание = "Chat ID";
NewLine.Область = "Message sending";
NewLine = CompositionTable.Add();
NewLine.Библиотека = "vkteams";
NewLine.Модуль = "OPI_VKTeams";
NewLine.Метод = "UnpinMessage";
NewLine.МетодПоиска = "UNPINMESSAGE";
NewLine.Параметр = "--messageid";
NewLine.Описание = "ID of the message to be unpinned";
NewLine.Область = "Message sending";
NewLine = CompositionTable.Add(); NewLine = CompositionTable.Add();
NewLine.Библиотека = "vkteams"; NewLine.Библиотека = "vkteams";
NewLine.Модуль = "OPI_VKTeams"; NewLine.Модуль = "OPI_VKTeams";

60
src/ru/OInt/core/Modules/OPI_VKTeams.os
View File

@ -396,13 +396,13 @@
// //
// Параметры: // Параметры:
// Токен - Строка - Токен бота - token // Токен - Строка - Токен бота - token
// IDСообщения - Строка, Число - ID оригинального сообщения - message // IDСообщения - Строка, Число - ID оригинального сообщения - messageid
// IDЧатаИсточника - Строка, Число - ID чата источника оригинального сообщения - fromid // IDЧатаИсточника - Строка, Число - ID чата источника оригинального сообщения - fromid
// IDЧата - Строка, Число - ID чата для отправки сообщения - chatid // IDЧата - Строка, Число - ID чата для отправки сообщения - chatid
// Текст - Строка - Дополнительный текст сообщения - text // Текст - Строка - Дополнительный текст сообщения - text
// //
// Возвращаемое значение: // Возвращаемое значение:
// HTTPОтвет - Переслать сообщение // Соответствие Из КлючИЗначение - сериализованный JSON ответа от VK Teams
Функция ПереслатьСообщение(Знач Токен, Знач IDСообщения, Знач IDЧатаИсточника, Знач IDЧата, Знач Текст = "") Экспорт Функция ПереслатьСообщение(Знач Токен, Знач IDСообщения, Знач IDЧатаИсточника, Знач IDЧата, Знач Текст = "") Экспорт
URL = "/messages/sendText"; URL = "/messages/sendText";
@ -419,6 +419,62 @@
КонецФункции КонецФункции
// Закрепить сообщение
// Закрепляет выбранное сообщение в чате
//
// Примечание:
// Для вызова этого метода бот должен быть администратором в чате
// Метод в документации API: [GET /chats/pinMessage](@teams.vk.com/botapi/#/chats/get_chats_pinMessage)
//
// Параметры:
// Токен - Строка - Токен бота - token
// IDЧата - Строка, Число - ID чата - chatid
// IDСообщения - Строка, Число - ID сообщения для закрепления - messageid
//
// Возвращаемое значение:
// Соответствие Из КлючИЗначение - сериализованный JSON ответа от VK Teams
Функция ЗакрепитьСообщение(Знач Токен, Знач IDЧата, Знач IDСообщения) Экспорт
URL = "/chats/pinMessage";
Параметры = НормализоватьОснову(URL, Токен);
OPI_Инструменты.ДобавитьПоле("chatId", IDЧата , "Строка", Параметры);
OPI_Инструменты.ДобавитьПоле("msgId" , IDСообщения, "Строка", Параметры);
Ответ = OPI_Инструменты.Get(URL, Параметры);
Возврат Ответ;
КонецФункции
// Открепить сообщение
// Открепляет ранее закрепленное сообщение в чате
//
// Примечание:
// Для вызова этого метода бот должен быть администратором в чате
// Метод в документации API: [GET /chats/unpinMessage](@teams.vk.com/botapi/#/chats/get_chats_unpinMessage)
//
// Параметры:
// Токен - Строка - Токен бота - token
// IDЧата - Строка, Число - ID чата - chatid
// IDСообщения - Строка, Число - ID сообщения для открепления - messageid
//
// Возвращаемое значение:
// Соответствие Из КлючИЗначение - сериализованный JSON ответа от VK Teams
Функция ОткрепитьСообщение(Знач Токен, Знач IDЧата, Знач IDСообщения) Экспорт
URL = "/chats/unpinMessage";
Параметры = НормализоватьОснову(URL, Токен);
OPI_Инструменты.ДобавитьПоле("chatId", IDЧата , "Строка", Параметры);
OPI_Инструменты.ДобавитьПоле("msgId" , IDСообщения, "Строка", Параметры);
Ответ = OPI_Инструменты.Get(URL, Параметры);
Возврат Ответ;
КонецФункции
#КонецОбласти #КонецОбласти
#Область УправлениеЧатами #Область УправлениеЧатами

52
src/ru/OInt/tests/Modules/internal/OPI_Тесты.os
View File

@ -69,8 +69,8 @@
Процедура Телеграм_ПолучитьИнформациюБота() Экспорт Процедура Телеграм_ПолучитьИнформациюБота() Экспорт
ПараметрыТеста = Новый Структура; ПараметрыТеста = Новый Структура;
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_Token", ПараметрыТеста); OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_Token", ПараметрыТеста);
Telegram_ПолучитьИнформациюБота(ПараметрыТеста); Telegram_ПолучитьИнформациюБота(ПараметрыТеста);
@ -78,10 +78,10 @@
Процедура Телеграм_ПолучитьОбновления() Экспорт Процедура Телеграм_ПолучитьОбновления() Экспорт
ПараметрыТеста = Новый Структура; ПараметрыТеста = Новый Структура;
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_Token", ПараметрыТеста); OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_Token", ПараметрыТеста);
Telegram_УдалитьWebhook(ПараметрыТеста); Telegram_УдалитьWebhook(ПараметрыТеста);
Telegram_ПолучитьОбновления(ПараметрыТеста); Telegram_ПолучитьОбновления(ПараметрыТеста);
КонецПроцедуры КонецПроцедуры
@ -100,10 +100,10 @@
Процедура Телеграм_ОтправитьТекстовоеСообщение() Экспорт Процедура Телеграм_ОтправитьТекстовоеСообщение() Экспорт
ПараметрыТеста = Новый Структура; ПараметрыТеста = Новый Структура;
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_Token" , ПараметрыТеста); OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_Token" , ПараметрыТеста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_ChatID" , ПараметрыТеста); OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_ChatID" , ПараметрыТеста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_ChannelID", ПараметрыТеста); OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_ChannelID", ПараметрыТеста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("String" , ПараметрыТеста); OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("String" , ПараметрыТеста);
Telegram_ОтправитьТекстовоеСообщение(ПараметрыТеста); Telegram_ОтправитьТекстовоеСообщение(ПараметрыТеста);
@ -3162,6 +3162,8 @@
VKTeams_ОтправитьФайл(ПараметрыТеста); VKTeams_ОтправитьФайл(ПараметрыТеста);
VKTeams_ПереслатьФайл(ПараметрыТеста); VKTeams_ПереслатьФайл(ПараметрыТеста);
VKTeams_ИзменитьТекстСообщения(ПараметрыТеста); VKTeams_ИзменитьТекстСообщения(ПараметрыТеста);
VKTeams_ЗакрепитьСообщение(ПараметрыТеста);
VKTeams_ОткрепитьСообщение(ПараметрыТеста);
VKTeams_УдалитьСообщение(ПараметрыТеста); VKTeams_УдалитьСообщение(ПараметрыТеста);
VKTeams_ОтправитьГолосовоеСообщение(ПараметрыТеста); VKTeams_ОтправитьГолосовоеСообщение(ПараметрыТеста);
VKTeams_ПереслатьГолосовоеСообщение(ПараметрыТеста); VKTeams_ПереслатьГолосовоеСообщение(ПараметрыТеста);
@ -10980,6 +10982,38 @@
КонецПроцедуры КонецПроцедуры
Процедура VKTeams_ЗакрепитьСообщение(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
IDСообщения = ПараметрыФункции["VkTeams_MessageID"];
Результат = OPI_VKTeams.ЗакрепитьСообщение(Токен, IDЧата, IDСообщения);
// END
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ЗакрепитьСообщение", "VkTeams");
Проверка_ВКТИстина(Результат);
КонецПроцедуры
Процедура VKTeams_ОткрепитьСообщение(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
IDСообщения = ПараметрыФункции["VkTeams_MessageID"];
Результат = OPI_VKTeams.ОткрепитьСообщение(Токен, IDЧата, IDСообщения);
// END
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОткрепитьСообщение", "VkTeams");
Проверка_ВКТИстина(Результат);
КонецПроцедуры
#КонецОбласти #КонецОбласти
#КонецОбласти #КонецОбласти

60
src/ru/OPI/src/CommonModules/OPI_VKTeams/Module.bsl
View File

@ -396,13 +396,13 @@
// //
// Параметры: // Параметры:
// Токен - Строка - Токен бота - token // Токен - Строка - Токен бота - token
// IDСообщения - Строка, Число - ID оригинального сообщения - message // IDСообщения - Строка, Число - ID оригинального сообщения - messageid
// IDЧатаИсточника - Строка, Число - ID чата источника оригинального сообщения - fromid // IDЧатаИсточника - Строка, Число - ID чата источника оригинального сообщения - fromid
// IDЧата - Строка, Число - ID чата для отправки сообщения - chatid // IDЧата - Строка, Число - ID чата для отправки сообщения - chatid
// Текст - Строка - Дополнительный текст сообщения - text // Текст - Строка - Дополнительный текст сообщения - text
// //
// Возвращаемое значение: // Возвращаемое значение:
// HTTPОтвет - Переслать сообщение // Соответствие Из КлючИЗначение - сериализованный JSON ответа от VK Teams
Функция ПереслатьСообщение(Знач Токен, Знач IDСообщения, Знач IDЧатаИсточника, Знач IDЧата, Знач Текст = "") Экспорт Функция ПереслатьСообщение(Знач Токен, Знач IDСообщения, Знач IDЧатаИсточника, Знач IDЧата, Знач Текст = "") Экспорт
URL = "/messages/sendText"; URL = "/messages/sendText";
@ -419,6 +419,62 @@
КонецФункции КонецФункции
// Закрепить сообщение
// Закрепляет выбранное сообщение в чате
//
// Примечание:
// Для вызова этого метода бот должен быть администратором в чате
// Метод в документации API: [GET /chats/pinMessage](@teams.vk.com/botapi/#/chats/get_chats_pinMessage)
//
// Параметры:
// Токен - Строка - Токен бота - token
// IDЧата - Строка, Число - ID чата - chatid
// IDСообщения - Строка, Число - ID сообщения для закрепления - messageid
//
// Возвращаемое значение:
// Соответствие Из КлючИЗначение - сериализованный JSON ответа от VK Teams
Функция ЗакрепитьСообщение(Знач Токен, Знач IDЧата, Знач IDСообщения) Экспорт
URL = "/chats/pinMessage";
Параметры = НормализоватьОснову(URL, Токен);
OPI_Инструменты.ДобавитьПоле("chatId", IDЧата , "Строка", Параметры);
OPI_Инструменты.ДобавитьПоле("msgId" , IDСообщения, "Строка", Параметры);
Ответ = OPI_Инструменты.Get(URL, Параметры);
Возврат Ответ;
КонецФункции
// Открепить сообщение
// Открепляет ранее закрепленное сообщение в чате
//
// Примечание:
// Для вызова этого метода бот должен быть администратором в чате
// Метод в документации API: [GET /chats/unpinMessage](@teams.vk.com/botapi/#/chats/get_chats_unpinMessage)
//
// Параметры:
// Токен - Строка - Токен бота - token
// IDЧата - Строка, Число - ID чата - chatid
// IDСообщения - Строка, Число - ID сообщения для открепления - messageid
//
// Возвращаемое значение:
// Соответствие Из КлючИЗначение - сериализованный JSON ответа от VK Teams
Функция ОткрепитьСообщение(Знач Токен, Знач IDЧата, Знач IDСообщения) Экспорт
URL = "/chats/unpinMessage";
Параметры = НормализоватьОснову(URL, Токен);
OPI_Инструменты.ДобавитьПоле("chatId", IDЧата , "Строка", Параметры);
OPI_Инструменты.ДобавитьПоле("msgId" , IDСообщения, "Строка", Параметры);
Ответ = OPI_Инструменты.Get(URL, Параметры);
Возврат Ответ;
КонецФункции
#КонецОбласти #КонецОбласти
#Область УправлениеЧатами #Область УправлениеЧатами

52
src/ru/OPI/src/CommonModules/OPI_Тесты/Module.bsl
View File

@ -69,8 +69,8 @@
Процедура Телеграм_ПолучитьИнформациюБота() Экспорт Процедура Телеграм_ПолучитьИнформациюБота() Экспорт
ПараметрыТеста = Новый Структура; ПараметрыТеста = Новый Структура;
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_Token", ПараметрыТеста); OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_Token", ПараметрыТеста);
Telegram_ПолучитьИнформациюБота(ПараметрыТеста); Telegram_ПолучитьИнформациюБота(ПараметрыТеста);
@ -78,10 +78,10 @@
Процедура Телеграм_ПолучитьОбновления() Экспорт Процедура Телеграм_ПолучитьОбновления() Экспорт
ПараметрыТеста = Новый Структура; ПараметрыТеста = Новый Структура;
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_Token", ПараметрыТеста); OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_Token", ПараметрыТеста);
Telegram_УдалитьWebhook(ПараметрыТеста); Telegram_УдалитьWebhook(ПараметрыТеста);
Telegram_ПолучитьОбновления(ПараметрыТеста); Telegram_ПолучитьОбновления(ПараметрыТеста);
КонецПроцедуры КонецПроцедуры
@ -100,10 +100,10 @@
Процедура Телеграм_ОтправитьТекстовоеСообщение() Экспорт Процедура Телеграм_ОтправитьТекстовоеСообщение() Экспорт
ПараметрыТеста = Новый Структура; ПараметрыТеста = Новый Структура;
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_Token" , ПараметрыТеста); OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_Token" , ПараметрыТеста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_ChatID" , ПараметрыТеста); OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_ChatID" , ПараметрыТеста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_ChannelID", ПараметрыТеста); OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Telegram_ChannelID", ПараметрыТеста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("String" , ПараметрыТеста); OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("String" , ПараметрыТеста);
Telegram_ОтправитьТекстовоеСообщение(ПараметрыТеста); Telegram_ОтправитьТекстовоеСообщение(ПараметрыТеста);
@ -3162,6 +3162,8 @@
VKTeams_ОтправитьФайл(ПараметрыТеста); VKTeams_ОтправитьФайл(ПараметрыТеста);
VKTeams_ПереслатьФайл(ПараметрыТеста); VKTeams_ПереслатьФайл(ПараметрыТеста);
VKTeams_ИзменитьТекстСообщения(ПараметрыТеста); VKTeams_ИзменитьТекстСообщения(ПараметрыТеста);
VKTeams_ЗакрепитьСообщение(ПараметрыТеста);
VKTeams_ОткрепитьСообщение(ПараметрыТеста);
VKTeams_УдалитьСообщение(ПараметрыТеста); VKTeams_УдалитьСообщение(ПараметрыТеста);
VKTeams_ОтправитьГолосовоеСообщение(ПараметрыТеста); VKTeams_ОтправитьГолосовоеСообщение(ПараметрыТеста);
VKTeams_ПереслатьГолосовоеСообщение(ПараметрыТеста); VKTeams_ПереслатьГолосовоеСообщение(ПараметрыТеста);
@ -10980,6 +10982,38 @@
КонецПроцедуры КонецПроцедуры
Процедура VKTeams_ЗакрепитьСообщение(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
IDСообщения = ПараметрыФункции["VkTeams_MessageID"];
Результат = OPI_VKTeams.ЗакрепитьСообщение(Токен, IDЧата, IDСообщения);
// END
// !OInt OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ЗакрепитьСообщение", "VkTeams");
Проверка_ВКТИстина(Результат);
КонецПроцедуры
Процедура VKTeams_ОткрепитьСообщение(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
IDСообщения = ПараметрыФункции["VkTeams_MessageID"];
Результат = OPI_VKTeams.ОткрепитьСообщение(Токен, IDЧата, IDСообщения);
// END
// !OInt OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОткрепитьСообщение", "VkTeams");
Проверка_ВКТИстина(Результат);
КонецПроцедуры
#КонецОбласти #КонецОбласти
#КонецОбласти #КонецОбласти

64
src/ru/cli/data/Classes/internal/Classes/vkteams.os
View File

@ -454,7 +454,7 @@
НоваяСтрока.Модуль = "OPI_VKTeams"; НоваяСтрока.Модуль = "OPI_VKTeams";
НоваяСтрока.Метод = "ПереслатьСообщение"; НоваяСтрока.Метод = "ПереслатьСообщение";
НоваяСтрока.МетодПоиска = "ПЕРЕСЛАТЬСООБЩЕНИЕ"; НоваяСтрока.МетодПоиска = "ПЕРЕСЛАТЬСООБЩЕНИЕ";
НоваяСтрока.Параметр = "--message"; НоваяСтрока.Параметр = "--messageid";
НоваяСтрока.Описание = "ID оригинального сообщения"; НоваяСтрока.Описание = "ID оригинального сообщения";
НоваяСтрока.Область = "Отправка сообщений"; НоваяСтрока.Область = "Отправка сообщений";
@ -489,6 +489,68 @@
НоваяСтрока.Область = "Отправка сообщений"; НоваяСтрока.Область = "Отправка сообщений";
НоваяСтрока = ТаблицаСостава.Добавить();
НоваяСтрока.Библиотека = "vkteams";
НоваяСтрока.Модуль = "OPI_VKTeams";
НоваяСтрока.Метод = "ЗакрепитьСообщение";
НоваяСтрока.МетодПоиска = "ЗАКРЕПИТЬСООБЩЕНИЕ";
НоваяСтрока.Параметр = "--token";
НоваяСтрока.Описание = "Токен бота";
НоваяСтрока.Область = "Отправка сообщений";
НоваяСтрока.ОписаниеМетода = "Закрепляет выбранное сообщение в чате";
НоваяСтрока = ТаблицаСостава.Добавить();
НоваяСтрока.Библиотека = "vkteams";
НоваяСтрока.Модуль = "OPI_VKTeams";
НоваяСтрока.Метод = "ЗакрепитьСообщение";
НоваяСтрока.МетодПоиска = "ЗАКРЕПИТЬСООБЩЕНИЕ";
НоваяСтрока.Параметр = "--chatid";
НоваяСтрока.Описание = "ID чата";
НоваяСтрока.Область = "Отправка сообщений";
НоваяСтрока = ТаблицаСостава.Добавить();
НоваяСтрока.Библиотека = "vkteams";
НоваяСтрока.Модуль = "OPI_VKTeams";
НоваяСтрока.Метод = "ЗакрепитьСообщение";
НоваяСтрока.МетодПоиска = "ЗАКРЕПИТЬСООБЩЕНИЕ";
НоваяСтрока.Параметр = "--messageid";
НоваяСтрока.Описание = "ID сообщения для закрепления";
НоваяСтрока.Область = "Отправка сообщений";
НоваяСтрока = ТаблицаСостава.Добавить();
НоваяСтрока.Библиотека = "vkteams";
НоваяСтрока.Модуль = "OPI_VKTeams";
НоваяСтрока.Метод = "ОткрепитьСообщение";
НоваяСтрока.МетодПоиска = "ОТКРЕПИТЬСООБЩЕНИЕ";
НоваяСтрока.Параметр = "--token";
НоваяСтрока.Описание = "Токен бота";
НоваяСтрока.Область = "Отправка сообщений";
НоваяСтрока.ОписаниеМетода = "Открепляет ранее закрепленное сообщение в чате";
НоваяСтрока = ТаблицаСостава.Добавить();
НоваяСтрока.Библиотека = "vkteams";
НоваяСтрока.Модуль = "OPI_VKTeams";
НоваяСтрока.Метод = "ОткрепитьСообщение";
НоваяСтрока.МетодПоиска = "ОТКРЕПИТЬСООБЩЕНИЕ";
НоваяСтрока.Параметр = "--chatid";
НоваяСтрока.Описание = "ID чата";
НоваяСтрока.Область = "Отправка сообщений";
НоваяСтрока = ТаблицаСостава.Добавить();
НоваяСтрока.Библиотека = "vkteams";
НоваяСтрока.Модуль = "OPI_VKTeams";
НоваяСтрока.Метод = "ОткрепитьСообщение";
НоваяСтрока.МетодПоиска = "ОТКРЕПИТЬСООБЩЕНИЕ";
НоваяСтрока.Параметр = "--messageid";
НоваяСтрока.Описание = "ID сообщения для открепления";
НоваяСтрока.Область = "Отправка сообщений";
НоваяСтрока = ТаблицаСостава.Добавить(); НоваяСтрока = ТаблицаСостава.Добавить();
НоваяСтрока.Библиотека = "vkteams"; НоваяСтрока.Библиотека = "vkteams";
НоваяСтрока.Модуль = "OPI_VKTeams"; НоваяСтрока.Модуль = "OPI_VKTeams";