Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/29: Рейтинг темы: голосов - 29, средняя оценка - 4.86
32 / 4 / 0
Регистрация: 23.11.2016
Сообщений: 39
1

Получение сведений об ЮЛ (ИП) по ИНН

02.03.2019, 13:07. Показов 5956. Ответов 13
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Добрый день всем!

Может кто уже сталкивался с подобной задачей.
Нужно реализовать заполнение данных об организации по ИНН
Заполняются следующие поля:
Наименование
КПП
ОКПО
ОГРН или ОГРНИП
ОКТМО
Адрес

на просторах инета подходящего бесплатного API найти не смог, может кто-то уже реализовал такой механизм?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2019, 13:07
Ответы с готовыми решениями:

Получение сведений из переменной
Доброго времени суток. Помогите пожалуйста решить задачу: Сформирована переменная Assortim,...

Получение сведений о папке
Помогите кто может написать программу которая для некоторой папки находит дату её создания. И потом...

Получение сведений об игрушках
наименование задачи-Получение сведений об игрушках, структура записей исходного файла - название...

Получение сведений о версии ОС
Здравствуйте! Спортивный интерес. Как тоже самое переписать для юникодной версии функции ? ...

13
82 / 72 / 15
Регистрация: 18.01.2014
Сообщений: 349
02.03.2019, 13:21 2
при чем тут api, если нужно иметь доступ к таким данным. Если есть доступ или сама база, то реализация задачи на уровне школьного задания, т.е. дальше всё очень легко.
0
Модератор
Эксперт .NET
4311 / 3385 / 507
Регистрация: 27.01.2014
Сообщений: 6,183
02.03.2019, 13:43 3
Georgy0016, а откуда эти данные будут браться? Есть какая-то локальная база данных или НЕлокальная?
0
32 / 4 / 0
Регистрация: 23.11.2016
Сообщений: 39
02.03.2019, 14:02  [ТС] 4
Локальной бд ни какой нет.
Данные хотелось бы брать с какого-нибудь сервиса.
Задумка для упрощения заведения контрагентов в локальную БД.
Т.е. пользователь при заведении контрагента вбил ИНН и большая часть полей заполнилась бы сама.
Далее сведения из таблицы по контрагентам будет браться для выставления док-в (счет, товарка, акт)
0
65 / 59 / 14
Регистрация: 27.11.2017
Сообщений: 421
03.03.2019, 04:31 5
Цитата Сообщение от Georgy0016 Посмотреть сообщение
Данные хотелось бы брать с какого-нибудь сервиса
мельком посмотрел - не одного сервиса не нашел где предоставлялось бы api бесплатно

https://zachestnyibiznes.ru/api
как вариант - спарсить эти данные
0
649 / 601 / 92
Регистрация: 19.03.2012
Сообщений: 1,128
03.03.2019, 08:46 6
Цитата Сообщение от Georgy0016 Посмотреть сообщение
Данные хотелось бы брать с какого-нибудь сервиса.
Сервис налоговой подойдёт?
1
32 / 4 / 0
Регистрация: 23.11.2016
Сообщений: 39
04.03.2019, 15:14  [ТС] 7
Nachrichter
Сервис налоговой - это хорошо и надежно, но в нем хранится мало нужной мне информации, мне нужны еще и статистические коды.

TRAP_WORLD
Сервис https://zachestnyibiznes.ru/api можно использовать, но вот он не дает ОКПО и наименование организации выдает без кавычек.

Пока в поиске.
0
70 / 60 / 16
Регистрация: 22.10.2012
Сообщений: 337
04.03.2019, 21:18 8
я думаю есть смысл собрать данные с разных ресурсов и объединить их на основании ИНН и создать свою локальную бд
я бы не выдумывал никакого велосипеда, так как вы врятли будете работать с недавно сформированными компаниями
один раз сделать и забыть
а если попадется товарищ с новым ИНН, то проще его данные занести вручную
1
649 / 601 / 92
Регистрация: 19.03.2012
Сообщений: 1,128
05.03.2019, 07:35 9
Цитата Сообщение от Georgy0016 Посмотреть сообщение
...мне нужны еще и статистические коды.
Которые сами ИП и юр.лица узнают из выписки (письма) Госкомстата? За исключением ОКВЭД, конечно.
Ищите и обрящете: Система сбора отчётности ФСГС.
0
65 / 59 / 14
Регистрация: 27.11.2017
Сообщений: 421
06.03.2019, 07:35 10
+ ко всему лучше воспользоваться готовыми программами для быстрого парсинга
к примеру старый добрый imacros ниже код сгенерирован менее чем за 30 сек

Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
URL GOTO=https://zachestnyibiznes.ru/
' поиск по названию "Вася Пупкин"
TAG POS=1 TYPE=INPUT:TEXT ATTR=NAME:query CONTENT=Вася<SP>Пупкин
' кнопка поиск
TAG POS=1 TYPE=BUTTON:SUBMIT ATTR=CLASS:btn<SP>btn-default<SP>btn-search<SP>btn-lg
' Статус
TAG POS=19 TYPE=SPAN ATTR=* EXTRACT=TXT
' ИНН
TAG POS=2 TYPE=TD ATTR=CLASS:text-center EXTRACT=TXT
' Руководитель
TAG POS=1 TYPE=TD ATTR=ITEMPROP:founder EXTRACT=TXT
' Дата регистрации
TAG POS=3 TYPE=TD ATTR=CLASS:text-center EXTRACT=TXT
Адрес
TAG POS=1 TYPE=TD ATTR=WIDTH:220 EXTRACT=TXT
учитывая что сайт предоставляет платный api доступ то видно по коду что защиты нет не какой от парсинга

