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