Как программно получить цену реализации и продажную стоимость из регистра «Продажи» в 1С 7.7?

← На главную

При разработке отчетов и обработок в платформе 1С 7.7 часто возникает необходимость вывести данные о суммах и объемах продаж по конкретным позициям номенклатуры. Разберем типичные ошибки, с которыми сталкиваются начинающие разработчики при обращении к оборотным регистрам накопления, и рассмотрим правильный алгоритм получения показателей через объект Запрос.

Причины ошибок при прямой работе с объектом «Регистр»

Выясним причину, почему при попытке получить данные напрямую из объекта Регистр.Продажи через методы ВыбратьИтоги() и ПолучитьИтог() программа выводит одинаковые значения для всех строк отчета.

Когда мы обращаемся к объекту регистра без предварительного вызова метода УстановитьФильтр() или УстановитьЗначениеФильтра(), метод ВыбратьИтоги() рассчитывает общие общие итоги по всему регистру за всё время, не разделяя суммы по конкретным позициям справочника Номенклатура.

Кроме того, оборотный регистр Продажи хранит агрегированные суммы реализации и количество. Если требуется узнать среднюю цену реализации за период, в самом регистре она не хранится как отдельное поле — ее необходимо вычислять математически путем деления общей стоимости на количество.

Формирование запроса к регистру «Продажи»

Наиболее эффективным и быстродействующим способом получения итогов по продажам в 1С 7.7 является использование объекта Запрос. Рассмотрим, как правильно составить текст запроса для обращения к оборотным ресурсам регистра.

Для корректного получения данных необходимо сделать следующее:

Указать период с помощью оператора Период с ... по ....
Назначить переменные запроса для измерений (Номенклатура) и ресурсов (Количество, ПродСтоимость).
Применить агрегатную функцию Сумма() к ресурсам регистра.
Задать группировку по номенклатуре.

Посмотрим на пример готового кода для формирования запроса:


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

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

ТекстЗапроса = "//{{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|Номенклатура = Регистр.Продажи.Номенклатура;
|Количество = Регистр.Продажи.Количество;
|ПродСтоимость = Регистр.Продажи.ПродСтоимость;
|Функция КоличествоСумма = Сумма(Количество);
|Функция ПродСтоимостьСумма = Сумма(ПродСтоимость);
|Группировка Номенклатура Без Групп упорядочить по Номенклатура.Наименование;
|";

Если ПустоеЗначение(ВыбТМЦ) = 0 Тогда
    ТекстЗапроса = ТекстЗапроса + "Условие(Номенклатура в ВыбТМЦ);";
КонецЕсли;

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

Расчет фактической цены реализации

Проанализируем процесс обхода результатов запроса и расчета средней продажной цены. В цикле обхода группировки вычисляем цену делением суммы на количество. При этом обязательно проверяем делитель на равенство нулю, чтобы избежать фатальной ошибки выполнения программы.


Пока Запрос.Группировка("Номенклатура") = 1 Цикл
    ТекНоменклатура = Запрос.Номенклатура;
    ВсегоКоличество = Запрос.КоличествоСумма;
    ВсегоСумма = Запрос.ПродСтоимостьСумма;
    
    // Безопасный расчет цены продажи
    Если ВсегоКоличество <> 0 Тогда
        ЦенаПродажи = ВсегоСумма / ВсегоКоличество;
    Иначе
        ЦенаПродажи = 0;
    КонецЕсли;
    
    // Вывод полученных данных в печатную форму или таблицу значений
    // Таб.ВывестиСекцию("Строка");
КонецЦикла;

Важные особенности и рекомендации

При работе с регистром Продажи необходимо учитывать следующие моменты:

Периодические прайс-цены: Если перед вами стоит задача вывести не фактически сложившуюся цену реализации из совершенных документов, а установленную плановую цену (например, розничную или оптовую), обращаться к регистру продаж не нужно. Прайсовые цены считываются напрямую из справочника или регистра сведений методом .Получить(Дата).
Оборотные функции: В запросах к оборотным регистрам 1С 7.7 разрешено использовать функцию Сумма(). Функции остатков НачОст и КонОст применять к таким регистрам нельзя.
Альтернативный метод ВыгрузитьИтоги: Если требуется получить данные регистра без использования объекта Запрос, можно воспользоваться методом Регистр.Продажи.ВыгрузитьИтоги(ТЗ). В этом случае данные будут помещены в объект ТаблицаЗначений, где их можно сгруппировать и отфильтровать средствами языка.