|
v7: Таблица значений на печать | ☑ | ||
|---|---|---|---|---|
|
0
Начинающий_13
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
|
Хорошо буду разбираться принцип понятен
|
| Форум | Правила | Описание | Секции | Поиск |