Преобразование OPI -> OInt (workflow)

src/en/OInt/core/Modules/OPI_VK.os

@@ -1409,7 +1409,7 @@ EndFunction
 // 
 // Returns:
 // Map Of KeyAndValue - Serialized JSON response from VK
-Function AddProductToSelection(Val ProductsArray, Val Selection, Val Parameters = "") Export
+Function AddProductToCollection(Val ProductsArray, Val Selection, Val Parameters = "") Export
     
     OPI_TypeConversion.GetCollection(ProductsArray);
     OPI_TypeConversion.GetLine(Selection);
@@ -1922,7 +1922,7 @@ Function ProductManagement(Val ProductDescription, Val ProductID = "", Val Selec
     EndIf;
     
     If ValueIsFilled(Selection) And ValueIsFilled(ProductID) Then
-        AddProductToSelection(ProductID, Selection, Parameters_);
+        AddProductToCollection(ProductID, Selection, Parameters_);
     EndIf;
     
     Return Response;

src/en/OInt/tests/Modules/internal/OPI_Tests.os

@@ -501,111 +501,20 @@ Procedure VKAPI_GetProductCategories() Export
 EndProcedure
 
 Procedure VKAPI_CreateProductSelection() Export
- 
+     
-    Parameters = GetVKParameters();
+    TestParameters = New Structure;
-    TypeMap = Type("Map");
+    OPI_TestDataRetrieval.ParameterToCollection("Picture", TestParameters);
-    TypeNumber = Type("Number");
+    OPI_TestDataRetrieval.ParameterToCollection("Picture2", TestParameters);
-    Response_ = "response";
-    Image = OPI_TestDataRetrieval.GetBinary("Picture");
-    TFN = GetTempFileName("png");   
-    Image.Write(TFN);
         
-    Result = OPI_VK.CreateProductCollection("Test album"
+    CreateProductCollection(TestParameters);
-        , Image
+    EditProductCollection(TestParameters);
-        , True
+    VK_AddProduct(TestParameters);
-        , False
+    VK_EditProduct(TestParameters);
-        , Parameters);  
+    VK_AddProductToCollection(TestParameters);    
-        
+    VK_RemoveProductFromCollection(TestParameters);
-    OPI_TestDataRetrieval.WriteLog(Result, "CreateProductCollection");
+    VK_DeleteProduct(TestParameters);
-    
+    VK_DeleteCollection(TestParameters);
-    OPI_Tools.Pause(5);
-    
-    OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap);
-    OPI_TestDataRetrieval.ExpectsThat(Result[Response_]["albums_count"]).ИмеетТип(TypeNumber).Заполнено();
-    OPI_TestDataRetrieval.ExpectsThat(Result[Response_]["market_album_id"]).ИмеетТип(TypeNumber).Заполнено();
-             
-    SelectionID = Result[Response_]["market_album_id"];
-    
-    Result = OPI_VK.EditProductCollection("EditedCollection", SelectionID, , , , Parameters);
-    
-    OPI_TestDataRetrieval.WriteLog(Result, "EditProductCollection");
-    
-    OPI_Tools.Pause(5);
-    
-    OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap);
-    OPI_TestDataRetrieval.ExpectsThat(Result[Response_]).ИмеетТип(TypeNumber).Равно(1);
- 
-    ImageArray = New Array;
-    ImageArray.Add(OPI_TestDataRetrieval.GetBinary("Picture"));
-    ImageArray.Add(OPI_TestDataRetrieval.GetBinary("Picture2"));
-    
-    Product = New Map();
-    Product.Insert("Name" , "TestProduct");    
-    Product.Insert("Description" , "Product description");
-    Product.Insert("Category" , "20173");           
-    Product.Insert("Price" , 1);                
-    Product.Insert("OldPrice" , 15);     
-    Product.Insert("MainPhoto" , Image);                   
-    Product.Insert("URL" , "https://github.com/Bayselonarrend/OpenIntegrations");     
-    Product.Insert("AdditionalPhotos" , ImageArray);     
-    Product.Insert("MainInGroup" , True);                 
-    Product.Insert("Width" , 20);     
-    Product.Insert("Height" , 30);     
-    Product.Insert("Depth" , 40);     
-    Product.Insert("Weight" , 100);
-    Product.Insert("SKU" , "12345");
-    Product.Insert("AvailableBalance" , "10");
-    
-    Result = OPI_VK.AddProduct(Product, SelectionID, Parameters); // Adding product
-    
-    OPI_TestDataRetrieval.WriteLog(Result, "AddProduct");
-    
-    OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap);
-    OPI_TestDataRetrieval.ExpectsThat(Result[Response_]["market_item_id"]).ИмеетТип(TypeNumber).Заполнено();
-        
-    ProductID = Result[Response_]["market_item_id"];
-    
-    Product = New Map;
-    Product.Insert("Name", "EditedTestProduct");
-    
-    Result = OPI_VK.EditProduct(ProductID, Product, , Parameters); // Change product
-    
-    OPI_TestDataRetrieval.WriteLog(Result, "EditProduct");
-    
-    Check_VKTrue(Result);
-    
-    Result = OPI_VK.AddProductToSelection(ProductID, SelectionID, Parameters); // Adding in selection
-    
-    OPI_TestDataRetrieval.WriteLog(Result, "AddProductToSelection");
-    
-    OPI_Tools.Pause(5);
-    
-    OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap);
-    OPI_TestDataRetrieval.ExpectsThat(Result[Response_]).ИмеетТип(TypeNumber).Заполнено();
-        
-    Result = OPI_VK.RemoveProductFromSelection(ProductID, SelectionID, Parameters); // Deletes from selections
-    
-    OPI_TestDataRetrieval.WriteLog(Result, "RemoveProductFromSelection");
-    
-    OPI_Tools.Pause(5);
-    Check_VKTrue(Result);
-        
-    Result = OPI_VK.DeleteProduct(ProductID, Parameters); // Deletion product
-    
-    OPI_TestDataRetrieval.WriteLog(Result, "DeleteProduct");
-    
-    OPI_Tools.Pause(5);
-    Check_VKTrue(Result);
-        
-    Result = OPI_VK.DeleteSelection(SelectionID, Parameters); // Removal selections
-    
-    OPI_TestDataRetrieval.WriteLog(Result, "DeleteSelection");
-    
-    OPI_Tools.Pause(5);
-    Check_VKTrue(Result);
 
