Need a script (since internal tools of 1C do not work) that will deliver an import file via API to the Prom.ua website. There is a script I wrote, but it does not work, maybe you will find the error:
Function ImportProductsPromUaViaScript(AuthorizationToken, PathToXLSXFile, ImportSettings)
Dim WshShell, Command, ExecutionResult;
// Path to VBScript file
// Make sure that import_prom.vbs is located in an accessible place,
// or specify its full path.
If FSO.FileExists(DirectoryB() + "import_prom.vbs") = 1 Then
PathToScript = DirectoryB() + "import_prom.vbs"; // Change to the actual path!
Else
MsgBox("Script not found " + DirectoryB() + "import_prom.vbs");
Return 0;
EndIf;
// Escape quotes in JSON string for command line
// (replace " with \\" or "")
EscapedSettings = StrReplace(ImportSettings, """", "\\\"");
// Form the command to run VBScript
// Use cscript.exe for console output
Command = "cscript.exe //NoLogo \"" + PathToScript + "\" \"" + AuthorizationToken + "\" \"" + PathToXLSXFile + "\" \"" + EscapedSettings + "\"";
Try
WshShell = CreateObject("WScript.Shell");
// Run the script and wait for it to finish
// 0 - window hidden, True - wait for completion
ExecutionResult = WshShell.Run(Command, 0, 1);
// If the script outputs result to WScript.Echo,
// then it needs to be redirected to a file or stdout so 1C can read it.
// Usually, to get output, redirect it to a temporary file
// or run the script with PowerShell, which can capture stdout.
// Simple option: do not get output, only check the exit code.
// If you need server response, VBScript should write it to a file.
If ExecutionResult = 0 Then // Usually 0 indicates success
Return "Import script completed successfully (code: " + ExecutionResult + ").";
Else
Return "Import script finished with an error (code: " + ExecutionResult + "). Check the script logs.";
EndIf;
Catch
MsgBox("Error running external script: " + ErrorDescription());
Return "";
EndTry;
EndFunction
Procedure ExampleImport() Export
Dim Token, PathToFile, Settings, Result;
PathToFile = "D:\Obmen\Import_Prom.xlsx";
Token = STrim(Constance.TokenProm);
Settings = "{ "force_update": false, "only_available": false, "mark_missing_product_as": "none", "updated_fields": [ "price", "presence", "name", "sku", "images_urls", "quantity_in_stock", "description", "group", "keywords", "attributes", "discount", "labels", "gtin", "mpn", "translations" ] }";
Result = ImportProductsPromUaViaScript(Token, PathToFile, Settings);
MsgBox(Result);
EndProcedure
