запрос

gistfile1.txt

&НаКлиенте
Процедура ВыполнитьЗапрос8_3(Команда)
	ВыполнитьЗапрос8_3НаСервере();
КонецПроцедуры

&НаСервере
Процедура ВыполнитьЗапрос8_3НаСервере()
		
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	ПоступлениеТоваровТовары.Ссылка.Контрагент КАК Контрагент,
		|	ПоступлениеТоваровТовары.Номенклатура КАК Номенклатура,
		|	СУММА(ПоступлениеТоваровТовары.Сумма) КАК Сумма
		|ИЗ
		|	Документ.ПоступлениеТоваров.Товары КАК ПоступлениеТоваровТовары
		|
		|СГРУППИРОВАТЬ ПО
		|	ПоступлениеТоваровТовары.Ссылка.Контрагент,
		|	ПоступлениеТоваровТовары.Номенклатура
		|ИТОГИ
		|	СУММА(Сумма)
		|ПО
		|	Контрагент ИЕРАРХИЯ";
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаКонтрагент = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
	
	
	Макет = Обработки.РешениеЗадачи8.ПолучитьМакет("Макет");
	ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
	ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
	ОбластьИтогКонтрагент = Макет.ПолучитьОбласть("ИтогКонтрагент");
	ОбластьСтроки = Макет.ПолучитьОбласть("Строки");
	
	ТабДок.Очистить();
	ТабДок.Вывести(ОбластьШапка);
	ТабДок.Вывести(ОбластьШапкаТаблицы);
	
	
	
	Пока ВыборкаКонтрагент.Следующий() Цикл
		
		ЗаполнитьЗначенияСвойств(ОбластьИтогКонтрагент.Параметры, ВыборкаКонтрагент);
		ТабДок.Вывести(ОбластьИтогКонтрагент);	
		ВыборкаДетальныеЗаписи = ВыборкаКонтрагент.Выбрать();
	
		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
			ЗаполнитьЗначенияСвойств(ОбластьСтроки.Параметры, ВыборкаДетальныеЗаписи);
			ТабДок.Вывести(ОбластьСтроки);
		КонецЦикла;
	КонецЦикла;
	
	
	
	
КонецПроцедуры