Имя: Пароль:
1C
1С v8
Обороты счета с фильтром по Номенклатурной группе
0 capllary
 
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");
    мБухИтоги.РассчитатьИтоги("Хозрасчетный", Итоги, "Сумма", "Счет", мДатаНачалаПериодаПрошлогоГода, мДатаКонцаПериодаПрошлогоГода, , , ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НоменклатурныеГруппы, , , , );