Имя: Пароль:
1C
 
Уровень в отчете выходной формы не выходит?
0 koketka
 
15.12.14
15:01
Отчет простой !!! И сижу туплю не выходит уровень хоть тресни! Глянте свежим взглядом???
ЗапросТ = Новый Запрос;
    ЗапросТ.УстановитьПараметр("НачалоПериода",Новый Граница(НачалоДня(дат1),ВидГраницы.Включая));
    ЗапросТ.УстановитьПараметр("КонецПериода",Новый Граница(КонецДня(дат2),ВидГраницы.Включая));
    ЗапросТ.УстановитьПараметр("Счет", СчетВыбора );
    ЗапросТ.УстановитьПараметр("Организация",Организация);
    ЗапросТ.УстановитьПараметр("Склад",Склад);
    ЗапросТ.УстановитьПараметр("Группа",Группа);
    ЗапросТ.Текст =
    "ВЫБРАТЬ
    |    ХозрасчетныйОстаткиИОбороты.Счет КАК Счет,
    |    ХозрасчетныйОстаткиИОбороты.Субконто1 КАК Номенклатура,
    |    ХозрасчетныйОстаткиИОбороты.Субконто2 КАК Склад,
    |    СУММА(ХозрасчетныйОстаткиИОбороты.СуммаНачальныйОстаток) КАК СуммаНачОстаток,
    |    СУММА(ХозрасчетныйОстаткиИОбороты.СуммаКонечныйОстаток) КАК СуммаКонОстаток,
    |    СУММА(ХозрасчетныйОстаткиИОбороты.СуммаОборотДт) КАК СуммаПриход,
    |    СУММА(ХозрасчетныйОстаткиИОбороты.СуммаОборотКт) КАК СуммаРасход,
    |    СУММА(ХозрасчетныйОстаткиИОбороты.КоличествоНачальныйОстаток) КАК КолНачОстаток,
    |    СУММА(ХозрасчетныйОстаткиИОбороты.КоличествоКонечныйОстаток) КАК КолКонОстаток,
    |    СУММА(ХозрасчетныйОстаткиИОбороты.КоличествоОборотДт) КАК КолПриход,
    |    СУММА(ХозрасчетныйОстаткиИОбороты.КоличествоОборотКт) КАК КолРасход
    |ИЗ
    |    РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&НачалоПериода, &Конецпериода, Период, , , , ) КАК ХозрасчетныйОстаткиИОбороты
    |ГДЕ
    |    ХозрасчетныйОстаткиИОбороты.Счет = &Счет
    |
    |СГРУППИРОВАТЬ ПО
    |    ХозрасчетныйОстаткиИОбороты.Счет,
    |    ХозрасчетныйОстаткиИОбороты.Субконто1,
    |    ХозрасчетныйОстаткиИОбороты.Субконто2
    |
    |УПОРЯДОЧИТЬ ПО
    |    Номенклатура
    |ИТОГИ
    |    СУММА(СуммаНачОстаток),
    |    СУММА(СуммаКонОстаток),
    |    СУММА(СуммаПриход),
    |    СУММА(СуммаРасход),
    |    СУММА(КолНачОстаток),
    |    СУММА(КолКонОстаток),
    |    СУММА(КолПриход),
    |    СУММА(КолРасход)
    |ПО
    |    ОБЩИЕ,
    |    Счет,
    |    Склад,
    |    Номенклатура ТОЛЬКО ИЕРАРХИЯ";    
    
    
    
    РезультатТ = ЗапросТ.Выполнить();
    ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
    ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
    
    ТабДок.Очистить();
    ОбластьЗаголовок.Параметры.ТекстПериод= "за период с "+Строка(формат(дат1, "ДФ=dd.MM.yy")) + " по " + Строка(формат(дат2, "ДФ=dd.MM.yy"))+"г." ;
    ОбластьЗаголовок.Параметры.Счет = СчетВыбора;
    ОбластьЗаголовок.Параметры.Склад= Склад;
    
    ТабДок.Вывести(ОбластьЗаголовок);
    ТабДок.Вывести(ОбластьШапкаТаблицы);
    ОбластьИтого = Макет.ПолучитьОбласть("Итого");
    ОбластьНоменклатура = Макет.ПолучитьОбласть("Номенклатура");
    ОбластьНоменклатураГруппа = Макет.ПолучитьОбласть("НоменклатураГруппа");
    ОбластьСклад = Макет.ПолучитьОбласть("Склад");
    
    ВыборкаИтого = РезультатТ.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    ВыборкаИтого.Следующий();
    ОбластьИтого.Параметры.Заполнить(ВыборкаИтого);
    ТабДок.Вывести(ОбластьИтого, ВыборкаИтого.Уровень());

    Выборка = ВыборкаИтого.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    
    Пока Выборка.Следующий() Цикл
        ВыборкаСклад = Выборка.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
        Пока  ВыборкаСклад.Следующий() Цикл
            ОбластьСклад.Параметры.Заполнить(ВыборкаСклад);
            ТабДок.Вывести(ОбластьСклад,ВыборкаСклад.Уровень());
            ВыборкаНоменклатура = ВыборкаСклад.Выбрать();
            Пока  ВыборкаНоменклатура.Следующий() Цикл
                Если ВыборкаНоменклатура.Номенклатура.ЭтоГруппа = Истина Тогда
                ОбластьНоменклатураГруппа.Параметры.Заполнить(ВыборкаНоменклатура);
                ТабДок.Вывести(ОбластьНоменклатураГруппа,ВыборкаНоменклатура.Уровень());
            Иначе
                ОбластьНоменклатура.Параметры.Заполнить(ВыборкаНоменклатура);
                ТабДок.Вывести(ОбластьНоменклатура,ВыборкаНоменклатура.Уровень());

                КонецЕсли;
            КонецЦикла;
        КонецЦикла;
    КонецЦикла;
1 Maxus43
 
15.12.14
15:02
ВыборкаНоменклатура = ВыборкаСклад.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
2 koketka
 
15.12.14
15:05
(1) не работает нет уровня
3 Euguln
 
15.12.14
15:08
НачатьАвтогруппировкуСтрок
4 koketka
 
15.12.14
15:11
(3) точно спасибо!!!!
5 koketka
 
15.12.14
15:11
Вот голова дырявая!!!