Конфигурация Управление торговли.
Ситуация такая, мне необходимо в справочнике Номенклатура сделать так, что при изменении артикула изменялся дополнительный реквизит "Товарный код". В товарный код записывается артикул.
Подскажите как возможно это сделать?
Если можно какой-нибудь пример код.
Создал событие в поле артикул "при изменении".

```1c
    &НаСервере
    Процедура ДополнениеАртикулПриИзмененииПослеНаСервере()
    КонецПроцедуры
```

```1c
    &НаКлиенте
    Процедура ДополнениеАртикулПриИзмененииПосле(Элемент)
    КонецПроцедуры
```

PS. Заранее извиняюсь, новичок ещё в 1С.
---
```1c
    Нашел=Ложь;
    Для Каждого стр из Объект.ДополнительныеРеквизиты Цикл
    Если Стр.Свойство=ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Товарный код") тогда
    Нашел=истина;
    Стр.Значение=Объект.Артикул;

    КонецЦикла;
    Если не Нашел тогда
    НовСтр=Объект.ДополнительныеРеквизиты.Добавить();
    НовСтр.Свойство=ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Товарный код") ;
    Новстр.Значение=Объект.Артикул;
    КонецЕсли;
```

Что то типа такого
---
В УТ 10 обычные формы, а у вас код для управляемых.
---
Не то указал, Управление Торговли редакция 3.4
---
Добрый день! Такой тоже нет. Есть редакция 11.4.хх и т.д. Вы уверены. что у вас не "Розница" или другой какой-то продукт? Справка, О программе поможет вам узнать и номер платформы и редакцию и версию релиза.
---
```1c
    УправлениеСвойствами.ЗаписатьСвойстваУОбъекта(
```
---
Сейчас доп реквизиты это табличная часть справочника
просто перезаписываете его
---
Сейчас доп реквизиты это табличная часть справочника
просто перезаписываете его
Точнее надо проверить есть ли в ТЧ это свойство, если да то перезаписать значение, если нет то добавить новую строку.
---
Можно пример как делать?
---
```1c
    Нашел=Ложь;
    Для Каждого стр из Объект.ДополнительныеРеквизиты Цикл
    Если Стр.Свойство=ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Товарный код") тогда
    Нашел=истина;
    Стр.Значение=Объект.Артикул;

    КонецЦикла;
    Если не Нашел тогда
    НовСтр=Объект.ДополнительныеРеквизиты.Добавить();
    НовСтр.Свойство=ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Товарный код") ;
    Новстр.Значение=Объект.Артикул;
    КонецЕсли;
```

Что то типа такого
---
Ошибку выдаёт.
 {Дополнение Справочник.Номенклатура.Форма.ФормаЭлемента.Форма(635,21)}: Переменная не определена (ПланВидовХарактеристик)
  Если Стр.Свойство=<<?>>ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Товарный код") тогда (Проверка: Сервер)
{Дополнение Справочник.Номенклатура.Форма.ФормаЭлемента.Форма(641,20)}: Переменная не определена (ПланВидовХарактеристик)
   НовСтр.Свойство=<<?>>ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Товарный код") ; (Проверка: Сервер)
---
надо в серверной процедуре это делать или конфа у вас другая нежели в моем примере
---
А разве не "ПланыВидовХарактеристик"?
Элементы коллекции:
ПланВидовХарактеристикМенеджер.<Имя плана видов характеристик>
...
Описание:
Предназначен для управления планами видов характеристик и предоставляет доступ к значениям типа ПланВидовХарактеристикМенеджер.<Имя плана видов характеристик>. Доступ к объекту осуществляется через свойство глобального контекста ПланыВидовХарактеристик.
---
Тогда уж так

```1c
    Свойство = ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоРеквизиту("Имя", ИмяСвойстваДляПрограммистов);

    СтрокаСвойства = Объект.ДополнительныеРеквизиты.Найти(Свойство, "Свойство");
    Если СтрокаСвойства = Неопределено Тогда
    СтрокаСвойства = Объект.ДополнительныеРеквизиты.Добавить();
    СтрокаСвойства.Свойство = Свойство;
    КонецЕсли;
    СтрокаСвойства .Значение = Объект.Артикул;
```