Таб.Опціі (0,0, Таб.ВисотаТабліци (), 0);
Іт.ВибратьСчета ();
Поки Іт.ПолучітьСчет () = 1 Цикл
Таб.ВивестіСекцію ("Рахунок");
Таб.ВивестіСекцію ("ПдвСчет");
КонецЦікла;
Таб.ВивестіСекцію ("Підвал");
Таб.ТолькоПросмотр (1);
Таб.Показать ("Таблиця", "");
КонецПроцедури
Процедура відкриття ()
ВибНачПеріода = НачалоПеріодаБІ ();
ВибКонПеріода = КонецПеріодаБІ ();
КонецПроцедури
Модуль звіту В«СубконтоВ»:
Процедура Сформувати ()
Якщо ПустоеЗначеніе (ВідСубк) = 1 Тоді
Попередження ("Не вибрано субконто");
СтатусВозврата (0);
Повернення;
КонецЕсли;
Таб = СоздатьОб'ект ("Таблиця");
Таб.ІсходнаяТабліца ("Таблиця");
БІ = СоздатьОб'ект ("БухгалтерскіеІтогі");
БІ.ІспользоватьСубконто (ВідСубк,, 1);
БІ.ВключатьСубсчета (1, 1);
БІ.ВиполнітьЗапрос (НачПеріода, КонечДата,,,, 1,, "СК");
Таб.ВивестіСекцію ("Секція_1");
Таб.Опціі (0,0, Таб.ВисотаТабліци (), 0);
БІ.ВибратьСчета ();
Поки БІ.ПолучітьСчет () = 1 Цикл
Таб.ВивестіСекцію ("Секція_2");
БІ.ВибратьСубконто (ВідСубк);
Поки БІ.ПолучітьСубконто (ВідСубк) = 1 Цикл
Таб.ВивестіСекцію ("Секція_3");
КонецЦікла;
КонецЦікла;
Таб.ВивестіСекцію ("Секція_4");
Таб.ТолькоПросмотр (1);
Таб.Показать ("Таблиця", "");
КонецПроцедури
Процедура відкриття ()
НачПеріода = НачалоПеріодаБІ ();
КонечДата = КонецПеріодаБІ ();
КонецПроцедури
В
В В
В