Помогите разобраться с макетом.

Функция Печать() Экспорт
Дата = СсылкаНаОбъект.Дата;
Организация = СсылкаНаОбъект.Организация;
СкладПолучатель = СсылкаНаОбъект.СкладПолучатель;
Склад = СсылкаНаОбъект.Склад;
ВалютаЗапроса = мВалютаРегламентированногоУчета;
ВалютаПечати = Константы.ВалютаРегламентированногоУчета.Получить();

Если мУчетВПродажныхЦенах = Неопределено Тогда
УчетнаяПолитикаНеЗадана = Ложь;
мУчетнаяПолитика = ОбщегоНазначения.ПолучитьПараметрыУчетнойПолитики(Дата, УчетнаяПолитикаНеЗадана, Организация);

мУчетВПродажныхЦенах = Ложь;
Если мУчетнаяПолитика.Количество() > 0 Тогда
Если (мУчетнаяПолитика.СпособОценкиТоваровВРознице = Перечисления.СпособыОценкиТоваровВРознице.ПоПродажнойСтоимости) Тогда
мУчетВПродажныхЦенах = Истина;
КонецЕсли;
КонецЕсли;
КонецЕсли;

Параметры = МодульВалютногоУчета.ПолучитьКурсВалюты(ВалютаЗапроса, Дата);

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

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

Номенклатура = Справочники.Номенклатура.НайтиПоКоду("00000000003");

ЗапросПоТоварам.УстановитьПараметр("Ссылка", СсылкаНаОбъект.Ссылка);
ЗапросПоТоварам.УстановитьПараметр("Номенклатура", Номенклатура);
ВыборкаСтрокТовары = ЗапросПоТоварам.Выполнить().Выбрать();

Макет = ПолучитьОбщийМакет("ТОРГ13");

ТабДокумент = Новый ТабличныйДокумент;
// Зададим параметры макета
ТабДокумент.ПолеСверху = 0;
ТабДокумент.ПолеСлева = 0;
ТабДокумент.ПолеСнизу = 0;
ТабДокумент.ПолеСправа = 0;
ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПеремещениеТоваров_ТОРГ13";

// Выводим общие реквизиты шапки
СведенияОбОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.ДатаДокумента);
ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
ОбластьМакета.Параметры.Заполнить(Шапка);
ОбластьМакета.Параметры.ПредставлениеОрганизации = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации);
ОбластьМакета.Параметры.НомерДокумента = ОбщегоНазначения.ПолучитьНомерНаПечать(СсылкаНаОбъект);
ОбластьМакета.Параметры.ДатаДокумента = Шапка.ДатаДокумента;
ОбластьМакета.Параметры.ОрганизацияПоОКПО = СведенияОбОрганизации.КодПоОКПО;
ТабДокумент.Вывести(ОбластьМакета);

НомерСтраницы = 1;

// Выводим заголовок таблицы
ЗаголовокТаблицы = Макет.ПолучитьОбласть("ЗаголовокТаблицы");
ЗаголовокТаблицы.Параметры.НомерСтраницы = "Страница " + НомерСтраницы;
ТабДокумент.Вывести(ЗаголовокТаблицы);

КоличествоСтрок = ВыборкаСтрокТовары.Количество();

// Инициализация итогов по странице
ИтогКоличествоМестПоСтранице = 0;
ИтогМассаБруттоПоСтранице = 0;
ИтогМассыНеттоПоСтранице = 0;
ИтогСуммыПоСтранице = 0;

// Инициализация итогов по документу
ИтогоКоличество = 0;
ИтогоМассаБрутто = 0;
ИтогоМассаНетто = 0;
ИтогоСумма = 0;

Ном = 0;

// Выводим многострочную часть документа
ОбластьИтоговПоСтранице = Макет.ПолучитьОбласть("ИтогиПоСтранице");
ОбластьМакетаВсего = Макет.ПолучитьОбласть("Всего");
ОбластьМакетаПодвал = Макет.ПолучитьОбласть("Подвал");

//МассивСчетовИсключения = Новый Массив();
//МассивСчетовИсключения.Добавить(ПланыСчетов.Хозрасчетный.ТорговаяНаценкаАТТ);
//ТаблицаСуммСписания = БухгалтерскийУчет.ПолучитьСуммуСписанияАктивов(СсылкаНаОбъект,,МассивСчетовИсключения);
//ТаблицаСуммСписания.Индексы.Добавить("Номенклатура");

ОбластьМакета = Макет.ПолучитьОбласть("Строка");

Пока ВыборкаСтрокТовары.Следующий() Цикл

Ном = Ном + 1;

Сумма = ВыборкаСтрокТовары.Сумма;
КоличествоМест = ?(ВыборкаСтрокТовары.КоличествоМест = 0, ВыборкаСтрокТовары.Количество, ВыборкаСтрокТовары.КоличествоМест);
ЦенаПеремещения = Окр(ВыборкаСтрокТовары.Сумма / Окр(ВыборкаСтрокТовары.КоличествоМест, 3, 1));

ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокТовары);
Номенклатура = ВыборкаСтрокТовары.Получить(0);

ОбластьМакета.Параметры.Номенклатура = Номенклатура;
ОбластьМакета.Параметры.Цена = ЦенаПеремещения;
ОбластьМакета.Параметры.Сумма = Сумма;
ОбластьМакета.Параметры.КоличествоМест = КоличествоМест;

