Запрос из модуля менеджера

роцедура АктСписанияТМЦ(ТабДок, Ссылка) Экспорт
	//{{_КОНСТРУКТОР_ПЕЧАТИ(Акт списания ТМЦ)
	
	
	Макет = Документы.РасчетноДефектнаяВедомость.ПолучитьМакет("АктСписанияТМЦ");
	Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ
	|	РасчетноДефектнаяВедомость.Дата,
	|	РасчетноДефектнаяВедомость.КонтейнерныйТерминал,
	|	РасчетноДефектнаяВедомость.Номер,
	|	РасчетноДефектнаяВедомость.ЗатраченныеМатериалы.(
	|		Материалы,
	|		Количество,
	|		Материалы.Цена КАК Цена,
	|		Материалы.ЕдиницаИзмерения.Код КАК ЕдиницаИзмеренияКод,
	|		Материалы.ЕдиницаИзмерения.Наименование КАК ЕдиницаИзмеренияНаименование,
	|		Материалы.НоменклатурныйНомер КАК НоменклатурныйНомер,
	|		РасчетноДефектнаяВедомость.ЗатраченныеМатериалы.Количество * РасчетноДефектнаяВедомость.ЗатраченныеМатериалы.Материалы.Цена КАК Сумма
	|	),
	|	РасчетноДефектнаяВедомость.НомерКонтейнера,
	|	РасчетноДефектнаяВедомость.МатериальноОтвететсвенноеЛицо КАК МатЛицо,
	|	РасчетноДефектнаяВедомость.МатериальноОтвететсвенноеЛицо.Должность КАК МатЛицоДолжность
	|ИЗ
	|	Документ.РасчетноДефектнаяВедомость КАК РасчетноДефектнаяВедомость
	|ГДЕ
	|	РасчетноДефектнаяВедомость.Ссылка В(&Ссылка)
	|	И РасчетноДефектнаяВедомость.ЗатраченныеМатериалы.Использованны = &Истина";
	Запрос.Параметры.Вставить("Ссылка", Ссылка);
	Запрос.Параметры.Вставить("Истина", Истина);

	Выборка = Запрос.Выполнить().Выбрать();

	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
	Шапка = Макет.ПолучитьОбласть("Шапка");
	ОбластьЗатраченныеМатериалыШапка = Макет.ПолучитьОбласть("ЗатраченныеМатериалыШапка");
	ОбластьЗатраченныеМатериалы = Макет.ПолучитьОбласть("ЗатраченныеМатериалы");
	Подвал = Макет.ПолучитьОбласть("Подвал");
	Комиссия = Макет.ПолучитьОбласть("Комиссия");
	МЛицо = Макет.ПолучитьОбласть("МатЛицо");
	

	ТабДок.Очистить();

	ВставлятьРазделительСтраниц = Ложь;
	Пока Выборка.Следующий() Цикл
////////////////////////////////////////////
		КТ = Выборка.КонтейнерныйТерминал;
//////////////////////////////////////////
		Если ВставлятьРазделительСтраниц Тогда
			ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
		КонецЕсли;
		
		ОбластьЗаголовок.Параметры.Заполнить(Выборка);
		ТабДок.Вывести(ОбластьЗаголовок);

		Шапка.Параметры.Заполнить(Выборка);
		ТабДок.Вывести(Шапка, Выборка.Уровень());
///////////////////////////////////////////////////		
	сыль = Ссылка[0].Ссылка;
	Котэ = сыль.КонтейнерныйТерминал;

///////////////////////////////////////////////////////	 
		
		
			
		
		ТабДок.Вывести(ОбластьЗатраченныеМатериалыШапка);
		ВыборкаЗатраченныеМатериалы = Выборка.ЗатраченныеМатериалы.Выбрать();
		Пока ВыборкаЗатраченныеМатериалы.Следующий() Цикл
			ОбластьЗатраченныеМатериалы.Параметры.Заполнить(ВыборкаЗатраченныеМатериалы);
			ТабДок.Вывести(ОбластьЗатраченныеМатериалы, ВыборкаЗатраченныеМатериалы.Уровень());
		КонецЦикла;

	ТабДок.Вывести(Подвал);
	
	
	
			//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
	// Данный фрагмент построен конструктором.
	// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

	Запрос1 = Новый Запрос;
	Запрос1.Текст = 
		"ВЫБРАТЬ
		|	КомиссияСотрудники.Сотрудник КАК КомиссияСотрудник,
		|	КомиссияСотрудники.Должность КАК КомиссияДолжность
		|ИЗ
		|	Документ.Комиссия.Сотрудники КАК КомиссияСотрудники
		|ГДЕ
		|	КомиссияСотрудники.Ссылка.Подразделение = &Подразделение";

	Запрос1.УстановитьПараметр("Подразделение", КТ);

	Результат = Запрос1.Выполнить().Выбрать();

	Пока Результат.Следующий() Цикл
		Комиссия.Параметры.Заполнить(Результат);
		ТабДок.Вывести(Комиссия, Результат.Уровень());

	КонецЦикла;



	
	
//ЧленыКомиссии = ОбщегоНазначения.ПолучитьЧленовКомиссии(КТ);
////		
////		

//		Шапка.Параметры.ЧленыКомиссии = ЧленыКомиссии;

		
		
		
		
		Млицо.Параметры.Заполнить(Выборка);
		ТабДок.Вывести(Млицо, Выборка.Уровень());

		ВставлятьРазделительСтраниц = Истина;
	КонецЦикла;
	//}}
КонецПроцедуры