Перем Расшифровка;

//**************************************

Процедура Сформировать()
	Таб = СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("Таблица");
	Ит = СоздатьОбъект("БухгалтерскиеИтоги");
	Ит.ИспользоватьСубконто(ВидыСубконто.Договоры,, 1);
	Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1);
	Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "76.5,62.1",,, 1,, "С");
	Таб.ВывестиСекцию("Шапка");
	Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
                    
	ИтВсегоДт=0;
	ИтВсегоКт=0;  
	ИтВсегоСН=0;
	ИтВсегоСК=0;
	
  	Расшифровка = СоздатьОбъект("СписокЗначений");

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

		Ит.ВыбратьСубконто(ВидыСубконто.Договоры);
		Пока Ит.ПолучитьСубконто(ВидыСубконто.Договоры) = 1 Цикл

			
			Если Ит.Субконто(ВидыСубконто.Договоры).Собственник=СпрСоб.ТекущийЭлемент() Тогда
				   
				ТЗ.НоваяСтрока();
				
				ТЗ.Контр=Ит.Субконто(ВидыСубконто.Контрагенты);   
				ТЗ.Дог=Ит.Субконто(ВидыСубконто.Договоры);
				ТЗ.СН=Ит.СНД()-Ит.СНК();
				ТЗ.ДО=Ит.ДО();
				ТЗ.КО=Ит.КО();  
				ТЗ.СК=Ит.СКД()-Ит.СКК();       
				ТЗ.ТекИт=Ит;
				
				ИтГруппыДт=ИтГруппыДт+Ит.ДО();
				ИтГруппыКт=ИтГруппыКт+Ит.КО(); 
				ИтГруппыСН=ИтГруппыСН+Ит.СНД()-Ит.СНК(); 
				ИтГруппыСК=ИтГруппыСК+Ит.СКД()-Ит.СКК();
				                            
			КонецЕсли;	
			
		КонецЦикла;	
                
		
		ТЗ.Сортировать("Контр");
         
		Если ТЗ.КоличествоСтрок()>0 Тогда

        	ТЗ.ВыбратьСтроки();
			
			Пока ТЗ.ПолучитьСтроку()=1 Цикл
				        
				сч=сч+1;
				
			    Расшифровка.УдалитьВсе();
			   	Расшифровка.Установить("Отчет", "КарточкаСчета");
			   	Расшифровка.Установить("Дата1", ВыбНачПериода);
			   	Расшифровка.Установить("Дата2", ВыбКонПериода);
			   	Расшифровка.Установить("Счет", СчетПоКоду("76.5"));
			   	Расшифровка.Установить("ВидСубконто1",ВидыСубконто.Контрагенты);
			   	Расшифровка.Установить("ВидСубконто2",ВидыСубконто.Договоры);
			   	Расшифровка.Установить("Субконто1", ТЗ.Контр);
			   	Расшифровка.Установить("Субконто2", ТЗ.Дог);   
			   	Расшифровка.Установить("ОтборСубконто1", 2);
			   	Расшифровка.Установить("ОтборСубконто2", 2);
				
				Таб.ВывестиСекцию("Строка");
				
			КонецЦикла;	
			
		КонецЕсли;	
		
		


		Таб.ВывестиСекцию("ИтГруппы");  
		
		ИтВсегоДт=ИтВсегоДт+ИтГруппыДт; 
		ИтВсегоКт=ИтВсегоКт+ИтГруппыКт;      
		ИтВсегоСН=ИтВсегоСН+ИтГруппыСН;
		ИтВсегоСК=ИтВсегоСК+ИтГруппыСК;
	
	КонецЦикла;
	
	Таб.ВывестиСекцию("Подвал");
	
	Таб.ТолькоПросмотр(1);
	Таб.Показать("Сформировать","");
КонецПроцедуры


Процедура ПриОткрытии()


	ВыбНачПериода = НачалоПериодаБИ();
	ВыбКонПериода = КонецПериодаБИ();


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