Просрочка

Здравствуйте,вообщем надо запретить реализацию при просрочке платежа более 30 дней.Сделал запрос на вывод  долга контрагента, а как получить просрочку не пойму.





Запрос = Новый Запрос;
               Запрос.Текст = "ВЫБРАТЬ
                              |              ВзаиморасчетыКомпанииОстатки.ДоговорВзаиморасчетов КАК Договор,
                              |                ВзаиморасчетыКомпанииОстатки.ДоговорВзаиморасчетов.ВалютаВзаиморасчетов.Наименование КАК Валюта,
                              |              СУММА(ВзаиморасчетыКомпанииОстатки.СуммаОстаток) КАК Сумма
                              |ИЗ
                              |              РегистрНакопления.ВзаиморасчетыКомпании.Остатки(&ТекДата, Контрагент = &Контрагент) КАК ВзаиморасчетыКомпанииОстатки
                              |
                              |СГРУППИРОВАТЬ ПО
                              |              ВзаиморасчетыКомпанииОстатки.ДоговорВзаиморасчетов,
                              |                ВзаиморасчетыКомпанииОстатки.ДоговорВзаиморасчетов.ВалютаВзаиморасчетов.Наименование
                              |
                              |УПОРЯДОЧИТЬ ПО
                              |              Договор";
               Запрос.УстановитьПараметр("ТекДата", КонецДня(ТекущаяДата()));
               Запрос.УстановитьПараметр("Контрагент", Контрагент);
               Результат = Запрос.Выполнить().Выбрать();
               Пока Результат.Следующий() Цикл
                              Если Результат.Сумма > 0 Тогда
                                              Предупреждение( "Внимание! Задолженность Контрагента по договору """ + Результат.Договор + """: " + Формат(Результат.Сумма, "ЧДЦ = 2; ЧН = 0,00") + " " + СокрЛП(Результат.Валюта) + Символы.ПС);
                              ИначеЕсли Результат.Сумма < 0 Тогда
                                              Предупреждение( "Внимание! Переплата Контрагента по договору""" + Результат.Договор + """: " + Формат(-Результат.Сумма, "ЧДЦ = 2; ЧН = 0,00") + " " + СокрЛП(Результат.Валюта) + Символы.ПС);
                              КонецЕсли;