ПланСчетовОбъект.<Имя плана счетов>.Скопировать

Скопировать определение счёта и изменить только копию

Копирование счёта создаёт другой незаписанный объект. Никакие движения, обороты или денежные средства не копируются.

Подготовка

1. Создайте НОВУЮ пустую файловую базу, корневое имя УчебныйУчет85. В рабочей БП/КА2/УТ/УНФ эти задачи не запускайте. Это технический пример API, не готовый бухгалтерский учёт.

2. Планы видов характеристик → Добавить: УчебныеАналитики85. Тип значения только Строка 30. Элементы, дополнительные реквизиты, табличные части и предопределённые значения не создавайте.

3. Планы счетов → Добавить: УчебныеСчета85. ДлинаКода 10, МаскаКода @@@.@@@.@@, ДлинаНаименования 100, ДлинаПорядка 20. АвтоПорядокПоКоду выключен, КонтрольУникальности включён. ВидыСубконто=УчебныеАналитики85, МаксКоличествоСубконто=2.

4. У плана счетов не создавайте пользовательские реквизиты, табличные части, признаки учёта/субконто, предопределённые счета, формы, команды, макеты и дополнительные индексы. Модули оставьте пустыми. Историю данных и два флага обработки её версий выключите. Расширений нет.

5. Обновите конфигурацию БД. Создайте серверный обработчик ВыполнитьПример() Экспорт в собственной обработке. Фрагмент вставляйте в тело; запускайте уроки по отдельности.

6. Объекты создаются только в памяти: Записать/Удалить/Заблокировать не вызываются. Регистров бухгалтерии, проводок и фактических остатков в этом примере нет.

Описание = Метаданные.ПланыСчетов.Найти("УчебныеСчета85");
Если Описание = Неопределено Тогда
    ВызватьИсключение "Сначала создайте собственный план УчебныеСчета85";
КонецЕсли;
Если Описание.ДлинаКода <> 10 Или Описание.ДлинаНаименования <> 100
    Или Описание.ДлинаПорядка <> 20 Или Описание.МаскаКода <> "@@@.@@@.@@"
    Или Описание.АвтоПорядокПоКоду Или Описание.МаксКоличествоСубконто <> 2 Тогда
    ВызватьИсключение "Настройки учебного плана не соответствуют подготовке";
КонецЕсли;
Если Описание.ВидыСубконто = Неопределено Тогда
    ВызватьИсключение "Назначьте собственный план аналитик";
КонецЕсли;
Если Описание.ВидыСубконто.Имя <> "УчебныеАналитики85" Тогда
    ВызватьИсключение "Нужны только собственные учебные аналитики";
КонецЕсли;
Менеджер = ПланыСчетов.УчебныеСчета85;
Касса = Менеджер.СоздатьСчет();
Касса.Код = "50";
Касса.Наименование = "Учебная касса";
Касса.Вид = ВидСчета.Активный;
Касса.Забалансовый = Ложь;
Касса.Порядок = "50";
Касса.ДополнительныеСвойства.Вставить("МеткаЗадачи", "Только память");
Копия = Касса.Скопировать();
Копия.Код = "51";
Копия.Наименование = "Другой учебный счёт";
Копия.Вид = ВидСчета.Пассивный;
Копия.Порядок = "51";
Сообщить(Копия.ЭтоНовый());
Сообщить(Копия.Ссылка.Пустая());
Сообщить(Касса.ЭтоНовый());
Сообщить(Касса.Код = "50");
Сообщить(Касса.Наименование = "Учебная касса");
Сообщить(Касса.Вид = ВидСчета.Активный);
Сообщить(Копия.Вид = ВидСчета.Пассивный);
Сообщить(Копия.Код <> Касса.Код);

Разбор по шагам

1. Создаём собственный объект кассы в памяти, затем Скопировать создаёт новый объект того же плана.

2. Меняем код, подпись, вид и порядок только у копии. Сохранения ни одного объекта нет.

3. Сравниваем исходные значения кассы и изменённые значения копии.

4. Предопределённость и остатки не создаём; сохранённые счета вообще не читаются.

Как проверить результат

1. Восемь логических проверок дают Истина.

2. Оба объекта остаются новыми; в собственном списке счетов ни 50, ни 51 не появилось.

Ожидаемый результат

Показано независимое изменение копии определения счёта без копирования прикладных данных.

На что обратить внимание

1. Пассивный вид копии выбран только для демонстрации свойства, это не методология учёта банковского счёта.

2. Не трактуйте Скопировать как копирование проводок или сумм.

3. Служебные ДополнительныеСвойства не считаем гарантированно скопированными: здесь это не проверяется.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.