Как программно создать и заполнить контрагента в 1С:Бухгалтерии 3.0 по ИНН?

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

Функция СоздатьИЗаполнитьКонтрагентаПоИНН(ИННКонтрагента) Экспорт

    // Проверим, возможно, контрагент с таким ИНН уже существует
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |    Контрагенты.Ссылка
        |ИЗ
        |    Справочник.Контрагенты КАК Контрагенты
        |ГДЕ
        |    Контрагенты.ИНН = &ИНН";
    Запрос.УстановитьПараметр("ИНН", ИННКонтрагента);

    РезультатЗапроса = Запрос.Выполнить();
    Если Не РезультатЗапроса.Пустой() Тогда
        // Контрагент уже существует, возвращаем его ссылку
        Возврат РезультатЗапроса.Выбрать().Ссылка;
    КонецЕсли;

    // Если контрагент не найден, создаем нового
    НовыйКонтрагентОбъект = Справочники.Контрагенты.СоздатьЭлемент();
    НовыйКонтрагентОбъект.ИНН = ИННКонтрагента;
    
    Попытка
        // Здесь мы вызываем типовой функционал автозаполнения
        // В типовых конфигурациях этот функционал может быть реализован в общих модулях
        // или в форме элемента справочника. 
        // Мы предполагаем наличие Общего модуля "РегламентированныйУчетПереопределяемый"
        // или подобного, который содержит экспортные процедуры для работы с контрагентами.
        // Имя функции может отличаться в зависимости от версии конфигурации.

        // Предполагаемый вызов функции заполнения, которая использует 1С-Контрагент
        // Эта функция может быть в разных общих модулях или быть методом объекта.
        // Для 1С:Бухгалтерии 3.0 часто используются модули, связанные с работой с адресами и контрагентами.
        // Например, может быть что-то вроде:
        // ОбщегоНазначенияБП.ЗаполнитьРеквизитыКонтрагента(НовыйКонтрагентОбъект);
        
        // Более универсальный подход - использование механизма фонового выполнения,
        // но для простоты и прямого вызова мы можем искать функции, подобные той, что используется в формах.

        // Вариант 1: Использование общих методов из модулей "ЗаполнениеРеквизитовКонтрагентовКлиентСервер"
        // или "ОбщегоНазначенияБП" или "ОбщегоНазначенияКлиентСервер"
        // Пример (псевдокод, точное имя функции может варьироваться):
        ДанныеДляЗаполнения = Новый Структура;
        ДанныеДляЗаполнения.Вставить("ИНН", ИННКонтрагента);
        ДанныеДляЗаполнения.Вставить("КПП", ""); // КПП может быть неизвестен на старте

        РезультатЗаполнения = ЗаполнениеРеквизитовКонтрагентовКлиентСервер.ПолучитьДанныеКонтрагентаИзЕГРЮЛ(НовыйКонтрагентОбъект, ДанныеДляЗаполнения);
        // После получения данных, нам нужно их применить к объекту.
        // В реальной конфигурации это делается внутри той же процедуры или возвращается структура.

        Если РезультатЗаполнения.Заполнен Тогда
            // Если данные успешно получены и заполнены, записываем объект
            НовыйКонтрагентОбъект.Записать();
            Возврат НовыйКонтрагентОбъект.Ссылка;
        Иначе
            Сообщить("Не удалось заполнить реквизиты контрагента по ИНН: " + ИННКонтрагента + ". " + РезультатЗаполнения.СообщениеОбОшибке);
            Возврат Неопределено;
        КонецЕсли;

    Исключение
        Сообщить("Произошла ошибка при попытке заполнить реквизиты контрагента по ИНН " + ИННКонтрагента + ": " + ОписаниеОшибки());
        Возврат Неопределено;
    КонецПопытки;

КонецФункции

// Пример использования:
// СсылкаНаКонтрагента = СоздатьИЗаполнитьКонтрагентаПоИНН("7707083893"); 
// Если СсылкаНаКонтрагента <> Неопределено Тогда
//     Сообщить("Контрагент успешно создан/найден: " + СсылкаНаКонтрагента);
// Иначе
//     Сообщить("Не удалось создать/найти контрагента.");
// КонецЕсли;

// Пример функции для получения данных о контрагенте из внешнего JSON API
// и заполнения справочника "Контрагенты".

