Здравствуйте!
Пытаюсь заполнить документ результатом из запроса.
Код 1C v 8.х ПолучитьПодключениеКФайловойБД(СBase);
Соединение=ПолучитьПодключениеКФайловойБД(СBase);
Запрос=СBase.NewObject("Запрос"); //+ Выбираем ТОВАРЫ и ДОКУМЕНТЫ за период
Запрос.Текст=
///////////////////////////
ТЗ = Запрос.Выполнить().Выбрать();
Пока ТЗ.Следующий() Цикл // получаем значения ТОВАРЫ
НоменклатураСсылка =Соединение.String(ТЗ.НоменклатураСсылка);
НовыйЭлемент = Документы.СписаниеДеталей.СоздатьДокумент();
НовыйЭлемент.Дата= Дата1;
НайденнаяДеталь = Справочники.Детали.НайтиПоКоду(НоменклатураКод);
Если НайденнаяДеталь = Справочники.Детали.ПустаяСсылка() ИЛИ НайденнаяДеталь = 0 Тогда // новый
НоваяДеталь = Справочники.Детали.СоздатьЭлемент();
НоваяДеталь.Код = НоменклатураКод;
НоваяДеталь.Наименование = НоменклатураСсылка;
НоваяДеталь.Родитель = Справочники.Детали.ПустаяСсылка();
НоваяДеталь.ПометкаУдаления = Ложь;
НоваяДеталь.Записать();
Сообщить("Добавили Деталь В Справочник "+НоменклатураСсылка);
Иначе
НоваяДеталь=НайденнаяДеталь.ПолучитьОбъект();
// НЕ новый
КонецЕсли;
//Сообщить("Нашли Деталь "+НайденнаяДеталь);
СтрокаДокумента = НовыйЭлемент.Детали.Добавить();
СтрокаДокумента.Деталь= НоваяДеталь.Ссылка;
КонецЦикла; // ТЗ
НовыйЭлемент.Номер= "К"+Прав(НомерДок, 10);
Попытка
НовыйЭлемент.Записать(); //.Записать();
Исключение
Предупреждение("Не удалось записать объект """ + НовыйЭлемент + """!
|" + ОписаниеОшибки(), 60);
КонецПопытки;
НовыйЭлемент.ПолучитьФорму("ФормаДокумента").Открыть();
НоваяДеталь.Записать();
и упорно добавляет одну позицию в табличную часть документа "Детали" и ошибкой номер документа не уникальный.
Разместил: asdfr1