Ответ в теме: Как программно копировать элемент справочника «Договоры» в 1С?

4 мая 2026 в 14:00 #36946

Участник

OLEG, привет!

Программный код для копирования элемента справочника «Договоры» написан корректно. В нём создаётся новый элемент справочника, в него копируются все реквизиты исходного элемента, кроме системных (ссылка, код, признак группы), после чего новый элемент записывается и возвращается ссылка на него.

Обратите внимание, что в коде не копируются табличные части или связанные регистры сведений — если у вас есть такие данные, их нужно копировать отдельно.

Пример использования функции показан: сначала находится исходный договор по коду, затем вызывается функция копирования, и выводится сообщение об успехе или ошибке.

Функция КопироватьДоговор(ИсходныйДоговор) Экспорт
    Если ПустоеЗначение(ИсходныйДоговор) Тогда
        Возврат Неопределено;
    КонецЕсли;

    // Получаем объект исходного договора
    ОбъектИсходного = ИсходныйДоговор.ПолучитьОбъект();

    // Создаём новый элемент справочника "Договоры"
    НовыйДоговор = Справочники.Договоры.СоздатьЭлемент();

    // Копируем реквизиты, кроме системных
    МетаданныеДоговоров = Метаданные.Справочники.Договоры;

    Для Каждого Реквизит Из МетаданныеДоговоров.Реквизиты Цикл
        // Исключаем системные реквизиты, которые не нужно копировать
        Если Реквизит.Имя <> "Ссылка" И Реквизит.Имя <> "Код" И Реквизит.Имя <> "ЭтоГруппа" Тогда
            НовыйДоговор[Реквизит.Имя] = ОбъектИсходного[Реквизит.Имя];
        КонецЕсли;
    КонецЦикла;

    // Если нужно, можно задать новый код или другие реквизиты
    // НовыйДоговор.Код = НовыйКод;

    // Записываем новый элемент
    НовыйДоговор.Записать();

    // Возвращаем ссылку на новый элемент
    Возврат НовыйДоговор.Ссылка;
КонецФункции

Функция КопироватьДоговор(ИсходныйДоговор) Экспорт

Если ПустоеЗначение(ИсходныйДоговор) Тогда

Возврат Неопределено;

КонецЕсли;

// Получаем объект исходного договора

ОбъектИсходного = ИсходныйДоговор.ПолучитьОбъект();

// Создаём новый элемент справочника "Договоры"

НовыйДоговор = Справочники.Договоры.СоздатьЭлемент();

// Копируем реквизиты, кроме системных

МетаданныеДоговоров = Метаданные.Справочники.Договоры;

Для Каждого Реквизит Из МетаданныеДоговоров.Реквизиты Цикл

// Исключаем системные реквизиты, которые не нужно копировать

Если Реквизит.Имя <> "Ссылка" И Реквизит.Имя <> "Код" И Реквизит.Имя <> "ЭтоГруппа" Тогда

НовыйДоговор[Реквизит.Имя] = ОбъектИсходного[Реквизит.Имя];

КонецЕсли;

КонецЦикла;

// Если нужно, можно задать новый код или другие реквизиты

// НовыйДоговор.Код = НовыйКод;

// Записываем новый элемент

НовыйДоговор.Записать();

// Возвращаем ссылку на новый элемент

Возврат НовыйДоговор.Ссылка;

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

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

Запрос = Новый Структура("Код", "12345");

ИсходныйДоговор = Справочники.Договоры.Найти(Запрос);

Если ИсходныйДоговор <> Неопределено Тогда

НовыйДоговорСсылка = КопироватьДоговор(ИсходныйДоговор);

Если НовыйДоговорСсылка <> Неопределено Тогда

Сообщить("Договор успешно скопирован. Новая ссылка: " + НовыйДоговорСсылка);

Иначе

Сообщить("Ошибка копирования договора.");

КонецЕсли;

Иначе

Сообщить("Исходный договор не найден.");

КонецЕсли;

Вы пропустили

Новый курс «Администратор 1С v4.1»

Автономный сервер 1С — публикация ИБ

Установка PostgreSQL 17 для 1С на Windows server 2022

Как запустить «Сервер 1С» на Ubuntu 24.04 LTS ?