Итоги таблицы в отчетной форме

"> Есть отчет, в котором может быть произвольное количество выводимых столбцов (зависит от данных) и, естественно, - произвольное количество строк. Как можно просчитать итоги по каждому столбцу не утяжеляя отчет на написание процедур? Если сравнивать с экселем, то что-то наподобие: Итоговая строка = ячейка1 + ячейка3 + ячека5 и т.д.<br><br>1. вообще-то нужно хоть видеть трафорет выходной таблицы<br>2. знаить начальный отсчет ячейки<br>3. ну что-то вроде такого накатать! :<br><br>//Таб - таблица из вне или уже сформированная!<br>Функция ЗнЯч(Т, х, у)<br> ТабОбл = Т.Область(х,у);<br> Возврат ТабОбл.Текст;<br>КонецФункции<br> <br><br>х=1; у=1;<br>Пока 1=1 Цикл<br> <br> Если ПустаяСтрока(ЗнЯч(Таб, х, у))=0 Тогда<br>      //ТекТекст - твои данные<br> Иначе<br>       <br>      Если ПустаяСтрока(ЗнЯч(Таб, х, у + 1))=0 Тогда<br>       у = у + 1;<br>      ИначеЕсли ПустаяСтрока(ЗнЯч(Таб, х + 1, 1))=0 Тогда<br>       х = х + 1;<br>       у = 1;<br>      Иначе<br>       Прервать;<br>      КонецЕсли;<br> КонецЕсли;<br>КонецЦикла;<br>"

> Там есть какая-то функция (я не разу ею не пользовался) перебора ячеек в отчетной таблице.<br>Где "там"?

Горная масса (габбро) 0-500        108540.08              76.25 1081730-18 -                   -                  <br>        1423.500 13870-000 -                   -                  <br>Всего по: Полуфабрикат <br> <br>Горная масса (известняк)        70246.21              30.54 -                   1825750-45 -                  <br>        2300.000 -                   60043-000 -                  <br>Всего по: горная масса <br> <br>Известняк для флюсования 20-40 - - -                   -                   38174-00<br> - -                   -                   1908-700<br>Мука известняковая молотая              780.45              410.76 -                   -                   -                  <br>              1.900 -                   -                   -                  <br>Отсев 0-20        113105.38              20.00 -                   -                   305860-00<br>        5655.269 -                   -                   15293-000<br>Отсев 0-5        76484.56              20.00 -                   -                   57199-40<br>        3824.228 -                   -                   2859-970<br>Песок 0-5        192999.15              86.12 -                   -                   -                  <br>        2240.970 -                   -                   -

скрин можно?

еще бы знать, как его сюда вставить????<br>

закинь сюда скрин radikal.ru<br>а потом ссылку в пост!

http://s57.radikal.ru/i156/0812/b3/0d24182132e7.jpg<br>вот она - ссылка!<br><br>То, что выделено зеленым цветом - это промежуточные итоги. Естественно, что в конце таблицы будет ИТОГО общее (по промежуточным итогам).<br>И еще: на "скрипте" не видно (такая база попалась), но в реальности в каждой ячейке по два значения (в самом деле - это две ячейки). Для примера первый столбец с цифирями. Верхняя цифра - сумма, нижняя - количество. В таком же порядке и нужно присчитать.

покрупнее нельзя?<br>а то глаза можно сломапть!

http://webfile.ru/2437986<br><br>это ссылка на файл в экселе.<br>

"> Как можно просчитать итоги по каждому столбцу не утяжеляя отчет на написание процедур<br><br>ну что сам так и не смог написать?<br><br>Фунцкия ЗнЯч(Т, у, х)<br> облТаб = Т.Область(у, х);<br> Возврат ОблТаб.Текст;<br>КонецФункции<br><br>Процедура Подсчитать()<br> //таб -- уже сформированная<br> //нач точка будет у = 5, х = 2<br> //у - строка, х - столбец<br> х0 = 2; у0 = 5; у = у0 + 1; х = х0;<br> ТЗ_Сум = СоздатьОбъект("ТаблицаЗначений");<br> ТЗ_Кол = СоздатьОбъект("ТаблицаЗначений");<br> Пока ПустаяСтрока(ЗнЯч(Таб, у0, х + 1))=0 Цикл<br>      ТЗ_Сум.НоваяКолонка("Колонка_" + х - х0 + 1, "Число");<br>      ТЗ_Кол.НоваяКолонка("Колонка_" + х - х0 + 1, "Число");<br>      х = х + 1;<br> КонецЦикла;<br><br> <br> Пока (ПустаяСтрока(ЗнЯч(Таб, у, х0))=0) и (ПустаяСтрока(ЗнЯч(Таб, у + 1, х0))=1) Цикл<br>      Если Найти(ЗнЯч(Таб, у, х0),"Всего по:")>0 Тогда<br>       у = у + 1;<br>       Продолжить;<br>      КонецЕсли;<br>      ТЗ_Сум.НоваяСтрока();<br>      ТЗ_Кол.НоваяСтрока();<br>      Для н = 1 по х Цикл<br>       ТекЗн = ЗнЯч(Таб, у, н + х0);<br>       ТЗ_Сум.УстановитьЗначение(у, н, ?(Найти(ТекЗн, "-")>0,0,СтрЗаменить(ТекЗн, ",", ".")));<br>       ТекЗн = ЗнЯч(Таб, у + 1, н + х0);<br>       ТЗ_Кол.УстановитьЗначение(у, н, ?(Найти(ТекЗн, "-")>0,0,СтрЗаменить(ТекЗн, ",", ".")));<br>      КонецЦикла;<br> КонецЦикла;<br><br> //ну и всё... можно смотреть итоги по колонкам!<br> //пример, у первой посмотрим<br> Сообщить("Итого сум по первой колонке = " + ТЗ_сум.Итог(1));<br> Сообщить("Итого кол по первой колонке = " + ТЗ_кол.Итог(1));<br>КонецПроцедура<br><br>можно ещё красивеее сделать...<br>ну это думаю не надо!"