0
deringpavel
08.04.13
✎
10:30
|
Есть вопрос, как мне реализовать вывод итогов в конец страницы?
Скриншот
и код:
[code]
ТабличныйДокумент.Вывести(ОбластьШапка);
НомерСтраницы = 1;
ОбластьЗаголовок = Макет.ПолучитьОбласть("ЗаголовокТаб");
ОбластьЗаголовок.Параметры.НомерСтраницы = "Страница" + НомерСтраницы;
ТабличныйДокумент.Вывести(ОбластьЗаголовок);
Номер = 0;
КолСтр = Выборка.Количество();
МассивОбластей = Новый Массив();
Пока Выборка.Следующий() Цикл
Номер = Номер + 1;
ОбластьСтрока = Макет.ПолучитьОбласть("Строка");
ОбластьСтрока.Параметры.Номер = Номер;
ОбластьСтрока.Параметры.ТоварНаименование = Выборка.Номенклатура;
ОбластьСтрока.Параметры.КоличествоМест = Выборка.Количество;
ОбластьСтрока.Параметры.Количество = Выборка.Количество;
ОбластьСтрока.Параметры.БазоваяЕдиницаНаименование = Выборка.ЕдиницаИзмерения;
ОбластьСтрока.Параметры.ВидУпаковки = Выборка.ЕдиницаИзмерения;
ОбластьСтрока.Параметры.ТоварКод = Выборка.Код;
ОбластьСтрока.Параметры.БазоваяЕдиницаКодПоОКЕИ = Выборка.КодПоОКЕИ;
МассивОбластей.Очистить();
МассивОбластей.Добавить(ОбластьСтрока);
Если Номер = КолСтр Тогда
МассивОбластей.Добавить(Макет.ПолучитьОбласть("ИтогоПоСтранице"));
МассивОбластей.Добавить(Макет.ПолучитьОбласть("Всего"));
МассивОбластей.Добавить(Макет.ПолучитьОбласть("Подвал"));
КонецЕсли;
СуммаИт = 0;
Итого = Макет.ПолучитьОбласть("ИтогоПоСтранице");
РезультатС = ЗапросДанные.Выполнить();
ВыборкаС = РезультатС.Выбрать();
Если Не ТабличныйДокумент.ПроверитьВывод(МассивОбластей) Тогда
Пока ВыборкаС.Следующий() Цикл
СуммаИт = СуммаИт + ВыборкаС.Количество;
КонецЦикла;
Итого.Параметры.ИтогоМестНаСтранице = СуммаИт;
ТабличныйДокумент.Вывести(Итого);
НомерСтраницы = НомерСтраницы + 1;
ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
ОбластьЗаголовок.Параметры.НомерСтраницы = "Страница" + НомерСтраницы;
ТабличныйДокумент.Вывести(ОбластьЗаголовок);
КонецЕсли;
ТабличныйДокумент.Вывести(ОбластьСтрока);
КонецЦикла;
[/code]
|
|