Заполнение данных по ИНН контрагента с помощью альтернативного сервиса огрн.онлайн

HTTPЗапрос = Новый HTTPЗапрос("интеграция/люди/?инн="+СокрлП(ИНН))

		
                ОбъектXDTO = Результат.РеквизитыЮрЛица;
		Сообщить("НаименованиеПолное "+ ОбъектXDTO.СвНаимЮЛ.НаимЮЛПолн);
		Сообщить("НаименованиеСокращенное "+ОбъектXDTO.СвНаимЮЛ.НаимЮЛСокр);
		Сообщить("ОГРН "+ ОбъектXDTO.ОГРН);
		Сообщить("КПП "+ОбъектXDTO.КПП);
		Адрес =ОбъектXDTO.СвАдрес.Адрес.Состав.ДопАдрЭл[0].Значение+", "+ ОбъектXDTO.СвАдрес.Адрес.Состав.СубъектРФ+", "+ОбъектXDTO.СвАдрес.Адрес.Состав.Улица;
		Для каждого СведенияОбАдресе Из ОбъектXDTO.СвАдрес.Адрес.Состав.ДопАдрЭл Цикл
			Если СведенияОбАдресе.Номер  <> Неопределено тогда
				Адрес = Адрес+", "+СведенияОбАдресе.Номер.Значение;
			КонецЕСлИ;
		КонецЦикла;
		Сообщить("Адрес: "+Адрес);
		Если ОбъектXDTO.СвУправлДеят <> Неопределено И ОбъектXDTO.СвУправлДеят.СведДолжнФЛ <> Неопределено Тогда
			Для каждого СведенияОДолжности Из ОбъектXDTO.СвУправлДеят.СведДолжнФЛ Цикл
				Если Найти(ВРег(СведенияОДолжности.НаимВидДолжн), "РУКОВОДИТЕЛЬ") > 0 И СведенияОДолжности.ФИО <> Неопределено Тогда
					Сообщить("Руководитель:"+СведенияОДолжности.ФИО.Фамилия+" "+СведенияОДолжности.ФИО.Имя+" "+СведенияОДолжности.ФИО.Отчество+", должность: "+СведенияОДолжности.НаимДолжн+", тел: "+СведенияОДолжности.ИННФл);
					Сообщить("Телефон:"+СведенияОДолжности.НомТел);
					Прервать;
				КонецЕсли;
			КонецЦикла;
		КонецЕсли;

{
  "error" : "Access is denied"
}

ssl = Новый ЗащищенноеСоединениеOpenSSL();
	HTTPСоединение = Новый HTTPСоединение("xn--c1aubj.xn--80asehdb",443,,,,,ssl);     
    ЗаголовокЗапросаHTTP = Новый Соответствие();
    ЗаголовокЗапросаHTTP.Вставить("X-ACCESS-KEY", "ЗДЕСЬ ВСТАВИТЬ ЗНАЧЕНИЕ КЛЮЧА");
HTTPЗапрос = Новый HTTPЗапрос("интеграция/компании/?инн="+СокрлП(ИНН), ЗаголовокЗапросаHTTP); 
	Попытка
		ОтветСайта =  HTTPСоединение.Получить(HTTPЗапрос);
		ТекстJSON = ОтветСайта.ПолучитьТелоКакСтроку();
	Исключение
		Возврат;
	КонецПопытки;

ЗаголовокЗапросаHTTP.Вставить(«Content-Type», «application/json; charset=utf-8»);

Функция ПолучитьКППОрганизацииИзСервиса(ИНН)
	
	// ДЕМО ПРИМЕР
	// --
	// Для получения информации по организации используем сервис https://dadata.ru/, требуется только регистрация;
	// выбрал findById (т.е.: "Организация по ИНН или ОГРН"),
	// информацию о сервисе смотри в документации: https://dadata.ru/api/find-party/,
	// в примере из всей информации получаю только КПП.
	// --
	// Стоимость: Бесплатно до 10 тысяч запросов в день. Больше — в составе годовой подписки.
	
	
	//******************
	//* Результат
	КПП = Неопределено;
	
	
	//******************
	//* НАСТРОЙКИ
	Токен = "тут должен быть токен";
	
	Прокси = Неопределено;
	//Прокси = Новый ИнтернетПрокси;
	//Прокси.Установить("https", "СЕРВЕР", ПОРТ);
	
	
	
	//******************
	//* ТЕЛО ОБРАБОТЧИКА
	
	SSL = Новый ЗащищенноеСоединениеOpenSSL();
	Попытка
		Соединение = Новый HTTPСоединение("suggestions.dadata.ru",,,, Прокси,, SSL);
	Исключение
		ИнфОш = ИнформацияОбОшибке();
		ВызватьИсключение КраткоеПредставлениеОшибки(ИнфОш);
	КонецПопытки;
	
	ДанныеЗапрса = Новый Структура("query", ИНН);
	ДанныеЗапрсаJSON = ЗначениеВСтрокуJSON(ДанныеЗапрса);
	
	АдресРесурса = "/suggestions/api/4_1/rs/findById/party";
	
	HTTPЗапрос = Новый HTTPЗапрос(АдресРесурса);
	HTTPЗапрос.Заголовки.Вставить("Content-Type" , "application/json; charset=utf-8");
	HTTPЗапрос.Заголовки.Вставить("Accept"       , "application/json");
	HTTPЗапрос.Заголовки.Вставить("Authorization", "Token " + Токен);
	HTTPЗапрос.УстановитьТелоИзСтроки(ДанныеЗапрсаJSON, КодировкаТекста.UTF8);
	
	Попытка
		HTTPОтвет = Соединение.ОтправитьДляОбработки(HTTPЗапрос);
	Исключение
		ИнфОш = ИнформацияОбОшибке();
		ВызватьИсключение КраткоеПредставлениеОшибки(ИнфОш);
	КонецПопытки;
	
	Если HTTPОтвет.КодСостояния = 200 Тогда 
		
		СтрокаJSON = HTTPОтвет.ПолучитьТелоКакСтроку(КодировкаТекста.UTF8);
		
		Значение = ЗначениеИЗСтрокиJSON(СтрокаJSON);
		
		ДанныеПоОрганизации  = Значение.suggestions[0];
		
		КПП = ДанныеПоОрганизации.data.kpp;
		
	КонецЕсли;
	
	Возврат КПП;
	
КонецФункции

Функция ЗначениеВСтрокуJSON(Значение)
	ЗаписьJSON = Новый ЗаписьJSON;
	ЗаписьJSON.УстановитьСтроку( Новый ПараметрыЗаписиJSON(, Символы.Таб));
	ЗаписатьJSON(ЗаписьJSON, Значение);
	Возврат ЗаписьJSON.Закрыть();
КонецФункции

Функция ЗначениеИЗСтрокиJSON(СтрокаJSON)
	ЧтениеJSON = Новый ЧтениеJSON;
	ЧтениеJSON.УстановитьСтроку(СтрокаJSON);
	Значение = ПрочитатьJSON(ЧтениеJSON);
	ЧтениеJSON.Закрыть();
	Возврат Значение;
КонецФункции

Структ = ПрочитатьJSON(ЧтениеJSON);