Перевірено на Business automation software for accounting, edition 2.1 (2.1.23.2):
```
Функция ДобавитьКодННПоНомер(Номер)
Если ПустаяСтрока(Номер) Тогда
Сообщить(Нстр("ru = 'Ошибка создания УКТВЭД: Не указан Номер!'; uk = 'Помилка створення ПН: Не зазначений Номер!'"));
Возврат Неопределено;
КонецЕсли;
Номер = СокрЛП(Номер);
// шукаємо вже існуючий запис
НайтиКод = Справочники.КлассификаторУКТВЭД.НайтиПоКоду(Номер, Истина);
Если ЗначениеЗаполнено(НайтиКод) Тогда
Возврат НайтиКод;
КонецЕсли;
Макет = НСИССервер.ПолучитьМакет("КлассификаторУКТВЭД", Справочники.КлассификаторУКТВЭД.ПолучитьМакет("КлассификаторУКТВЭД"));
КлассификаторXML = Макет.ПолучитьТекст();
КлассификаторТаблица = ОбщегоНазначения.ПрочитатьXMLВТаблицу(КлассификаторXML).Данные;
ИскомаяСтрока = КлассификаторТаблица.Найти(Номер);
Если ИскомаяСтрока = Неопределено Тогда
Сообщить(Нстр("ru = 'Ошибка создания УКТВЭД: В классификаторе нет элемента с Кодом = '; uk = 'Помилка створення ПН: У класифікаторі немає елемента із Кодом = '") + Номер);
Возврат Неопределено;
Иначе
Код = ИскомаяСтрока.Code;
Наименование = ИскомаяСтрока.Name;
КонецЕсли;
НовыйЭлемент = Справочники.КлассификаторУКТВЭД.СоздатьЭлемент();
НовыйЭлемент.Код = Код;
НовыйЭлемент.Наименование = Код + "/" + Наименование;
НовыйЭлемент.НаименованиеПолное = Код + "/" + Наименование;
НовыйЭлемент.Вид = Перечисления.ВидыКодовДляНалоговойНакладной.КодТовара;
НовыйЭлемент.Записать();
Сообщить(НСтр("ru = 'Создана запись с Кодом = '; uk = 'Створений запис із Кодом = '") + Код);
Возврат НовыйЭлемент.Ссылка;
КонецФункции
```