// Проверим вывод
СтрокаСПодвалом = Новый Массив;
СтрокаСПодвалом.Добавить(ОбластьМакета);
СтрокаСПодвалом.Добавить(ОбластьИтоговПоСтранице);
Если Ном = КоличествоСтрок Тогда // Если последняя строка, должен помещаться и подвал документа
СтрокаСПодвалом.Добавить(ОбластьМакетаВсего);
СтрокаСПодвалом.Добавить(ОбластьМакетаПодвал);
КонецЕсли;

Если НЕ ФормированиеПечатныхФорм.ПроверитьВыводТабличногоДокумента(ТабДокумент, СтрокаСПодвалом) Тогда

Если КоличествоСтрок > 1 Тогда
ОбластьИтоговПоСтранице.Параметры.ИтогКоличествоМестПоСтранице = ИтогКоличествоМестПоСтранице;
ОбластьИтоговПоСтранице.Параметры.ИтогМассаБруттоПоСтранице = ИтогМассаБруттоПоСтранице;
ОбластьИтоговПоСтранице.Параметры.ИтогМассыНеттоПоСтранице = ИтогМассыНеттоПоСтранице;
ОбластьИтоговПоСтранице.Параметры.ИтогСуммыПоСтранице = ИтогСуммыПоСтранице;

ТабДокумент.Вывести(ОбластьИтоговПоСтранице);
ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();

// Инициализация итогов по странице
ИтогКоличествоМестПоСтранице = 0;
ИтогМассаБруттоПоСтранице = 0;
ИтогМассаНеттоПоСтранице = 0;
ИтогСуммыПоСтранице = 0;

НомерСтраницы = НомерСтраницы + 1;

ЗаголовокТаблицы.Параметры.НомерСтраницы = "Страница " + НомерСтраницы;
ТабДокумент.Вывести(ЗаголовокТаблицы);
КонецЕсли;
КонецЕсли;

ТабДокумент.Вывести(ОбластьМакета);

// Обновим итоги по странице
ИтогКоличествоМестПоСтранице = ИтогКоличествоМестПоСтранице + КоличествоМест;
ИтогМассаБруттоПоСтранице = ИтогМассаБруттоПоСтранице + 0;
ИтогМассыНеттоПоСтранице = ИтогМассыНеттоПоСтранице + 0;
ИтогСуммыПоСтранице = ИтогСуммыПоСтранице + Сумма;

// Обновим итоги по документу
ИтогоКоличество = ИтогоКоличество + КоличествоМест;
ИтогоМассаБрутто = ИтогоМассаБрутто + 0;
ИтогоМассаНетто = ИтогоМассаНетто + 0;
ИтогоСумма = ИтогоСумма + Сумма;

КонецЦикла;

ОбластьИтоговПоСтранице.Параметры.ИтогКоличествоМестПоСтранице = ИтогКоличествоМестПоСтранице;
ОбластьИтоговПоСтранице.Параметры.ИтогМассаБруттоПоСтранице = ИтогМассаБруттоПоСтранице;
ОбластьИтоговПоСтранице.Параметры.ИтогМассыНеттоПоСтранице = ИтогМассыНеттоПоСтранице;
ОбластьИтоговПоСтранице.Параметры.ИтогСуммыПоСтранице = ИтогСуммыПоСтранице;

ТабДокумент.Вывести(ОбластьИтоговПоСтранице);

// Выводим итоги по документу в целом

ОбластьМакетаВсего.Параметры.ИтогоКоличествоМест = ИтогоКоличество;
ОбластьМакетаВсего.Параметры.ИтогоМассаБрутто = ИтогоМассаБрутто;
ОбластьМакетаВсего.Параметры.ИтогоМассаНетто = ИтогоМассаНетто;
ОбластьМакетаВсего.Параметры.ИтогоСумма = ИтогоСумма;

ТабДокумент.Вывести(ОбластьМакетаВсего);
ВалютаПечати = Константы.ВалютаРегламентированногоУчета.Получить();

// Выводим подвал документа
ОбластьМакетаПодвал.Параметры.Заполнить(Шапка);
ПараметрыПрописиНаРусском = ВалютаПечати.ПараметрыПрописиНаРусском;
ПараметрыПрописиНаРусском = СтрЗаменить(ПараметрыПрописиНаРусском, "1", "0");
ПараметрыПрописиНаРусском = СтрЗаменить(ПараметрыПрописиНаРусском, "2", "0");
ПараметрыПрописиНаРусском = СтрЗаменить(ПараметрыПрописиНаРусском, "3", "0");
ОбластьМакетаПодвал.Параметры.ИтогоСуммаПрописью = ЧислоПрописью(Цел(ИтогоСумма), "L=ru_RU; НП=Ложь; НД=Ложь", ПараметрыПрописиНаРусском);
ОбластьМакетаПодвал.Параметры.ИтогоСуммаКоп = Формат(Цел((ИтогоСумма-Цел(ИтогоСумма))*100), "ЧЦ=2; ЧН=00");
ТабДокумент.Вывести(ОбластьМакетаПодвал);

Возврат ТабДокумент;
КонецФункции