Получение данных о контрагенте по ИНН

Получение данных о контрагенте по ИНН - кто как делает?

13.07.18

✎

09:15

Дали задание прикрутить к старой УТ 11.1 получение данных контрагента по его ИНН. Какие сейчас есть варианты? запросов таких будет край 10-20 в день.

1 oslokot

13.07.18

✎

09:25

Мой вариант: http://catalog.mista.ru/public/447083/

2 Cyberhawk

13.07.18

✎

09:29

(1) ТС спрашивает как, но ты подсовываешь ему то, что не дает ответ на этот вопрос

3 oslokot

13.07.18

✎

09:32

(2) Нет. ТС спрашивает "какие варианты"

Вот пожалуйста, рабочий вариант

4 Tonik992

13.07.18

✎

09:37

https://dadata.ru/api/suggest/
вот тут есть что-то интересное

5 Tonik992

13.07.18

✎

09:38

А вообще вся инфа в самой налоговой:
https://www.nalog.ru/rn77/service/egrip2/

6 ale-sarin

13.07.18

✎

09:40

(0) Я как-то делал. Из УТ 11.2 (или 11.3, не помню, два года назад было) выпилил и сунул в УТ 11.1 все касаемо сервиса Контрагенты.
Задача как раз была такая же. Норм взлетело. Пару дней ушло на это.

7 fgaabbb

13.07.18

✎

10:16

(1) хм.. сбис... интересно, спасибо
(4) спасибо
(5) я так и думал )
(6) тоже думаю об этом

8 ПегийЛунь

13.07.18

✎

10:23

Можно из БП 3.0 утащить.
Общий модуль РаботаСКонтрагентами.
Начиная с
Функция РеквизитыЮридическогоЛицаПоИНН(Знач ИНН) Экспорт
и далее всё что нужно.

9 fgaabbb

14.07.18

✎

15:37

(8) большое спасибо

10 fgaabbb

16.07.18

✎

06:54

+(4) для тех, кто будет потом сам делать, небольшой пример DaData:
Соединение = Новый HTTPСоединение(Сервер,,,,Новый ИнтернетПрокси(истина),, Новый ЗащищенноеСоединениеOpenSSL);
    Запрос = Новый HTTPЗапрос(Адрес);
    Запрос.Заголовки.Вставить("Content-Type",    "application/json");
    Запрос.Заголовки.Вставить("Accept",            "application/json");
    Запрос.Заголовки.Вставить("Authorization",     "Token " + ТокенДадада);
    Запрос.Заголовки.Вставить("X-Partner",         "1C");

    СтруктураЗапроса = Новый Структура;
    СтруктураЗапроса.Вставить("query", ПоискИНН);

    ТелоЗапроса = ПолучитьСтрокуJSON(СтруктураЗапроса);

    Запрос.УстановитьТелоИзСтроки(ТелоЗапроса);

    Ответ = Соединение.ОтправитьДляОбработки(Запрос);

    Чтение = Новый ЧтениеJSON;
    ОтветСтрокой = Ответ.ПолучитьТелоКакСтроку();
    Чтение.УстановитьСтроку(ОтветСтрокой);
    Результат = ПрочитатьJSON(Чтение);

а результат разбирайте, там вроде все понятно

11 fgaabbb

16.07.18

✎

06:55

в начале, конечно:
Сервер = "suggestions.dadata.ru";
Адрес = "suggestions/api/4_1/rs/findById/party";

12 abfm

16.07.18

✎

07:10

https://1cbonus.ru молодцы ребята.