Почему запрос по счетам коректно работает только с основным планом счетов?А как со вторым?
25.06.2003
14:20
#1
"открыть/закрыть Бухгалтерия, запрос не прет !!!!!!!!!!! Zuf 20.06.2003
Написал простенький отчет Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|Сч = Операция.Счет;
|КорСч = Операция.КорСчет;
|Сумма = Операция.Сумма;
|ПланСчетов = Операция.ПланСчетов;
|Покупатель = Операция.Субконто.Контрагенты;
|РУ = Операция.РУ;
|Функция Кор = ДО(Сумма);
|Функция КорДО = КорДО(Сумма);
|Функция КорКО = КорКО(Сумма);
|Группировка Сч;
|Группировка КорСч;
|Группировка Покупатель;
|Условие(ПланСчетов=ВыбПланСчетов);
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
// Заполнение полей "Заголовок"
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка(1) = 1 Цикл
// Заполнение полей Сч
Таб.ВывестиСекцию("Сч");
Пока Запрос.Группировка(2) = 1 Цикл
// Заполнение полей КорСч
Таб.ВывестиСекцию("КорСч");
КонецЦикла;
КонецЦикла;
// Заполнение полей "Итого"
Таб.ВывестиСекцию("Итого");
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", """");
КонецПроцедуры
Нужно написать довольно сложный отчет, но не идет даже простой!!!!!!!!!!!!
Все нормально когда ВыбПланСчетов=Основному плану счетов, а по другому планау счетов выходит только итоговая сумма."
Написал простенький отчет Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|Сч = Операция.Счет;
|КорСч = Операция.КорСчет;
|Сумма = Операция.Сумма;
|ПланСчетов = Операция.ПланСчетов;
|Покупатель = Операция.Субконто.Контрагенты;
|РУ = Операция.РУ;
|Функция Кор = ДО(Сумма);
|Функция КорДО = КорДО(Сумма);
|Функция КорКО = КорКО(Сумма);
|Группировка Сч;
|Группировка КорСч;
|Группировка Покупатель;
|Условие(ПланСчетов=ВыбПланСчетов);
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
// Заполнение полей "Заголовок"
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка(1) = 1 Цикл
// Заполнение полей Сч
Таб.ВывестиСекцию("Сч");
Пока Запрос.Группировка(2) = 1 Цикл
// Заполнение полей КорСч
Таб.ВывестиСекцию("КорСч");
КонецЦикла;
КонецЦикла;
// Заполнение полей "Итого"
Таб.ВывестиСекцию("Итого");
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", """");
КонецПроцедуры
Нужно написать довольно сложный отчет, но не идет даже простой!!!!!!!!!!!!
Все нормально когда ВыбПланСчетов=Основному плану счетов, а по другому планау счетов выходит только итоговая сумма."
Читают тему
(гостей: 1)