Обороты счета с фильтром по Номенклатурной группе

1С v8

11.09.14

✎

13:12

Парни, подскажите как получить обороты счета с отбором по номенклатурной группе.

Пока что обороты счета получил так:
Процедура Отчет(ТабДок, КонПериода, НачПериода, Организация) Экспорт

    Макет = ВнешнийОтчетОбъект.ПолучитьМакет("Отчет");

    ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
    ОбластьДоходы = Макет.ПолучитьОбласть("Доходы");

    ПС = ПланыСчетов["Хозрасчетный"];
    Счет90_01   = ПС.НайтиПоКоду("90.01");

    мБухИтоги = Обработки.БухгалтерскиеИтоги.Создать();
    мБухИтогиРС = Обработки.БухгалтерскиеИтоги.Создать();

    мДатаКонцаПериодаПрошлогоГода = КонецМесяца(КонПериода);
    мДатаНачалаПериодаПрошлогоГода = НачалоМесяца(НачПериода);
    Итоги = "КонечныйОстатокДт, ОборотДт, ОборотКт, КорОборотДт";
    мБухИтоги.РассчитатьИтоги("Хозрасчетный", Итоги, "Сумма", "Счет", мДатаНачалаПериодаПрошлогоГода, мДатаКонцаПериодаПрошлогоГода, , , , , , , );


    ОбластьДоходы.Параметры.Квартал = ПредставлениеПериода(НачалоДня(НачПериода), КонецДня(КонПериода), "ФП = Истина" );
    ОбластьДоходы.Параметры.Д21 = КО(Счет90_01.);
    ОбластьДоходы.Параметры.Д22 = КО(Счет90_01) / 1000;
    ОбластьДоходы.Параметры.Д23 = КО(Счет90_01) / 1000 * 18;
    //ОбластьДоходы.Параметры.Д21 = "";
    //ОбластьДоходы.Параметры.Д21 = "";

    ОбластьРасходы = Макет.ПолучитьОбласть("Расходы");

    ОбластьРасходы.Параметры.Квартал = ПредставлениеПериода(НачалоДня(НачПериода), КонецДня(КонПериода), "ФП = Истина" );

    ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");




    ТабДок.Очистить();
    ТабДок.Вывести(ОбластьЗаголовок);
    ТабДок.Вывести(ОбластьДоходы);
    ТабДок.Вывести(ОбластьРасходы);

    ТабДок.Вывести(ОбластьПодвал);

КонецПроцедуры

1 lxndr

11.09.14

✎

13:19

кури
мБухИтоги.ИспользоватьСубконто(...);

2 capllary

11.09.14

✎

13:29

(1) Спасибо, уже курю.

3 capllary

11.09.14

✎

14:17

Чет не получается, и так пробовал:

мБухИтоги = Обработки.БухгалтерскиеИтоги.Создать();

    мДатаКонцаПериодаПрошлогоГода = КонецМесяца(КонПериода);
    мДатаНачалаПериодаПрошлогоГода = НачалоМесяца(НачПериода);
    Итоги = "КонечныйОстатокДт, ОборотДт, ОборотКт, КорОборотДт";
    СписокНоменклатурныхГрупп = Справочники.НоменклатурныеГруппы.НайтиПоКоду("000000001");
    мБухИтоги.ИспользоватьСубконто(ВидыСубконто.НоменклатурныеГруппы, СписокНоменклатурныхГрупп, 2);
    мБухИтоги.РассчитатьИтоги("Хозрасчетный", Итоги, "Сумма", "Счет", мДатаНачалаПериодаПрошлогоГода, мДатаКонцаПериодаПрошлогоГода, , , , , , , );

И так:

мБухИтоги = Обработки.БухгалтерскиеИтоги.Создать();

    мДатаКонцаПериодаПрошлогоГода = КонецМесяца(КонПериода);
    мДатаНачалаПериодаПрошлогоГода = НачалоМесяца(НачПериода);
    Итоги = "КонечныйОстатокДт, ОборотДт, ОборотКт, КорОборотДт";
    СписокНоменклатурныхГрупп = Справочники.НоменклатурныеГруппы.НайтиПоКоду("000000001");
    мБухИтоги.РассчитатьИтоги("Хозрасчетный", Итоги, "Сумма", "Счет", мДатаНачалаПериодаПрошлогоГода, мДатаКонцаПериодаПрошлогоГода, , , ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НоменклатурныеГруппы, , , , );