Функция ПолучитьДанныеКонтрагентаИзВнешнегоAPI(ИННКонтрагента) Экспорт

    Если ПустаяСтрока(ИННКонтрагента) Тогда
        Сообщить("ИНН не может быть пустым.");
        Возврат Неопределено;
    КонецЕсли;

    // 1. Параметры API
    // Замените на реальные URL и токен вашего API (например, DaData.ru или api-fns.ru)
    СтрокаЗапросаAPI = "https://api.example.com/company?inn=" + ИННКонтрагента; 
    ТокенАвторизации = "ВАШ_API_ТОКЕН"; // Получите на сайте выбранного API
    
    // 2. Инициализация объекта HTTP-запроса
    HTTPЗапрос = Новый HTTPЗапрос(СтрокаЗапросаAPI);
    HTTPЗапрос.Заголовки.Вставить("Authorization", "Token " + ТокенАвторизации); // Пример для DaData.ru, может отличаться
    HTTPЗапрос.Заголовки.Вставить("Content-Type", "application/json"); // Указываем тип контента

    // 3. Отправка HTTP-запроса
    Попытка
        HTTPСоединение = Новый HTTPСоединение("api.example.com", , , , , , Новый ЗащищенноеСоединениеOpenSSL()); // Укажите хост API
        Ответ = HTTPСоединение.Получить(HTTPЗапрос);
    Исключение
        Сообщить("Ошибка при выполнении HTTP-запроса: " + ОписаниеОшибки());
        Возврат Неопределено;
    КонецПопытки;

    // 4. Проверка статуса ответа и получение JSON
    Если Ответ.КодСостояния = 200 Тогда
        ТелоОтвета = Ответ.ПолучитьТелоКакСтроку();
        
        // Преобразуем JSON строку в структуру 1С
        ЧтениеJSON = Новый ЧтениеJSON;
        ЧтениеJSON.УстановитьСтроку(ТелоОтвета);
        ДанныеКонтрагента = ПрочитатьJSON(ЧтениеJSON);
        ЧтениеJSON.Закрыть();
        
        // 5. Обработка полученных данных и создание/обновление контрагента
        Если ДанныеКонтрагента <> Неопределено Тогда
            Возврат СоздатьИлиОбновитьКонтрагента(ДанныеКонтрагента);
        Иначе
            Сообщить("Не удалось прочитать данные контрагента из JSON.");
            Возврат Неопределено;
        КонецЕсли;

    Иначе
        Сообщить("Ошибка HTTP-запроса. Код состояния: " + Ответ.КодСостояния + ", Тело ответа: " + Ответ.ПолучитьТелоКакСтроку());
        Возврат Неопределено;
    КонецЕсли;

КонецФункции