-    DeleteFiles(TFN);
-    
     OPI_Tools.Pause(5);
     
 EndProcedure
@@ -3622,13 +3531,28 @@ Procedure Check_VKAd(Val Result)
         
 EndProcedure
 
-Procedure Check_VKMessage(Val Result)
+Procedure Check_VKNumber(Val Result)
 
     OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map"); 
     OPI_TestDataRetrieval.ExpectsThat(Result["response"]).ИмеетТип("Number").Заполнено();
         
 EndProcedure
 
+Procedure Check_VKCollection(Val Result)
+
+    OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
+    OPI_TestDataRetrieval.ExpectsThat(Result["response"]["albums_count"]).ИмеетТип("Number").Заполнено();
+    OPI_TestDataRetrieval.ExpectsThat(Result["response"]["market_album_id"]).ИмеетТип("Number").Заполнено();
+        
+EndProcedure
+
+Procedure Check_VKProduct(Val Result)
+
+    OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
+    OPI_TestDataRetrieval.ExpectsThat(Result["response"]["market_item_id"]).ИмеетТип("Number").Заполнено();
+        
+EndProcedure
+
 Procedure Check_GKObject(Val Result, Val Name, Val Description)
     
     OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
@@ -5137,7 +5061,7 @@ Procedure VK_WriteMessage(FunctionParameters)
     
     OPI_TestDataRetrieval.WriteLog(Result, "WriteMessage", "VK");
     
-    Check_VKMessage(Result);   
+    Check_VKNumber(Result);   
         
 EndProcedure
 
@@ -5149,12 +5073,194 @@ Procedure VK_GetProductCategoryList(FunctionParameters)
     
     // END
     
-    OPI_TestDataRetrieval.WriteLog(Result, "GetProductCategoryList");
+    OPI_TestDataRetrieval.WriteLog(Result, "GetProductCategoryList", "VK");
     
     Check_Map(Result);
     
 EndProcedure
 
