Имя: Пароль:
1C
1С v8
ПроверитьВывод()
0 deringpavel
 
08.04.13
10:30
Есть вопрос, как мне реализовать вывод итогов в конец страницы?

Скриншот
http://s017.radikal.ru/i442/1304/30/d0e6c26d107d.jpg

и код:

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

[/code]