mirror of
https://github.com/Bayselonarrend/OpenIntegrations.git
synced 2025-01-28 05:46:35 +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
|
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
|
||||||
|
|
||||||
#EndRegion
|
#EndRegion
|
||||||
@ -752,4 +794,24 @@ Function GetChatData(Val Token, Val ChatID, Val Method, Val Cursor = "")
|
|||||||
|
|
||||||
EndFunction
|
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
|
#EndRegion
|
||||||
|
|||||||
@ -3187,6 +3187,8 @@ Procedure VKT_ChatManagment() Export
|
|||||||
VKTeams_GetChatJoinRequests(TestParameters);
|
VKTeams_GetChatJoinRequests(TestParameters);
|
||||||
VKTeams_BlockChatUser(TestParameters);
|
VKTeams_BlockChatUser(TestParameters);
|
||||||
VKTeams_UnblockChatUser(TestParameters);
|
VKTeams_UnblockChatUser(TestParameters);
|
||||||
|
VKTeams_ApprovePending(TestParameters);
|
||||||
|
VKTeams_DisapprovePending(TestParameters);
|
||||||
|
|
||||||
EndProcedure
|
EndProcedure
|
||||||
|
|
||||||
@ -3977,6 +3979,14 @@ Procedure Check_VKTChat(Val Result)
|
|||||||
|
|
||||||
EndProcedure
|
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
|
#EndRegion
|
||||||
|
|
||||||
#Region AtomicTests
|
#Region AtomicTests
|
||||||
@ -11014,6 +11024,50 @@ Procedure VKTeams_UnpinMessage(FunctionParameters)
|
|||||||
|
|
||||||
EndProcedure
|
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
|
||||||
|
|
||||||
#EndRegion
|
#EndRegion
|
||||||
|
|||||||
@ -3187,6 +3187,8 @@ Procedure VKT_ChatManagment() Export
|
|||||||
VKTeams_GetChatJoinRequests(TestParameters);
|
VKTeams_GetChatJoinRequests(TestParameters);
|
||||||
VKTeams_BlockChatUser(TestParameters);
|
VKTeams_BlockChatUser(TestParameters);
|
||||||
VKTeams_UnblockChatUser(TestParameters);
|
VKTeams_UnblockChatUser(TestParameters);
|
||||||
|
VKTeams_ApprovePending(TestParameters);
|
||||||
|
VKTeams_DisapprovePending(TestParameters);
|
||||||
|
|
||||||
EndProcedure
|
EndProcedure
|
||||||
|
|
||||||
@ -3977,6 +3979,14 @@ Procedure Check_VKTChat(Val Result)
|
|||||||
|
|
||||||
EndProcedure
|
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
|
#EndRegion
|
||||||
|
|
||||||
#Region AtomicTests
|
#Region AtomicTests
|
||||||
@ -11014,6 +11024,50 @@ Procedure VKTeams_UnpinMessage(FunctionParameters)
|
|||||||
|
|
||||||
EndProcedure
|
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
|
||||||
|
|
||||||
#EndRegion
|
#EndRegion
|
||||||
|
|||||||
@ -722,6 +722,48 @@ Function UnblockChatUser(Val Token, Val ChatID, Val UserID) Export
|
|||||||
|
|
||||||
EndFunction
|
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
|
||||||
|
|
||||||
#EndRegion
|
#EndRegion
|
||||||
@ -752,4 +794,24 @@ Function GetChatData(Val Token, Val ChatID, Val Method, Val Cursor = "")
|
|||||||
|
|
||||||
EndFunction
|
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
|
#EndRegion
|
||||||
|
|||||||
@ -791,6 +791,68 @@
|
|||||||
NewLine.Описание = "User ID";
|
NewLine.Описание = "User ID";
|
||||||
NewLine.Область = "Chat management";
|
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;
|
Return CompositionTable;
|
||||||
EndFunction
|
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_РазблокироватьПользователяЧата(ПараметрыТеста);
|
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_РазблокироватьПользователяЧата(ПараметрыТеста);
|
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 пользователя";
|
НоваяСтрока.Описание = "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