+Procedure CreateProductCollection(FunctionParameters)
+
+    Parameters = GetVKParameters();
+    
+    Name = "TestCollection";
+    Image = FunctionParameters["Picture"];
+    Main = True;
+    Hidden = False;
+    
+    Result = OPI_VK.CreateProductCollection(Name
+        , Image
+        , Main
+        , Hidden
+        , Parameters);  
+        
+    // END
+        
+    OPI_TestDataRetrieval.WriteLog(Result, "CreateProductCollection", "VK");
+    
+    Check_VKCollection(Result);
+    
+    OPI_Tools.Pause(5);
+             
+    SelectionID = Result["response"]["market_album_id"];
+    OPI_TestDataRetrieval.WriteParameter("VK_MarketAlbumID", SelectionID);
+    FunctionParameters.Insert("VK_MarketAlbumID", SelectionID);
+        
+EndProcedure
+
+Procedure EditProductCollection(FunctionParameters)
+
+    Parameters = GetVKParameters();
+    
+    Name = "EditedCollection";
+    Selection = FunctionParameters["VK_MarketAlbumID"]; 
+    
+    Result = OPI_VK.EditProductCollection(Name, Selection, , , , Parameters);
+    
+    OPI_TestDataRetrieval.WriteLog(Result, "EditProductCollection", "VK");
+    
+    Check_VKTrue(Result);
+    
+    OPI_Tools.Pause(5);
+        
+EndProcedure
+
+Procedure VK_AddProduct(FunctionParameters)
+
+    Parameters = GetVKParameters();
+    
+    Image1 = FunctionParameters["Picture"]; // URL, Path to file or binary Data
+    Image2 = FunctionParameters["Picture2"]; // URL, Path to file or binary Data
+    Selection = FunctionParameters["VK_MarketAlbumID"]; 
+    
+    ImageArray = New Array;
+    ImageArray.Add(Image1);
+    ImageArray.Add(Image2);
+    
+    ProductDescription = New Map();
+    ProductDescription.Insert("Name" , "TestProduct");    
+    ProductDescription.Insert("Description" , "Product description");
+    ProductDescription.Insert("Category" , "20173");           
+    ProductDescription.Insert("Price" , 1);                
+    ProductDescription.Insert("OldPrice" , 15);     
+    ProductDescription.Insert("MainPhoto" , Image1);                   
+    ProductDescription.Insert("URL" , "https://github.com/Bayselonarrend/OpenIntegrations");     
+    ProductDescription.Insert("AdditionalPhotos" , ImageArray);     
+    ProductDescription.Insert("MainInGroup" , True);                 
+    ProductDescription.Insert("Width" , 20);     
+    ProductDescription.Insert("Height" , 30);     
+    ProductDescription.Insert("Depth" , 40);     
+    ProductDescription.Insert("Weight" , 100);
+    ProductDescription.Insert("SKU" , "12345");
+    ProductDescription.Insert("AvailableBalance" , "10");
+    
+    Result = OPI_VK.AddProduct(ProductDescription, Selection, Parameters); 
+    
+    // END         
+    
+    OPI_TestDataRetrieval.WriteLog(Result, "AddProduct", "VK");
+    
+    Check_VKProduct(Result);
+        
+    ProductID = Result["response"]["market_item_id"];
+    OPI_TestDataRetrieval.WriteParameter("VK_MarketItemID", ProductID);
+    FunctionParameters.Insert("VK_MarketItemID", ProductID);
+        
+EndProcedure
+
+Procedure VK_EditProduct(FunctionParameters)
+
+    Parameters = GetVKParameters();
+    
+    Product = FunctionParameters["VK_MarketItemID"]; 
+    
+    ProductDescription = New Map;
+    ProductDescription.Insert("Name", "EditedTestProduct");
+    
+    Result = OPI_VK.EditProduct(Product, ProductDescription, , Parameters);
+    
+    // END
+    
+    OPI_TestDataRetrieval.WriteLog(Result, "EditProduct", "VK");
+    
+    Check_VKTrue(Result);
+        
+EndProcedure
+
+Procedure VK_AddProductToCollection(FunctionParameters)
+
+    Parameters = GetVKParameters();
+    
+    Product = FunctionParameters["VK_MarketItemID"];
+    Selection = FunctionParameters["VK_MarketAlbumID"];
+     
+    Result = OPI_VK.AddProductToCollection(Product, Selection, Parameters);
+    
+    // END  
+    
+    OPI_TestDataRetrieval.WriteLog(Result, "AddProductToCollection", "VK");
+    
+    Check_VKNumber(Result);
+    
+    OPI_Tools.Pause(5);
+       
+EndProcedure
+
+Procedure VK_RemoveProductFromCollection(FunctionParameters)
+
+    Parameters = GetVKParameters();
+    
+    Product = FunctionParameters["VK_MarketItemID"];
+    Selection = FunctionParameters["VK_MarketAlbumID"];
+    
+    Result = OPI_VK.RemoveProductFromSelection(Product, Selection, Parameters); 
+    
+    // END
+    
+    OPI_TestDataRetrieval.WriteLog(Result, "RemoveProductFromSelection", "VK");
+    
+    Check_VKTrue(Result);
+    
+    OPI_Tools.Pause(5);
+        
+EndProcedure
+
+Procedure VK_DeleteProduct(FunctionParameters)
+
+    Parameters = GetVKParameters();
+    
+    Product = FunctionParameters["VK_MarketItemID"];
+    
+    Result = OPI_VK.DeleteProduct(Product, Parameters);
+    
+    // END                         
+    
+    OPI_TestDataRetrieval.WriteLog(Result, "DeleteProduct", "VK");
+    
+    Check_VKTrue(Result);
+    
+    OPI_Tools.Pause(5);
+        
+EndProcedure
+
+Procedure VK_DeleteCollection(FunctionParameters)
+
+    Parameters = GetVKParameters();
+
+    Selection = FunctionParameters["VK_MarketAlbumID"];
+    
+    Result = OPI_VK.DeleteSelection(Selection, Parameters);            
+    
+    // END
+    
+    OPI_TestDataRetrieval.WriteLog(Result, "DeleteSelection", "VK");
+    
+    Check_VKTrue(Result);
+    
+    OPI_Tools.Pause(5);
+        
+EndProcedure
+
 #EndRegion
 
 #Region Dropbox

src/en/OPI/src/CommonModules/OPI_Tests/Module.bsl

@@ -501,111 +501,20 @@ Procedure VKAPI_GetProductCategories() Export
 EndProcedure
 
 Procedure VKAPI_CreateProductSelection() Export
- 
+     
-    Parameters = GetVKParameters();
+    TestParameters = New Structure;
-    TypeMap = Type("Map");
+    OPI_TestDataRetrieval.ParameterToCollection("Picture", TestParameters);
-    TypeNumber = Type("Number");
+    OPI_TestDataRetrieval.ParameterToCollection("Picture2", TestParameters);
-    Response_ = "response";
-    Image = OPI_TestDataRetrieval.GetBinary("Picture");
-    TFN = GetTempFileName("png");   
-    Image.Write(TFN);
         
