v7: Таблица значений на печать

1C 7.7

28.02.12

✎

10:29

Здравствуйте.
Как вывести на печать значения таблицы значений таким образом.?

Имеем Таблицу значений ТЗ_9011
Первая колонка – ВидНоменклатуры
Вторая колонка -- Объект
Третья колонка -- Число

ААА БББ ЧисловоеЗначение
ААА ССС ЧисловоеЗначение
ВВВ БББ ЧисловоеЗначение

Требуется вывести на печать

ААА Итог(«ЧисловоеЗначение»)
БББ ЧисловоеЗначение
ССС ЧисловоеЗначение

ВВВ Итог(«ЧисловоеЗначение»)
БББ ЧисловоеЗначение

// Обычный вывод на печать
Процедура Печать()
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Таб.ВывестиСекцию("Шапка");

ВыручкаИтого = 0;

Номер=1;;
ТЗ_9011.ВыбратьСтроки();
Пока ТЗ_9011.ПолучитьСтроку()=1 Цикл

Выручка = 0;

Объект = ТЗ_9011.Объект;
ВидДеятельности = ТЗ_9011.ВидыНоменклатуры;
Выручка = ТЗ_9011.Выручка;

ВыручкаИтого = ВыручкаИтого+Выручка;

Таб.ВывестиСекцию("Строка");
Номер=Номер+1;
КонецЦикла;

Таб.ВывестиСекцию("Подвал");
Таб.Опции(0,0,0,0);
Таб.ТолькоПросмотр(1);
Таб.Показать("Анализ","");
КонецПроцедуры

1 KishMish

28.02.12

✎

10:39

МОжно использовать индексированную таблицу из 1с++
стандртными средтсвами так
ыгружаешь в еще одну таблицу, сворачиваешь по нужной колонке
пробегаешься по ней, выводишь итоги.
пробегаешься по СВОЕЙ не свернутой таблице, ищешь по условиюб что СвернутаяТЗ.ВидНоменклатуры = НесвернутаяТЗ.ВидНоменклатуры - выводишь
както так

2 KishMish

28.02.12

✎

10:41

+(1)
ТСвернутая.ВыбратьСтроки()
ПОка ТСВернутая.ПолучитьСтркоу()=1 Цикл
ВыводимИТОГО
ТНЕсвернутая.ВыбратьСТроки();
ПОка ТНесвернутая.ПолучитьСтроку()=1 Цикл
Если ТСвернутая.ВидНоменклатуры = ТНЕсвернутая.ВидНоменклатуры Тогда
ВыводимСтроку
КонецЕсли;
КонеЦикла;
КонецЦикла;

для ускорения можно еще позамарачиватся с сортировкой и удалением выведенных строк, но это если совсем долго будет работать отчте

3 Начинающий_13

28.02.12

✎

10:47

Хорошо буду разбираться принцип понятен