Автоматизированная система учета и контроля в розничной торговле

Курсовой проект - Компьютеры, программирование

quot;);

КонецПроцедуры

Процедура ПриОткрытии()

ВыбНачПериода = НачалоПериодаБИ();

ВыбКонПериода = КонецПериодаБИ();

КонецПроцедуры

Модуль отчета Субконто:

Процедура Сформировать()

Если ПустоеЗначение(ВидСубк)=1 Тогда

Предупреждение("Не выбрано субконто");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Таблица");

БИ = СоздатьОбъект("БухгалтерскиеИтоги");

БИ.ИспользоватьСубконто(ВидСубк,, 1);

БИ.ВключатьСубсчета(1, 1);

БИ.ВыполнитьЗапрос(НачПериода, КонечДата,,,, 1,, "СК");

Таб.ВывестиСекцию("Секция_1");

Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);

БИ.ВыбратьСчета();

Пока БИ.ПолучитьСчет() = 1 Цикл

Таб.ВывестиСекцию("Секция_2");

БИ.ВыбратьСубконто(ВидСубк);

Пока БИ.ПолучитьСубконто(ВидСубк) = 1 Цикл

Таб.ВывестиСекцию("Секция_3");

КонецЦикла;

Таб.ВывестиСекцию("Секция_4");

Таб.ТолькоПросмотр(1);

Таб.Показать("Таблица","");

КонецПроцедуры

Процедура ПриОткрытии()

НачПериода = НачалоПериодаБИ();

КонечДата = КонецПериодаБИ();

КонецПроцедур