Как посчитать сумму по счетам

Перем ДатаДеноминации;
Процедура Сформировать()

	ТЗ = СоздатьОбъект("ТаблицаЗначений");
	ТЗ.НоваяКолонка("Дата");
	ТЗ.НоваяКолонка("КомуЗаЧто");
	ТЗ.НоваяКолонка("Сумма");
	ТЗ.НоваяКолонка("Счет26_1");
	Если ЦелевоеНазначение.Выбран()=0 Тогда
		Предупреждение("ВЫбрать целевое назначение");
		Возврат;
		СтатусВозврата(0);
		
		
	КонецЕсли;	

	//	
	
	
	Док = СоздатьОбъект("Документ.АвансовыйОтчет");
	Док.ВыбратьДокументы(ДатаНач,ДатаКон);
	
	Пока Док.ПолучитьДокумент() = 1 Цикл
		Если Док.Проведен() = 1 Тогда          
			Если 	(Док.Цель=ЦелевоеНазначение) Тогда	
				Если ((Счет=1)и(Док.ТипОтчета = 1)) 
				или ((Счет=2)и(Док.ТипОтчета = 2))  Тогда
					
					Док.ВыбратьСтроки();
					Пока Док.ПолучитьСтроку() =1 Цикл
						
						ТЗ.НоваяСтрока();
					//	ТЗ.Дата =СокрЛП(Формат(Док.ДатаДок ,"ДММММГГГГ"));
						ТЗ.Дата =СокрЛП(Формат(Док.ДатаДок ,"ДММММГГГГ"));
						ТЗ.КомуЗаЧто = Док.КомуЗаЧто1;  
						ДатаДеноминации = Дата("01.07.2016");
						Если Док.ДатаДок < ДатаДеноминации Тогда
							
						ТЗ.Сумма = Док.Сумма/10000
					Иначе
						ТЗ.Сумма = Док.Сумма;
					КонецЕсли; 
					
						
						
					КонецЦикла;				
				
				КонецЕсли;	
			
			КонецЕсли;	
	
		Иначе
			Продолжить;
		Конецесли;	
	КонецЦикла; 		            
	

   
	Таб = СоздатьОбъект("Таблица");
	Таб.ВывестиСекцию("Шапка"); 
	//
	ТЗ_ИтогПоДню = СоздатьОбъект("ТаблицаЗначений");
	ТЗ_ИтогПоДню.Загрузить(ТЗ);
	ТЗ_ИтогПоДню.Свернуть("Дата", "Сумма");
	//
	//
	ТЗ_ИтогПоКОМУ = СоздатьОбъект("ТаблицаЗначений");
	ТЗ_ИтогПоКому.Загрузить(ТЗ);
	ТЗ_ИтогПоКому.Свернуть("Комузачто", "Сумма");
	//
	Таб.ПрисоединитьСекцию("Шапка_г|Шапка_в");
	ТЗ_ИтогПоКому.ВыбратьСтроки();
	Пока ТЗ_ИтогПоКому.ПолучитьСтроку() = 1 Цикл
		Таб.ПрисоединитьСекцию("Шапка_г|КомуЗаЧто");
	КонецЦикла;  
	Таб.ПрисоединитьСекцию("Шапка_г|ИтогПоДню");
	
	
	 	ТЗ.Свернуть("Дата,Комузачто", "Сумма");
	
	ТЗ_ИтогПоДню.ВыбратьСтроки();
	Пока ТЗ_ИтогПоДню.ПолучитьСтроку() = 1 Цикл
   
		Таб.ВывестиСекцию("Дата|Шапка_в");
		
		ТЗ_ИтогПоКому.ВыбратьСтроки();
		Пока ТЗ_ИтогПоКому.ПолучитьСтроку() = 1 Цикл
			
			ПрТТ = 0;
			
			ТЗ.ВыбратьСтроки();
			Пока ТЗ.ПолучитьСтроку() = 1 Цикл 
				Если (ТЗ.КомуЗаЧто <> ТЗ_ИтогПоКому.КомуЗаЧто)  или
				(ТЗ.Дата <> ТЗ_ИтогПоДню.Дата)  Тогда
					Продолжить;
				Иначе
					Таб.ПрисоединитьСекцию("Дата|КомуЗаЧто");
					ПрТТ = 1;
					Прервать;
				КонецЕсли;
			КонецЦикла; 
			
			Если ПрТТ = 0 Тогда
				Таб.ПрисоединитьСекцию("Дата|Пусто");
			КонецЕсли;                         
			
		КонецЦикла;
		
		Таб.ПрисоединитьСекцию("Дата|ИтогПоДню");
		
	КонецЦикла;
	
	
	Всего = 0;	
	
	Таб.ВывестиСекцию("Итог|Шапка_в");
	ТЗ_ИтогПоКому.ВыбратьСтроки();
	Пока ТЗ_ИтогПоКому.ПолучитьСтроку() = 1 Цикл
		Таб.ПрисоединитьСекцию("Итог|КомуЗаЧто");
		Всего = Всего + ТЗ_ИтогПоКому.Сумма;
	КонецЦикла;  
	Таб.ПрисоединитьСекцию("Итог|ИтогПоДню"); 
	
	Таб.Опции(0,0);
	Таб.Показать("Отчет по кас. аппарату");
	
КонецПроцедуры  
//_______________________
Процедура ПриОткрытии()
	ДатаНач = НачМесяца(ТекущаяДата());
	ДатаКон = КонМесяца(ТекущаяДата());
	Счет=1;
КонецПроцедуры