Маркировка для 1С 77
X

Привет дорогой друг

Наш сайт существует и развиваетется за счет рекламы. Пожалуйста, отключите блокировку рекламы AdBlock или подобное, для нашего сайта. Спасибо!
Показано с 1 по 10 из 43

Комбинированный просмотр

  1. #1
    Пришел за помощью

    Регистрация
    02.12.2016
    Сообщений
    9
    Сказал(а) спасибо
    1
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Re: Маркировка для 1С 77

    Можешь поделиться наработками? Готов к совместному сотрудничеству или за разовое вознаграждение.

  2. #2
    Пришел за помощью

    Регистрация
    02.07.2009
    Сообщений
    20
    Сказал(а) спасибо
    9
    Поблагодарили 2 раз(а) в 2 сообщениях

    По умолчанию Re: Маркировка для 1С 77

    Цитата Сообщение от Rebook Посмотреть сообщение
    Можешь поделиться наработками?
    Да без проблем!
    В 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);

    КонецЕсли;

    Исключение
    Сообщить("Ошибка запроса!");

    КонецПопытки;

    Возврат Стр;

    КонецФункции
    //*******************************************
    В дальнейшем просто идет обработка получаемых строк.

  3. #3
    Пришел за помощью

    Регистрация
    02.12.2016
    Сообщений
    9
    Сказал(а) спасибо
    1
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Re: Маркировка для 1С 77

    Я неправильно понял что уже имеются полностью готовые наработки на 1с?

Похожие темы

  1. Ответов: 2
    Последнее сообщение: 26.01.2022, 22:07
  2. Маркировка памяти Palit Radeon HD 2600 Pro Sonic 256 Mb DDR3
    от Groov-Jet в разделе Железо (hardware)
    Ответов: 1
    Последнее сообщение: 18.01.2008, 02:55

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •