Paste1C
  • API
  • О проекте
  • Контакты
  • Регистрация
  • Вход
	ПолноеИмяФайла = "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":[]}

Публикация кода

Размещая информацию на сайте, Вы подтверждаете согласие со всеми пунктами Пользовательского соглашения

Замечание к коду:

  • Загрузить конфигурацию
    • ERP 2.4
    • Управление торговлей 10.3
    • Управление торговлей 11.4
    • Бухгалтерия 2.0
    • Бухгалтерия 3.0
    • ЗУП 3.1
    • Розница 2.3
    • УНФ 1.6
    • БСП 3.1
  • Тема
    • Светлая
    • Светлая c подсветкой запросов
    • Темная
    • Темная с подсветкой запросов
  • Режим запроса
  • Поделиться
Код:
17 06 24

© Александр Шкураев 2025