//*******************************************
Процедура Сформировать()
    Таб = СоздатьОбъект("Таблица");                 // Получаем ссылку на объект типа Таблица
    Таб.ИсходнаяТаблица("Таблица");                // Устанавливаем таблицу для вывода
    Таб.ВывестиСекцию("Шапка");                    // Выводим заголовок отчета
    
    // Готовим итоговые суммы 
    ИтогСНД = 0;                                    
    ИтогСНК = 0;    
    ИтогСКД = 0;    
    ИтогСКК = 0;    
    ИтогДО  = 0;    
    ИтогКО  = 0;    
    
    Итоги = СоздатьОбъект("БухгалтерскиеИтоги");     // Получаем ссылку на бухгалтерские итоги
    Итоги.ПериодД(НачДата, КонДата);                // устанавливаем произвольный период - с НачДата по КонДата
    Счета = СоздатьОбъект("Счет");                 // получаем ссылку на список счетов
    Счета.ВыбратьСчета();                         // открываем выборку для перебора
    Пока Счета.ПолучитьСчет()=1 Цикл                 // перебираем счета
        Счет = Счета.ТекущийСчет();                 // получаем ссылку на счет в выборке
    // теперь можно отсеять ненужные нам счета
    // например, не будем проверять забалансовые счета и группы
        Если (Счет.Забалансовый = 1)ИЛИ(Счет.ЭтоГруппа()=1) Тогда
            Продолжить;
        КонецЕсли;
    // получаем остатки и обороты счета
        СНД = Итоги.СНД(Счет);
        СНК = Итоги.СНК(Счет);
        СКД = Итоги.СКД(Счет);
        СКК = Итоги.СКК(Счет);
        ДО  = Итоги.ДО(Счет);
        КО  = Итоги.КО(Счет);
        
        Если (СНД<>0)ИЛИ(СНК<>0)ИЛИ(СКД<>0)ИЛИ(СКК<>0)ИЛИ(ДО<>0)ИЛИ(КО<>0) Тогда
            Таб.ВывестиСекцию("Строка");            // выводим результат в секцию Строка
    // наращиваем итоги
            ИтогСНД = ИтогСНД +СНД;
            ИтогСНК = ИтогСНК +СНК;
            ИтогСКД = ИтогСКД +СКД;
            ИтогСКД = ИтогСКК +СКК;
            ИтогДО  = ИтогДО  +ДО;
            ИтогКО  = ИтогКО  +КО;
        КонецЕсли;
    КонецЦикла;
    
    Таб.ВывестиСекцию("Подвал");                    // Выводим итоговую секцию таблицы
    Таб.ТолькоПросмотр(1);                        // устанавливаем режим просмотра
    Таб.Опции(0,0,0,0);                            // устанавливаем опции вывода таблицы на экран
    Таб.Показать("Отчет");                        // показываем таблицу на экране с заголовком "Отчет"
КонецПроцедуры

Процедура ПриОткрытии()
//это чтобы не вводить каждый раз даты
НачДата = НачалоПериодаБИ();
КонДата = КонецПериодаБИ();
КонецПроцедуры