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

[Лерик]

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

Процедура ГруппаЗдоровья()
   
   Тз = СоздатьОбъект("ТаблицаЗначений");
   Тз.НоваяКолонка("Сад");
   Тз.НоваяКолонка("ГрЗдоровья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);
Таб.Показать();   
КонецПроцедуры

[cska-fanat-kz]

не
КонецЦикла;
ИтогоПроц1 = ИтогоПроц1+Проц1;

а
ИтогоПроц1 = ИтогоПроц1+Проц1;
КонецЦикла;

[cska-fanat-kz]

отругать бы вас за 7.7ый код в ветке 8ки )

[Лерик]

Огромная благодарность, и простите , не разобралась сразу где и что , впредь буду внимательнее.

[TreeDogNight]

0 и 1 это как я понял ложь и истина?)

[cska-fanat-kz]

0 и 1 это как я понял ложь и истина?)

в 7.7 - так