mirror of
https://github.com/Bayselonarrend/OpenIntegrations.git
synced 2025-01-26 05:37:27 +02:00
VKT: Ответ на заявки
This commit is contained in:
Anton
parent
0e5642ef61
commit
11ec7136a4
4
docs/en/data/VKTeams/ApprovePending.json
Normal file
4
docs/en/data/VKTeams/ApprovePending.json
Normal file
@ -0,0 +1,4 @@
|
||||
{
|
||||
"Token": "001.3501506236.091...",
|
||||
"ChatID": "689203963@chat.agent"
|
||||
}
|
||||
4
docs/en/data/VKTeams/DisapprovePending.json
Normal file
4
docs/en/data/VKTeams/DisapprovePending.json
Normal file
@ -0,0 +1,4 @@
|
||||
{
|
||||
"Token": "001.3501506236.091...",
|
||||
"ChatID": "689203963@chat.agent"
|
||||
}
|
||||
7
docs/en/examples/VKTeams/ApprovePending.txt
Normal file
7
docs/en/examples/VKTeams/ApprovePending.txt
Normal file
@ -0,0 +1,7 @@
|
||||
Token = "001.3501506236.091...";
|
||||
ChatID = "689203963@chat.agent";
|
||||
User = 1011987091;
|
||||
|
||||
Result = OPI_VKTeams.ApprovePending(Token, ChatID, User);
|
||||
|
||||
Result = OPI_VKTeams.ApprovePending(Token, ChatID);
|
||||
7
docs/en/examples/VKTeams/DisapprovePending.txt
Normal file
7
docs/en/examples/VKTeams/DisapprovePending.txt
Normal file
@ -0,0 +1,7 @@
|
||||
Token = "001.3501506236.091...";
|
||||
ChatID = "689203963@chat.agent";
|
||||
User = 1011987091;
|
||||
|
||||
Result = OPI_VKTeams.DisapprovePending(Token, ChatID, User);
|
||||
|
||||
Result = OPI_VKTeams.DisapprovePending(Token, ChatID);
|
||||
4
docs/ru/data/VKTeams/ОдобритьЗаявкуНаВступление.json
Normal file
4
docs/ru/data/VKTeams/ОдобритьЗаявкуНаВступление.json
Normal file
@ -0,0 +1,4 @@
|
||||
{
|
||||
"Токен": "001.3501506236.091...",
|
||||
"IDЧата": "689203963@chat.agent"
|
||||
}
|
||||
4
docs/ru/data/VKTeams/ОтклонитьЗаявкуНаВступление.json
Normal file
4
docs/ru/data/VKTeams/ОтклонитьЗаявкуНаВступление.json
Normal file
@ -0,0 +1,4 @@
|
||||
{
|
||||
"Токен": "001.3501506236.091...",
|
||||
"IDЧата": "689203963@chat.agent"
|
||||
}
|
||||
7
docs/ru/examples/VKTeams/ОдобритьЗаявкуНаВступление.txt
Normal file
7
docs/ru/examples/VKTeams/ОдобритьЗаявкуНаВступление.txt
Normal file
@ -0,0 +1,7 @@
|
||||
Токен = "001.3501506236.091...";
|
||||
IDЧата = "689203963@chat.agent";
|
||||
Пользователь = 1011987091;
|
||||
|
||||
Результат = OPI_VKTeams.ОдобритьЗаявкуНаВступление(Токен, IDЧата, Пользователь);
|
||||
|
||||
Результат = OPI_VKTeams.ОдобритьЗаявкуНаВступление(Токен, IDЧата);
|
||||
7
docs/ru/examples/VKTeams/ОтклонитьЗаявкуНаВступление.txt
Normal file
7
docs/ru/examples/VKTeams/ОтклонитьЗаявкуНаВступление.txt
Normal file
@ -0,0 +1,7 @@
|
||||
Токен = "001.3501506236.091...";
|
||||
IDЧата = "689203963@chat.agent";
|
||||
Пользователь = 1011987091;
|
||||
|
||||
Результат = OPI_VKTeams.ОтклонитьЗаявкуНаВступление(Токен, IDЧата, Пользователь);
|
||||
|
||||
Результат = OPI_VKTeams.ОтклонитьЗаявкуНаВступление(Токен, IDЧата);
|
||||
File diff suppressed because it is too large
Load Diff
@ -722,6 +722,48 @@ Function UnblockChatUser(Val Token, Val ChatID, Val UserID) Export
|
||||
|
||||
EndFunction
|
||||
|
||||
// Approve pending
|
||||
// Confirms the user's request to join a private chat room
|
||||
//
|
||||
// Note
|
||||
// Method at API documentation: [GET /chats/resolvePending](@teams.vk.com/botapi/#/chats/get_chats_resolvePending)
|
||||
//
|
||||
// Parameters:
|
||||
// Token - String - Bot token - token
|
||||
// ChatID - String, Number - Chat ID - chatid
|
||||
// UserID - String, Number - User ID. For all active requests if not filled in - userid
|
||||
//
|
||||
// Returns:
|
||||
// Map Of KeyAndValue - Serialized JSON response from VK Teams
|
||||
Function ApprovePending(Val Token, Val ChatID, Val UserID = "") Export
|
||||
|
||||
Response = ResolvePending(Token, ChatID, True, UserID);
|
||||
|
||||
Return Response;
|
||||
|
||||
EndFunction
|
||||
|
||||
// Disapprove pending
|
||||
// Rejects the user's request to join a private chat room
|
||||
//
|
||||
// Note
|
||||
// Method at API documentation: [GET /chats/resolvePending](@teams.vk.com/botapi/#/chats/get_chats_resolvePending)
|
||||
//
|
||||
// Parameters:
|
||||
// Token - String - Bot token - token
|
||||
// ChatID - String, Number - Chat ID - chatid
|
||||
// UserID - String, Number - User ID. For all active requests if not filled in - userid
|
||||
//
|
||||
// Returns:
|
||||
// Map Of KeyAndValue - Serialized JSON response from VK Teams
|
||||
Function DisapprovePending(Val Token, Val ChatID, Val UserID = "") Export
|
||||
|
||||
Response = ResolvePending(Token, ChatID, False, UserID);
|
||||
|
||||
Return Response;
|
||||
|
||||
EndFunction
|
||||
|
||||
#EndRegion
|
||||
|
||||
#EndRegion
|
||||
@ -752,4 +794,24 @@ Function GetChatData(Val Token, Val ChatID, Val Method, Val Cursor = "")
|
||||
|
||||
EndFunction
|
||||
|
||||
Function ResolvePending(Val Token, Val ChatID, Val Response, Val UserID = "")
|
||||
|
||||
URL = "/chats/resolvePending";
|
||||
Parameters = NormalizeMain(URL, Token);
|
||||
|
||||
OPI_Tools.AddField("chatId" , ChatID , "String" , Parameters);
|
||||
OPI_Tools.AddField("approve", Response , "Boolean", Parameters);
|
||||
|
||||
If ValueIsFilled(UserID) Then
|
||||
OPI_Tools.AddField("userId" , UserID, "String" , Parameters);
|
||||
Else
|
||||
OPI_Tools.AddField("everyone", True , "Boolean", Parameters);
|
||||
EndIf;
|
||||
|
||||
Response = OPI_Tools.Get(URL, Parameters);
|
||||
|
||||
Return Response;
|
||||
|
||||
EndFunction
|
||||
|
||||
#EndRegion
|
||||
|
||||
@ -3187,6 +3187,8 @@ Procedure VKT_ChatManagment() Export
|
||||
VKTeams_GetChatJoinRequests(TestParameters);
|
||||
VKTeams_BlockChatUser(TestParameters);
|
||||
VKTeams_UnblockChatUser(TestParameters);
|
||||
VKTeams_ApprovePending(TestParameters);
|
||||
VKTeams_DisapprovePending(TestParameters);
|
||||
|
||||
EndProcedure
|
||||
|
||||
@ -3977,6 +3979,14 @@ Procedure Check_VKTChat(Val Result)
|
||||
|
||||
EndProcedure
|
||||
|
||||
Procedure Check_VKTPending(Val Result)
|
||||
|
||||
If Not Result["ok"] Then
|
||||
OPI_TestDataRetrieval.ExpectsThat(Result["description"]).Равно("User is not pending or nobody in pending list");
|
||||
EndIf;
|
||||
|
||||
EndProcedure
|
||||
|
||||
#EndRegion
|
||||
|
||||
#Region AtomicTests
|
||||
@ -11014,6 +11024,50 @@ Procedure VKTeams_UnpinMessage(FunctionParameters)
|
||||
|
||||
EndProcedure
|
||||
|
||||
Procedure VKTeams_ApprovePending(FunctionParameters)
|
||||
|
||||
Token = FunctionParameters["VkTeams_Token"];
|
||||
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||
User = 1011987091;
|
||||
|
||||
Result = OPI_VKTeams.ApprovePending(Token, ChatID, User);
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Result, "ApprovePending (single)", "VkTeams");
|
||||
|
||||
Check_VKTPending(Result); // SKIP
|
||||
|
||||
Result = OPI_VKTeams.ApprovePending(Token, ChatID);
|
||||
|
||||
// END
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Result, "ApprovePending", "VkTeams");
|
||||
|
||||
Check_VKTPending(Result);
|
||||
|
||||
EndProcedure
|
||||
|
||||
Procedure VKTeams_DisapprovePending(FunctionParameters)
|
||||
|
||||
Token = FunctionParameters["VkTeams_Token"];
|
||||
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||
User = 1011987091;
|
||||
|
||||
Result = OPI_VKTeams.DisapprovePending(Token, ChatID, User);
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Result, "DisapprovePending (single)", "VkTeams");
|
||||
|
||||
Check_VKTPending(Result); // SKIP
|
||||
|
||||
Result = OPI_VKTeams.DisapprovePending(Token, ChatID);
|
||||
|
||||
// END
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Result, "DisapprovePending", "VkTeams");
|
||||
|
||||
Check_VKTPending(Result);
|
||||
|
||||
EndProcedure
|
||||
|
||||
#EndRegion
|
||||
|
||||
#EndRegion
|
||||
|
||||
@ -3187,6 +3187,8 @@ Procedure VKT_ChatManagment() Export
|
||||
VKTeams_GetChatJoinRequests(TestParameters);
|
||||
VKTeams_BlockChatUser(TestParameters);
|
||||
VKTeams_UnblockChatUser(TestParameters);
|
||||
VKTeams_ApprovePending(TestParameters);
|
||||
VKTeams_DisapprovePending(TestParameters);
|
||||
|
||||
EndProcedure
|
||||
|
||||
@ -3977,6 +3979,14 @@ Procedure Check_VKTChat(Val Result)
|
||||
|
||||
EndProcedure
|
||||
|
||||
Procedure Check_VKTPending(Val Result)
|
||||
|
||||
If Not Result["ok"] Then
|
||||
OPI_TestDataRetrieval.ExpectsThat(Result["description"]).Равно("User is not pending or nobody in pending list");
|
||||
EndIf;
|
||||
|
||||
EndProcedure
|
||||
|
||||
#EndRegion
|
||||
|
||||
#Region AtomicTests
|
||||
@ -11014,6 +11024,50 @@ Procedure VKTeams_UnpinMessage(FunctionParameters)
|
||||
|
||||
EndProcedure
|
||||
|
||||
Procedure VKTeams_ApprovePending(FunctionParameters)
|
||||
|
||||
Token = FunctionParameters["VkTeams_Token"];
|
||||
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||
User = 1011987091;
|
||||
|
||||
Result = OPI_VKTeams.ApprovePending(Token, ChatID, User);
|
||||
|
||||
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "ApprovePending (single)", "VkTeams");
|
||||
|
||||
Check_VKTPending(Result); // SKIP
|
||||
|
||||
Result = OPI_VKTeams.ApprovePending(Token, ChatID);
|
||||
|
||||
// END
|
||||
|
||||
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "ApprovePending", "VkTeams");
|
||||
|
||||
Check_VKTPending(Result);
|
||||
|
||||
EndProcedure
|
||||
|
||||
Procedure VKTeams_DisapprovePending(FunctionParameters)
|
||||
|
||||
Token = FunctionParameters["VkTeams_Token"];
|
||||
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||
User = 1011987091;
|
||||
|
||||
Result = OPI_VKTeams.DisapprovePending(Token, ChatID, User);
|
||||
|
||||
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "DisapprovePending (single)", "VkTeams");
|
||||
|
||||
Check_VKTPending(Result); // SKIP
|
||||
|
||||
Result = OPI_VKTeams.DisapprovePending(Token, ChatID);
|
||||
|
||||
// END
|
||||
|
||||
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "DisapprovePending", "VkTeams");
|
||||
|
||||
Check_VKTPending(Result);
|
||||
|
||||
EndProcedure
|
||||
|
||||
#EndRegion
|
||||
|
||||
#EndRegion
|
||||
|
||||
@ -722,6 +722,48 @@ Function UnblockChatUser(Val Token, Val ChatID, Val UserID) Export
|
||||
|
||||
EndFunction
|
||||
|
||||
// Approve pending
|
||||
// Confirms the user's request to join a private chat room
|
||||
//
|
||||
// Note
|
||||
// Method at API documentation: [GET /chats/resolvePending](@teams.vk.com/botapi/#/chats/get_chats_resolvePending)
|
||||
//
|
||||
// Parameters:
|
||||
// Token - String - Bot token - token
|
||||
// ChatID - String, Number - Chat ID - chatid
|
||||
// UserID - String, Number - User ID. For all active requests if not filled in - userid
|
||||
//
|
||||
// Returns:
|
||||
// Map Of KeyAndValue - Serialized JSON response from VK Teams
|
||||
Function ApprovePending(Val Token, Val ChatID, Val UserID = "") Export
|
||||
|
||||
Response = ResolvePending(Token, ChatID, True, UserID);
|
||||
|
||||
Return Response;
|
||||
|
||||
EndFunction
|
||||
|
||||
// Disapprove pending
|
||||
// Rejects the user's request to join a private chat room
|
||||
//
|
||||
// Note
|
||||
// Method at API documentation: [GET /chats/resolvePending](@teams.vk.com/botapi/#/chats/get_chats_resolvePending)
|
||||
//
|
||||
// Parameters:
|
||||
// Token - String - Bot token - token
|
||||
// ChatID - String, Number - Chat ID - chatid
|
||||
// UserID - String, Number - User ID. For all active requests if not filled in - userid
|
||||
//
|
||||
// Returns:
|
||||
// Map Of KeyAndValue - Serialized JSON response from VK Teams
|
||||
Function DisapprovePending(Val Token, Val ChatID, Val UserID = "") Export
|
||||
|
||||
Response = ResolvePending(Token, ChatID, False, UserID);
|
||||
|
||||
Return Response;
|
||||
|
||||
EndFunction
|
||||
|
||||
#EndRegion
|
||||
|
||||
#EndRegion
|
||||
@ -752,4 +794,24 @@ Function GetChatData(Val Token, Val ChatID, Val Method, Val Cursor = "")
|
||||
|
||||
EndFunction
|
||||
|
||||
Function ResolvePending(Val Token, Val ChatID, Val Response, Val UserID = "")
|
||||
|
||||
URL = "/chats/resolvePending";
|
||||
Parameters = NormalizeMain(URL, Token);
|
||||
|
||||
OPI_Tools.AddField("chatId" , ChatID , "String" , Parameters);
|
||||
OPI_Tools.AddField("approve", Response , "Boolean", Parameters);
|
||||
|
||||
If ValueIsFilled(UserID) Then
|
||||
OPI_Tools.AddField("userId" , UserID, "String" , Parameters);
|
||||
Else
|
||||
OPI_Tools.AddField("everyone", True , "Boolean", Parameters);
|
||||
EndIf;
|
||||
|
||||
Response = OPI_Tools.Get(URL, Parameters);
|
||||
|
||||
Return Response;
|
||||
|
||||
EndFunction
|
||||
|
||||
#EndRegion
|
||||
|
||||
@ -791,6 +791,68 @@
|
||||
NewLine.Описание = "User ID";
|
||||
NewLine.Область = "Chat management";
|
||||
|
||||
|
||||
NewLine = CompositionTable.Add();
|
||||
NewLine.Библиотека = "vkteams";
|
||||
NewLine.Модуль = "OPI_VKTeams";
|
||||
NewLine.Метод = "ApprovePending";
|
||||
NewLine.МетодПоиска = "APPROVEPENDING";
|
||||
NewLine.Параметр = "--token";
|
||||
NewLine.Описание = "Bot token";
|
||||
NewLine.Область = "Chat management";
|
||||
NewLine.ОписаниеМетода = "Confirms the user's request to join a private chat room";
|
||||
|
||||
|
||||
NewLine = CompositionTable.Add();
|
||||
NewLine.Библиотека = "vkteams";
|
||||
NewLine.Модуль = "OPI_VKTeams";
|
||||
NewLine.Метод = "ApprovePending";
|
||||
NewLine.МетодПоиска = "APPROVEPENDING";
|
||||
NewLine.Параметр = "--chatid";
|
||||
NewLine.Описание = "Chat ID";
|
||||
NewLine.Область = "Chat management";
|
||||
|
||||
|
||||
NewLine = CompositionTable.Add();
|
||||
NewLine.Библиотека = "vkteams";
|
||||
NewLine.Модуль = "OPI_VKTeams";
|
||||
NewLine.Метод = "ApprovePending";
|
||||
NewLine.МетодПоиска = "APPROVEPENDING";
|
||||
NewLine.Параметр = "--userid";
|
||||
NewLine.Описание = "User ID. For all active requests if not filled in (optional, def. val. - Empty value)";
|
||||
NewLine.Область = "Chat management";
|
||||
|
||||
|
||||
NewLine = CompositionTable.Add();
|
||||
NewLine.Библиотека = "vkteams";
|
||||
NewLine.Модуль = "OPI_VKTeams";
|
||||
NewLine.Метод = "DisapprovePending";
|
||||
NewLine.МетодПоиска = "DISAPPROVEPENDING";
|
||||
NewLine.Параметр = "--token";
|
||||
NewLine.Описание = "Bot token";
|
||||
NewLine.Область = "Chat management";
|
||||
NewLine.ОписаниеМетода = "Rejects the user's request to join a private chat room";
|
||||
|
||||
|
||||
NewLine = CompositionTable.Add();
|
||||
NewLine.Библиотека = "vkteams";
|
||||
NewLine.Модуль = "OPI_VKTeams";
|
||||
NewLine.Метод = "DisapprovePending";
|
||||
NewLine.МетодПоиска = "DISAPPROVEPENDING";
|
||||
NewLine.Параметр = "--chatid";
|
||||
NewLine.Описание = "Chat ID";
|
||||
NewLine.Область = "Chat management";
|
||||
|
||||
|
||||
NewLine = CompositionTable.Add();
|
||||
NewLine.Библиотека = "vkteams";
|
||||
NewLine.Модуль = "OPI_VKTeams";
|
||||
NewLine.Метод = "DisapprovePending";
|
||||
NewLine.МетодПоиска = "DISAPPROVEPENDING";
|
||||
NewLine.Параметр = "--userid";
|
||||
NewLine.Описание = "User ID. For all active requests if not filled in (optional, def. val. - Empty value)";
|
||||
NewLine.Область = "Chat management";
|
||||
|
||||
Return CompositionTable;
|
||||
EndFunction
|
||||
|
||||
|
||||
@ -722,6 +722,48 @@
|
||||
|
||||
КонецФункции
|
||||
|
||||
// Одобрить заявку на вступление
|
||||
// Подтверждает вступление пользователя в закрытый чат
|
||||
//
|
||||
// Примечание:
|
||||
// Метод в документации API: [GET /chats/resolvePending](@teams.vk.com/botapi/#/chats/get_chats_resolvePending)
|
||||
//
|
||||
// Параметры:
|
||||
// Токен - Строка - Токен бота - token
|
||||
// IDЧата - Строка, Число - ID чата - chatid
|
||||
// IDПользователя - Строка, Число - ID пользователя. Ответ на все заявки, если не заполнено - userid
|
||||
//
|
||||
// Возвращаемое значение:
|
||||
// Соответствие Из КлючИЗначение - сериализованный JSON ответа от VK Teams
|
||||
Функция ОдобритьЗаявкуНаВступление(Знач Токен, Знач IDЧата, Знач IDПользователя = "") Экспорт
|
||||
|
||||
Ответ = ОтветитьНаЗаявкуНаВступление(Токен, IDЧата, Истина, IDПользователя);
|
||||
|
||||
Возврат Ответ;
|
||||
|
||||
КонецФункции
|
||||
|
||||
// Отклонить заявку на вступление
|
||||
// Отклоняет вступление пользователя в закрытый чат
|
||||
//
|
||||
// Примечание:
|
||||
// Метод в документации API: [GET /chats/resolvePending](@teams.vk.com/botapi/#/chats/get_chats_resolvePending)
|
||||
//
|
||||
// Параметры:
|
||||
// Токен - Строка - Токен бота - token
|
||||
// IDЧата - Строка, Число - ID чата - chatid
|
||||
// IDПользователя - Строка, Число - ID пользователя. Ответ на все заявки, если не заполнено - userid
|
||||
//
|
||||
// Возвращаемое значение:
|
||||
// Соответствие Из КлючИЗначение - сериализованный JSON ответа от VK Teams
|
||||
Функция ОтклонитьЗаявкуНаВступление(Знач Токен, Знач IDЧата, Знач IDПользователя = "") Экспорт
|
||||
|
||||
Ответ = ОтветитьНаЗаявкуНаВступление(Токен, IDЧата, Ложь, IDПользователя);
|
||||
|
||||
Возврат Ответ;
|
||||
|
||||
КонецФункции
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
#КонецОбласти
|
||||
@ -752,4 +794,24 @@
|
||||
|
||||
КонецФункции
|
||||
|
||||
Функция ОтветитьНаЗаявкуНаВступление(Знач Токен, Знач IDЧата, Знач Ответ, Знач IDПользователя = "")
|
||||
|
||||
URL = "/chats/resolvePending";
|
||||
Параметры = НормализоватьОснову(URL, Токен);
|
||||
|
||||
OPI_Инструменты.ДобавитьПоле("chatId" , IDЧата, "Строка", Параметры);
|
||||
OPI_Инструменты.ДобавитьПоле("approve", Ответ , "Булево", Параметры);
|
||||
|
||||
Если ЗначениеЗаполнено(IDПользователя) Тогда
|
||||
OPI_Инструменты.ДобавитьПоле("userId" , IDПользователя, "Строка", Параметры);
|
||||
Иначе
|
||||
OPI_Инструменты.ДобавитьПоле("everyone", Истина , "Булево", Параметры);
|
||||
КонецЕсли;
|
||||
|
||||
Ответ = OPI_Инструменты.Get(URL, Параметры);
|
||||
|
||||
Возврат Ответ;
|
||||
|
||||
КонецФункции
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
@ -3187,6 +3187,8 @@
|
||||
VKTeams_ПолучитьЗапросыВступленияЧата(ПараметрыТеста);
|
||||
VKTeams_ЗаблокироватьПользователяЧата(ПараметрыТеста);
|
||||
VKTeams_РазблокироватьПользователяЧата(ПараметрыТеста);
|
||||
VKTeams_ОдобритьЗаявкуНаВступление(ПараметрыТеста);
|
||||
VKTeams_ОтклонитьЗаявкуНаВступление(ПараметрыТеста);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
@ -3977,6 +3979,14 @@
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура Проверка_ВКТЗаявки(Знач Результат)
|
||||
|
||||
Если Не Результат["ok"] Тогда
|
||||
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["description"]).Равно("User is not pending or nobody in pending list");
|
||||
КонецЕсли;
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
#Область АтомарныеТесты
|
||||
@ -11014,6 +11024,50 @@
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура VKTeams_ОдобритьЗаявкуНаВступление(ПараметрыФункции)
|
||||
|
||||
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||
Пользователь = 1011987091;
|
||||
|
||||
Результат = OPI_VKTeams.ОдобритьЗаявкуНаВступление(Токен, IDЧата, Пользователь);
|
||||
|
||||
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОдобритьЗаявкуНаВступление (один)", "VkTeams");
|
||||
|
||||
Проверка_ВКТЗаявки(Результат); // SKIP
|
||||
|
||||
Результат = OPI_VKTeams.ОдобритьЗаявкуНаВступление(Токен, IDЧата);
|
||||
|
||||
// END
|
||||
|
||||
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОдобритьЗаявкуНаВступление", "VkTeams");
|
||||
|
||||
Проверка_ВКТЗаявки(Результат);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура VKTeams_ОтклонитьЗаявкуНаВступление(ПараметрыФункции)
|
||||
|
||||
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||
Пользователь = 1011987091;
|
||||
|
||||
Результат = OPI_VKTeams.ОтклонитьЗаявкуНаВступление(Токен, IDЧата, Пользователь);
|
||||
|
||||
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтклонитьЗаявкуНаВступление (один)", "VkTeams");
|
||||
|
||||
Проверка_ВКТЗаявки(Результат); // SKIP
|
||||
|
||||
Результат = OPI_VKTeams.ОтклонитьЗаявкуНаВступление(Токен, IDЧата);
|
||||
|
||||
// END
|
||||
|
||||
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтклонитьЗаявкуНаВступление", "VkTeams");
|
||||
|
||||
Проверка_ВКТЗаявки(Результат);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
@ -722,6 +722,48 @@
|
||||
|
||||
КонецФункции
|
||||
|
||||
// Одобрить заявку на вступление
|
||||
// Подтверждает вступление пользователя в закрытый чат
|
||||
//
|
||||
// Примечание:
|
||||
// Метод в документации API: [GET /chats/resolvePending](@teams.vk.com/botapi/#/chats/get_chats_resolvePending)
|
||||
//
|
||||
// Параметры:
|
||||
// Токен - Строка - Токен бота - token
|
||||
// IDЧата - Строка, Число - ID чата - chatid
|
||||
// IDПользователя - Строка, Число - ID пользователя. Ответ на все заявки, если не заполнено - userid
|
||||
//
|
||||
// Возвращаемое значение:
|
||||
// Соответствие Из КлючИЗначение - сериализованный JSON ответа от VK Teams
|
||||
Функция ОдобритьЗаявкуНаВступление(Знач Токен, Знач IDЧата, Знач IDПользователя = "") Экспорт
|
||||
|
||||
Ответ = ОтветитьНаЗаявкуНаВступление(Токен, IDЧата, Истина, IDПользователя);
|
||||
|
||||
Возврат Ответ;
|
||||
|
||||
КонецФункции
|
||||
|
||||
// Отклонить заявку на вступление
|
||||
// Отклоняет вступление пользователя в закрытый чат
|
||||
//
|
||||
// Примечание:
|
||||
// Метод в документации API: [GET /chats/resolvePending](@teams.vk.com/botapi/#/chats/get_chats_resolvePending)
|
||||
//
|
||||
// Параметры:
|
||||
// Токен - Строка - Токен бота - token
|
||||
// IDЧата - Строка, Число - ID чата - chatid
|
||||
// IDПользователя - Строка, Число - ID пользователя. Ответ на все заявки, если не заполнено - userid
|
||||
//
|
||||
// Возвращаемое значение:
|
||||
// Соответствие Из КлючИЗначение - сериализованный JSON ответа от VK Teams
|
||||
Функция ОтклонитьЗаявкуНаВступление(Знач Токен, Знач IDЧата, Знач IDПользователя = "") Экспорт
|
||||
|
||||
Ответ = ОтветитьНаЗаявкуНаВступление(Токен, IDЧата, Ложь, IDПользователя);
|
||||
|
||||
Возврат Ответ;
|
||||
|
||||
КонецФункции
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
#КонецОбласти
|
||||
@ -752,4 +794,24 @@
|
||||
|
||||
КонецФункции
|
||||
|
||||
Функция ОтветитьНаЗаявкуНаВступление(Знач Токен, Знач IDЧата, Знач Ответ, Знач IDПользователя = "")
|
||||
|
||||
URL = "/chats/resolvePending";
|
||||
Параметры = НормализоватьОснову(URL, Токен);
|
||||
|
||||
OPI_Инструменты.ДобавитьПоле("chatId" , IDЧата, "Строка", Параметры);
|
||||
OPI_Инструменты.ДобавитьПоле("approve", Ответ , "Булево", Параметры);
|
||||
|
||||
Если ЗначениеЗаполнено(IDПользователя) Тогда
|
||||
OPI_Инструменты.ДобавитьПоле("userId" , IDПользователя, "Строка", Параметры);
|
||||
Иначе
|
||||
OPI_Инструменты.ДобавитьПоле("everyone", Истина , "Булево", Параметры);
|
||||
КонецЕсли;
|
||||
|
||||
Ответ = OPI_Инструменты.Get(URL, Параметры);
|
||||
|
||||
Возврат Ответ;
|
||||
|
||||
КонецФункции
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
@ -3187,6 +3187,8 @@
|
||||
VKTeams_ПолучитьЗапросыВступленияЧата(ПараметрыТеста);
|
||||
VKTeams_ЗаблокироватьПользователяЧата(ПараметрыТеста);
|
||||
VKTeams_РазблокироватьПользователяЧата(ПараметрыТеста);
|
||||
VKTeams_ОдобритьЗаявкуНаВступление(ПараметрыТеста);
|
||||
VKTeams_ОтклонитьЗаявкуНаВступление(ПараметрыТеста);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
@ -3977,6 +3979,14 @@
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура Проверка_ВКТЗаявки(Знач Результат)
|
||||
|
||||
Если Не Результат["ok"] Тогда
|
||||
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["description"]).Равно("User is not pending or nobody in pending list");
|
||||
КонецЕсли;
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
#Область АтомарныеТесты
|
||||
@ -11014,6 +11024,50 @@
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура VKTeams_ОдобритьЗаявкуНаВступление(ПараметрыФункции)
|
||||
|
||||
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||
Пользователь = 1011987091;
|
||||
|
||||
Результат = OPI_VKTeams.ОдобритьЗаявкуНаВступление(Токен, IDЧата, Пользователь);
|
||||
|
||||
// !OInt OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОдобритьЗаявкуНаВступление (один)", "VkTeams");
|
||||
|
||||
Проверка_ВКТЗаявки(Результат); // SKIP
|
||||
|
||||
Результат = OPI_VKTeams.ОдобритьЗаявкуНаВступление(Токен, IDЧата);
|
||||
|
||||
// END
|
||||
|
||||
// !OInt OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОдобритьЗаявкуНаВступление", "VkTeams");
|
||||
|
||||
Проверка_ВКТЗаявки(Результат);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура VKTeams_ОтклонитьЗаявкуНаВступление(ПараметрыФункции)
|
||||
|
||||
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||
Пользователь = 1011987091;
|
||||
|
||||
Результат = OPI_VKTeams.ОтклонитьЗаявкуНаВступление(Токен, IDЧата, Пользователь);
|
||||
|
||||
// !OInt OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтклонитьЗаявкуНаВступление (один)", "VkTeams");
|
||||
|
||||
Проверка_ВКТЗаявки(Результат); // SKIP
|
||||
|
||||
Результат = OPI_VKTeams.ОтклонитьЗаявкуНаВступление(Токен, IDЧата);
|
||||
|
||||
// END
|
||||
|
||||
// !OInt OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтклонитьЗаявкуНаВступление", "VkTeams");
|
||||
|
||||
Проверка_ВКТЗаявки(Результат);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
@ -803,6 +803,68 @@
|
||||
НоваяСтрока.Описание = "ID пользователя";
|
||||
НоваяСтрока.Область = "Управление чатами";
|
||||
|
||||
|
||||
НоваяСтрока = ТаблицаСостава.Добавить();
|
||||
НоваяСтрока.Библиотека = "vkteams";
|
||||
НоваяСтрока.Модуль = "OPI_VKTeams";
|
||||
НоваяСтрока.Метод = "ОдобритьЗаявкуНаВступление";
|
||||
НоваяСтрока.МетодПоиска = "ОДОБРИТЬЗАЯВКУНАВСТУПЛЕНИЕ";
|
||||
НоваяСтрока.Параметр = "--token";
|
||||
НоваяСтрока.Описание = "Токен бота";
|
||||
НоваяСтрока.Область = "Управление чатами";
|
||||
НоваяСтрока.ОписаниеМетода = "Подтверждает вступление пользователя в закрытый чат";
|
||||
|
||||
|
||||
НоваяСтрока = ТаблицаСостава.Добавить();
|
||||
НоваяСтрока.Библиотека = "vkteams";
|
||||
НоваяСтрока.Модуль = "OPI_VKTeams";
|
||||
НоваяСтрока.Метод = "ОдобритьЗаявкуНаВступление";
|
||||
НоваяСтрока.МетодПоиска = "ОДОБРИТЬЗАЯВКУНАВСТУПЛЕНИЕ";
|
||||
НоваяСтрока.Параметр = "--chatid";
|
||||
НоваяСтрока.Описание = "ID чата";
|
||||
НоваяСтрока.Область = "Управление чатами";
|
||||
|
||||
|
||||
НоваяСтрока = ТаблицаСостава.Добавить();
|
||||
НоваяСтрока.Библиотека = "vkteams";
|
||||
НоваяСтрока.Модуль = "OPI_VKTeams";
|
||||
НоваяСтрока.Метод = "ОдобритьЗаявкуНаВступление";
|
||||
НоваяСтрока.МетодПоиска = "ОДОБРИТЬЗАЯВКУНАВСТУПЛЕНИЕ";
|
||||
НоваяСтрока.Параметр = "--userid";
|
||||
НоваяСтрока.Описание = "ID пользователя. Ответ на все заявки, если не заполнено (необяз. по ум. - Пустое значение)";
|
||||
НоваяСтрока.Область = "Управление чатами";
|
||||
|
||||
|
||||
НоваяСтрока = ТаблицаСостава.Добавить();
|
||||
НоваяСтрока.Библиотека = "vkteams";
|
||||
НоваяСтрока.Модуль = "OPI_VKTeams";
|
||||
НоваяСтрока.Метод = "ОтклонитьЗаявкуНаВступление";
|
||||
НоваяСтрока.МетодПоиска = "ОТКЛОНИТЬЗАЯВКУНАВСТУПЛЕНИЕ";
|
||||
НоваяСтрока.Параметр = "--token";
|
||||
НоваяСтрока.Описание = "Токен бота";
|
||||
НоваяСтрока.Область = "Управление чатами";
|
||||
НоваяСтрока.ОписаниеМетода = "Отклоняет вступление пользователя в закрытый чат";
|
||||
|
||||
|
||||
НоваяСтрока = ТаблицаСостава.Добавить();
|
||||
НоваяСтрока.Библиотека = "vkteams";
|
||||
НоваяСтрока.Модуль = "OPI_VKTeams";
|
||||
НоваяСтрока.Метод = "ОтклонитьЗаявкуНаВступление";
|
||||
НоваяСтрока.МетодПоиска = "ОТКЛОНИТЬЗАЯВКУНАВСТУПЛЕНИЕ";
|
||||
НоваяСтрока.Параметр = "--chatid";
|
||||
НоваяСтрока.Описание = "ID чата";
|
||||
НоваяСтрока.Область = "Управление чатами";
|
||||
|
||||
|
||||
НоваяСтрока = ТаблицаСостава.Добавить();
|
||||
НоваяСтрока.Библиотека = "vkteams";
|
||||
НоваяСтрока.Модуль = "OPI_VKTeams";
|
||||
НоваяСтрока.Метод = "ОтклонитьЗаявкуНаВступление";
|
||||
НоваяСтрока.МетодПоиска = "ОТКЛОНИТЬЗАЯВКУНАВСТУПЛЕНИЕ";
|
||||
НоваяСтрока.Параметр = "--userid";
|
||||
НоваяСтрока.Описание = "ID пользователя. Ответ на все заявки, если не заполнено (необяз. по ум. - Пустое значение)";
|
||||
НоваяСтрока.Область = "Управление чатами";
|
||||
|
||||
Возврат ТаблицаСостава;
|
||||
КонецФункции
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user