v8: не добавляет строки с номенклатурой

 ПолучитьПодключениеКФайловойБД(СBase);

Соединение=ПолучитьПодключениеКФайловойБД(СBase);



Запрос=СBase.NewObject("Запрос");     //+ Выбираем ТОВАРЫ и ДОКУМЕНТЫ за период

Запрос.Текст=

///////////////////////////

ТЗ = Запрос.Выполнить().Выбрать();



					 

Пока ТЗ.Следующий() Цикл     // получаем значения ТОВАРЫ

									 

 НоменклатураСсылка        =Соединение.String(ТЗ.НоменклатураСсылка);



 НовыйЭлемент = Документы.СписаниеДеталей.СоздатьДокумент();  

НовыйЭлемент.Дата=		Дата1;

НайденнаяДеталь = Справочники.Детали.НайтиПоКоду(НоменклатураКод);

Если НайденнаяДеталь = Справочники.Детали.ПустаяСсылка() ИЛИ НайденнаяДеталь = 0 Тогда   //  новый

					НоваяДеталь = Справочники.Детали.СоздатьЭлемент();			

					НоваяДеталь.Код = НоменклатураКод;

					НоваяДеталь.Наименование = НоменклатураСсылка;

					НоваяДеталь.Родитель = Справочники.Детали.ПустаяСсылка();

					НоваяДеталь.ПометкаУдаления = Ложь;				

					НоваяДеталь.Записать();

Сообщить("Добавили Деталь В Справочник  "+НоменклатураСсылка);

Иначе  

НоваяДеталь=НайденнаяДеталь.ПолучитьОбъект();	

//  НЕ новый

КонецЕсли;



//Сообщить("Нашли Деталь  "+НайденнаяДеталь);



СтрокаДокумента = НовыйЭлемент.Детали.Добавить();

СтрокаДокумента.Деталь= НоваяДеталь.Ссылка;



КонецЦикла; // ТЗ





   НовыйЭлемент.Номер=		"К"+Прав(НомерДок, 10);

Попытка

   НовыйЭлемент.Записать(); //.Записать();

Исключение

   Предупреждение("Не удалось записать объект """ + НовыйЭлемент + """!

				   |" + ОписаниеОшибки(), 60);

 КонецПопытки;

 

 

	НовыйЭлемент.ПолучитьФорму("ФормаДокумента").Открыть();

	НоваяДеталь.Записать();



   

 НовыйЭлемент = Документы.СписаниеДеталей.СоздатьДокумент();  

НовыйЭлемент.Дата=		Дата1;



Пока ТЗ.Следующий() Цикл     // получаем значения ТОВАРЫ

НоменклатураСсылка        =Соединение.String(ТЗ.НоменклатураСсылка);

НайденнаяДеталь = Справочники.Детали.НайтиПоКоду(НоменклатураКод);



Если НайденнаяДеталь .Пустая() Тогда 

					НоваяДеталь = Справочники.Детали.СоздатьЭлемент();			

					НоваяДеталь.Код = НоменклатураКод;

					НоваяДеталь.Наименование = НоменклатураСсылка;

					НоваяДеталь.Родитель = Справочники.Детали.ПустаяСсылка();

					НоваяДеталь.ПометкаУдаления = Ложь;				

					НоваяДеталь.Записать();

Сообщить("Добавили Деталь В Справочник  "+НоменклатураСсылка);

Иначе  

НоваяДеталь=НайденнаяДеталь.ссылка;//  НЕ новый	

КонецЕсли;



СтрокаДокумента = НовыйЭлемент.Детали.Добавить();

СтрокаДокумента.Деталь= НоваяДеталь.Ссылка;



КонецЦикла;