Что я не так делаю? Набор записей РН не выгружается в ТЗ.
☑
0
Обработка
21.01.21
✎
07:34
Вот код:
ИС_Пятерка = НомераГТДСервер.ПолучитьИсточникПроисхожденияПоУмолчанию();
// РегистрыНакопления.ТоварыОрганизацийБУ.УстановитьИспользованиеИтогов(Ложь);
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ТоварыОрганизацийБУ.Регистратор
|ИЗ
| РегистрНакопления.ТоварыОрганизацийБУ КАК ТоварыОрганизацийБУ
|ГДЕ
| ТоварыОрганизацийБУ.Период > &НачалоПериода
| И ТоварыОрганизацийБУ.ИсточникПроисхождения = ЗНАЧЕНИЕ(Справочник.ИсточникиПроисхождения.ПустаяСсылка)
|СГРУППИРОВАТЬ ПО
| ТоварыОрганизацийБУ.Регистратор";
Запрос.УстановитьПараметр("НачалоПериода", НачалоПериода);
Рег = РегистрыНакопления.ТоварыОрганизацийБУ;
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
ОбработкаПрерыванияПользователя();
Сообщить(Выборка.Регистратор);
Рег = РегистрыНакопления.ТоварыОрганизацийБУ;
НаборЗаписей = Рег.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Значение = Выборка.Регистратор;
ТЗ = НаборЗаписей.Выгрузить();
Для Каждого стр из ТЗ Цикл
Если Стр.ИсточникПроисхождения = Справочники.ИсточникиПроисхождения.ПустаяСсылка() Тогда
Стр.ИсточникПроисхождения = ИС_Пятерка;
КонецЕсли;
КонецЦикла;
НаборЗаписей.Очистить();
НаборЗаписей.Загрузить(ТЗ);
НаборЗаписей.Записать();
прервать;
КонецЦикла;
// РегистрыНакопления.ТоварыОрганизацийБУ.УстановитьИспользованиеИтогов(Истина);
1
ДенисЧ
21.01.21
✎
07:35
.Прочитать()
2
Обработка
21.01.21
✎
07:42
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой