Есть такой код по заведению номенклатуры из файла


стр2= справочники.Номенклатура.СоздатьЭлемент();
   стр2.Наименование=сокрлп(лист.cells(й,5).value);
   стр2.НаименованиеПолное=сокрлп(лист.cells(й,19).value);
   стр2.БазоваяЕдиницаИзмерения=справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду("796");


   Если   (группы[число(лист.cells(й,1).value)-1].наименование="Услуги") или (группы[число(лист.cells(й,1).value)-1].наименование="УСЛУГИ ПО АВТОМАТИЗАЦИИ") или  (группы[число(лист.cells(й,1).value)-1].наименование="Техническое обслуживание") тогда
   стр2.ВидНоменклатуры=справочники.ВидыНоменклатуры.НайтиПоКоду("000000002");
   Иначе
   стр2.ВидНоменклатуры=справочники.ВидыНоменклатуры.НайтиПоКоду("000000001");    
   Конецесли;
   стр2.Артикул=сокрлп(лист.cells(й,8).value);
   стр2.СтавкаНДС=перечисления.СтавкиНДС.НДС18;
   стр2.Комментарий=сокрлп(лист.cells(й,13).value);
   Если число(лист.cells(й,1).value)>1 тогда
       стр2.Родитель=группы[число(лист.cells(й,1).value)-1];
   конецесли;    

      стр2.Записать();
   едхран= справочники.ЕдиницыИзмерения.СоздатьЭлемент();
      едхран.Владелец=стр2.Ссылка;
      едхран.Коэффициент=1;
      едхран.Наименование="шт";
      едхран.Записать();
    стр2.ЕдиницаХраненияОстатков=едхран;
   
      едотч= справочники.ЕдиницыИзмерения.СоздатьЭлемент();
      едотч.Владелец=стр2.Ссылка;
      едотч.Наименование="шт";
      едотч.Коэффициент=1;
      едотч.Записать();
   стр2.ЕдиницаДляОтчетов = едотч;
      стр2.Записать();

В конце по идее должны заполнится реквизиты ЕдиницаДляОтчетов и ЕдиницаХраненияОстатков. Но они не заполняются, реквизиты остаются пустыми после заполнения. Что может быть не так или как эту простую на первый взгляд задачу решить иначе?

всё уже написано по загрузке из экселя

(1)
проблема не с екселем, а с реквизитами

(0) стр2.ЕдиницаХраненияОстатков=едхран.Ссыла;

(0) стр2.ЕдиницаДляОтчетов = едотч.Ссылка;

(3,4)
да, действительно, спасибо