Вывод итого по колонке ( выводится только последняя строчка )

Лерик · 23 окт 2014, 11:58

Все выходило отлично , пока не добралась до итогов.
И тут началась моя борьба с форумами , книгами , и т.д.
Голова уже пухнет но так ни чего и не выходит .

Процедура ГруппаЗдоровья()

   Тз = СоздатьОбъект("ТаблицаЗначений");
   Тз.НоваяКолонка("Сад");
   Тз.НоваяКолонка("ГрЗдоровья1");
   Тз.НоваяКолонка("ГрЗдоровья2");
   Тз.НоваяКолонка("ГрЗдоровья3");
   Тз.НоваяКолонка("ГрЗдоровья4");
   Тз.НоваяКолонка("ГрЗдоровья5");


   //Тз2=СоздатьОбъект("ТаблицаЗначений"); //таблица строк печатной формы
   //Тз2.НоваяКолонка("Сад","Число");///
   ////
   //Справ=СоздатьОбъект("Справочник.Сады");
   //Справ.ВыбратьЭлементы();
   //Пока Справ.ПолучитьЭлемент()=1 Цикл
   //   Если Справ.ЭтоГруппа()=1 тогда
   //      Продолжить;
   //   КонецЕсли;
   //   Если Справ.ПометкаУдаления()=1 тогда
   //      Продолжить;
   //   КонецЕсли;
   //   Тз.НоваяСтрока();
   //   Тз.Сад=Справ.Код;
   ////   Тз2.Сортировать("Сад");
   //КонецЦикла;

   Док=СоздатьОбъект("Документ.ЗаболеваемостьХроническая");
   Док.Выбратьдокументы(НачГода(ДатаДок),КонГода(ДатаДок));
   н=0;
   Пока Док.ПолучитьДокумент()=1 Цикл
      Если Док.Проведен()=0 тогда
         Продолжить;
      КонецЕсли;
      Если Док.ПометкаУдаления()=1 тогда
         Продолжить;
      КонецЕсли;
      //н=н+1;
      //Сообщить ( н,н);

      //Тз2.НоваяСтрока();
      //Тз2.Сад = Док.Сад.код;

      Тз.НоваяСтрока();
      Тз.ГрЗдоровья1 = Док.ГрЗд1;
      Тз.ГрЗдоровья2 = Док.ГрЗд2;
      Тз.ГрЗдоровья3 = Док.ГрЗд3;
      Тз.ГрЗдоровья4 = Док.ГрЗд4;
      Тз.ГрЗдоровья5 = Док.ГрЗд5;
      Тз.Сад = Док.Сад.Код;
      КонецЦикла;
   Тз.Свернуть("Сад","ГрЗдоровья1,ГрЗдоровья2,ГрЗдоровья3,ГрЗдоровья4,ГрЗдоровья5");
   Тз.Сортировать("Сад");
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("ГрЗдоровья");
   Таб.Очистить();
   Таб.ВывестиСекцию("Шапка");
   Тз.ВыбратьСтроки();
   ном=0;
   ИтогоПроц1 = 0;
   Пока Тз.ПолучитьСтроку() = 1 Цикл
      ном=ном+1;
      ВсегоДетей = Тз.ГрЗдоровья1 +Тз.ГрЗдоровья2+Тз.ГрЗдоровья3+Тз.ГрЗдоровья4+Тз.ГрЗдоровья5;
      Проц1 = Окр(Тз.ГрЗдоровья1*100/ВсегоДетей,0,1);
      Проц2 = Окр(Тз.ГрЗдоровья2*100/ВсегоДетей,0,1);
      Проц3 = Окр(Тз.ГрЗдоровья3*100/ВсегоДетей,0,1);
      Проц4 = Окр(Тз.ГрЗдоровья4*100/ВсегоДетей,0,1);
      Проц5 = Окр(Тз.ГрЗдоровья5*100/ВсегоДетей,0,1);
      Таб.ВывестиСекцию("Строка");
   КонецЦикла;
ИтогоПроц1 = ИтогоПроц1+Проц1;
   Таб.ВывестиСекцию("Итого");
Таб.ПараметрыСтраницы(1,,,0,0,0,0,,,1,,);
Таб.Защита(1);
Таб.Показать();
КонецПроцедуры