Имя: Пароль:
1C
1С v8
Запрос по 90 счету!
0 Aleksei_Pro
 
19.02.12
10:29
Запрос5 = Новый Запрос;
           Запрос5.УстановитьПараметр("Счет",ПланыСчетов.Хозрасчетный.Продажи);
           Запрос5.УстановитьПараметр("Организация",Организация);
           Запрос5.УстановитьПараметр("ДатаПериода",НачалоМесяца(Дата));
           Запрос5.УстановитьПараметр("ДатаПериода2",КонецМесяца(Дата));
           Запрос5.Текст =
           "ВЫБРАТЬ
           |    ХозрасчетныйОстаткиИОбороты.Счет,
           |    ЕСТЬNULL(ХозрасчетныйОстаткиИОбороты.СуммаОборотДт, 0) КАК СуммаОборотДт,
           |    ЕСТЬNULL(ХозрасчетныйОстаткиИОбороты.СуммаНУОборотДт, 0) КАК СуммаНУОборотДт,
           |    ХозрасчетныйОстаткиИОбороты.Субконто1 КАК Субконто1,
           |    ЕСТЬNULL(ХозрасчетныйОстаткиИОбороты.СуммаОборотКт, 0) КАК СуммаОборотКт,
           |    ЕСТЬNULL(ХозрасчетныйОстаткиИОбороты.СуммаНУОборотКт, 0) КАК СуммаНУОборотКт
           |ИЗ
           |    РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&ДатаПериода, &ДатаПериода2, , , Счет В ИЕРАРХИИ (&Счет), , Организация = &Организация) КАК ХозрасчетныйОстаткиИОбороты
           |ИТОГИ
           |    СУММА(СуммаОборотДт),
           |    СУММА(СуммаНУОборотДт),
           |    СУММА(СуммаОборотКт),
           |    СУММА(СуммаНУОборотКт)
           |ПО
           |    Субконто1";    
           ДвиЖ4 = Запрос5.Выполнить();
           ВыбПоНоменклГруппам= ДвиЖ4.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам,"Субконто1");



Подскажите как мне в запросе по субчетам выбирать?
Цель: сделать как в 7.7:
                   БухИт90 = СоздатьОбъект("БухгалтерскиеИтоги");
                   БухИт90.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,,,);
                   БухИт90.ВключатьСубсчета(1, 0);
                   БухИт90.ВыполнитьЗапрос(ДатаНач, ДатаКон, Сч90,,,,,);
                   БухИт90.ВыбратьСубконто(ВидыСубконто.ВидыНоменклатуры);
                   Пока БухИт90.ПолучитьСубконто(ВидыСубконто.ВидыНоменклатуры) = 1 Цикл
                        Если (БухИт90.Субконто(ВидыСубконто.ВидыНоменклатуры).ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар)
                           или (БухИт90.Субконто(ВидыСубконто.ВидыНоменклатуры).ТипНоменклатуры = Перечисление.ТипыНоменклатуры.ПосредническаяУслуга)
                            или (БухИт90.Субконто(ВидыСубконто.ВидыНоменклатуры).ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция)//или
                       Тогда
                           
                          Продолжить;
                       КонецЕсли;
                       
                       Выручка = 0;
                       Если БухИт90.ПолучитьСчет(, Сч90_1) = 1 Тогда
                           Выручка = БухИт90.КО();
                       Иначе
                           Выручка = 0;
                       КонецЕсли;
1 DrShad
 
19.02.12
10:50
группировка по счету и обход результата по группировкам
2 Aleksei_Pro
 
19.02.12
10:53
(1) да спасибо)