Отчет по документу перечисление ндфл в бюджет с сортировкой по октмо

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