v8.2 УП: Здравствуйте, помогите решить вот такую проблему: в справочнике Номенклатура

Здравствуйте, помогите решить вот такую проблему: в справочнике "Номенклатура" необходимо заполнить реквизит Бренд (он уже создан) из обработки. Данные в обработку добавляются из Excel.

Заранее спасибо!

Вот текст программы:

Процедура ЗагрузитьБрэнд()

Для Каждого Элемент Из Товары Цикл

СпрНом = Справочники.Номенклатура;

Условие = НоменклатураПоКоду(СокрЛП(Элемент.Штрихкод));

//НоменлСсылка = НоменклатураПоКоду(СокрЛП(Элемент.Штрихкод));

Если(Условие = Неопределено) Тогда

Сообщить("Не найдена номенклатура с кодом: " + Элемент.Штрихкод,СтатусСообщения.ОченьВажное);

Иначе

НоменлОбъект = Условие.ПолучитьОбъект();

НоменлОбъект.Брэнд = Товары.Брэнд;

Попытка

НоменлОбъект.Записать();

Исключение

Сообщить(ОписаниеОшибки());

КонецПопытки;

КонецЕсли;

КонецЦикла;

Попытка

Обработка = Обработки.РегламентныеЗагрузкаНоменклатуры.Создать();

Обработка.ОчиститьУзлыНоменклатуры();

Исключение

КонецПопытки;

Предупреждение("Загружено");

Конецпроцедуры

Процедура ЗагрузитьБрэнд()

Для Каждого Элемент Из Товары Цикл

СпрНом = Справочники.Номенклатура;

Условие = НоменклатураПоКоду(СокрЛП(Элемент.Штрихкод));

//НоменлСсылка = НоменклатураПоКоду(СокрЛП(Элемент.Штрихкод));

Если(Условие = Неопределено) Тогда

Сообщить("Не найдена номенклатура с кодом: " + Элемент.Штрихкод,СтатусСообщения.ОченьВажное);

Иначе

НоменлОбъект = Условие.ПолучитьОбъект();

НоменлОбъект.Брэнд = Товары.Брэнд;

Попытка

НоменлОбъект.Записать();

Исключение

Сообщить(ОписаниеОшибки());

КонецПопытки;

КонецЕсли;

КонецЦикла;

Попытка

Обработка = Обработки.РегламентныеЗагрузкаНоменклатуры.Создать();

Обработка.ОчиститьУзлыНоменклатуры();

Исключение

КонецПопытки;

Предупреждение("Загружено");

 Конецпроцедуры