Имя: Пароль:
1C
 
Как вывести итоги последовательно?
0 Ivan_495
 
12.07.17
09:52
В запросе есть три группы итогов
|ПО
    |    Участник,
    |    ДатаРожденияРебенка,
    |    НомерЗаказа";

Нужно вывести группу НомерЗаказа после вывода всех записей группы ДАатаРожденияРебенка


    Пока ВыборкаУчастник.Следующий() Цикл
        ОбластьДетальныхЗаписей1.Параметры.Заполнить(ВыборкаУчастник);
        ОбластьДетальныхЗаписей4.Параметры.Заполнить(ВыборкаУчастник);
        ТабДок.Вывести(ОбластьДетальныхЗаписей1, ВыборкаУчастник.Уровень());

        
        
        ВыборкаДатаРожденияРебенка= ВыборкаУчастник.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
        
        кол=ВыборкаДатаРожденияРебенка.Количество();
        Пока ВыборкаДатаРожденияРебенка.Следующий() Цикл
            ОбластьДетальныхЗаписей2.Параметры.Заполнить(ВыборкаДатаРожденияРебенка);
            ТабДок.Присоединить(ОбластьДетальныхЗаписей2, ВыборкаДатаРожденияРебенка.Уровень());
        КонецЦикла;
        
        Если кол=1 тогда
            ОбластьДетальныхЗаписей2.Параметры.ДатаРожденияРебенка=Дата(1,1,1);  
            ТабДок.Присоединить(ОбластьДетальныхЗаписей2, ВыборкаДатаРожденияРебенка.Уровень());
            ТабДок.Присоединить(ОбластьДетальныхЗаписей2, ВыборкаДатаРожденияРебенка.Уровень());
        КонецЕСли;
        Если кол=2 тогда
            ОбластьДетальныхЗаписей2.Параметры.ДатаРожденияРебенка=Дата(1,1,1);  
            ТабДок.Присоединить(ОбластьДетальныхЗаписей2, ВыборкаДатаРожденияРебенка.Уровень());
        КонецЕСли;
        
        ТабДок.Присоединить(ОбластьДетальныхЗаписей4, ВыборкаДатаРожденияРебенка.Уровень());
        
            //заказы
            ВыборкаНомерЗаказа = ВыборкаДатаРожденияРебенка.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
            
            Пока ВыборкаНомерЗаказа.Следующий() Цикл
                ОбластьДетальныхЗаписей5.Параметры.Заполнить(ВыборкаНомерЗаказа);
                ТабДок.Присоединить(ОбластьДетальныхЗаписей5, ВыборкаНомерЗаказа.Уровень());
            КонецЦикла;
            //
    КонецЦикла;
1 Ivan_495
 
12.07.17
09:55
сейчас ВыборкаНомерЗаказа пустая
2 AvRm
 
12.07.17
10:46
(1) Убери тип обхода в последней выборке
ВыборкаДатаРожденияРебенка.Выбрать();
3 Лефмихалыч
 
12.07.17
10:49
Пока ВыборкаДатаРожденияРебенка.Следующий() Цикл
    ВыборкаНомерЗаказа = ВыборкаДатаРожденияРебенка.Выбрать();
    Пока ВыборкаНомерЗаказа.Следующий() Цикл
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.