Бухгалтерия, запрос не прет !!!!!!!!!!!

Новая тема
"Написал простенький отчет Процедура Сформировать()

Перем Запрос, ТекстЗапроса, Таб;

//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

ТекстЗапроса =

"//{{ЗАПРОС(Сформировать)

|Период с ВыбНачПериода по ВыбКонПериода;

|Сч = Операция.Счет;

|КорСч = Операция.КорСчет;

|Сумма = Операция.Сумма;

|ПланСчетов = Операция.ПланСчетов;

|Покупатель = Операция.Субконто.Контрагенты;

|РУ = Операция.РУ;

|Функция Кор = ДО(Сумма);

|Функция КорДО = КорДО(Сумма);

|Функция КорКО = КорКО(Сумма);

|Группировка Сч;

|Группировка КорСч;

|Группировка Покупатель;

|Условие(ПланСчетов=ВыбПланСчетов);

|"//}}ЗАПРОС

;

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

   

// Подготовка к заполнению выходных форм данными запроса

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

Таб.ИсходнаяТаблица("Сформировать");

// Заполнение полей "Заголовок"

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

Таб.ИсходнаяТаблица("Сформировать");

Таб.ВывестиСекцию("Заголовок");

Состояние("Заполнение выходной таблицы...");

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

Пока Запрос.Группировка(1) = 1 Цикл

// Заполнение полей Сч

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

Пока Запрос.Группировка(2) = 1 Цикл

// Заполнение полей КорСч

Таб.ВывестиСекцию("КорСч");

КонецЦикла;

КонецЦикла;

// Заполнение полей "Итого"

Таб.ВывестиСекцию("Итого");

// Вывод заполненной формы

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

Таб.Показать("Сформировать", """");

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

Нужно написать довольно сложный отчет, но не идет даже простой!!!!!!!!!!!!

Все нормально когда ВыбПланСчетов=Основному плану счетов, а по другому планау счетов выходит только итоговая сумма."
Читают тему
(гостей: 1)

Быстрый переход