Имя: Пароль:
1C
1C 7.7
v7: вывести итоги
0 serg-lom89
 
28.08.13
17:31
ТекАвто="";
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Таблица");
    Таб.ВывестиСекцию("Шапка");
    ТЗ.ВыбратьСтроки();  
    Пока ТЗ.ПолучитьСтроку()>0 Цикл
        
        Если ТекАвто <> ТЗ.Автомобиль Тогда
            Ном = Ном + 1;
            Таб.ВывестиСекцию("Строка");
            нашел=1 ;
        Иначе
            нашел=0;
            Таб.ВывестиСекцию("Строка2");
        КонецЕсли;
        ТекАвто=ТЗ.Автомобиль;
        Если нашел=0 тогда
            Таб.ВывестиСекцию("ИтогАвто");  
        КонецЕсли;
    КонецЦикла;
хочу после каждого авто вывести итог..что не так?
1 Basilio
 
28.08.13
17:38
(0) а что не так?
2 Kreont
 
28.08.13
17:40
пошагово пробуй в отладчике все увидишь что не так
3 Basilio
 
28.08.13
17:42
(0) у тебя 7я строка пусатя. это некрасиво.
4 Ёпрст
 
28.08.13
18:10
выводи итоговую секцию в условии
5 Ёпрст
 
28.08.13
18:10
и после цикла, если надо.