&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
ЗаполнитьИтоги();
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьИтоги()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СУММА(БалансОстатки.СуммаОстаток) КАК СуммаОстаток
|ИЗ
| РегистрНакопления.Баланс.Остатки КАК БалансОстатки";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Элементы.ИтогоБаланс.Заголовок = "Баланс:" + строка(ВыборкаДетальныеЗаписи.СуммаОстаток);
КонецЦикла;
//}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СУММА(РасходыОбороты.СуммаОборот) КАК СуммаОборот
|ИЗ
| РегистрНакопления.Расходы.Обороты(&НачалоПериода, &КонецПериода, , ) КАК РасходыОбороты";
Запрос.УстановитьПараметр("КонецПериода", КонецМесяца (ТекущаяДата()));
Запрос.УстановитьПараметр("НачалоПериода", НачалоМесяца(ТекущаяДата()));
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Элементы.ИтогоРасходов.Заголовок = "За " + Формат(ТекущаяДата(), "ДФ=ММММ")+ ": " + Строка(ВыборкаДетальныеЗаписи.СуммаОборот);
КонецЦикла;
//}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СУММА(ДоходыОбороты.СуммаОборот) КАК СуммаОборот
|ИЗ
| РегистрНакопления.Доходы.Обороты(&НачалоПериода, &КонецПериода, , ) КАК ДоходыОбороты";
Запрос.УстановитьПараметр("КонецПериода", КонецМесяца(ТекущаяДата()));
Запрос.УстановитьПараметр("НачалоПериода", НачалоМесяца(ТекущаяДата()));
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Элементы.ИтогоДоходов.Заголовок = "За " + Формат(ТекущаяДата(), "ДФ=ММММ")+ ": " + Строка(ВыборкаДетальныеЗаписи.СуммаОборот);
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура ДобавитьРасходНажатие(Элемент)
ОткрытьФорму("Документ.Расход.Форма.ФормаДокумента");
КонецПроцедуры
&НаКлиенте
Процедура ДобавитьДоходНажатие(Элемент)
ОткрытьФорму("Документ.Доход.Форма.ФормаДокумента");
КонецПроцедуры