Корректировка вывода данных в печатной форме

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

		Подвал.Параметры.Заполнить(Выборка);
		ТабДок.Вывести(Подвал);
		
		ВставлятьРазделительСтраниц = Истина;
	КонецЦикла;
	//}}
КонецПроцедуры