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