|
|
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
|
Хорошо буду разбираться принцип понятен
|
|
