7
alisssa
12.03.15
✎
09:15
|
Пока вот что получилось:
Перем Итого1, БИ ;
ПРоцедура ПриОткрытии()
ВыбНачПериода = '01.01.2015';
ВыбКонПериода = РабочаяДата();
КонецПроцедуры
Процедура Сформировать_Колонки(БИ, Т, Стр)
Т.ВывестиСекцию(Стр+"|Начало");
БИ.ВыбратьПериоды(1);
Пока БИ.ПолучитьПериод() = 1 Цикл
Т.ПрисоединитьСекцию(Стр+"|Период");
КонецЦикла;
Т.ПрисоединитьСекцию(Стр+"|Итог");
КонецПроцедуры
Процедура Сформировать()
БИ = СоздатьОбъект("БухгалтерскиеИтоги");
Т = СоздатьОбъект("Таблица");
Т.ИсходнаяТаблица("Таблица");
БИ.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,,,, 1, "Месяц", "СК");
Т.Опции(0,0,Т.ВысотаТаблицы(),0);
БИ.Рассчитать(ВыбНачПериода, ВыбКонПериода,,,1);
ВырСНДС = БИ.КО(СчетПоКоду("90.1"));
ВырБезНДС = (БИ.КО(СчетПоКоду("90.1",)) - БИ.ДО(СчетПоКоду("90.2",)));
НДС= БИ.ДО(СчетПоКоду("90.2"));
Товары = (БИ.ОБ("90.4","41.1"))+(БИ.ОБ("90.4", "43"));
Материалы = Окр((БИ.ОБ("90.4", "10.1")));
АморОС = Окр((БИ.ОБ("20", "02")) + (БИ.ОБ("23", "02")) + (БИ.ОБ("26", "02")));
ЗП = (БИ.ОБ("20", "70")) + (БИ.ОБ("26", "70")) + (БИ.ОБ("23", "70"));
НалогиЗП = (БИ.ОБ("20", "69.1")) + (БИ.ОБ("26", "69.1")) + (БИ.ОБ("23", "69.1"));
Итого1=Товары+Материалы+АморОС+ЗП+НалогиЗП;
Т.ИсходнаяТаблица("Таблица");
Т.ВывестиСекцию("Начало");
Т.ВывестиСекцию("Период");
Т.ВывестиСекцию("Итог");
Т.Опции(0,0);
Т.Показать();
КонецПроцедуры
Как-то нужно разбить по месяцам....
|
|