Имя: Пароль:
1C
 
Получение данных о контрагенте по ИНН - кто как делает?
,
0 fgaabbb
 
13.07.18
09:15
Дали задание прикрутить к старой УТ 11.1 получение данных контрагента по его ИНН. Какие сейчас есть варианты? запросов таких будет край 10-20 в день.
1 oslokot
 
13.07.18
09:25
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 молодцы ребята.
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.