// Функция для создания или обновления элемента справочника "Контрагенты"
Функция СоздатьИлиОбновитьКонтрагента(ДанныеAPI)
    
    // Примерный JSON-ответ от API может выглядеть так (зависит от API):
    // {
    //   "inn": "7707083893",
    //   "kpp": "770701001",
    //   "short_name": "Сбербанк",
    //   "full_name": "Публичное акционерное общество 'Сбербанк России'",
    //   "address": "117997, г. Москва, ул. Вавилова, д. 19",
    //   "director_name": "Греф Герман Оскарович",
    //   "director_position": "Президент, Председатель Правления"
    // }

    // Проверим, есть ли обязательные поля
    Если Не ДанныеAPI.Свойство("inn") Или ПустаяСтрока(ДанныеAPI.inn) Тогда
        Сообщить("В полученных данных отсутствует ИНН.");
        Возврат Неопределено;
    КонецЕсли;

    ИНН = ДанныеAPI.inn;

    // Поиск существующего контрагента по ИНН
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |    Контрагенты.Ссылка
        |ИЗ
        |    Справочник.Контрагенты КАК Контрагенты
        |ГДЕ
        |    Контрагенты.ИНН = &ИНН";
    Запрос.УстановитьПараметр("ИНН", ИНН);

    РезультатЗапроса = Запрос.Выполнить();
    Выборка = РезультатЗапроса.Выбрать();

    СсылкаНаКонтрагента = Неопределено;
    Если Выборка.Следующий() Тогда
        СсылкаНаКонтрагента = Выборка.Ссылка;
        Сообщить("Контрагент с ИНН " + ИНН + " уже существует. Обновляем данные.");
    Иначе
        Сообщить("Контрагент с ИНН " + ИНН + " не найден. Создаем нового.");
    КонецЕсли;
    
    // Получаем объект контрагента
    КонтрагентОбъект = Неопределено;
    Если СсылкаНаКонтрагента <> Неопределено Тогда
        КонтрагентОбъект = СсылкаНаКонтрагента.ПолучитьОбъект();
    Иначе
        КонтрагентОбъект = Справочники.Контрагенты.СоздатьЭлемент();
    КонецЕсли;

    // Заполняем реквизиты объекта данными из API
    КонтрагентОбъект.ИНН = ИНН;
    
    Если ДанныеAPI.Свойство("kpp") Тогда
        КонтрагентОбъект.КПП = ДанныеAPI.kpp;
    КонецЕсли;
    
    Если ДанныеAPI.Свойство("full_name") Тогда
        КонтрагентОбъект.НаименованиеПолное = ДанныеAPI.full_name;
    КонецЕсли;
    
    Если ДанныеAPI.Свойство("short_name") Тогда
        КонтрагентОбъект.Наименование = ДанныеAPI.short_name; // Краткое наименование
    ИначеЕсли ДанныеAPI.Свойство("full_name") Тогда
        // Если короткого нет, используем полное
        КонтрагентОбъект.Наименование = ДанныеAPI.full_name;
    КонецЕсли;

    // Адрес
    Если ДанныеAPI.Свойство("address") Тогда
        // Для адреса в 1С часто используется сложная структура
        // Или можно просто установить строковое представление адреса в соответствующее поле
        // Например: ЮридическийАдрес
        // Здесь мы просто для примера устанавливаем в строковое поле
        КонтрагентОбъект.ЮридическийАдрес = ДанныеAPI.address;
        
        // В реальной жизни для точного заполнения адреса по ФИАС
        // могут потребоваться дополнительные функции или вызовы стандартных обработчиков 1С.
        // Пример: ОбщегоНазначенияБП.ПолучитьСтрокуАдреса(СтруктураАдресаИзAPI);
    КонецЕсли;

    // Контактная информация (руководитель)
    Если ДанныеAPI.Свойство("director_name") Тогда
        // Необходимо найти или создать физическое лицо
        ФизЛицоРуководитель = Справочники.ФизическиеЛица.НайтиПоНаименованию(ДанныеAPI.director_name);
        Если ФизЛицоРуководитель = Неопределено Тогда
            НовоеФизЛицо = Справочники.ФизическиеЛица.СоздатьЭлемент();
            НовоеФизЛицо.Наименование = ДанныеAPI.director_name;
            Попытка
                НовоеФизЛицо.Записать();
                ФизЛицоРуководитель = НовоеФизЛицо.Ссылка;
            Исключение
                Сообщить("Ошибка при создании физического лица: " + ОписаниеОшибки());
            КонецПопытки;
        КонецЕсли;
        
        Если ФизЛицоРуководитель <> Неопределено Тогда
            // Заполнение контактной информации руководителя может быть специфичным для конфигурации
            // Например, через регистр сведений или поля в справочнике.
            // Для БП 3.0 информация о руководителе обычно заполняется в специальной форме.
            // Мы просто указываем ФИО руководителя в реквизит объекта
            КонтрагентОбъект.Руководитель = ФизЛицоРуководитель;
            Если ДанныеAPI.Свойство("director_position") Тогда
                КонтрагентОбъект.ДолжностьРуководителя = ДанныеAPI.director_position;
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;

    // Другие поля, которые можно заполнить, если они есть в ответе API:
    // ОКПО, ОГРН, ОКФС, ОКОПФ, ОКВЭД, БанковскиеСчета, ДатаРегистрации и т.д.
    // Каждый реквизит требует отдельной обработки.

    Попытка
        КонтрагентОбъект.Записать();
        Возврат КонтрагентОбъект.Ссылка;
    Исключение
        Сообщить("Ошибка при записи контрагента: " + ОписаниеОшибки());
        Возврат Неопределено;
    КонецПопытки;

КонецФункции

// Пример использования:
// СсылкаНаНовогоКонтрагента = ПолучитьДанныеКонтрагентаИзВнешнегоAPI("7707083893");
// Если СсылкаНаНовогоКонтрагента <> Неопределено Тогда
//     Сообщить("Контрагент успешно создан/обновлен: " + СсылкаНаНовогоКонтрагента);
// Иначе
//     Сообщить("Не удалось создать/обновить контрагента через внешний API.");
// КонецЕсли;