- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
ЗапросПоДате = Новый Запрос;
ЗапросПоДате.Текст = "ВЫБРАТЬ
| МАКСИМУМ(НачислениеБонусов.Дата) КАК Дата
|ИЗ
| Документ.НачислениеБонусов КАК НачислениеБонусов
|ГДЕ
| НачислениеБонусов.Контрагент = &Контрагент
| И НачислениеБонусов.Дата < &Дата";
ЗапросПоДате.Параметры.Вставить("Контрагент",ЭтотОбъект.Контрагент);
ЗапросПоДате.Параметры.Вставить("Дата",ЭтотОбъект.Дата);
Результат = ЗапросПодате.Выполнить().Выбрать();
Если Результат.Следующий() Тогда
ДатаПоследнегоНачисления = Результат.Дата;
Иначе
ДатаПоследнегоНачисления = Дата(2000,01,01);
КонецЕсли;
Если ДатаПоследнегоНачисления = Null Тогда
ДатаПоследнегоНачисления = Дата(2000,01,01);
КонецЕсли;