Книги для программистов on Telegram: “Заполнение реквизитов контрагента по ИНН в 1С Из…”

Заполнение реквизитов контрагента по ИНН в 1С

Из этого видео вы узнаете Как заполнить реквизиты контрагента по ИНН в 1С.

При работе в 1С пользователи регулярно создают новых контрагентов. Процесс заполнения реквизитов контрагента вручную может занимать много времени. Сегодня мы покажем вам как можно ускорить заполнение контрагента в 1С, используя только ИНН и данные ЕГРЮЛ (Единого Государственного Реестра Юридических Лиц).


// <Описание функции>
//
// Параметры:
//  ИНН  - Тип.Строка - Строка с ИНН
//                 <продолжение описания параметра>
//
// Возвращаемое значение:
//   <Тип.Структура>   - Структура сожержит
//         *ВидКонтрагента 
//         *КПП
//         *РегистрационныйНомер
//         *Наименование
//             *НаименованиеПолное
// Если организация не является ИП *ЮредическийАдрес      
//
// Сайт API
// https://egrul.itsoft.ru/
&НаСервереБезКонтекста
Функция ЗК_ПолучитьДанныеКонтрагентаПоИНН(ИНН)
  
 ДанныеКонтрагента = Новый Структура;
 ДанныеКонтрагента.Вставить("ИНН", ИНН); 
 
 АдресСервера = "egrul.itsoft.ru";
 АдресРесурса = "/short_data/?" + ИНН;
 
 Соеденения = Новый HTTPСоединение(АдресСервера,,,,, 30, Новый ЗащищенноеСоединениеOpenSSL);
 
 Запрос = Новый HTTPЗапрос(АдресРесурса);
 
 Попытка
  Ответ = Соеденения.Получить(Запрос); 
 Исключение
  Сообщить("Не удалось получить данные по ИНН по причине: " + ОписаниеОшибки());
  Возврат ДанныеКонтрагента;
 КонецПопытки;
 
 ДанныеЕГРБЛ = Неопределено;
 
 Если Ответ.КодСостояния = 200 Тогда
  
  СтрокаJSON = Ответ.ПолучитьТелоКакСтроку();
  ЧтениеJSON = Новый ЧтениеJSON;
  ЧтениеJSON.УстановитьСтроку(СтрокаJSON);
  
  ДанныеЕГРБЛ = ПрочитатьJSON(ЧтениеJSON, Истина);
  
 Иначе
  
  Текст = СтрШаблон("Не удалось получать данные по ИНН...
       |Код состояния: %1
       |Ответ сервера: %2", Ответ.КодСостояния, СтрокаJSON);

  Сообщить(Текст);
  Возврат ДанныеКонтрагента;
 
 КонецЕсли; 
 
 Если ДанныеЕГРБЛ["short_form"] <> Неопределено И ДанныеЕГРБЛ["short_form"] = "ИП" Тогда
  ВидКонтрагента = Перечисления.ВидыКонтрагентовСПАРКРиски.ИндивидуальныйПредприниматель;
 Иначе
  ВидКонтрагента = Перечисления.ВидыКонтрагентовСПАРКРиски.ЮридическоеЛицо;
 КонецЕсли;
 
 ДанныеКонтрагента.Вставить("ВидКонтрагента"      , ВидКонтрагента);
 ДанныеКонтрагента.Вставить("КПП"     , ДанныеЕГРБЛ["kpp"]);
 ДанныеКонтрагента.Вставить("РегистрационныйНомер", ДанныеЕГРБЛ["ogrn"]);
 ДанныеКонтрагента.Вставить("Наименование"   , ДанныеЕГРБЛ["short_name"]);
 ДанныеКонтрагента.Вставить("НаименованиеПолное"  , ДанныеЕГРБЛ["full_name"]);
                                                                                     
 Если ДанныеЕГРБЛ["address"] <> Неопределено Тогда
  ДанныеКонтрагента.Вставить("ЮредическийАдрес", ДанныеЕГРБЛ["address"]); 
 КонецЕсли;
 
 Возврат ДанныеКонтрагента;
 
КонецФункции // ЗК_ПолучитьДанныеКонтрагентаПоИНН()

источник

Мы в MAX

✍️ @odin1C_rus