Анализ счета (запросом)

// Анализ счета
// ——————
// использования запроса для работы с бухгалтерскими операциями и проводками.
// Запрос обрабатывает корреспонденции счета Сч
// по счетам КорСч за расчетный период.
// Значение счета для анализа задается в диалоге установкой ВыбСч.

//Создание объекта типа Запрос
Запрос = СоздатьОбъект(“Запрос”);
ТекстЗапроса = “
|Период с Дата1 по Дата2;
|Сч = Операция.Счет;
|КорСч = Операция.КорСчет;
|Сумма = Операция.Сумма;
|Группировка Сч упорядочить по Сч.Код;
|Группировка КорСч упорядочить по КорСч.Код;
|Функция КорДо = КорДО(Сумма);
|Функция КорКо = КорКО(Сумма);
|Условие(Сч = ВыбСч);”;

//Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Предупреждение(“Запрос по бухгалтерскими операциями и проводками не выполнился!”);
Возврат;
КонецЕсли;

//Подготовка к заполнению выходных форм данными запроса
Пока Запрос.Группировка(“Сч”) = 1 Цикл
// Заполнение полей Сч
Сч = Запрос.Сч;
Пока Запрос.Группировка(“КорСч”) = 1 Цикл
// Заполнение полей КорСч
КорСч = Запрос.КорСч;
// Дальнейшая обработка...
КонецЦикла;
КонецЦикла;

| опубликовано: 7 Июль 2007, 21:25

Комментирование этой статьи закрыто