Загрузка данных



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

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