-    Result = OPI_VK.CreateProductCollection("Test album"
+    CreateProductCollection(TestParameters);
-        , Image
+    EditProductCollection(TestParameters);
-        , True
+    VK_AddProduct(TestParameters);
-        , False
+    VK_EditProduct(TestParameters);
-        , Parameters);  
+    VK_AddProductToCollection(TestParameters);    
-        
+    VK_RemoveProductFromCollection(TestParameters);
-    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "CreateProductCollection");
+    VK_DeleteProduct(TestParameters);
-    
+    VK_DeleteCollection(TestParameters);
-    OPI_Tools.Pause(5);
-    
-    OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap);
-    OPI_TestDataRetrieval.ExpectsThat(Result[Response_]["albums_count"]).ИмеетТип(TypeNumber).Заполнено();
-    OPI_TestDataRetrieval.ExpectsThat(Result[Response_]["market_album_id"]).ИмеетТип(TypeNumber).Заполнено();
-             
-    SelectionID = Result[Response_]["market_album_id"];
-    
-    Result = OPI_VK.EditProductCollection("EditedCollection", SelectionID, , , , Parameters);
-    
-    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "EditProductCollection");
-    
-    OPI_Tools.Pause(5);
-    
-    OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap);
-    OPI_TestDataRetrieval.ExpectsThat(Result[Response_]).ИмеетТип(TypeNumber).Равно(1);
- 
-    ImageArray = New Array;
-    ImageArray.Add(OPI_TestDataRetrieval.GetBinary("Picture"));
-    ImageArray.Add(OPI_TestDataRetrieval.GetBinary("Picture2"));
-    
-    Product = New Map();
-    Product.Insert("Name" , "TestProduct");    
-    Product.Insert("Description" , "Product description");
-    Product.Insert("Category" , "20173");           
-    Product.Insert("Price" , 1);                
-    Product.Insert("OldPrice" , 15);     
-    Product.Insert("MainPhoto" , Image);                   
-    Product.Insert("URL" , "https://github.com/Bayselonarrend/OpenIntegrations");     
-    Product.Insert("AdditionalPhotos" , ImageArray);     
-    Product.Insert("MainInGroup" , True);                 
-    Product.Insert("Width" , 20);     
-    Product.Insert("Height" , 30);     
-    Product.Insert("Depth" , 40);     
-    Product.Insert("Weight" , 100);
-    Product.Insert("SKU" , "12345");
-    Product.Insert("AvailableBalance" , "10");
-    
-    Result = OPI_VK.AddProduct(Product, SelectionID, Parameters); // Adding product
-    
-    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "AddProduct");
-    
-    OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap);
-    OPI_TestDataRetrieval.ExpectsThat(Result[Response_]["market_item_id"]).ИмеетТип(TypeNumber).Заполнено();
-        
-    ProductID = Result[Response_]["market_item_id"];
-    
-    Product = New Map;
-    Product.Insert("Name", "EditedTestProduct");
-    
-    Result = OPI_VK.EditProduct(ProductID, Product, , Parameters); // Change product
-    
-    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "EditProduct");
-    
-    Check_VKTrue(Result);
-    
-    Result = OPI_VK.AddProductToSelection(ProductID, SelectionID, Parameters); // Adding in selection
-    
-    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "AddProductToCollection");
-    
-    OPI_Tools.Pause(5);
-    
-    OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap);
-    OPI_TestDataRetrieval.ExpectsThat(Result[Response_]).ИмеетТип(TypeNumber).Заполнено();
-        
-    Result = OPI_VK.RemoveProductFromSelection(ProductID, SelectionID, Parameters); // Deletes from selections
-    
-    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "RemoveProductFromCollection");
-    
-    OPI_Tools.Pause(5);
-    Check_VKTrue(Result);
-        
-    Result = OPI_VK.DeleteProduct(ProductID, Parameters); // Deletion product
-    
-    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "DeleteProduct");
-    
-    OPI_Tools.Pause(5);
-    Check_VKTrue(Result);
-        
-    Result = OPI_VK.DeleteSelection(SelectionID, Parameters); // Removal selections
-    
-    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "DeleteCollection");
-    
-    OPI_Tools.Pause(5);
-    Check_VKTrue(Result);
 
-    DeleteFiles(TFN);
-    
     OPI_Tools.Pause(5);
     
 EndProcedure
@@ -3622,13 +3531,28 @@ Procedure Check_VKAd(Val Result)
         
 EndProcedure
 
-Procedure Check_VKMessage(Val Result)
+Procedure Check_VKNumber(Val Result)
 
     OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map"); 
     OPI_TestDataRetrieval.ExpectsThat(Result["response"]).ИмеетТип("Number").Заполнено();
         
 EndProcedure
 
+Procedure Check_VKCollection(Val Result)
+
+    OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
+    OPI_TestDataRetrieval.ExpectsThat(Result["response"]["albums_count"]).ИмеетТип("Number").Заполнено();
+    OPI_TestDataRetrieval.ExpectsThat(Result["response"]["market_album_id"]).ИмеетТип("Number").Заполнено();
+        
+EndProcedure
+
+Procedure Check_VKProduct(Val Result)
+
+    OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
+    OPI_TestDataRetrieval.ExpectsThat(Result["response"]["market_item_id"]).ИмеетТип("Number").Заполнено();
+        
+EndProcedure
+
 Procedure Check_GKObject(Val Result, Val Name, Val Description)
     
     OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
@@ -5137,7 +5061,7 @@ Procedure VK_WriteMessage(FunctionParameters)
     
     // !OInt OPI_TestDataRetrieval.WriteLog(Result, "SendMessage", "VK");
     
-    Check_VKMessage(Result);   
+    Check_VKNumber(Result);   
         
 EndProcedure
 
@@ -5149,12 +5073,194 @@ Procedure VK_GetProductCategoryList(FunctionParameters)
     
     // END
     
-    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "GetProductCategoryList");
+    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "GetProductCategoryList", "VK");
     
     Check_Map(Result);
     
 EndProcedure
 
+Procedure CreateProductCollection(FunctionParameters)
+
+    Parameters = GetVKParameters();
+    
+    Name = "TestCollection";
+    Image = FunctionParameters["Picture"];
+    Main = True;
+    Hidden = False;
+    
+    Result = OPI_VK.CreateProductCollection(Name
+        , Image
+        , Main
+        , Hidden
+        , Parameters);  
+        
+    // END
+        
+    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "CreateProductCollection", "VK");
+    
+    Check_VKCollection(Result);
+    
+    OPI_Tools.Pause(5);
+             
+    SelectionID = Result["response"]["market_album_id"];
+    OPI_TestDataRetrieval.WriteParameter("VK_MarketAlbumID", SelectionID);
+    FunctionParameters.Insert("VK_MarketAlbumID", SelectionID);
+        
+EndProcedure
+
+Procedure EditProductCollection(FunctionParameters)
+
+    Parameters = GetVKParameters();
+    
+    Name = "EditedCollection";
+    Selection = FunctionParameters["VK_MarketAlbumID"]; 
+    
+    Result = OPI_VK.EditProductCollection(Name, Selection, , , , Parameters);
+    
+    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "EditProductCollection", "VK");
+    
+    Check_VKTrue(Result);
+    
+    OPI_Tools.Pause(5);
+        
+EndProcedure
+
+Procedure VK_AddProduct(FunctionParameters)
+
+    Parameters = GetVKParameters();
+    
+    Image1 = FunctionParameters["Picture"]; // URL, Path to file or binary Data
+    Image2 = FunctionParameters["Picture2"]; // URL, Path to file or binary Data
+    Selection = FunctionParameters["VK_MarketAlbumID"]; 
+    
+    ImageArray = New Array;
+    ImageArray.Add(Image1);
+    ImageArray.Add(Image2);
+    
+    ProductDescription = New Map();
+    ProductDescription.Insert("Name" , "TestProduct");    
+    ProductDescription.Insert("Description" , "Product description");
+    ProductDescription.Insert("Category" , "20173");           
+    ProductDescription.Insert("Price" , 1);                
+    ProductDescription.Insert("OldPrice" , 15);     
+    ProductDescription.Insert("MainPhoto" , Image1);                   
+    ProductDescription.Insert("URL" , "https://github.com/Bayselonarrend/OpenIntegrations");     
+    ProductDescription.Insert("AdditionalPhotos" , ImageArray);     
+    ProductDescription.Insert("MainInGroup" , True);                 
+    ProductDescription.Insert("Width" , 20);     
+    ProductDescription.Insert("Height" , 30);     
+    ProductDescription.Insert("Depth" , 40);     
+    ProductDescription.Insert("Weight" , 100);
+    ProductDescription.Insert("SKU" , "12345");
+    ProductDescription.Insert("AvailableBalance" , "10");
+    
+    Result = OPI_VK.AddProduct(ProductDescription, Selection, Parameters); 
+    
+    // END         
+    
+    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "AddProduct", "VK");
+    
+    Check_VKProduct(Result);
+        
+    ProductID = Result["response"]["market_item_id"];
+    OPI_TestDataRetrieval.WriteParameter("VK_MarketItemID", ProductID);
+    FunctionParameters.Insert("VK_MarketItemID", ProductID);
+        
+EndProcedure
+
+Procedure VK_EditProduct(FunctionParameters)
+
+    Parameters = GetVKParameters();
+    
+    Product = FunctionParameters["VK_MarketItemID"]; 
+    
+    ProductDescription = New Map;
+    ProductDescription.Insert("Name", "EditedTestProduct");
+    
+    Result = OPI_VK.EditProduct(Product, ProductDescription, , Parameters);
+    
+    // END
+    
+    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "EditProduct", "VK");
+    
+    Check_VKTrue(Result);
+        
+EndProcedure
+
+Procedure VK_AddProductToCollection(FunctionParameters)
+
+    Parameters = GetVKParameters();
+    
+    Product = FunctionParameters["VK_MarketItemID"];
+    Selection = FunctionParameters["VK_MarketAlbumID"];
+     
+    Result = OPI_VK.AddProductToCollection(Product, Selection, Parameters);
+    
+    // END  
+    
+    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "AddProductToCollection", "VK");
+    
+    Check_VKNumber(Result);
+    
+    OPI_Tools.Pause(5);
+       
+EndProcedure
+
+Procedure VK_RemoveProductFromCollection(FunctionParameters)
+
+    Parameters = GetVKParameters();
+    
+    Product = FunctionParameters["VK_MarketItemID"];
+    Selection = FunctionParameters["VK_MarketAlbumID"];
+    
+    Result = OPI_VK.RemoveProductFromSelection(Product, Selection, Parameters); 
+    
+    // END
+    
+    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "RemoveProductFromCollection", "VK");
+    
+    Check_VKTrue(Result);
+    
+    OPI_Tools.Pause(5);
+        
+EndProcedure
+
+Procedure VK_DeleteProduct(FunctionParameters)
+
+    Parameters = GetVKParameters();
+    
+    Product = FunctionParameters["VK_MarketItemID"];
+    
+    Result = OPI_VK.DeleteProduct(Product, Parameters);
+    
+    // END                         
+    
+    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "DeleteProduct", "VK");
+    
+    Check_VKTrue(Result);
+    
+    OPI_Tools.Pause(5);
+        
+EndProcedure
+
+Procedure VK_DeleteCollection(FunctionParameters)
+
+    Parameters = GetVKParameters();
+
+    Selection = FunctionParameters["VK_MarketAlbumID"];
+    
+    Result = OPI_VK.DeleteSelection(Selection, Parameters);            
+    
+    // END
+    
+    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "DeleteCollection", "VK");
+    
+    Check_VKTrue(Result);
+    
+    OPI_Tools.Pause(5);
+        
+EndProcedure
+
 #EndRegion
 
 #Region Dropbox

src/en/OPI/src/CommonModules/OPI_VK/Module.bsl

@@ -1409,7 +1409,7 @@ EndFunction
 // 
 // Returns:
 // Map Of KeyAndValue - Serialized JSON response from VK
-Function AddProductToSelection(Val ProductsArray, Val Selection, Val Parameters = "") Export
+Function AddProductToCollection(Val ProductsArray, Val Selection, Val Parameters = "") Export
     
     OPI_TypeConversion.GetCollection(ProductsArray);
     OPI_TypeConversion.GetLine(Selection);
