1С:Контрагент: Полное Руководство по Эффективному Управлению Взаимоотношениями

Полезный код 1С

Для чего может быть полезен этот код 1С:Предприятие версии 8.5: автоматизация создания и обновления справочника контрагентов.

Процедура ОбновитьСправочникКонтрагентов()
    // Получение данных о контрагентах из внешнего источника
    ДанныеКонтрагентов = ПолучитьДанныеИзВнешнегоИсточника();

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

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

Примечание: Этот код написан под абстрактную конфигурацию и не претендует на полноту. Он может содержать ошибки, так как сгенерирован ИИ.