Запрос.

Перем Расшифровка;
Процедура Сформировать()
	Запрос  = СоздатьОбъект("Запрос");
	
	ТекстЗапроса = 
	"//{{ЗАПРОС(Счета10.11)
	|Период с ВыбНачПериода по ВыбКонПериода;
	|ОбрабатыватьДокументы проведенные;
	|Док =  Документ._АктСписаниеСпецодежды.ТекущийДокумент; 
	|ДатаДок =   Документ._АктСписаниеСпецодежды.ДатаДок;
	|НомерДок =  Документ._АктСписаниеСпецодежды.НомерДок;
	|Склад=      Документ._АктСписаниеСпецодежды.ВыбСотрудник;  
	|Контрагент= Документ._АктСписаниеСпецодежды.Субконто4;
	|Сумма_= Документ._АктСписаниеСпецодежды.НепогашеннаяСтоимость;  
	|СрокИсп= Документ._АктСписаниеСпецодежды.Срок;  
 	|Кол_во =  Документ._АктСписаниеСпецодежды.Количество;
	|Износ_ =  Документ._АктСписаниеСпецодежды.Износ;
	|Остат =  Документ._АктСписаниеСпецодежды.Остаточная;
	|Материал= Документ._АктСписаниеСпецодежды.Материал;  
	|Ном = Документ._АктСписаниеСпецодежды.НомерСтроки;


	|Функция СуммаИ=Сумма(Сумма_); 
	|Функция ИзносИ=Сумма(Износ_); 
	|Функция ОстатИ=Сумма(Остат); 
	

	|Группировка   Склад; 
	|Группировка   ДатаДок;
	|Группировка   Ном; 
	|Группировка   Материал упорядочить по Материал.наименование без Групп;
	|"//}}ЗАПРОС
	;   
	                                  
	                                  
	Если ВыбОтветственный.Выбран()=1 Тогда
		ТекстЗапроса=ТекстЗапроса+
		"Условие (Склад =ВыбОтветственный);"
	КонецЕсли;
	
	Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
		Сообщить("Ошибка при отборе документов ");
		Возврат;
	КонецЕсли;
	Таб=СоздатьОбъект("Таблица");
	Таб.ВывестиСекцию("Шапка");
	Таб.ВывестиСекцию("Шапка1");

	
	Пока Запрос.Группировка(1)=1 Цикл 
		
		Таб.ВывестиСекцию("Поставщик");  
		Пока Запрос.Группировка(2)=1 Цикл  
			Пока Запрос.Группировка(3)=1 Цикл  
			Пока Запрос.Группировка(4)=1 Цикл  
				
				Таб.ВывестиСекцию("Наименование");
				
			КонецЦикла;	
			КонецЦикла;	
		КонецЦикла;	
	КонецЦикла;	
    Таб.ВывестиСекцию("Подвал");
	Таб.ТолькоПросмотр(1);
	Таб.Показать("Справка по ответственому");

	СохранитьЗначение("ЯСоставил",ОтчетСоставил);  

КонецПроцедуры
Процедура ПриОткрытии()
	ВыбНачПериода=НачМесяца(РабочаяДата());
	ВыбКонПериода=КонМесяца(рабочаяДата());

	ОтчетСоставил = ВосстановитьЗначение("ЯСоставил");    
	
КонецПроцедуры