@@ -1922,7 +1922,7 @@ Function ProductManagement(Val ProductDescription, Val ProductID = "", Val Selec
     EndIf;
     
     If ValueIsFilled(Selection) And ValueIsFilled(ProductID) Then
-        AddProductToSelection(ProductID, Selection, Parameters_);
+        AddProductToCollection(ProductID, Selection, Parameters_);
     EndIf;
     
     Return Response;

src/en/cli/data/Classes/internal/Classes/vk.os

@@ -1607,8 +1607,8 @@
     NewLine = CompositionTable.Add();
     NewLine.Библиотека  = "vk";
     NewLine.Модуль      = "OPI_VK";
-    NewLine.Метод       = "AddProductToSelection";
+    NewLine.Метод       = "AddProductToCollection";
-    NewLine.МетодПоиска = "ADDPRODUCTTOSELECTION";
+    NewLine.МетодПоиска = "ADDPRODUCTTOCOLLECTION";
     NewLine.Параметр    = "--items";
     NewLine.Описание    = "Array of products or product";
     NewLine.Область     = "Product selection management";
@@ -1627,8 +1627,8 @@
     NewLine = CompositionTable.Add();
     NewLine.Библиотека  = "vk";
     NewLine.Модуль      = "OPI_VK";
-    NewLine.Метод       = "AddProductToSelection";
+    NewLine.Метод       = "AddProductToCollection";
-    NewLine.МетодПоиска = "ADDPRODUCTTOSELECTION";
+    NewLine.МетодПоиска = "ADDPRODUCTTOCOLLECTION";
     NewLine.Параметр    = "--sel";
     NewLine.Описание    = "Selection ID";
     NewLine.Область     = "Product selection management";
@@ -1637,8 +1637,8 @@
     NewLine = CompositionTable.Add();
     NewLine.Библиотека  = "vk";
     NewLine.Модуль      = "OPI_VK";
-    NewLine.Метод       = "AddProductToSelection";
+    NewLine.Метод       = "AddProductToCollection";
-    NewLine.МетодПоиска = "ADDPRODUCTTOSELECTION";
+    NewLine.МетодПоиска = "ADDPRODUCTTOCOLLECTION";
     NewLine.Параметр    = "--auth";
     NewLine.Описание    = "Authorization JSON or path to .json (optional, def. val. - Empty)";
     NewLine.Область     = "Product selection management";

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

@@ -501,111 +501,20 @@
 КонецПроцедуры
 
 Процедура ВК_СоздатьТоварПодборку() Экспорт
- 
+     
-    Параметры       = ПолучитьПараметрыВК();
+    ПараметрыТеста = Новый Структура;
-    ТипСоответствие = Тип("Соответствие");
+    OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Picture", ПараметрыТеста);
-    ТипЧисло        = Тип("Число");
+    OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Picture2", ПараметрыТеста);
-    Response_       = "response";
-    Картинка        = OPI_ПолучениеДанныхТестов.ПолучитьДвоичные("Picture");
-    ИВФ             = ПолучитьИмяВременногоФайла("png");   
-    Картинка.Записать(ИВФ);
         
-    Результат = OPI_VK.СоздатьПодборкуТоваров("Test album"
+    VK_СоздатьПодборкуТоваров(ПараметрыТеста);
-        , Картинка
+    VK_ИзменитьПодборкуТоваров(ПараметрыТеста);
-        , Истина
+    VK_ДобавитьТовар(ПараметрыТеста);
-        , Ложь
+    VK_ИзменитьТовар(ПараметрыТеста);
-        , Параметры);  
+    VK_ДобавитьТоварВПодборку(ПараметрыТеста);    
-        
+    VK_УдалитьТоварИзПодборки(ПараметрыТеста);
-    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьПодборкуТоваров");
+    VK_УдалитьТовар(ПараметрыТеста);
-    
+    VK_УдалитьПодборку(ПараметрыТеста);
-    OPI_Инструменты.Пауза(5);
-    
-    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип(ТипСоответствие);
-    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат[Response_]["albums_count"]).ИмеетТип(ТипЧисло).Заполнено();
-    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат[Response_]["market_album_id"]).ИмеетТип(ТипЧисло).Заполнено();
-             
-    ИДПодборки = Результат[Response_]["market_album_id"];
-    
-    Результат  = OPI_VK.ИзменитьПодборкуТоваров("Измененная подборка", ИДПодборки, , , , Параметры);
-    
-    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ИзменитьПодборкуТоваров");
-    
-    OPI_Инструменты.Пауза(5);
-    
-    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип(ТипСоответствие);
-    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат[Response_]).ИмеетТип(ТипЧисло).Равно(1);
- 
-    МассивКартинок = Новый Массив;
-    МассивКартинок.Добавить(OPI_ПолучениеДанныхТестов.ПолучитьДвоичные("Picture"));
-    МассивКартинок.Добавить(OPI_ПолучениеДанныхТестов.ПолучитьДвоичные("Picture2"));
-    
-    Товар = Новый Соответствие();
-    Товар.Вставить("Имя"                , "Тестовый товар");    
-    Товар.Вставить("Описание"           , "Описание товара");
-    Товар.Вставить("Категория"          , "20173");           
-    Товар.Вставить("Цена"               , 1);                
-    Товар.Вставить("СтараяЦена"         , 15);     
-    Товар.Вставить("ОсновноеФото"       , Картинка);                   
-    Товар.Вставить("URL"                , "https://github.com/Bayselonarrend/OpenIntegrations");     
-    Товар.Вставить("ДополнительныеФото" , МассивКартинок);     
-    Товар.Вставить("ГлавныйВГруппе"     , Истина);                 
-    Товар.Вставить("Ширина"             , 20);     
-    Товар.Вставить("Высота"             , 30);     
-    Товар.Вставить("Глубина"            , 40);     
-    Товар.Вставить("Вес"                , 100);
-    Товар.Вставить("SKU"                , "12345");
-    Товар.Вставить("ДоступныйОстаток"   , "10");
-    
-    Результат = OPI_VK.ДобавитьТовар(Товар, ИДПодборки, Параметры);                // Добавление товара
-    
-    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ДобавитьТовар");
-    
-    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип(ТипСоответствие);
-    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат[Response_]["market_item_id"]).ИмеетТип(ТипЧисло).Заполнено();
-        
-    ИДТовара  = Результат[Response_]["market_item_id"];
-    
-    Товар = Новый Соответствие;
-    Товар.Вставить("Имя", "Тестовый товар измененный");
-    
-    Результат = OPI_VK.ИзменитьТовар(ИДТовара, Товар, , Параметры);                // Изменение товара
-    
-    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ИзменитьТовар");
-    
-    Проверка_ВКИстина(Результат);
-    
-    Результат = OPI_VK.ДобавитьТоварВПодборку(ИДТовара, ИДПодборки, Параметры);    // Добавление в подборку
-    
-    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ДобавитьТоварВПодборку");
-    
-    OPI_Инструменты.Пауза(5);
-    
-    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип(ТипСоответствие);
-    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат[Response_]).ИмеетТип(ТипЧисло).Заполнено();
-        
-    Результат = OPI_VK.УдалитьТоварИзПодборки(ИДТовара, ИДПодборки, Параметры);    // Удаляет из подборки
-    
-    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "УдалитьТоварИзПодборки");
-    
-    OPI_Инструменты.Пауза(5);
-    Проверка_ВКИстина(Результат);
-        
-    Результат = OPI_VK.УдалитьТовар(ИДТовара, Параметры);                          // Удаление товара
-    
-    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "УдалитьТовар");
-    
-    OPI_Инструменты.Пауза(5);
-    Проверка_ВКИстина(Результат);
-        
-    Результат = OPI_VK.УдалитьПодборку(ИДПодборки, Параметры);                     // Уадление подборки
-    
-    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "УдалитьПодборку");
-    
-    OPI_Инструменты.Пауза(5);
-    Проверка_ВКИстина(Результат);
 
