Показано с 1 по 10 из 43
Тема: Маркировка для 1С 77
Комбинированный просмотр
-
12.01.2020, 23:32 #1
- Регистрация
- 02.12.2016
- Сообщений
- 9
- Сказал(а) спасибо
- 1
- Поблагодарили 0 раз(а) в 0 сообщениях
Re: Маркировка для 1С 77
Можешь поделиться наработками? Готов к совместному сотрудничеству или за разовое вознаграждение.
-
12.01.2020, 23:59 #2
- Регистрация
- 02.07.2009
- Сообщений
- 20
- Сказал(а) спасибо
- 9
- Поблагодарили 2 раз(а) в 2 сообщениях
Re: Маркировка для 1С 77
Да без проблем!
В API запросах с ЦРПТ работают два метода GET и POST см. документацию по API.
Выше я выкладывал загрузку компонент. Теперь функции для работы с запросами.
//*******************************************
Функция глЗапросGET(СтрокаЗапроса) Экспорт
Стр = "";
Попытка
WinHttp.Open("GET", СтрокаЗапроса+"omsId="+СокрЛП(� �онстанта.OmsID), 0);
WinHttp.SetRequestHeader("Accept","application/json");
WinHttp.SetRequestHeader("Content-Type","application/x-www-form-urlencoded;charset=UTF-8");
WinHttp.SetRequestHeader("clientToken",СокрЛ� �(Константа.ClientToken));
WinHttp.SetTimeouts(15000, 15000, 15000, 15000);
WinHttp.Send();
Если WinHttp.Status = 200 Тогда
Стр = WinHttp.ResponseText;
Иначе
Сообщить("HTTP " + WinHttp.Status + " " + WinHttp.StatusText);
Стр = "Ошибка запроса!";
КонецЕсли;
Исключение
Сообщить("Ошибка запроса!");
КонецПопытки;
Возврат Стр;
КонецФункции
//*******************************************
Функция глЗапросPOST(СтрокаЗапроса) Экспорт
Стр = "";
Попытка
WinXML.Open("POST", "https://suz2.crpt.ru/api/v2/light/orders?"+"omsId="+СокрЛП(Константа. OmsID), 0);
WinXML.SetRequestHeader("Accept","application/json");
WinXML.SetRequestHeader("Content-Type","application/json;charset=UTF-8");
WinXML.SetRequestHeader("Content-Length",Строка(СтрДлина(Строка Запроса)));
WinXML.SetRequestHeader("clientToken",СокрЛП (Константа.ClientToken));
WinXML.SetTimeouts(15000, 15000, 15000, 15000);
WinXML.Send(СтрокаЗапроса);
Если WinXML.Status = 200 Тогда
Стр = WinXML.ResponseText;
Иначе
Сообщить("HTTP " + WinXML.Status + " " + WinXML.StatusText);
КонецЕсли;
Исключение
Сообщить("Ошибка запроса!");
КонецПопытки;
Возврат Стр;
КонецФункции
//*******************************************
В дальнейшем просто идет обработка получаемых строк.
-
13.01.2020, 00:59 #3
- Регистрация
- 02.12.2016
- Сообщений
- 9
- Сказал(а) спасибо
- 1
- Поблагодарили 0 раз(а) в 0 сообщениях
Re: Маркировка для 1С 77
Я неправильно понял что уже имеются полностью готовые наработки на 1с?
Похожие темы
-
Нужна помощь, маркировка печать Datamatrix из pdf
от AdmRPO в разделе ПомощьОтветов: 2Последнее сообщение: 26.01.2022, 22:07 -
Маркировка памяти Palit Radeon HD 2600 Pro Sonic 256 Mb DDR3
от Groov-Jet в разделе Железо (hardware)Ответов: 1Последнее сообщение: 18.01.2008, 02:55
Социальные закладки