Регистр сведений подчиненный регистратору

i=0;
sum=0;//счтиваем общее количество созданных карточек
ФайлExcel="C:\Users\корт\Documents\себестоиомсть\yt10_TOS.xlsx"
ТЗ = ИзExcelВТаблицу(ФайлExcel,1,Истина);

ТЗ.Колонки.Добавить("Код11",Новый ОписаниеТипов("Строка", , Новый КвалификаторыСтроки(11, ДопустимаяДлина.Фиксированная));
ТЗ.Колонки.Добавить("Себест",Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(15, 2, ДопустимыйЗнак.Любой)));
ТЗ.Колонки.Добавить("Колво",Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(15, 3, ДопустимыйЗнак.Любой)));

//Вот это по идее сразу нужно делать в ИзExcelВТаблицу 
Стр0="00000000000";
Для Каждого Стр Из ТЗ Цикл //таблица копий
	Стр.Себест=Число(СтрЗаменить(Стр.Стоимость,Символы.НПП,""));
	Стр.Колво=Число(Стр.Количество);
	КодН=СокрЛП(СтрЗаменить(Стр.код,Символы.НПП,""));
	Стр.Код11=Лев(Стр0,11-СтрДлина(КодН))+КодН;
КонецЦикла;

ТЗ.Колонки.Удалить("Стоимость");
ТЗ.Колонки.Удалить("Количество");
ТЗ.Колонки.Удалить("код");

РегистрУС=Документы.УстановкаСебестоимости.НайтиПоНомеру("РР-00000011",текущаядата());
РегистрТЦ=Документы.УстановкаСебестоимости.НайтиПоНомеру("РР-00000012",текущаядата());
Родитель=Справочники.Номенклатура.НайтиПоНаименованию("TS Ювелирные изделия",Истина);
Магазин=Справочники.Магазины.НайтиПоНаименованию("TOUS");
//Тут бы по уму проверку, что все это нашлось

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|	ТЗ.Код11 КАК Код,
|	ТЗ.Себест КАК Себест,
|	ТЗ.Колво КАК Колво
|ПОМЕСТИТЬ ТЗ
|ИЗ &ТЗ КАК ТЗ
|;
|ВЫБРАТЬ
|	ISNULL(СпрНоменклатура.Ссылка,ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка) КАК Номенклатура,
|   ВЫРАЗИТЬ(ТЗ.Себест/ТЗ.Колво КАК (Число(15,2)) КАК НоваяЦена,
|   ВЫБОР
|		КОГДА СпрНоменклатура.Ссылка IS NULL ТОГДА 0
|	ИНАЧЕ ISNULL(СебестоимостьНоменклатурыСрезПоследних.Цена,0)
|	КОНЕЦ КАК Цена
|ИЗ ТЗ КАК ТЗ
|ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Номенклатура КАК СпрНоменклатура
|	ПО СпрНоменклатура.Код = ТЗ.Код,
|	И СпрНоменклатура.Родитель = &Родитель
|ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СебестоимостьНоменклатуры.СрезПоследних(, Регистратор = &Регистратор) КАК СебНомСрезПоследних
|	ПО СебНомСрезПоследних.Номенклатура = ISNULL(СпрНоменклатура.Ссылка,ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)	
|";

Запрос.УстановитьПараметр("ТЗ", ТЗ);
Запрос.УстановитьПараметр("РегистрУС", РегистрУС);
Запрос.УстановитьПараметр("Родитель",Родитель);
Выборка = Запрос.Выполнить().Выбрать();

НаборЗаписей = РегистрыСведений.СебестоимостьНоменклатуры.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Установить(РегистрТЦ);

Пока Выборка.Следующий() Цикл
	
	Если ЗначениеЗаполнено(Выборка.Номенклатура) Тогда
		
		Если Выборка.Цена=0 ИЛИ Макс(Выборка.Цена-Выборка.НоваяЦена,Выборка.НоваяЦена-Выборка.Цена)>0.01 Тогда
			
			НоваяЗапись = НаборЗаписей.Добавить();
			
			НоваяЗапись.Период = РегистрТЦ.Дата;// +(сч)так как врегистр не записываются одинаковые строки в одно время
			НоваяЗапись.Регистратор =РегистрТЦ;
			НоваяЗапись.Магазин=Магазин;
			НоваяЗапись.Номенклатура=Выборка.Номенклатура;
			НоваяЗапись.Активность=Истина;
			НоваяЗапись.Цена =Выборка.НоваяЦена ;//ЦенаХ из ексел ут 10
			
			Если Не Выборка.Цена=0 ТОгда
				Сообщить("Записано в регистр:"+Выборка.Номенклатура+" себестоимость:"+Выборка.НоваяЦена);
			иначе
				Сообщить("Записано в регистр:"+Выборка.Номенклатура+" себестоимость:"+Выборка.НоваяЦена+" была себес:"+Выборка.Цена);
			КонецЕсли;
			
			i=i+1;
			
		КонецЕсли;
		
	КонецЕсли;
	
КонецЦикла;

Попытка
	НаборЗаписей.Записать();
Исключение
	сообщить("Ошибка записи в регистр");
КонецПопытки;