Для быстрого получения информации о состоянии счетов есть возможность использовать объект БухгалтерскиеИтоги. Используя этот объект можно быстро получить информации об итогах бухгалтерской деятельности с детальностью в месяц. Эти итоги 1С поддерживает в актуальном состоянии. При детальности менее месяца нужно использовать запрос. Давайте попробуем воспользоваться этим объектом для того, чтобы получить итоги по счету, дополнив отчет карточки счета. Вот новый код модуля:
Процедура Сформировать() Перем Т; Перем Ит; Перем Заголовок; Перем Опер; Перем ДебитовоеСальдо; Перем КредитовоеСальдо; Перем ДебитовоеСальдоКонец; Перем КредитовоеСальдоКонец; Перем ДебитовыйОборот; Перем КредитовыйОборот; Если Счет.Выбран() = 0 Тогда Предупреждение("Не указан счет!"); Возврат; КонецЕсли; Т = СоздатьОбъект("Таблица"); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ВыполнитьЗапрос(Дата1, Дата2, Счет,,,, "Проводка"); Заголовок = "Карточка счета: "+Счет; Т.ВывестиСекцию("Секция_1"); Ит.ВыбратьПериоды(); Пока Ит.ПолучитьПериод() = 1 Цикл Опер = Ит.Операция; Т.ВывестиСекцию("Секция_2"); КонецЦикла; Т.ВывестиСекцию("Секция_3"); ДебитовоеСальдо=Ит.СНД(Счет); КредитовоеСальдо=Ит.СНК(Счет); ДебитовоеСальдоКонец=Ит.СКД(Счет); КредитовоеСальдоКонец=Ит.СКД(Счет); ДебитовыйОборот=Ит.ДО(Счет); КредитовыйОборот=Ит.КО(Счет); Т.ВывестиСекцию("Секция_4"); Т.ВывестиСекцию("Секция_5"); Т.ВывестиСекцию("Секция_6"); Т.ВывестиСекцию("Секция_7"); Т.ВывестиСекцию("Секция_8"); Т.ТолькоПросмотр(1); Т.Показать(); КонецПроцедуры
А вот новая таблица:
Результат построения отчета:
Как видите очень быстро и просто строится отчет.