ПолноеИмяФайла = "F:\send.xml"
XML_DOM=CreateObject("MSXML2.DOMDocument.6.0");
Header = XML_DOM.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""" );
XML_DOM.Load(ПолноеИмяФайла);
Url = "https://merchant-api.sbermarket.ru/api/v1/import/feeds";
ПолноеИмяФайла = "/" + ПолноеИмяФайла;
ПолноеИмяФайла = СтрЗаменить(ПолноеИмяФайла,"\","/");
Сообщить (ПолноеИмяФайла);
Если СтрДлина(Токен) > 0 тогда
WinHttp = СоздатьОбъект("MSXML2.XMLHTTP");
Boundary = "--WebKitFormBoundary7MA4YWxkTrZu0gW";
Запрос = "--" + Boundary + "
|Content-Disposition: form-data; name=""form""; filename="+Симв(34)+ПолноеИмяФайла+Симв(34)+"
|Content-Type: text/xml;" + РазделительСтрок + "
|" + XML_DOM + "
|--" + Boundary + "--";
// Сообщить (Запрос);
WinHttp.Open("POST", URL, 0);
WinHttp.setRequestHeader("Content-Charset", "utf-8");
WinHttp.SetRequestHeader("Content-Type","multipart/form-data; boundary=" + Boundary);
WinHttp.setRequestHeader("Authorization", "Bearer "+Токен);
WinHttp.SetRequestHeader("Content-Length", СтрДлина(Запрос));
WinHttp.Send(Запрос);
Если WinHttp.Status = 200 Тогда
Сообщить(WinHttp.ResponseText);
Иначе
Сообщить("Некорректный ответ сервера = " + WinHttp.Status);
КонецЕсли;
Сообщить("Ответ сервера = " + WinHttp.Status);
КонецЕсли;
{"contextData":{},"contextMarkers":[]}