//*******************************************
Процедура Сформировать()
	Куча = СоздатьОбъект("ТаблицаЗначений");
	Куча.НоваяКолонка("Контрагент", "Справочник.Контрагенты");
	Куча.НоваяКолонка("Дата", "Дата");
	Куча.НоваяКолонка("Кво"	, "Число",15,4);

	БухИтоги = СоздатьОбъект("БухгалтерскиеИтоги");
	БухИтоги.ИспользоватьСубконто(ВидыСубконто.ТМЦ, , 1);
	//	БухИтоги.ИспользоватьКорСубконто(ВидыСубконто.Контрагенты, ВыбКонтр, 3);
	БухИтоги.ИспользоватьКорСубконто(,,1);
	БухИтоги.ИспользоватьКорСубконто(,,1);
	БухИтоги.ИспользоватьКорСубконто(,,1);
	БухИтоги.ВыполнитьЗапрос(НачДата, КонДата, ВыбСчет,,,3,"Операция",5);

	БухИтоги.ВыбратьСубконто(1);
	Пока БухИтоги.ПолучитьСубконто(1) = 1 цикл

		ДебКво = БухИтоги.СКД(3);
		КредКво = БухИтоги.СКК(3);
		ДебСумм = БухИтоги.СКД(1);
		КредСумм = БухИтоги.СКК(1);
		Если ДебКво > 0 Тогда
			Сообщить(БухИтоги.Субконто(1)+"; "+ДебКво+"; сумм:"+ДебСумм);
			БухИтоги.ВыбратьПериоды();
			Пока БухИтоги.ПолучитьПериод() = 1 цикл
				БухИтоги.ВыбратьКорСчета();
				Пока БухИтоги.ПолучитьКорСчет() = 1 Цикл
					Сообщить("|--счет"+БухИтоги.КорСчет+"; движение: +"+БухИтоги.ДО(3)+" -"+БухИтоги.КО(3));
					БухИтоги.ВыбратьКорСубконто(1);
					Пока БухИтоги.ПолучитьКорСубконто(1) = 1 Цикл
						БухИтоги.ВыбратьКорСубконто(2);
						Пока БухИтоги.ПолучитьКорСубконто(2) = 1 Цикл
							БухИтоги.ВыбратьКорСубконто(3);
							Пока БухИтоги.ПолучитьКорСубконто(3) = 1 Цикл
								Сообщить("|------субконто"+БухИтоги.КорСубконто(1));
								Сообщить("|------субконто"+БухИтоги.КорСубконто(2));
								Сообщить("|------субконто"+БухИтоги.КорСубконто(3));
							КонецЦикла;
						КонецЦикла;
					КонецЦикла;
				КонецЦикла;
			КонецЦикла;
		КонецЕсли

	КонецЦикла;



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

Процедура ПриЗакрытии()
	ОчиститьОкноСообщений();
КонецПроцедуры