дублирование записей

обработка проведения

Процедура ОбработкаПроведения(Отказ, РежимПроведения) Экспорт
    // Вставить содержимое обработчика.

    Движения.ОсновныеНачисления.Записывать = Истина;
    Движения.ДополнительныеНачисления.Записывать = Истина;
    Движения.Удержания.Записывать = Истина;

    Движения.ОсновныеНачисления.Записать();
    Движения.ДополнительныеНачисления.Записать();
    Движения.Удержания.Записать();

    //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!



    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    НачислениеЗарплатыОсновныеНачисления.Сотрудник,
        |    НачислениеЗарплатыОсновныеНачисления.Подразделение,
        |    НачислениеЗарплатыОсновныеНачисления.Должность,
        |    НачислениеЗарплатыОсновныеНачисления.ВидРасчета,
        |    НачислениеЗарплатыОсновныеНачисления.ПериодДействияНачало,
        |    КОНЕЦПЕРИОДА(НачислениеЗарплатыОсновныеНачисления.ПериодДействияКонец, ДЕНЬ) КАК ПериодДействияКонец,
        |    НачислениеЗарплатыОсновныеНачисления.Результат,
        |    НачислениеЗарплатыОсновныеНачисления.Ссылка КАК Регистратор,
        |    НачислениеЗарплатыОсновныеНачисления.Ссылка.ПериодРегистрации,
        |    ЕСТЬNULL(ФиксированнаяСумма.Сумма, 0) КАК ФиксированнаяСумма,
        |    ЕСТЬNULL(ГрафикиПодразделений.График, ЗНАЧЕНИЕ(Справочник.Графики.ПустаяСсылка)) КАК График,
        |    НачислениеЗарплатыОсновныеНачисления.Переработка
        |ИЗ
        |    Документ.НачислениеЗарплаты.ОсновныеНачисления КАК НачислениеЗарплатыОсновныеНачисления
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФиксированнаяСумма КАК ФиксированнаяСумма
        |        ПО (ИСТИНА)
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ГрафикиПодразделений КАК ГрафикиПодразделений
        |        ПО НачислениеЗарплатыОсновныеНачисления.Подразделение = ГрафикиПодразделений.Подразделение
        |ГДЕ
        |    НачислениеЗарплатыОсновныеНачисления.Ссылка = &Ссылка
        |;
        |
        |////////////////////////////////////////////////////////////////////////////////
        |ВЫБРАТЬ
        |    НачислениеЗарплатыДополнительныеНачисления.Сотрудник,
        |    НачислениеЗарплатыДополнительныеНачисления.Подразделение,
        |    НачислениеЗарплатыДополнительныеНачисления.Должность,
        |    НачислениеЗарплатыДополнительныеНачисления.ВидРасчета,
        |    НачислениеЗарплатыДополнительныеНачисления.Результат,
        |    НачислениеЗарплатыДополнительныеНачисления.Процент,
        |    НачислениеЗарплатыДополнительныеНачисления.Ссылка КАК Регистратор,
        |    НачислениеЗарплатыДополнительныеНачисления.Ссылка.ПериодРегистрации
        |ИЗ
        |    Документ.НачислениеЗарплаты.ДополнительныеНачисления КАК НачислениеЗарплатыДополнительныеНачисления
        |ГДЕ
        |    НачислениеЗарплатыДополнительныеНачисления.Ссылка = &Ссылка";

    Запрос.УстановитьПараметр("Ссылка", Ссылка);

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

    ВыборкаОсновные = РезультатЗапроса[0].Выбрать();
    ВыборкаДополнительные = РезультатЗапроса[1].Выбрать();






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

        Если ВыборкаОсновные.ВидРасчета = ПланыВидовРасчета.ОсновныеНачисления.Фикс Тогда
            Движение = Движения.Удержания.Добавить();
            ЗаполнитьЗначенияСвойств(Движение, ВыборкаОсновные,, "Результат, ВидРасчета");
            Движение.ВидРасчета =   ПланыВидовРасчета.Удержания.Взносы;
            Движение.БазовыйПериодНачало = НачалоМесяца(ПериодРегистрации);
            Движение.БазовыйПериодКонец = КонецМесяца(Движение.БазовыйПериодНачало);


        КонецЕсли;

        Если ВыборкаОсновные.видРасчета = ПланыВидовРасчета.ОсновныеНачисления.Сверхурочные Тогда
            Движение.БазовыйПериодНачало = НачалоМесяца(ДобавитьМесяц(ПериодРегистрации, -1));
            Движение.БазовыйПериодКонец = КонецМесяца(Движение.БазовыйПериодНачало);
        КонецЕсли;



    КонецЦикла;


    Движения.ОсновныеНачисления.Записать();
    Движения.Удержания.Записать();

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

        Движение = Движения.ДополнительныеНачисления.Добавить();
        ЗаполнитьЗначенияСвойств(Движение, ВыборкаДополнительные, ,"Результат");
         Движение.БазовыйПериодНачало = НачалоМесяца(ДобавитьМесяц(ПериодРегистрации, -1));
        Движение.БазовыйПериодКонец = КонецМесяца(Движение.БазовыйПериодНачало);



    КонецЦикла;

    Движения.ДополнительныеНачисления.Записать();



    Рассчет.РассчитатьОсновныеНачисления(Движения.ОсновныеНачисления, Ссылка);
    Рассчет.РассчитатьДополнительныеНачисления(Движения.ДополнительныеНачисления, Ссылка);
    Рассчет.РассчитатьУдержания(Движения.Удержания, Ссылка);

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