&НаСервере

Процедура ОбновитьИтогСуммы()

Если Параметры.Свойство("Отбор")
И Параметры.Отбор.Свойство("Основание") Тогда

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЕСТЬNULL(СУММА(Оплата.Сумма), 0) КАК Сумма
|ИЗ
| Документ.Оплата КАК Оплата
|ГДЕ
| Оплата.Основание = &Основание";
Запрос.УстановитьПараметр("Основание", Параметры.Отбор.Основание);

ИтоговаяСумма = Запрос.Выполнить().Выгрузить()[0].Сумма;

Иначе
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЕСТЬNULL(СУММА(Оплата.Сумма), 0) КАК Сумма
|ИЗ
| Документ.Оплата КАК Оплата";

ИтоговаяСумма = Запрос.Выполнить().Выгрузить()[0].Сумма;

КонецЕсли;

// Прямая запись текста в подвал колонки
Элементы.Сумма.ТекстПодвала = "Итого: " + Формат(ИтоговаяСумма, "ЧДЦ=2; ЧГ=3,0");

КонецПроцедуры