-    УдалитьФайлы(ИВФ);
-    
     OPI_Инструменты.Пауза(5);
     
 КонецПроцедуры
@@ -3622,13 +3531,28 @@
         
 КонецПроцедуры
 
-Процедура Проверка_ВКСообщение(Знач Результат)
+Процедура Проверка_ВКЧисло(Знач Результат)
 
     OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип("Соответствие"); 
     OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["response"]).ИмеетТип("Число").Заполнено();
         
 КонецПроцедуры
 
+Процедура Проверка_ВКПодборка(Знач Результат)
+
+    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип("Соответствие");
+    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["response"]["albums_count"]).ИмеетТип("Число").Заполнено();
+    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["response"]["market_album_id"]).ИмеетТип("Число").Заполнено();
+        
+КонецПроцедуры
+
+Процедура Проверка_ВКТовар(Знач Результат)
+
+    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип("Соответствие");
+    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["response"]["market_item_id"]).ИмеетТип("Число").Заполнено();
+        
+КонецПроцедуры
+
 Процедура Проверка_ГКОбъект(Знач Результат, Знач Наименование, Знач Описание)
     
     OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип("Соответствие");
@@ -5137,7 +5061,7 @@
     
     OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "НаписатьСообщение", "VK");
     
-    Проверка_ВКСообщение(Результат);   
+    Проверка_ВКЧисло(Результат);   
         
 КонецПроцедуры
 
@@ -5149,12 +5073,194 @@
     
     // END
     
-    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьСписокКатегорийТоваров");
+    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьСписокКатегорийТоваров", "VK");
     
     Проверка_Соответствие(Результат);
     
 КонецПроцедуры
 
