Как добавить счет?

[Lilitana]

Добрый день! Подскажите пожалуйста, как через   бух.итоги можно обращаться к нескольким счетам? У меня сейчас формируется отчет по счету 01.1 и 02.1 соответственно, а мне нужно добавить 01.3 и 02.3. Если в строке    Если Ит.ВыполнитьЗапрос(Дата1, Дата2, Счет01_1) = 0       добавляю Счет01_3, то в отчет суммы не выводятся, а если записываю аналогичное выражение отдельно на 01_3, то вылетает ошибка: Ит.ВыбратьСубконто(1, 0, 0); Данная операция допустима только в режиме запроса по аналитике !

Код Выделить Развернуть

НомерП=0;
Счет01_1= СчетПоКоду("01.1");
Счет01_3 =СчетПоКоду("01.3");
Если ПроверкаПериода() = 0 Тогда Возврат; КонецЕсли;

    Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства);
    Заголовок1 = "Основные средства";
Если Ит.ВыполнитьЗапрос(Дата1, Дата2, Счет01_1) = 0 Тогда
Возврат;
КонецЕсли;
Расшифровка = СоздатьОбъект("СписокЗначений");
Спр=СоздатьОбъект("Справочник.ОсновныеСредства");
СпрТехХар=СоздатьОбъект("Справочник.ТехХарактеристики");
Спр.НайтиПоНаименованию("Сооружения" ,0, 1);
    СпрОС = Спр.ТекущийЭлемент();
Ит.ВыбратьСубконто(1, 0, 0);
СумД=0; СумНач=0; СумОст=0;СумАМ=0;СумАМТек=0;
БухИт=СоздатьОбъект("БухгалтерскиеИтоги");
Счет02_1= СчетПоКоду("02.1");
Счет02_3 =СчетПоКоду("02.3");
БухИт.Рассчитать(Дата1,Дата2,Счет02_1);
Пока Ит.ПолучитьСубконто(1)=1 Цикл
СведенияОбОС = глРасчетАмортизацииОС(Ит.Субконто(1), Дата2);
БалСтоим = СведенияОбОС.Получить("БалансоваяСтоимостьКон");
НачАморт = СведенияОбОС.Получить("НачисленнаяАмортизацияКон");

Помогите пожалуйста начинающему программисту! 

[Lilitana]

вопрос снят )