Мегаальянс. Регистр Факт: Оптимизация движений

// +++
Процедура ЗаписьВРегистрФакт(Источник) Экспорт

    Если ТипЗнч(Источник) = Тип("ДокументОбъект.Заявка") //Боголюбская Л. 02.03.2021 (пока так, потом надо сделать ПланВидовХарактеристик, чтобы проверять на вхождение Типа источника)
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.Заявка")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.ИзменениеЦен")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.ПоступлениеТоваров")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.ЗаявкаНаРемонт")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.ЗаказПокупателя")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.ЗаказПоставщику")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.ИзвлечениеТоваровИзПроизводства")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.ПеремещениеТоваровВПроизводство")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.ПеремещениеТоваров")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.Инвентаризация")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.ИнвентаризацияАвтомобилей")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.ВъездВыезд")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.ВводРозничныхЦенНаКомплектацииАвто")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.ЖурналЗаписиНаКузовнойРемонт")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.ВводЦенНаЦветаМоделей")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.СчетФактураВыданный")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.СчетФактураПолученный")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.СчетНаОплату")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.Пропуск")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.ПроактивныйКонтакт")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.УстановкаЛиквидности")
        ИЛИ  ТипЗнч(Источник) = Тип("ДокументОбъект.ОперацияСМаркированнымиТоварами")
        Тогда
        Возврат
    КонецЕсли;

    Очистка(Источник);

    ДатаНачала = НачалоДня(Источник.Дата);

    ДатаОкончания = КонецДня(Источник.Дата);

    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |   АналитикаПланирования.Ссылка КАК Ссылка
    |ИЗ
    |   Справочник.АналитикаПланирования КАК АналитикаПланирования
    |ГДЕ
    |   ПОДСТРОКА(АналитикаПланирования.ТекстЗапроса, 1, 500) <> &Текст";

    Текст = "";
    Запрос.УстановитьПараметр("Текст", Текст);
    //Запрос.УстановитьПараметр("Ссылка", справочники.АналитикаПланирования.НайтиПоКоду("Д07"));

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

    Выборка = Результат.Выбрать();

    Пока Выборка.Следующий() Цикл

        Аналитика = Выборка.Ссылка;

        ЗапросДанныхАналитики = Новый Запрос;
        ЗапросДанныхАналитики.Текст = Аналитика.ТекстЗапроса;
        ЗапросДанныхАналитики.УстановитьПараметр("ДатаНачала",НачалоДня(ДатаНачала));
        ЗапросДанныхАналитики.УстановитьПараметр("ДатаОкончания",КонецДня(ДатаОкончания));
        //ЗапросДанныхАналитики.УстановитьПараметр("ДилерскийЦентр",ЭтотОбъект.ДилерскийЦентр);
        //ЗапросДанныхАналитики.УстановитьПараметр("ДатаНачала", Источник.Дата); //Боголюбская Л. 25.08.2020
        //ЗапросДанныхАналитики.УстановитьПараметр("ДатаОкончания", Источник.Дата); //Боголюбская Л. 25.08.2020

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

        ВыборкаДанных = РезультатДанных.Выбрать();

        Пока ВыборкаДанных.Следующий() Цикл

            // ++ Муравьев (17.06.2021)
            // Ограничение по регистратору
            Если ВыборкаДанных.Регистратор <> Источник.Ссылка Тогда

                Продолжить;

            КонецЕсли;
            // -- Муравьев (17.06.2021)

            // ограничение по дате выдачи
            Если ТипЗнч(ВыборкаДанных.Регистратор) = Тип("ДокументСсылка.ЗаказНаряд") Тогда

                Если ВыборкаДанных.Регистратор.ДатаВыдачиАвто < Дата(2018,06,01,00,00,00) Тогда
                    Продолжить;
                КонецЕсли;

            КонецЕсли;


            Запись = Регистрысведений.Факт.СоздатьМенеджерЗаписи();

            Если ТипЗнч(ВыборкаДанных.Регистратор) = Тип("ДокументСсылка.ЗаказНаряд") Тогда
                Если ВыборкаДанных.Регистратор.Цех <> Справочники.Цеха.НайтиПоКоду("ЦБ000001") Тогда
                    Если ЗначениеЗаполнено(ВыборкаДанных.Регистратор.ДилерскийЦентр) Тогда
                        Запись.ДиллерскийЦентр = ВыборкаДанных.ДилерскийЦентр; //Боголюбская Л. 24.12.2020
                    Иначе
                        Если ВыборкаДанных.Регистратор.Автомобиль.ЭтоНиссан Тогда
                            Запись.ДиллерскийЦентр = Перечисления.ДилерскийЦентр.Nissan;
                        ИначеЕсли ВыборкаДанных.Регистратор.Автомобиль.ЭтоДатсан Тогда
                            Запись.ДиллерскийЦентр = Перечисления.ДилерскийЦентр.Datsun;
                        Иначе
                            Запись.ДиллерскийЦентр = Перечисления.ДилерскийЦентр.Nissan;
                        КонецЕсли;
                    КонецЕсли;
                Иначе
                        Если ЗначениеЗаполнено(ВыборкаДанных.Регистратор.ДилерскийЦентр) Тогда
                            Запись.ДиллерскийЦентр = ВыборкаДанных.ДилерскийЦентр; //Боголюбская Л. 24.12.2020
                        Иначе
                            Запись.ДиллерскийЦентр = Перечисления.ДилерскийЦентр.Nissan;
                        КонецЕсли;
                КонецЕсли;
            Иначе
                Запись.ДиллерскийЦентр  = ВыборкаДанных.ДилерскийЦентр;
            КонецЕсли;

            Если НЕ ЗначениеЗаполнено(ВыборкаДанных.ДилерскийЦентр)  Тогда
                Запись.ДиллерскийЦентр = Перечисления.ДилерскийЦентр.Nissan;
            КонецЕсли;
            Запись.АналитиикаПланирования = Аналитика;
            Запись.ПериодОтчета = НачалоДня(ВыборкаДанных.Регистратор.Дата);
            Запись.СуммаФакт = ВыборкаДанных.Прибыль;
            Запись.СуммаПродажи = ВыборкаДанных.СуммаПродажи;
            Запись.Себестоимость = ВыборкаДанных.Себестоимость;
            Запись.Документ = ВыборкаДанных.Регистратор;


            Запись.Записать(Истина);

        КонецЦикла;

    КонецЦикла;



    Расходы(Источник);

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

Процедура Очистка(Источник) Экспорт

    НаборЗаписей = РегистрыСведений.Факт.СоздатьНаборЗаписей();

    НаборЗаписей.Отбор.ПериодОтчета.Установить(НачалоДня(Источник.Дата));
    // ++ Муравьев (17.06.2021)
    // Ограничение по регистратору
    НаборЗаписей.Отбор.Документ.Установить(Источник.Ссылка);
    // -- Муравьев (17.06.2021)

    НаборЗаписей.Записать();

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