+Процедура VK_СоздатьПодборкуТоваров(ПараметрыФункции)
+
+    Параметры = ПолучитьПараметрыВК();
+    
+    Название = "Тестовая подборка";
+    Картинка = ПараметрыФункции["Picture"];
+    Основная = Истина;
+    Скрытая  = Ложь;
+    
+    Результат = OPI_VK.СоздатьПодборкуТоваров(Название
+        , Картинка
+        , Основная
+        , Скрытая
+        , Параметры);  
+        
+    // END
+        
+    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьПодборкуТоваров", "VK");
+    
+    Проверка_ВКПодборка(Результат);
+    
+    OPI_Инструменты.Пауза(5);
+             
+    ИДПодборки = Результат["response"]["market_album_id"];
+    OPI_ПолучениеДанныхТестов.ЗаписатьПараметр("VK_MarketAlbumID", ИДПодборки);
+    ПараметрыФункции.Вставить("VK_MarketAlbumID", ИДПодборки);
+        
+КонецПроцедуры
+
+Процедура VK_ИзменитьПодборкуТоваров(ПараметрыФункции)
+
+    Параметры = ПолучитьПараметрыВК();
+    
+    Название  = "Измененная подборка";
+    Подборка  = ПараметрыФункции["VK_MarketAlbumID"]; 
+    
+    Результат  = OPI_VK.ИзменитьПодборкуТоваров(Название, Подборка, , , , Параметры);
+    
+    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ИзменитьПодборкуТоваров", "VK");
+    
+    Проверка_ВКИстина(Результат);
+    
+    OPI_Инструменты.Пауза(5);
+        
+КонецПроцедуры
+
+Процедура VK_ДобавитьТовар(ПараметрыФункции)
+
+    Параметры = ПолучитьПараметрыВК();
+    
+    Картинка1 = ПараметрыФункции["Picture"];  // URL, Путь к файлу или двоичные данные
+    Картинка2 = ПараметрыФункции["Picture2"]; // URL, Путь к файлу или двоичные данные
+    Подборка  = ПараметрыФункции["VK_MarketAlbumID"]; 
+    
+    МассивКартинок = Новый Массив;
+    МассивКартинок.Добавить(Картинка1);
+    МассивКартинок.Добавить(Картинка2);
+    
+    ОписаниеТовара = Новый Соответствие();
+    ОписаниеТовара.Вставить("Имя"                , "Тестовый товар");    
+    ОписаниеТовара.Вставить("Описание"           , "Описание товара");
+    ОписаниеТовара.Вставить("Категория"          , "20173");           
+    ОписаниеТовара.Вставить("Цена"               , 1);                
+    ОписаниеТовара.Вставить("СтараяЦена"         , 15);     
+    ОписаниеТовара.Вставить("ОсновноеФото"       , Картинка1);                   
+    ОписаниеТовара.Вставить("URL"                , "https://github.com/Bayselonarrend/OpenIntegrations");     
+    ОписаниеТовара.Вставить("ДополнительныеФото" , МассивКартинок);     
+    ОписаниеТовара.Вставить("ГлавныйВГруппе"     , Истина);                 
+    ОписаниеТовара.Вставить("Ширина"             , 20);     
+    ОписаниеТовара.Вставить("Высота"             , 30);     
+    ОписаниеТовара.Вставить("Глубина"            , 40);     
+    ОписаниеТовара.Вставить("Вес"                , 100);
+    ОписаниеТовара.Вставить("SKU"                , "12345");
+    ОписаниеТовара.Вставить("ДоступныйОстаток"   , "10");
+    
+    Результат = OPI_VK.ДобавитьТовар(ОписаниеТовара, Подборка, Параметры); 
+    
+    // END         
+    
+    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ДобавитьТовар", "VK");
+    
+    Проверка_ВКТовар(Результат);
+        
+    ИДТовара  = Результат["response"]["market_item_id"];
+    OPI_ПолучениеДанныхТестов.ЗаписатьПараметр("VK_MarketItemID", ИДТовара);
+    ПараметрыФункции.Вставить("VK_MarketItemID", ИДТовара);
+        
+КонецПроцедуры
+
+Процедура VK_ИзменитьТовар(ПараметрыФункции)
+
+    Параметры = ПолучитьПараметрыВК();
+    
+    Товар = ПараметрыФункции["VK_MarketItemID"]; 
+    
+    ОписаниеТовара = Новый Соответствие;
+    ОписаниеТовара.Вставить("Имя", "Тестовый товар измененный");
+    
+    Результат = OPI_VK.ИзменитьТовар(Товар, ОписаниеТовара, , Параметры);
+    
+    // END
+    
+    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ИзменитьТовар", "VK");
+    
+    Проверка_ВКИстина(Результат);
+        
+КонецПроцедуры
+
+Процедура VK_ДобавитьТоварВПодборку(ПараметрыФункции)
+
+    Параметры = ПолучитьПараметрыВК();
+    
+    Товар     = ПараметрыФункции["VK_MarketItemID"];
+    Подборка  = ПараметрыФункции["VK_MarketAlbumID"];
+     
+    Результат = OPI_VK.ДобавитьТоварВПодборку(Товар, Подборка, Параметры);
+    
+    // END  
+    
+    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ДобавитьТоварВПодборку", "VK");
+    
+    Проверка_ВКЧисло(Результат);
+    
+    OPI_Инструменты.Пауза(5);
+       
+КонецПроцедуры
+
+Процедура VK_УдалитьТоварИзПодборки(ПараметрыФункции)
+
+    Параметры = ПолучитьПараметрыВК();
+    
+    Товар     = ПараметрыФункции["VK_MarketItemID"];
+    Подборка  = ПараметрыФункции["VK_MarketAlbumID"];
+    
+    Результат = OPI_VK.УдалитьТоварИзПодборки(Товар, Подборка, Параметры); 
+    
+    // END
+    
+    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "УдалитьТоварИзПодборки", "VK");
+    
+    Проверка_ВКИстина(Результат);
+    
+    OPI_Инструменты.Пауза(5);
+        
+КонецПроцедуры
+
+Процедура VK_УдалитьТовар(ПараметрыФункции)
+
+    Параметры = ПолучитьПараметрыВК();
+    
+    Товар     = ПараметрыФункции["VK_MarketItemID"];
+    
+    Результат = OPI_VK.УдалитьТовар(Товар, Параметры);
+    
+    // END                         
+    
+    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "УдалитьТовар", "VK");
+    
+    Проверка_ВКИстина(Результат);
+    
+    OPI_Инструменты.Пауза(5);
+        
+КонецПроцедуры
+
+Процедура VK_УдалитьПодборку(ПараметрыФункции)
+
+    Параметры = ПолучитьПараметрыВК();
+
+    Подборка  = ПараметрыФункции["VK_MarketAlbumID"];
+    
+    Результат = OPI_VK.УдалитьПодборку(Подборка, Параметры);            
+    
+    // END
+    
+    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "УдалитьПодборку", "VK");
+    
+    Проверка_ВКИстина(Результат);
+    
+    OPI_Инструменты.Пауза(5);
+        
+КонецПроцедуры
+
 #КонецОбласти
 
 #Область Dropbox