Вывод цены и суммы в ВПФ выпуск продукции 8.2 КА

Помогите вывести цену и сумму в колонках в ВПФ МХ-18 выпуск продукции

Функция Печать() Экспорт

Макет = ПолучитьМакет("МХ18");

ТабДокумент = Новый ТабличныйДокумент;

Ссылка = СсылкаНаОбъект;

// Зададим параметры печатной формы по умолчанию

ТабДокумент.ПолеСверху = 0;
ТабДокумент.ПолеСлева = 0;
ТабДокумент.ПолеСнизу = 0;
ТабДокумент.ПолеСправа = 0;
ТабДокумент.РазмерКолонтитулаСверху = 0;
ТабДокумент.РазмерКолонтитулаСнизу = 0;
ТабДокумент.АвтоМасштаб = Истина;
ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;

// Восстановим установленные пользователем параметры печатной формы
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ВыпускПродукции_МХ18";

// Определяем, что будем выводить - код или артикул
ВыводитьАртикул = (глЗначениеПеременной("ДополнительнаяКолонкаПечатныхФормДокументов") = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул);
ЕдиницаИзмеренияВеса = глЗначениеПеременной("ЕдиницаИзмеренияВеса");

ПервыйДокумент = Истина;

Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Регистратор", Ссылка);

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

ТекстЗапроса = "
|ВЫБРАТЬ
| Продукция.Номенклатура КАК Номенклатура,
| ВЫРАЗИТЬ(Продукция.Номенклатура.НаименованиеПолное КАК СТРОКА(1000)) КАК ТоварНаименование,
| Продукция.Номенклатура.Код КАК ТоварКод,
| Продукция.Номенклатура.Артикул КАК ТоварАртикул,
| Продукция.ЕдиницаИзмерения.Представление КАК БазоваяЕдиницаНаименование,
| Продукция.ЕдиницаИзмерения.ЕдиницаПоКлассификатору.Код КАК БазоваяЕдиницаКодПоОКЕИ,
| Продукция.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
| Продукция.ЕдиницаИзмерения.Наименование КАК ЕдиницаИзмеренияНаименование,
| Продукция.Номенклатура.БазоваяЕдиницаИзмерения.Код КАК ЕдиницаИзмеренияКод,
| Продукция.ЕдиницаИзмеренияМест.Представление КАК ВидУпаковки,
| Продукция.ЕдиницаИзмеренияМест.Коэффициент / Продукция.Коэффициент КАК КоличествоВОдномМесте,
| ВЫБОР
| КОГДА Продукция.КоличествоМест > 0 И НЕ Продукция.ЕдиницаИзмеренияМест.Вес ЕСТЬ NULL
| ТОГДА Продукция.КоличествоМест * Продукция.ЕдиницаИзмеренияМест.Вес
| ИНАЧЕ Продукция.Количество * Продукция.ЕдиницаИзмерения.Вес
| КОНЕЦ КАК МассаБрутто,
| Продукция.ХарактеристикаНоменклатуры КАК Характеристика,
| Продукция.СерияНоменклатуры КАК Серия,
| Продукция.Количество КАК Количество,
| Продукция.КоличествоМест КАК КоличествоМест,
| Продукция.НомерСтроки КАК НомерСтроки,
| 0 КАК Цена,
| ВЫРАЗИТЬ(ЕСТЬNULL(ТаблицаСебестоимостиОбороты.Стоимость, 0)
| * Продукция.Количество * Продукция.Коэффициент
| / ЕСТЬNULL(Продукция.Номенклатура.ЕдиницаХраненияОстатков.Коэффициент, 1)
| / ЕСТЬNULL(ТаблицаСебестоимостиОбороты.Количество, 1) КАК ЧИСЛО(15, 2)) КАК Сумма
|ИЗ
| Документ.ВыпускПродукции.Продукция КАК Продукция
| ЛЕВОЕ СОЕДИНЕНИЕ ТаблицаСебестоимостиОбороты КАК ТаблицаСебестоимостиОбороты
| ПО Продукция.Номенклатура = ТаблицаСебестоимостиОбороты.Номенклатура
| И (ТаблицаСебестоимостиОбороты.Регистратор = &Регистратор)
| И (Продукция.ХарактеристикаНоменклатуры = ТаблицаСебестоимостиОбороты.ХарактеристикаНоменклатуры
| ИЛИ ТаблицаСебестоимостиОбороты.ХарактеристикаНоменклатуры = ""Не используется"")
| И (Продукция.СерияНоменклатуры = ТаблицаСебестоимостиОбороты.СерияНоменклатуры
| ИЛИ ТаблицаСебестоимостиОбороты.СерияНоменклатуры = ""Не используется"")
| И (Продукция.СчетУчетаБУ = ТаблицаСебестоимостиОбороты.СчетУчета
| ИЛИ ТаблицаСебестоимостиОбороты.СчетУчета = ""Не используется"")
|ГДЕ
| Продукция.Ссылка = &Регистратор
|
|УПОРЯДОЧИТЬ ПО
| НомерСтроки";

СтруктраПараметров = Новый Структура();
СтруктраПараметров.Вставить("Регистратор", Ссылка);
СтруктраПараметров.Вставить("НачГраница", Новый Граница(Шапка.ДатаДокумента, ВидГраницы.Включая));

ТаблицаПродукции = УправлениеЗапасами.ПолучитьТаблицуЗатратДляПечатиИЗаполненияДокументов(Ссылка, ТекстЗапроса, СтруктраПараметров);

Если ТаблицаПродукции = Неопределено Тогда
//Продолжить;
КонецЕсли;

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

ПервыйДокумент = Ложь;
НомерСтрокиНачало = ТабДокумент.ВысотаТаблицы + 1;

// Выводим общие реквизиты шапки
ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
ОбластьМакета.Параметры.Заполнить(Шапка);
ОбластьМакета.Параметры.НомерДокумента = ОбщегоНазначения.ПолучитьНомерНаПечать(Шапка);

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

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

СтрокНаСтранице = 20;
СтрокШапки = 10;
СтрокПодвала = 9;
НомерСтраницы = 1;

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

КоличествоСтрок = ТаблицаПродукции.Количество();

Если КоличествоСтрок <= 2 Тогда
ПереноситьПоследнююСтроку = 0;
Иначе
ЦелыхСтраницСПодвалом = Цел((СтрокШапки + КоличествоСтрок + СтрокПодвала) / СтрокНаСтранице);
ЦелыхСтраницБезПодвала = Цел((СтрокШапки + КоличествоСтрок - 1) / СтрокНаСтранице);
ПереноситьПоследнююСтроку = ЦелыхСтраницСПодвалом - ЦелыхСтраницБезПодвала;
КонецЕсли;

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

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

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

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

Если НЕ ЗначениеЗаполнено(СтрокаПродукции.Номенклатура) Тогда
Продолжить;
КонецЕсли;

Ном = Ном + 1;

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

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

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

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

КонецЕсли;

ОбластьМакета.Параметры.Заполнить(СтрокаПродукции);
ОбластьМакета.Параметры.ТоварНаименование = СокрЛП(СтрокаПродукции.ТоварНаименование) + ФормированиеПечатныхФорм.ПредставлениеСерий(СтрокаПродукции);
ОбластьМакета.Параметры.Цена = ?(СтрокаПродукции.Количество = 0, СтрокаПродукции.Сумма, Окр(СтрокаПродукции.Сумма / СтрокаПродукции.Количество, 2));
Если ВыводитьАртикул Тогда
ОбластьМакета.Параметры.ТоварКод = СтрокаПродукции.ТоварАртикул;
КонецЕсли;

Если НЕ ЗначениеЗаполнено(ЕдиницаИзмеренияВеса) Тогда
МассаБрутто = 0;
Иначе
МассаБрутто = СтрокаПродукции.МассаБрутто;
КонецЕсли;

ОбластьМакета.Параметры.МассаБрутто = МассаБрутто;

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

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

// увеличим итоги по дукументу
ИтогоМассаБрутто = ИтогоМассаБрутто + МассаБрутто;
ИтогоМест = ИтогоМест + СтрокаПродукции.КоличествоМест;
ИтогоКоличество = ИтогоКоличество + СтрокаПродукции.Количество;
ИтогоСумма = ИтогоСумма + СтрокаПродукции.Сумма;

КонецЦикла;

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

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

// Выводим подвал документа
ОбластьПодвал.Параметры.КоличествоПорядковыхНомеровЗаписейПрописью = ЧислоПрописью(КоличествоСтрок, ,",,,,,,,,0");
ТабДокумент.Вывести(ОбластьПодвал);

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

КонецФункции // ПечатьМХ18()