Процедура Сформировать(Ручн= 0 )  
	Если Счет.Выбран() =  0  Тогда
		Предупреждение("Не указан счет!");
		Возврат;
	КонецЕсли;

	Если глПроверкаПериода(Дата1,Дата2) =  0  Тогда
		Возврат;
	КонецЕсли;

	Если глИспользуетсяРазделительУчета =  1  Тогда
		НФ = РазделительУчета;
	Иначе
		НФ = Константа.БазФирма;
	КонецЕсли;

	Если Ручн= 1  Тогда
	    СохранитьЗначение("ОтчРабСчет",Счет);
	КонецЕсли;

	ВидСубконто[ 1 ] = ВыбВидСубконто1;
	Субконто[ 1 ] = Субконто1; ОтборСубконто[ 1 ] = ?(ВидСубконто[ 1 ].Выбран()= 1 , ОтборСубконто1.ТекущаяСтрока(),  3 );
	ПоГруппам[ 1 ] = ПоГруппам1; 
	Номер[ 1 ] =  1 ;                                                                                                       
	
	ВидСубконто[ 2 ] = ВыбВидСубконто2; 
	Субконто[ 2 ] = Субконто2; ОтборСубконто[ 2 ] = ?(ВидСубконто[ 2 ].Выбран()= 1 , ОтборСубконто2.ТекущаяСтрока(),  3 ); 
	ПоГруппам[ 2 ] = ПоГруппам2; 
	Номер[ 2 ] =  2 ;                                                                                                       
	
	ВидСубконто[ 3 ] = ВыбВидСубконто3; 
	Субконто[ 3 ] = Субконто3; ОтборСубконто[ 3 ] = ?(ВидСубконто[ 3 ].Выбран()= 1 , ОтборСубконто3.ТекущаяСтрока(),  3 ); 
	ПоГруппам[ 3 ] = ПоГруппам3; 
	Номер[ 3 ] =  3 ;                     
	
	Если ОтборСубконто[ 1 ] > ОтборСубконто[ 2 ] Тогда
		Поменять( 1 ,  2 );
	КонецЕсли;
	Если ОтборСубконто[ 2 ] > ОтборСубконто[ 3 ] Тогда
		Поменять( 2 ,  3 );
		Если ОтборСубконто[ 1 ] > ОтборСубконто[ 2 ] Тогда
			Поменять( 1 ,  2 );
		КонецЕсли;

		...
	КонецЕсли;

		...

	ФлВал=Счет.Валютный;
	
	//!!! Зачем создается этот СписокЗначений я вообще не понимаю, 
	//!!! т.к. в него добавляется куча элементов, но они нигде не используются, 
	//!!!! т.е. значения добавляются впустую
   	Расшифровка = СоздатьОбъект("СписокЗначений");
    Ит = СоздатьОбъект("БухгалтерскиеИтоги");

    Ит.ИспользоватьРазделительУчета(РазделительУчета);
	КолПоСчету =  0 ;
    Заголовок1 = "";
    Для А= 1  По  3  Цикл
		Если ОтборСубконто[А] <>  3  Тогда
		    Ит.ИспользоватьСубконто(ВидСубконто[А], Субконто[А], ОтборСубконто[А], ПоГруппам[А]);
		    Если А <>  1  Тогда
		    	Заголовок1 = Заголовок1+"; ";
		    КонецЕсли;
		    Заголовок1 = Заголовок1+глУкр(ВидСубконто[А]);
		    Если ОтборСубконто[А] =  2  Тогда
		    	Заголовок1 = Заголовок1+":"+Субконто[А];
				КолПоСчету =  1 ;
		    КонецЕсли;
		КонецЕсли;
	КонецЦикла;
                          
	Ит.ВключатьСубсчета(ДанныеПоСубсчетам);
	Если Ит.ВыполнитьЗапрос(Дата1, Дата2, Счет) =  0  Тогда
		Возврат;
	КонецЕсли;

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

	Расшифровка.Установить("Отчет", "ОборотноСальдоваяВедомостьПоСчету");
    Расшифровка.Установить("РазделительУчета", РазделительУчета);
   	Расшифровка.Установить("Дата1", Дата1);
   	Расшифровка.Установить("Дата2", Дата2);
   	Расшифровка.Установить("Счет", Счет);
   	Расшифровка.Установить("ДанныеПоСубсчетам", ДанныеПоСубсчетам);
    Для А= 1  По  3  Цикл
   		Расшифровка.Установить("ВидСубконто"+Номер[А], ВидСубконто[А]);
   		Расшифровка.Установить("Субконто"+Номер[А], Субконто[А]);
   		Расшифровка.Установить("ОтборСубконто"+Номер[А], ОтборСубконто[А]);
   		Расшифровка.Установить("ПоГруппам"+Номер[А], ПоГруппам[А]);
	КонецЦикла;

    Т.ВывестиСекцию("Секция_12");
    Т.ВывестиСекцию("Секция_1");


    //!!! это вообще апофигей - добавляли-добавляли, потом взяли и просто очистили список

    Расшифровка.УдалитьВсе();
   	Расшифровка.Установить("Отчет", "КарточкаСчета");
    Расшифровка.Установить("РазделительУчета", РазделительУчета);
   	Расшифровка.Установить("Дата1", Дата1);
   	Расшифровка.Установить("Дата2", Дата2);
   	Расшифровка.Установить("Счет", Счет);

    Для А= 1  По  3  Цикл
		Если ОтборСубконто[А] <>  3  Тогда
			Расшифровка.Установить("ВидСубконто"+Номер[А], ВидСубконто[А]);
			Если ОтборСубконто[А] =  2  Тогда
				Расшифровка.Установить("ОтборСубконто"+Номер[А], Субконто[А]);
				Расшифровка.Установить("Субконто"+Номер[А], Субконто[А]);
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
	
	Если ДанныеПоСубсчетам =  1  Тогда
		Ит.ВыбратьСчета();
		Ит.ПолучитьСчет();
		Пока Ит.ПолучитьСчет() =  1  Цикл
		   	Расшифровка.Установить("Счет", Ит.Счет);
			Т.ВывестиСекцию("Секция_14");
			Если КолПоСчету =  1  Тогда
				Т.ВывестиСекцию("Секция_15");
			КонецЕсли;
	        Если ФлВал =  1  Тогда
	            Ит.ВыбратьВалюты();
	            Пока Ит.ПолучитьВалюту()= 1  Цикл
				   	Расшифровка.Установить("Валюта",Ит.Валюта);
				   	Расшифровка.Установить("ПоВалюте", 1 );
		            Т.ВывестиСекцию("Секция_16");
	            КонецЦикла;
			   	Расшифровка.Установить("Валюта");
				Расшифровка.Установить("ПоВалюте");
			КонецЕсли;
			ПоСубконто(Ит, Т, ФлВал);
		   	Расшифровка.Установить("Отчет", "КарточкаСчета");
		КонецЦикла;
	Иначе
		ПоСубконто(Ит, Т, ФлВал);
	КонецЕсли;

	Если КолПоСчету =  0  Тогда
		Если ОтборСубконто[ 1 ] <>  3  Тогда
			Т.ВывестиСекцию("Секция_8");
		Иначе
	    	Т.ВывестиСекцию("Секция_17");
		КонецЕсли;
	Иначе
		Если ОтборСубконто[ 1 ] <>  3  Тогда
			Т.ВывестиСекцию("Секция_13");
		Иначе
			Т.ВывестиСекцию("Секция_18");
		КонецЕсли;
	КонецЕсли;
    Ит =  0 ;
    Т.ТолькоПросмотр( 1 );
    Т.Опции( 0 ,  0 ,  7 ,  1 , "ОпцииПечатиОСВПоСчету", "ОСВПоСчету");
	Т.ОбластьПечати( 2 );
    Т.Показать("Оборотно-сальдовая ведомость по счету: "+Счет+" ("+ПериодСтр(Дата1, Дата2)+?(ТипЗначения(РазделительУчета)= 0 , "", " "+РазделительУчета)+")", "");
    Если Закрыть =  1  Тогда
    	СтрокаДействийФормы = "#Закрыть";
    КонецЕсли;
КонецПроцедуры