Дата в модуле отчета

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