Программное создание номенклатуры

            Товар = Справочники.Номенклатура.СоздатьЭлемент();
            Товар.ОбработкаЗаполнения("");
            Товар.УстановитьНовыйКод();
            Товар.Артикул = Код;         
            Товар.Наименование = RS.Fields("name").Value;
            Товар.ТипНоменклатуры = Справочники.ТипыНоменклатуры.Штучный;
            Товар.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Товар;
            Товар.ЯчейкаХранения = RS.Fields("adrr").Value;
            Товар.БазоваяЕдиницаИзмерения = Справочники.ТипыНоменклатуры.Штучный.ОсновнаяБазоваяЕдиницаИзмерения;
            Товар.ОсновнаяЕдиницаИзмерения = Товар.БазоваяЕдиницаИзмерения;
            Если RS.Fields("acc").Value Тогда
               Товар.Родитель = АКК;
            ИначеЕсли RS.Fields("gsm").Value Тогда
               Товар.Родитель = ГСМ;
            ИначеЕсли RS.Fields("mbp").Value Тогда
               Товар.Родитель = МБП;
            КонецЕсли;
            Товар.Комментарий = "Загружено из Авто";
            Попытка
               Товар.Записать();                
            Исключение
               Сообщить(ОписаниеОшибки());
               RS.MoveNext(); 
               Продолжить;
            КонецПопытки;         
         КонецЕсли;
         Если RS.Fields("kolvo").Value <=0 Тогда
            RS.MoveNext(); 
            Продолжить;
         КонецЕсли;   
//пробовал писать сразу же до записи элемента, на всякий случай решил после записи установить и ещё раз записать
         Товар.ОсновнаяЕдиницаИзмерения = Справочники.ТипыНоменклатуры.Штучный.ОсновнаяБазоваяЕдиницаИзмерения;
         Товар.Записать();