0
aleks_p99
09.02.17
✎
12:52
|
Здравствуйте. Необходимо заполнить таблицу перерасчета при перезаписи регистра сведения. Написал следующую процедуру, однако таблица пуста. проверял запрос в консоли работает.
&НаСервереБезКонтекста
Процедура ПередЗаписьюНаСервере()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| РегистрРасчетаНачислениеУслуг.ЛицевойСчета,
| РегистрРасчетаНачислениеУслуг.ТарифН,
| РегистрРасчетаНачислениеУслуг.Регистратор
|ИЗ
| РегистрРасчета.РегистрРасчетаНачислениеУслуг КАК РегистрРасчетаНачислениеУслуг
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Константы.СрезПоследних КАК КонстантыСрезПоследних
| ПО (КонстантыСрезПоследних.Константа = РегистрРасчетаНачислениеУслуг.ТарифН)
|ГДЕ
| РегистрРасчетаНачислениеУслуг.Регистратор.Дата >= КонстантыСрезПоследних.Период";
РезультатЗапроса = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Перерасчет = РегистрыРасчета.РегистрРасчетаНачислениеУслуг.Перерасчеты.ПерерасчетНачислениеУслуг;
Пока РезультатЗапроса.Следующий() Цикл
НаборЗаписей = Перерасчет.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.ОбъектПерерасчета.Значение = РезультатЗапроса.Регистратор;
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
Запись = НаборЗаписей.Добавить();
Запись.ЛицевойСчета = Выборка.ЛицевойСчета;
Запись.ТарифН = Выборка.ТарифН;
КонецЦикла;
НаборЗаписей.Записать(Ложь);
КонецЦикла;
КонецПроцедуры
|
|