Доброго времени суток!

СРОЧНО ищу рабочую обработку\механизм получения сведений контрагента по ИНН. Желаемые сведения:

наименование
огрн
оквэд
фио директора
действует ли юр. лицо

Желательно без привязки к какой-то конфигурации.

Может кто-то может поделиться. Может кто-то может запродать (за недорого)

На ИС легко найдешь и купишь

(1) я уже устал там ковыряться. "Купил" за стартмани пару, а они толком не работают. Поэтому и спрашиваю тут "рабочую обработку\механизм"

(2) Так ты не за стартмани купи

Выводить данные куда? В таблицу? В сообщения?

(4) Разница какая?

(2) так почитайте там камменты, отпишитесь в них и автору, спросите что и как. Хотя стартманьки не такая уж дорогая вещь, можно просто купить 3-5 подходящих обработок и выбрать наиболее подходящую, остальные в отвал. Все равно это будет дешевле чем заказывать написание чисто под себя.

я там для 77 брал еще когда это в тестовом варинте на егрюл работало.
получалось.

(0) Ну, тут надо определиться - где Вы хотите брать эти сведения? С какого сервиса? За деньги,. или "на халяву"?
У меня в конфе под 7.7 встроена такая обработка, тоже за старт-мани скачивал, но правда, перепахал всю, в части адаптации к своей конфе, с ИнфоСтарта... Данные получает с сервиса https://dadata.ru/
Условно-бесплатно. Там ограничения по количеству запросов в день. Свыше какого-то количества - за деньги. Но, это количество достаточно большое, для нормальной работы - "выше крыши". Вы же не собираетесь весь интернет к себе на комп скачать :-) Работает, в принципе - очень даже не плохо.

(8) Нашел более-менее подходящую. Тоже через сервис "https://dadata.ru/"; работает

(9)
Процедура Сформировать()
    Инн = СокрЛП(ВыбКонтра.ИНН);
    Если СтрДлина(Инн) = 10 Тогда // Юрлицо
        ФункцияУРЛ = "getCorporationRequisitesByINN";
    Иначе
        ФункцияУРЛ = "getEntrepreneurRequisitesByINN";
    КонецЕсли;
    //
    URL = "https://api.orgregister.1c.ru/orgregister/v7?wsdl";;
    WinHttp=создатьобъект("WinHttp.WinHttpRequest.5.1");  
    
    t1 = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""no""?>  
    |<SOAP-ENV:Envelope xmlns:SOAPSDK1=""http://www.w3.org/2001/XMLSchema"";  
    | xmlns:SOAPSDK2=""http://www.w3.org/2001/XMLSchema-instance"";  
    | xmlns:SOAPSDK3=""http://schemas.xmlsoap.org/soap/encoding/"";  
    | xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/"";  
    | xmlns:ns1=""http://ws.orgregister.company1c.com/"">;  
    |<SOAP-ENV:Body>  
    | <ns1:" + ФункцияУРЛ + ">  
    | <ns1:INN >" + Инн + "</ns1:INN>  
    | <ns1:configurationName>0</ns1:configurationName>    
    | <ns1:" + ФункцияУРЛ + ">  
    |</SOAP-ENV:Body>  
    |</SOAP-ENV:Envelope>";    
    
    WinHttp.Open("POST",URL);    
    WinHttp.SetCredentials("ИТСЛогин","ИТСПароль",0);  //к сожалению, подписка ИТС должна быть  
    WinHttp.send(t1);  
    Ответ = WinHttp.responsetext();    
    
    Сообщить(WinHttp.Status);  
    
    Если WinHttp.Status = 200 тогда // выводим для отладки  
        т1 = 1;  
        для ии=1 по  25  Цикл  
            Сообщить(сред(Ответ,т1,250));    
            т1 =     т1 + 250;  
        КонецЦикла;  
    КонецЕсли;
КонецПроцедуры
Если еще интересно держи, проверял работает

(10) Вся фишка вот в этом:

WinHttp.SetCredentials("ИТСЛогин","ИТСПароль",0);  //к сожалению, подписка ИТС должна быть

Через https://dadata.ru/ можно 10 000 запросов в день делать бесплатно. Потом по 10 копеек запрос.

Процедура ОсновныеДействияФормыДействие(Кнопка)
    
    Если СтрДлина(ИНН) >  9 Тогда
        
        HTTPСоединение=Новый HTTPСоединение("suggestions.dadata.ru",,,,,,Новый ЗащищенноеСоединениеOpenSSL);
        Заголовки=Новый Соответствие();
        Заголовки.Вставить("Content-Type","application/json");
        Заголовки.Вставить("Accept","application/json");
        Заголовки.Вставить("Authorization","Token 'тут свой пихаешь'");
        HTTPЗапрос=Новый HTTPЗапрос("/suggestions/api/4_1/rs/suggest/party",Заголовки);
        HTTPЗапрос.УстановитьТелоИзСтроки("{ ""query"": "" " + Строка(СокрЛП(ИНН)) + """, ""status"": ""ACTIVE"" }");
        HTTPОтвет=HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос);
        Если HTTPОтвет.КодСостояния=200 Тогда
            ТекстОтвета=HTTPОтвет.ПолучитьТелоКакСтроку();
            ЧтениеJSON=Новый ЧтениеJSON;
            ЧтениеJSON.УстановитьСтроку(ТекстОтвета);
            Структура=ПрочитатьJSON(ЧтениеJSON);
            Если Структура.suggestions.Количество() > 0 Тогда
                
                Если Структура.suggestions[0].data.type = "LEGAL" Тогда
                    НаименованиеПолное = Структура.suggestions[0].data.name.short_with_opf;
                    Наименование = Структура.suggestions[0].data.name.short;
                Иначе
                    НаименованиеПолное = Структура.suggestions[0].data.name.short_with_opf;
                    Наименование = Структура.suggestions[0].data.name.full;      
                КонецЕсли;
                
                Если Наименование = "" Тогда
                    Наименование = НаименованиеПолное;
                КонецЕсли;
                
                Попытка
                    КПП = Структура.suggestions[0].data.kpp;
                Исключение
                КонецПопытки;
                
                Комментарий = Комментарий+" "+Символы.ПС+ "Адрес "+Структура.suggestions[0].data.address.unrestricted_value+  Символы.ПС+ "ОГРН "+Структура.suggestions[0].data.ogrn+Символы.ПС+ "ОКВЭД "+Структура.suggestions[0].data.okved;
                
                Если Структура.suggestions[0].data.type = "INDIVIDUAL" Тогда
                ЮрФизЛицо =  Перечисления.ЮрФизЛицо.ФизЛицо Иначе
                    ЮрФизЛицо =  Перечисления.ЮрФизЛицо.ЮрЛицо;
                КонецЕсли;
                
                Если Структура.suggestions[0].data.type = "LEGAL" Тогда
                    Комментарий = Комментарий+ Символы.ПС+ Структура.suggestions[0].data.management.post+" "+Структура.suggestions[0].data.management.name;
                КонецЕсли;
                
                
                
                //Сообщить(""+Структура.suggestions[0].data.address.unrestricted_value);
            Иначе
                Сообщить("Не найдено действующих юрлиц по заданному ИНН");
            КонецЕсли;
            
            ЧтениеJSON.Закрыть();
            
            
        Иначе
            Сообщить("То, что Вы мне дали не похоже на ИНН ((");
        КонецЕсли;
        
    КонецЕсли;  

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

+(12) для УПП

вот такая плюшка очень всем нравится. Открывает карточку компании по Руспрофиле. Ты ему отгрузку делаешь, а у него процедура банкротства идет ))
Вставил под кнопку в карточке контрагента

Процедура ОсновныеДействияФормыПроверитьКомпанию(Кнопка)
    
    //ЗапуститьПриложение("https://www.rusprofile.ru/";)
    ЗапуститьПриложение("https://www.rusprofile.ru/search?query="+ИНН+"&type=ul&search_inactive=2";);
    
КонецПроцедуры