1С Программирование | 1C Разработка и Предприятие 8.3. Уроки для начинающих и Профи. Курсы Программиста: Конфигурация, Код и Внедрение. IT Карьера, Фриланс и Обучение. ERP, ЗУП, Бухгалтерия.
IT и технологии · 1 июня 2026 г.
Заполнение реквизитов контрагента по ИНН в 1С — 1 июня 2026 г. в 07:57:37.958
Заполнение реквизитов контрагента по ИНН в 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"]); КонецЕсли; Возврат ДанныеКонтрагента; КонецФункции // ЗК_ПолучитьДанныеКонтрагентаПоИНН() источник ✍️ @odin1C_rus