Ввод дисконтных карт

Люди помогите. есть код:

СпрВидыДисконтныхКарт = Справочники.ВидыДисконтныхКарт;

Спр = Справочники.ИнформационныеКарты.СоздатьЭлемент();
//получаем ссылку на вновь созданный элемент справочника Информационные карты (он еще не записан)
НоваяСсылка = Справочники.ИнформационныеКарты.ПолучитьСсылку();
Спр.УстановитьСсылкуНового(НоваяСсылка);
НоваяСсылка = Спр.ПолучитьСсылкуНового();

ЗаписьШтрихкода = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();
ЗаписьШтрихкода.Владелец = НоваяСсылка;
ЗаписьШтрихкода.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;
ЗаписьШтрихкода.Штрихкод = ШтрихКодКарты;
ЗаписьШтрихкода.Записать(Истина);

Спр.Наименование = ФИОКлиента;
Спр.КодКарты = ШтрихКодКарты;
Спр.ВладелецКарты = ФИОКлиента;
Спр.ВидКарты = Перечисления.ВидыИнформационныхКарт.Штриховая;
Спр.ТипКарты = Перечисления.ТипыИнформационныхКарт.Дисконтная;
Спр.ТипШтрихКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;
Спр.ВидДисконтнойКарты = СпрВидыДисконтныхКарт.НайтиПоКоду("000000001"); // код скидки 2% - 000000008

Спр.Записать();

не пойму в регистр штрихкод карты не записывается и в дисонте тоже