Содание Штрихкода. Помогите найти ошибку.

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

ШК = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();
ШК.Владелец = справ1об.Ссылка;
ШК.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;
ШК.Штрихкод = Элемент.Область(НомерСтроки,НомерКолонки).текст;
ШК.Качество = Справочники.Качество.Новый;
ШК.Код=ПолучитьНовыйКодДляРегистраСведений("Штрихкоды");
//----------------------------------ед изм ШК
запрос1=новый запрос;
запрос1.Текст="ВЫБРАТЬ
| ЕдиницыИзмерения.Код
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ЕдиницыИзмерения КАК ЕдиницыИзмерения
| ПО Номенклатура.Ссылка = ЕдиницыИзмерения.Владелец
|ГДЕ
| ЕдиницыИзмерения.Владелец = &владелецедизм
| И ЕдиницыИзмерения.ЕдиницаПоКлассификатору.Наименование = &наимкласс";
Запрос1.УстановитьПараметр("владелецедизм",справ1об.Ссылка);
Запрос1.УстановитьПараметр("наимкласс",Элемент.Область(НомерСтроки,4+НомерКолонки).текст);
Результат = Запрос1.Выполнить();
выгрузкарез = Результат.Выгрузить();
СправЕдиницИмеренияСсылка=справочники.ЕдиницыИзмерения.НайтиПоКоду(выгрузкарез[0].код);
ШК.ХарактеристикаНоменклатуры= СправЕдиницИмеренияСсылка;
сообщить(СправЕдиницИмеренияСсылка.код);

//----------------------------------
ШК.Записать();