Форум Программирование Общие вопросы программирования (Dev)

Загрузка XML из СБИС

Платформа 1С v8.3 ЭДО

1. Zhorland 27.04.23 16:32 Сейчас в теме

Через API СБИС получаю ссылку на документ вида https://disk.sbis.ru/disk/api/v1/длинная_длинная_строка.
В браузере при переходе по ссылке в итоге получаю XML-документ.
Если пытаюсь получить его программно, то в ответ прилетает то 302, то 307 код...

	
ИмяВходящегоФайла = "t:\1.xml";
СерверИсточник = "disk.sbis.ru";
Адрес = Новый HTTPЗапрос("/disk/api/v1/длинная_длинная_строка"); 
НТТР = Новый HTTPСоединение(СерверИсточник,443,,,,15,Новый ЗащищенноеСоединениеOpenSSL());
Ответ = НТТР.ОтправитьДляОбработки(Адрес, ИмяВходящегоФайла);

Куда копать?
Может, можно XML сразу через API СБИС получить, но в описалове не нашел ничего похожего.

По теме из базы знаний

Найденные решения

8. Zhorland 19.06.23 16:52 Сейчас в теме

Решение:

	СерверИсточник = "online.sbis.ru";
	ВременноеИмяВходящегоФайла = ПолучитьИмяВременногоФайла("xml");
	Адрес = Новый HTTPЗапрос("/disk/api/v1/длинная_длинная_строка"); 
	Адрес.Заголовки.Вставить("Content-Type","application/json-rpc;charset=utf-8");
	Адрес.Заголовки.Вставить("User-Agent","1С");
	Адрес.Заголовки.Вставить("X-SBISSessionID", Сессия);
	НТТР = Новый HTTPСоединение(СерверИсточник,443,,,,15,Новый ЗащищенноеСоединениеOpenSSL());
	Ответ = НТТР.Получить(Адрес, ВременноеИмяВходящегоФайла);
	Если Ответ.КодСостояния = 200 Тогда 
		ЗаголовокКонтент = Ответ.Заголовки["content-disposition"];
		ИмяФайлаСБИС = СтрРазделить(ЗаголовокКонтент,"'", Ложь)[1];
		ПереместитьФайл(ВременноеИмяВходящегоФайла, "Путь_куда_положить_файл_XML");
	КонецЕсли;

Показать

Остальные ответы

В избранное Подписаться на ответы

Свернуть все

6. spacecraft 27.04.23 20:02 Сейчас в теме

(1) где Заголовки запроса? Где авторизация?
Посмотреть какой адрес перенаправления возвращается.

2. dka80 20 27.04.23 17:22 Сейчас в теме

проверьте РеГиСтР букв в адресе

4. Zhorland 27.04.23 19:48 Сейчас в теме

(2)
Из рабочей ссылки пример, не в регистре дело.

3. antz 27.04.23 18:22 Сейчас в теме

Так может get-запрос нужен? Тогда

Ответ = HTTP.Получить(Адрес, ИмяВходящегоФайла);

5. Zhorland 27.04.23 19:49 Сейчас в теме

(3)
Изначально так и пробовал, тоже не получилось.

7. antz 28.04.23 10:51 Сейчас в теме

(5) Посмотрел как я делал - стучусь на online.sbis.ru, запрос - disk/api/v1/длинная_строка, в заголовках передаю id сессии, content-type и user-agent. Попробуйте, в общем

СерверИсточник = "online.sbis.ru";

И запрос - GET, то есть Соединение.Получить.

8. Zhorland 19.06.23 16:52 Сейчас в теме

Решение:

	СерверИсточник = "online.sbis.ru";
	ВременноеИмяВходящегоФайла = ПолучитьИмяВременногоФайла("xml");
	Адрес = Новый HTTPЗапрос("/disk/api/v1/длинная_длинная_строка"); 
	Адрес.Заголовки.Вставить("Content-Type","application/json-rpc;charset=utf-8");
	Адрес.Заголовки.Вставить("User-Agent","1С");
	Адрес.Заголовки.Вставить("X-SBISSessionID", Сессия);
	НТТР = Новый HTTPСоединение(СерверИсточник,443,,,,15,Новый ЗащищенноеСоединениеOpenSSL());
	Ответ = НТТР.Получить(Адрес, ВременноеИмяВходящегоФайла);
	Если Ответ.КодСостояния = 200 Тогда 
		ЗаголовокКонтент = Ответ.Заголовки["content-disposition"];
		ИмяФайлаСБИС = СтрРазделить(ЗаголовокКонтент,"'", Ложь)[1];
		ПереместитьФайл(ВременноеИмяВходящегоФайла, "Путь_куда_положить_файл_XML");
	КонецЕсли;

Показать

9. чингачгук 24 25.07.23 16:15 Сейчас в теме

Спасибо, помогло! Делаю прогрузку кодов маркировки, все данные возвращаются по API в структуре ответа, а сами коды какого-то... засунуты во вложение в XML файл.

Если что вот код разбора самого xml, после получения, чтобы вытащить из него коды маркировки:

код разбора xml
ТЧСбисНом = Новый ТаблицаЗначений; ТЧСбисНом.Колонки.Добавить("НаименованиеСбис"); ТЧСбисНом.Колонки.Добавить("КодСбис"); ТЧСбисНом.Колонки.Добавить("КодМаркировки"); Ответ.КодСостояния = 200 Тогда ЗаголовокКонтент = Ответ.Заголовки["content-disposition"]; ИмяФайлаСБИС = СтрРазделить(ЗаголовокКонтент,"'", Ложь)[1]; ЧтениеXMLФайл=Новый ЧтениеXML; ЧтениеXMLФайл.ОткрытьФайл(ВременноеИмяВходящегоФайла); НаименованиеСбис = ""; КодСбис = ""; КоличествоСбис = 0; Пока ЧтениеXMLФайл.Прочитать() Цикл Если ЧтениеXMLФайл.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда Поле = ЧтениеXMLФайл.Имя; Если Поле = "ТаблСчФакт" Тогда Индекс = 1; Пока Истина Цикл Попытка Фабрика=Новый ФабрикаXDTO; ОбXDTO=Фабрика.ПрочитатьXML(ЧтениеXMLФайл); Попытка НаименованиеСбис = ОбXDTO.СведТов.НаимТов; КоличествоСбис = Число(ОбXDTO.СведТов.КолТов); КодСбис = ОбXDTO.СведТов.ДопСведТов.КодТов; Пока Не КоличествоСбис = 0 Цикл НовСтр = ТЧСбисНом.Добавить(); НовСтр.НаименованиеСбис = НаименованиеСбис; НовСтр.КодСбис = КодСбис; НовСтр.КодМаркировки = ОбXDTO.СведТов.ДопСведТов.НомСредИдентТов.КИЗ[КоличествоСбис-1]; КоличествоСбис = КоличествоСбис -1; КонецЦикла; Исключение Для Каждого СтрДТ Из ОбXDTO.СведТов Цикл НаименованиеСбис = СтрДТ.НаимТов; КоличествоСбис = Число(СтрДТ.КолТов); КодСбис = СтрДТ.ДопСведТов.КодТов; Пока Не КоличествоСбис = 0 Цикл НовСтр = ТЧСбисНом.Добавить(); НовСтр.НаименованиеСбис = НаименованиеСбис; НовСтр.КодСбис = КодСбис; НовСтр.КодМаркировки = СтрДТ.ДопСведТов.НомСредИдентТов.КИЗ[КоличествоСбис-1]; КоличествоСбис = КоличествоСбис -1; КонецЦикла; КонецЦикла; КонецПопытки; Исключение Прервать; КонецПопытки; Индекс = Индекс + 1; КонецЦикла; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; ЧтениеXMLФайл.Закрыть();

код разбора xml

ТЧСбисНом = Новый ТаблицаЗначений;
ТЧСбисНом.Колонки.Добавить("НаименованиеСбис");
ТЧСбисНом.Колонки.Добавить("КодСбис");
ТЧСбисНом.Колонки.Добавить("КодМаркировки");

Ответ.КодСостояния = 200 Тогда
ЗаголовокКонтент = Ответ.Заголовки["content-disposition"];
ИмяФайлаСБИС = СтрРазделить(ЗаголовокКонтент,"'", Ложь)[1];

ЧтениеXMLФайл=Новый ЧтениеXML;
ЧтениеXMLФайл.ОткрытьФайл(ВременноеИмяВходящегоФайла);

НаименованиеСбис = "";
КодСбис = "";
КоличествоСбис = 0;

Пока ЧтениеXMLФайл.Прочитать() Цикл
Если ЧтениеXMLФайл.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
Поле = ЧтениеXMLФайл.Имя;
Если Поле = "ТаблСчФакт" Тогда
Индекс = 1;
Пока Истина Цикл
Попытка
Фабрика=Новый ФабрикаXDTO;
ОбXDTO=Фабрика.ПрочитатьXML(ЧтениеXMLФайл);
Попытка
НаименованиеСбис = ОбXDTO.СведТов.НаимТов;
КоличествоСбис = Число(ОбXDTO.СведТов.КолТов);
КодСбис = ОбXDTO.СведТов.ДопСведТов.КодТов;
Пока Не КоличествоСбис = 0 Цикл
НовСтр = ТЧСбисНом.Добавить();
НовСтр.НаименованиеСбис = НаименованиеСбис;
НовСтр.КодСбис = КодСбис;
НовСтр.КодМаркировки = ОбXDTO.СведТов.ДопСведТов.НомСредИдентТов.КИЗ[КоличествоСбис-1];
КоличествоСбис = КоличествоСбис -1;
КонецЦикла;
Исключение
Для Каждого СтрДТ Из ОбXDTO.СведТов Цикл
НаименованиеСбис = СтрДТ.НаимТов;
КоличествоСбис = Число(СтрДТ.КолТов);
КодСбис = СтрДТ.ДопСведТов.КодТов;
Пока Не КоличествоСбис = 0 Цикл
НовСтр = ТЧСбисНом.Добавить();
НовСтр.НаименованиеСбис = НаименованиеСбис;
НовСтр.КодСбис = КодСбис;
НовСтр.КодМаркировки = СтрДТ.ДопСведТов.НомСредИдентТов.КИЗ[КоличествоСбис-1];
КоличествоСбис = КоличествоСбис -1;
КонецЦикла;
КонецЦикла;
КонецПопытки;
Исключение
Прервать;
КонецПопытки;
Индекс = Индекс + 1;
КонецЦикла;
Прервать;
КонецЕсли;
КонецЕсли;
КонецЦикла;
ЧтениеXMLФайл.Закрыть();

Оставьте свое сообщение

E-mail:

Вакансии

1С-Программист (интегратор Битрикс24)
Санкт-Петербург
зарплата от 150 000 руб. до 250 000 руб.
Полный день

Разработчик 1С
Москва
зарплата от 100 000 руб.
Временный (на проект)

Разработчик 1С
Москва
зарплата от 150 000 руб.
Полный день

Программист
Санкт-Петербург
зарплата от 180 000 руб. до 240 000 руб.
Полный день

Разработчик 1С
Москва
зарплата от 150 000 руб. до 250 000 руб.
Полный день