&НаСервере
Процедура ПриОткрытииНаСервере()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПодпискиПользователейСрезПоследних.Пользователь КАК Пользователь,
| ПодпискиПользователейСрезПоследних.Подписка КАК Подписка,
| ПодпискиПользователейСрезПоследних.ДатаОкончания КАК ДатаОкончания
|ИЗ
| РегистрСведений.ПодпискиПользователей.СрезПоследних КАК ПодпискиПользователейСрезПоследних";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
//Отчет.Подписки.ПодпискиПользователь = ВыборкаДетальныеЗаписи.Пользователь;
//Отчет.Подписки.ПодпискиПодписка= ВыборкаДетальныеЗаписи.Подписка;
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
ПриОткрытииНаСервере();
КонецПроцедуры
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
//Отчет.Подписки.ПодпискиПользователь = ВыборкаДетальныеЗаписи.Пользователь;
//Отчет.Подписки.ПодпискиПодписка= ВыборкаДетальныеЗаписи.Подписка;
КонецЦикла;
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
новаяСтрока = Отчет.Подписки.Добавить();
новаяСтрока. ПодпискиПользователь = ВыборкаДетальныеЗаписи.Пользователь;
новаяСтрока.ПодпискиПодписка= ВыборкаДетальныеЗаписи.Подписка;
КонецЦикла;