в vb.net он будет выглядеть так

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim errrror as String ' - есть ли ошибки при выполнении
Dim статус_фирмы as String ' - получить статус фирмы
iim1 = CreateObject("imacros")
macro = "URL GOTO=https://zachestnyibiznes.ru/" + vbNewLine
macro = macro + "WAIT SECONDS=1" + vbNewLine
macro = macro + "TAG POS=1 TYPE=INPUT:TEXT ATTR=NAME:query CONTENT=Вася<SP>Пупкин" + vbNewLine
macro = macro + "TAG POS=1 TYPE=BUTTON:SUBMIT ATTR=CLASS:btn<SP>btn-default<SP>btn-search<SP>btn-lg" + vbNewLine
macro = macro + "WAIT SECONDS=1" + vbNewLine
macro = macro + "TAG POS=19 TYPE=SPAN ATTR=* EXTRACT=TXT" + vbNewLine
iim1.iimPlayCode(macro)
errrror = iim1.iimGetLastError()
статус_фирмы = iim1.iimGetExtract(1)
If tmpstring.Contains("OK (1)") Then '- если ошибок не было 
MsgBox(статус_фирмы) 'ликвидирован 
End If
 
'далее макрос нужно начинать с обнуления переменной [B]EXTRACT[/B]
macro = "SET !EXTRACT NULL" + vbNewLine
0
32 / 4 / 0
Регистрация: 23.11.2016
Сообщений: 39
06.03.2019, 08:37  [ТС] 11
Спасибо! Буду пробовать и разбираться.

Цитата Сообщение от TRAP_WORLD Посмотреть сообщение
примеру старый добрый imacros
А для работы imacros нужны какие-то библиотеки, ели да то какие?
0
65 / 59 / 14
Регистрация: 27.11.2017
Сообщений: 421
06.03.2019, 10:20 12
Georgy0016, да нужны -
на оффсайте лежит сама программа триальная но она не нужна вся а только scripting interface
еще нужен плагин к файрфоксу (у последних версий - ограничение на количество кода макроса)

стабильная сборка без ограничений и по триалу - iMacrosSetup_11.1.495.5175_x64(86).exe + firefox 50.0.2 + плагин 8.9.7
0
32 / 4 / 0
Регистрация: 23.11.2016
Сообщений: 39
06.03.2019, 10:47  [ТС] 13
Цитата Сообщение от TRAP_WORLD Посмотреть сообщение
стабильная сборка без ограничений и по триалу - iMacrosSetup_11.1.495.5175_x64(86).exe + firefox 50.0.2 + плагин 8.9.7
Дело в том что у пользователя может не быть такой связки (firefox другой версии, отсутствие плагина)
Да и установка доп. прог меня не устраивает.

Так что скорее прийдется отказаться от этого подхода.
0
65 / 59 / 14
Регистрация: 27.11.2017
Сообщений: 421
06.03.2019, 13:31 14
Цитата Сообщение от Georgy0016 Посмотреть сообщение
у пользователя может не быть такой связки
сузите круг поиска определив для какой сферы использует пользователь - как и писали выше -> перебрать все фирмы и занести их в свою базу с обновлениями (что бы уменьшить ее размер - создать их несколько по категориям)

но если прям совсем лень - то остается одно- связку тех программ - сделать портативной - и сдесь есть камни подводные
0
06.03.2019, 13:31
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.03.2019, 13:31
Помогаю со студенческими работами здесь

Получение из регистра сведений
Подсккажите как из регистра сведений получить предпоследнюю и последнюю записи

Получение данных из регистра сведений
Ребята, нужна помощь)) Делаю отчет в 8.3, СКД продажи. Нужно добавить новое поле ЦенаП куда будут...

БП 2. Получение дополнительных сведений по Организации
Всем привет, помогите, пожалуйста. Не получается вынуть значение из дополнительных сведений. В...

Получение информации из регистра сведений
Здравствуйте вопрос в следующем, нужно достать контактную информацию организации из регистра...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru