Имя: Пароль:
1C
 
ЧЕСТНЫЙ ЗНАК. Получение по API информации о контрагенте.
0 torgm
 
13.01.21
12:03
Делал ли кто из форумчан,  обращение к честному знаку по API c целью получить информацию является ли контрагент участником честного знака?
1 timurhv
 
13.01.21
12:20
(0) Там ошибки? Мы не делали, но другие методы реализованы.
2 trad
 
13.01.21
12:23
я делал
3 AlexandrV
 
13.01.21
13:26
Подскажите как после отгрузки товара с этикетками (прием знаков прошел) выполнить заполнение отгрузки Им МП и отправить в чз ???
Подскажите кто знает
4 AlexandrV
 
13.01.21
13:45
Подскажите кто знает как передать инфу в честный знак
5 trad
 
14.01.21
11:48
(0) пример кода на 77

// Метод проверки регистрации УОТ по ИНН в системе ГИС МТ
//*******************************************
Процедура ПроверкаРегистрацииУОТпоИНН(Токен, ИНН)
    
    // Запрос авторизации при единой аутентификации
    Адрес = мБазовыйАдресТочкиПодключения + "/participants/" + СокрЛП(ИНН);
    
    Запрос = СоздатьОбъект("Msxml2.ServerXMLHTTP");
    Запрос.open("GET", Адрес);
    Запрос.setRequestHeader("cache-control", "no-cache");
    Запрос.setRequestHeader("authorization", "Bearer " + Токен);
    Запрос.send();
    
    JSON = СоздатьОбъект("JSON");
    Если Запрос.status = 200 Тогда
        Данные = JSON.ЧтениеJSON(Запрос.responseText);
        Сообщить(JSON.ЗаписьJSON(Данные, 1));
    Иначе
        ТекстОшибки = "Ошибка: " + Запрос.status + " : " + Запрос.statusText;
        Сообщить(ТекстОшибки, "err");
    КонецЕсли;

КонецПроцедуры


мБазовыйАдресТочкиПодключения = = "https://markirovka.crpt.ru/api/v3/true-api";;
6 trad
 
14.01.21
11:49
ПроверкаРегистрацииУОТпоИНН(Токен, "123456789012");
ПроверкаРегистрацииУОТпоИНН(Токен, "?inns=123456789012&inns=123456789013");
7 trad
 
14.01.21
11:51
//*******************************************
Функция ПолучитьТокен()
    
    Криптография = СоздатьОбъект("Криптография");
    Сертификат = Криптография.НайтиСертификатПоОтпечатку("xxxxxxxxxxxxxxxxxxxxxxxxxxx");
    Если ПустоеЗначение(Сертификат) = 1 Тогда
        Сообщить("Сертификат не найден");
        Возврат "";
    КонецЕсли;
    
    
    // Авторизация
    
    // Запрос авторизации при единой аутентификации
    Адрес = мБазовыйАдресТочкиПодключения + "/auth/key";
    
    Запрос = СоздатьОбъект("Msxml2.ServerXMLHTTP");
    Запрос.open("GET", Адрес);
    Запрос.setRequestHeader("cache-control", "no-cache");
    Запрос.setRequestHeader("Accept", "application/json");
    Запрос.send();
    
    JSON = СоздатьОбъект("JSON");
    Если Запрос.status = 200 Тогда
        Данные = JSON.ЧтениеJSON(Запрос.responseText);
    Иначе
        ТекстОшибки = "Ошибка: " + Запрос.status + " : " + Запрос.statusText;
        Сообщить(ТекстОшибки, "err");
        Возврат "";
    КонецЕсли;
    
    ПодписанныеДанные = Криптография.Подписать(Данные.data, Сертификат, 0);
    Данные.data = ПодписанныеДанные;

    СтрJSON = JSON.ЗаписьJSON(Данные);
    
    
    // Получение ключа сессии при единой аутентификации
    Адрес = мБазовыйАдресТочкиПодключения + "/auth/simpleSignIn";
    
    Запрос = СоздатьОбъект("Msxml2.ServerXMLHTTP");
    Запрос.open("POST", Адрес);
    Запрос.setRequestHeader("cache-control", "no-cache");
    Запрос.setRequestHeader("Content-Type", "application/json");
    Запрос.setRequestHeader("Accept", "application/json");
    Запрос.send(СтрJSON);
    
    Если Запрос.status = 200 Тогда
        Данные = JSON.ЧтениеJSON(Запрос.responseText);
        Возврат Данные.token;
    Иначе
        ТекстОшибки = "Ошибка: " + Запрос.status + " : " + Запрос.statusText;
        Сообщить(ТекстОшибки);
        Данные = JSON.ЧтениеJSON(Запрос.responseText);
        Сообщить(Данные .error_message);
        Возврат "";
    КонецЕсли;
    
КонецФункции
8 trad
 
14.01.21
11:52
Токен = ПолучитьТокен();
9 timurhv
 
14.01.21
11:59
>Подскажите как после отгрузки товара с этикетками (прием знаков прошел) выполнить заполнение отгрузки Им МП и отправить в чз ???
У вас какие-то собственные аббревиатуры. 99% людей не понимают, поэтому не смогут помочь.

>прием знаков прошел
Каких знаков, где прошел?

>Им МП
Что такое МП? Маркируемая продукция?
10 torgm
 
14.01.21
12:00
(5)  спасибо
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.