Создание новых заказов в системе СДЭК из режима 1С:Предприятие.
Обработка написана для УТ11 и прошла тестирование на релизе 11.2.2.100. Позволяет с помощью WinHttpRequest создавать заказы в системе СДЭК в один клик, дублируя в запрос соотвтетствующие данные из 1С.
В обработке присутствуют 2 окна: основное окно и окно ввода данных для подключения (вызывается через «Открыть параметры подключения»).
Обработка поставляется в качестве примера взаимодействия с АПИ СДЭК.
Так сильно короче можно получить массив с ответом json
НовСтрока = «»;
ПравильныеСимволы = «:,1234567890QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvb
Для Сч = 1 по СтрДлина(ХТТП.ResponseText) Цикл
ТекСимв = Сред(ХТТП.ResponseText, Сч, 1);
Если Найти(ПравильныеСимволы, ТекСимв) > 0 Тогда
НовСтрока = НовСтрока + ТекСимв;
КонецЕсли;
КонецЦикла;
Сообщить(НовСтрока);
Массив = Новый Массив;
МнСтр=СтрЗаменить(Сред(НовСтрока,8),»,»,Символы.ПС);
Для н=1 По СтрЧислоСтрок(МнСтр) Цикл
Массив.Добавить(СтрПолучитьСтроку(МнСтр,н));
КонецЦикла;
Для Индекс = 0 По ТаблицаДанных.Количество() — 1 Цикл
НашаСтрока = СокрЛП(ТаблицаДанных[Индекс]);
ПозицияСлеша = Найти(НашаСтрока,»:»);
ТаблицаДанных[Индекс] = Сред(НашаСтрока,ПозицияСлеша+1,СтрДлина(НашаСтрока));
КонецЦикла;
Подскажите, а код закрыт или открыт?
(2) Открыт. выложил для примера другим