Расчёт средних продаж

Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    Продажи.Номенклатура КАК Номенклатура,
        |    Продажи.Номенклатура.Производитель КАК Производитель,
        |    Продажи.КоличествоОборот,
        |    Продажи.Период КАК Период
        |ИЗ
        |    (ВЫБРАТЬ
        |        АналитикаПоПартнерам.Партнер КАК Партнер,
        |        АналитикаНоменклатуры.Номенклатура КАК Номенклатура,
        |        АналитикаНоменклатуры.Склад КАК Склад,
        |        Продажи.Регистратор КАК Регистратор,
        |        Продажи.КоличествоОборот КАК КоличествоОборот,
        |        Продажи.Период КАК Период
        |    ИЗ
        |        РегистрНакопления.ВыручкаИСебестоимостьПродаж.Обороты(&НачПериода, &КонПериода, Регистратор, ) КАК Продажи
        |            {ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.АналитикаУчетаНоменклатуры КАК АналитикаНоменклатуры
        |            ПО Продажи.АналитикаУчетаНоменклатуры = АналитикаНоменклатуры.КлючАналитики}
        |            {ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.АналитикаУчетаПоПартнерам КАК АналитикаПоПартнерам
        |            ПО Продажи.АналитикаУчетаПоПартнерам = АналитикаПоПартнерам.КлючАналитики}
        |    ГДЕ
        |        Продажи.Регистратор.Ссылка ССЫЛКА Документ.РеализацияТоваровУслуг) КАК Продажи
        |ГДЕ
        |   Продажи.Склад <> &Склад
        |    И Продажи.Партнер <> &ИнкомЦентрЙошкарОла
        |    И Продажи.Номенклатура В ИЕРАРХИИ(&Товар)
        |    И Продажи.Номенклатура.Производитель = &Производитель
        |
        |УПОРЯДОЧИТЬ ПО
        |    Продажи.Номенклатура.Наименование,
        |    Период
        |ИТОГИ ПО
        |    Номенклатура";

    Запрос.УстановитьПараметр("Товар", ТоварнаяГруппаДляРасчета);
    Если СокрЛП(Отчет.Производитель) <> "" Тогда
        Запрос.УстановитьПараметр("Производитель", Справочники.Производители.НайтиПоНаименованию(СокрЛП(Отчет.Производитель)));
    Иначе
        Запрос.Текст = СтрЗаменить(Запрос.Текст, "И Продажи.Номенклатура.Производитель = &Производитель", "");
    КонецЕсли;
    Если Отчет.УчитыватьФилиалы = Ложь Тогда
        Запрос.УстановитьПараметр("ИнкомЦентрЙошкарОла", Справочники.Партнеры.НайтиПоНаименованию("Инкомцентр-М ООО г. Йошкар-Ола"));
    Иначе
        Запрос.Текст = СтрЗаменить(Запрос.Текст, "И Продажи.Партнер <> &ИнкомЦентрЙошкарОла", "");
    КонецЕсли;
    Запрос.УстановитьПараметр("НачПериода", НачалоДня(НачПериода));
    Запрос.УстановитьПараметр("КонПериода", КонецДня(КонПериода));
    Запрос.УстановитьПараметр("Склад", Справочники.Склады.НайтиПоНаименованию("Склад транзита"));

    Результат = Запрос.Выполнить();

    ВыборкаНоменклатура = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

    Пока ВыборкаНоменклатура.Следующий() Цикл
        // Вставить обработку выборки ВыборкаНоменклатура

        ВыборкаДетальныеЗаписи = ВыборкаНоменклатура.Выбрать();
        ПродажиЗаПериод = 0;
        //ТаблицаПродаж.Очистить();

        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
            СтрокаПродаж = ТаблицаПродаж.Добавить();
            СтрокаПродаж.Продано =  ВыборкаДетальныеЗаписи.КоличествоОборот;
            //Сообщить("Продажи - "+СтрокаПродаж.Продано);

            Если ВыборкаДетальныеЗаписи.Период >= НачалоПродаж   Тогда
                ПродажиЗаПериод = ПродажиЗаПериод + ВыборкаДетальныеЗаписи.КоличествоОборот;
            КонецЕсли;
        КонецЦикла;

        ТаблицаПродаж.Свернуть("Продано", "Тест");
        ТаблицаПродаж.Сортировать("Продано Возр");

        Если ТаблицаПродаж.Количество()=0 Тогда
            МинОстаток =1;

        ИначеЕсли (ТаблицаПродаж.Количество()=1) или  (ТаблицаПродаж.Количество()=2) Тогда
            МинОстаток = ТаблицаПродаж[0].Продано;
        Иначе
            КолРазл = ТаблицаПродаж.Количество();
            ПозСер = Окр(КолРазл/2-1,0,1);
            МинОстаток = ТаблицаПродаж[ПозСер].Продано;
        КОнецЕсли;

        КолДней = 0;
        КолДнейМО = 0;
        КолДнейВ = 0;

        Запрос = Новый Запрос;
        Запрос.Текст =
        "ВЫБРАТЬ
        |    СвободныеОстаткиОстаткиИОбороты.Период КАК Период,
        |    СвободныеОстаткиОстаткиИОбороты.ВНаличииКонечныйОстаток КАК ВНаличииКонечныйОстаток
        |ИЗ
        |    РегистрНакопления.СвободныеОстатки.ОстаткиИОбороты(&НачПериода, &КонПериода, День, , Номенклатура = &Номенклатура) КАК СвободныеОстаткиОстаткиИОбороты
        |
        |УПОРЯДОЧИТЬ ПО
        |    СвободныеОстаткиОстаткиИОбороты.Период
        |ИТОГИ
        |    СУММА(ВНаличииКонечныйОстаток)
        |ПО
        |    Период ПЕРИОДАМИ(ДЕНЬ, &НачПериода, &КонПериода)";

        Запрос.УстановитьПараметр("НачПериода", НачалоДня(НачалоПродаж));
        Запрос.УстановитьПараметр("КонПериода", КонецДня(КонПериода));
        Запрос.УстановитьПараметр("Номенклатура", ВыборкаНоменклатура.Номенклатура);

        Результат = Запрос.Выполнить();

        ВыборкаПериод = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам,"Период","ВСЕ");

        Пока ВыборкаПериод.Следующий() Цикл
            Если ЗначениеЗаполнено(ВыборкаПериод.ВНаличииКонечныйОстаток) Тогда
                Если ВыборкаПериод.ВНаличииКонечныйОстаток >= МинОстаток Тогда
                    КолДней = КолДней + 1;
                КонецЕсли;
                Если ВыборкаПериод.ВНаличииКонечныйОстаток >= 1  Тогда
                    КолДнейМО = КолДнейМО + 1;
                КонецЕсли;
            КонецЕсли;                                     КонецЦикла;

        Сообщить("--------------------------------");
        Сообщить("Ном - "+ВыборкаНоменклатура.Номенклатура);
        Сообщить("Всего продажи - "+ПродажиЗаПериод);


        СредниеПродажи  = ?(КолДней = 0, 0,  ПродажиЗаПериод/КолДней);
        МинОстаток1     = ?(КолДнейМО = 0, 0,  ПродажиЗаПериод/КолДнейМО);

        Результат1 = Запрос.Выполнить();

        Если Отчет.МинимальныйОстатокВвестиВРучную = Истина и Отчет.МинимальныйОстаток > 0 Тогда
            МинОстаток1 = Отчет.МинимальныйОстаток;
            Сообщить("Используем установленный минимальный остаток - "+МинОстаток1);
        КонецЕсли;

        ВыборкаПериод1 = Результат1.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам,"Период","ВСЕ");
        Пока ВыборкаПериод1.Следующий() Цикл
            Если ЗначениеЗаполнено(ВыборкаПериод1.ВНаличииКонечныйОстаток) Тогда
                Если ВыборкаПериод1.ВНаличииКонечныйОстаток >= МинОстаток1 Тогда
                    КолДнейВ = КолДнейВ + 1;
                КонецЕсли;
            КонецЕсли;
        КонецЦикла;

        СредниеПродажи1 = ?(КолДнейВ = 0, 0,  ПродажиЗаПериод/КолДнейВ);

        СредниеПродажи  = Окр(СредниеПродажи1,3,0);
        СредниеПродажи1 = Окр(СредниеПродажи1,3,0);
        МинОстаток1     = Окр(МинОстаток1,3,0);
        Сообщить("Дней когда кон остаток больше чем мин (старая мет) - "+КолДней);
        Сообщить("Дней когда остатки больше чем мин - "+КолДнейВ);
        Сообщить("Дней когда товар на складе был (больше чем 1) - "+КолДнейМО);
        Сообщить("Средние продажи: старая методика - "+СредниеПродажи);
        Сообщить("Мин остаток: старая методика - "+МинОстаток);
        Сообщить("Средние продажи; новая методика - "+СредниеПродажи1);
        Сообщить("Мин остаток: новая методика - "+МинОстаток1);

        Если Отчет.ЗаписатьРасчет = Истина Тогда
            СпрОбъект = ВыборкаНоменклатура.Номенклатура.ПолучитьОбъект();
            СпрОбъект.СредниеПродажиЗаДень     = СредниеПродажи1;
            СпрОбъект.НижнийПорогЗаказа = МинОстаток1;
            СпрОбъект.Записать();
        КонецЕсли;

    КонецЦикла;