Обработка по абонементской плате

Задача в следующем состоит, имеются договора на абонементское обслуживание в УНФ, у которого за счёт дополнительных реквизитах задаётся срок договора и сумма абонентской платы. Необходимо ежемесечно создавать счета на оплату по тем договорам у которых не закончился срок договора. Вопрос в том как сделать выборку по действенным договорам, нынешний мой код создаёт по всем договорам

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
               |    ДоговорыКонтрагентов.Ссылка КАК ДоговорКонтрагента,
               |    ДоговорыКонтрагентов.ДополнительныеРеквизиты.(
               |        Значение КАК Значение,
               |        Свойство КАК Свойство
               |    ) КАК ДополнительныеРеквизиты,
               |    ДоговорыКонтрагентов.Владелец КАК Контрагент,
               |    ДоговорыКонтрагентов.Наименование
               |ИЗ
               |    Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов";
ВыборкаДоговоров = Запрос.Выполнить().Выбрать();

Пока ВыборкаДоговоров.Следующий() Цикл
    Сообщить("Контрагент: " + ВыборкаДоговоров.ДоговорКонтрагента.Владелец + "; Договор контрагента: " + ВыборкаДоговоров.ДоговорКонтрагента);
    ВыборкаПоДопРеквизитам = ВыборкаДоговоров.ДополнительныеРеквизиты.Выбрать();
    Пока ВыборкаПоДопРеквизитам.Следующий() Цикл
        Сообщить("Свойство: " + ВыборкаПоДопРеквизитам.Свойство + "; Значение: " + ВыборкаПоДопРеквизитам.Значение);
    КонецЦикла;
НовыйДокумент = Документы.СчетНаОплату.СоздатьДокумент();
НовыйДокумент.Дата = ТекущаяДата();

//ДокументОснование = О
НовыйДокумент.Организация             = Справочники.Организации.ОсновнаяОрганизация;
НовыйДокумент.Подразделение             = Справочники.СтруктурныеЕдиницы.ОсновноеПодразделение;
НовыйДокумент.Ответственный             = Справочники.Сотрудники.НайтиПоНаименованию("Рабочий");
НовыйДокумент.Контрагент             = ВыборкаДоговоров.контрагент;
НовыйДокумент.Договор                = ВыборкаДоговоров.ДоговорКонтрагента;

КонецЦикла;