Индексация в период отпуска

26.04.12

Задачи пользователя - Адаптация типовых решений

Если индексация прошла до начала отпуска, то документ "Начисление отпуска работникам организаций" производит расчет верно. Если индексация произошла в период отпуска, то индексация не учитывается. Расчетчики попросили, чтобы в период до индексации средний заработок рассчитывался без учета индексации, а после - с индексацией. На форуме 8-ки написано, что данный вопрос можно решить только редактированием конфигурации.

Предыдущая версия публикации некорректно отрабатывала ситуации, когда есть дополнительный отпуск, но нет основного. Данная ошибка устранена.

Предлагаю свой вариант решения проблемы.

Необходимо в процедуру Рассчитать() модуля документа "Начисление отпуска работникам организаций", перед комментарием

// перепишем записи основных начислений в документ

вставить следующий код:

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

Если ВыборкаИндексация.Следующий() Тогда
    ТЗСреднийСИндексацией = НаборРасчетСреднего.Выгрузить();

    //меняем коэффициенты индексации в индексируемых видах расчета
    Для Каждого СтрокаСреднего Из ТЗСреднийСИндексацией Цикл
        Если СтрокаСреднего.ВидРасчета = ПланыВидовРасчета.СреднийЗаработок.ПоГодовойПремииИндексируемые ИЛИ
            СтрокаСреднего.ВидРасчета = ПланыВидовРасчета.СреднийЗаработок.ПоЗаработкуИндексируемые ИЛИ
            СтрокаСреднего.ВидРасчета = ПланыВидовРасчета.СреднийЗаработок.ПоПремиямИндексируемые Тогда

            МесяцИндексации = Месяц(ВыборкаИндексация.Период);
            ГодИндексации = Год(ВыборкаИндексация.Период);
            МесяцТекущегоПериода = Месяц(СтрокаСреднего.БазовыйПериодНачало);
            ГодТекущегоПериода = Год(СтрокаСреднего.БазовыйПериодНачало);

            //индексация действует только на предшествующие 12 месяцев
            Если (ГодИндексации * 12 + МесяцИндексации - 1) - (ГодТекущегоПериода * 12 + МесяцТекущегоПериода - 1)                 СтрокаСреднего.КоэффициентИндексации = СтрокаСреднего.КоэффициентИндексации * ВыборкаИндексация.Коэффициент;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;

    //определим размер среднего заработка с учетом индексации
    ЗапросСреднийЗаработок = Новый Запрос;
    ЗапросСреднийЗаработок.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;

    ПоПремиям = Новый Массив(2);
    ПоПремиям[0] = ПланыВидовРасчета.СреднийЗаработок.ПоПремиямИндексируемые;
    ПоПремиям[1] = ПланыВидовРасчета.СреднийЗаработок.ПоГодовойПремииИндексируемые;
    ПоФиксПремиямНеИндексируемые = Новый Массив(2);
    ПоФиксПремиямНеИндексируемые[0] = ПланыВидовРасчета.СреднийЗаработок.ПоФиксГодовойПремииНеИндексируемые;
    ПоФиксПремиямНеИндексируемые[1] = ПланыВидовРасчета.СреднийЗаработок.ПоФиксПремиямНеИндексируемые;

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

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

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

    Если ВыборкаСреднийЗаработок.Следующий()
    Тогда
        СреднедневнойЗаработок = ?(Не ЗначениеЗаполнено(ВыборкаСреднийЗаработок.ОтработаноДней), 0, Окр(ВыборкаСреднийЗаработок.СреднийЗаработок / ВыборкаСреднийЗаработок.ОтработаноДней,2));
    Иначе
        СреднедневнойЗаработок = 0;
    КонецЕсли;

    //пересчитаем начисления отпускных, к которым должна быть применена индексация
    Для Каждого СтрокаНачисления Из НаборОсновныеНачисления Цикл
        Если НЕ СтрокаНачисления.Сторно И СтрокаНачисления.ПериодДействияНачало >= ВыборкаИндексация.Период Тогда
            СтрокаНачисления.ДополнительныеДанные = СреднедневнойЗаработок;
            СтрокаНачисления.Результат = СреднедневнойЗаработок * СтрокаНачисления.ОплаченоДнейЧасов;
        КонецЕсли;
    КонецЦикла;

КонецЕсли;

+21 –

См. также

Табличная часть в доп. реквизитах и формирование таблиц в шаблоне docx для 1С:ДО 3.0

Адаптация типовых решений Платформа 1С v8.3 1С:Документооборот Россия Платные (руб)

Расширение конфигурации для «1С:Документооборот КОРП», редакция 3.0. позволяет: 1.использовать произвольные табличные части в качестве дополнительных реквизитов к документу; 2 использовать произвольные табличные части в шаблонах в формате docx для автоматического заполнения таблиц.

29400 руб.

29.06.2023 6407 17 5

Автоматическое снятие резервов в Заказах покупателей

Логистика, склад и ТМЦ Адаптация типовых решений Пользователь Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 1С:Управление нашей фирмой 3.0 Россия Управленческий учет Платные (руб)

Чтобы не допустить путаницы с обещаниями клиентам и для четкого контроля исполнения заказов мы используем резервирование товаров. Мы доработали УНФ, чтобы она автоматически отменяла старые резервы и не мешала эффективно продавать.

7200 руб.

02.08.2023 4456 17 1

Вывод факсимиле в табличные документы (УПД, УКД, Счёт-фактура, ТОРГ-12, Акт сверки, М-15, заказ клиента и др.) для 1С УТ 11.5, КА 2.5, ERP 2.5, УНФ 3, Розница 3

Печатные формы Адаптация типовых решений Бухгалтер Пользователь Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Расширение позволяет вывести в табличном документе факсимиле печати и подписей и/или вывести произвольную картинку из прикреплённых файлов организации для 1С УТ 11.5, КА 2.5, ERP 2.5, УНФ 3, Розница 3. Вывод факсимиле возможен в табличные документы УПД, УКД, Счёт-фактура, ТОРГ-12 и другие. Возможно настроить вывод для любых типовых макетов (Акт сверки, М-15, ТТН), для этого потребуется отредактировать макет и разместить на нём картинки с установленными именами. Редактирование осуществляется через типовой механизм в пользовательском интерфейсе.

3000 руб.

07.02.2023 7064 75 17

Настройки сообщений ЭДО при запуске ЗУП.

Адаптация типовых решений Программист Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Зарплата и Управление Персоналом 3.x Россия Абонемент ($m)

Маленькая заметка (в трех разных масштабах) для тех, кто часто видит окно при входе в ЗУП «Новые сообщения для расшифровки по 1С-Отчетность», которое появляется через 60 секунд после запуска программы, как раз когда вы уже добрались до интересующей вас формы и начали в ней что-то активно делать:

1 стартмани

17.06.2024 2622 38 Znata_PI 5

Каждому менеджеру нужен свой Excel

Адаптация типовых решений Программист Пользователь Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Абонемент ($m)

Каждый из нас сталкивается с ситуацией, когда какой-нибудь менеджер показывает свой Excel и рассказывает, как он что-то из 1С копирует в него, снабжает пояснениями, выделяет цветом и т.д. и т.п. Заканчивается все просьбой сделать вот чтобы также было в 1С. И оказывается такой человек (почти с гарантией) либо лучшим продажником, либо каким-то важным, за все отвечающим, - на ком все держится.

2 стартмани

22.04.2024 5459 dimanich70 15

Создать на основании - своя кнопка. Проблема двух подменю Создать на основании.

БСП (Библиотека стандартных подсистем) Адаптация типовых решений Программист Платформа 1С v8.3 1С:ERP Управление предприятием 2 Бесплатно (free)

Понадобилось в подменю "Создать на основании" добавить свою команду, которая открывает обработку. В процессе доработок появилась проблема двух подменю "Создать на основании". В статье о том, как решились проблемы.

01.03.2024 8018 dimanich70 10

Связанные документы

Адаптация типовых решений Программист Платформа 1С v8.3 1С:Управление торговлей 11 Россия Абонемент ($m)

Доработка типового отчета "Связанные документы" позволяет просто и быстро расширять состав объектов для построения структуры подчиненности документов, используя объекты основной конфигурации и любых расширений.

1 стартмани

27.10.2023 3898 31 TempTablesManager 14

Отгрузка заказа клиента в 1 клик для УТ 11.5, КА 2.5, ERP 2.5

Адаптация типовых решений Создание на основании Пользователь Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Управленческий учет Платные (руб)

Расширение позволяет в 1 клик поставить весь состав заказа клиента в отгрузку и открыть заполненные формы документов отгрузки по заказу.

3600 руб.

25.08.2023 1652 4 0

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. Boroda 90 19.11.11 12:32 Сейчас в теме

Спасибо! Попробуем этот вариант расчёта. Обычно мы просто вручную пересчитывали отпуск сотрудникам, уже гуляющим, и выплачивали разницу.
А после этой автоматизации, очевидно, надо просто пересчитать отпуск этим ребятам, и разница определится сама?

2. scientist 21 19.11.11 12:51 Сейчас в теме

Не забудьте только ввести документ "Индексация заработка". Тогда перерасчет должен пройти правильно.

3. Boroda 90 19.11.11 14:20 Сейчас в теме

(2) Ну, это ж естественно! Но, кстати, он и так введётся после индексации в Кадровом перемещении". Так что останется только пересчитать.

4. scientist 21 19.11.11 20:36 Сейчас в теме

Зачем через кадровое перемещение вводить? У вас индексация не в начале месяца идет?

5. delta 699 23.11.11 07:20 Сейчас в теме

Спасибо огромное!!! Вот расчетчики обрадуются!!!

6. GTV 23.11.11 08:21 Сейчас в теме

Очень полезно и своевременно! Спасибо!

7. ryabov_d 28.12.11 11:15 Сейчас в теме

а в других расчетах по среднему, например командировках или льготных днях родителей, такую правку тоже надо делать?

8. scientist 21 29.12.11 08:17 Сейчас в теме

Для командировок тоже надо будет редактировать конфигурацию.

9. Katish7 20.06.12 06:57 Сейчас в теме

Это что за код такой:

//индексация действует только на предшествующие 12 месяцев
Если (ГодИндексации * 12 + МесяцИндексации - 1) - (ГодТекущегоПериода * 12 + МесяцТекущегоПериода - 1) СтрокаСреднего.КоэффициентИндексации = СтрокаСреднего.КоэффициентИндексации * ВыборкаИндексация.Коэффициент;
КонецЕсли;

???

10. scientist 21 27.06.12 14:30 Сейчас в теме

Вы видите искаженный кусок кода. На самом деле он выглядит так:

Если (ГодИндексации * 12 + МесяцИндексации - 1) - (ГодТекущегоПериода * 12 + МесяцТекущегоПериода - 1) <= 12 Тогда
СтрокаСреднего.КоэффициентИндексации = СтрокаСреднего.КоэффициентИндексации * ВыборкаИндексация.Коэффициент;
КонецЕсли;

Т.е. если человек взял отпуск с 29 марта, то период среднего будет март прошлого года по февраль нынешнего. Если 1 апреля т.г. прошла индексация, то она должна примениться только к периодам начиная с апреля прошлого года.

P.S. Это моя первая публикация здесь, в следующий раз положу код в текстовый файл.

11. lissa707 21.11.12 00:26 Сейчас в теме

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

{Документ.НачислениеОтпускаРаботникамОрганизаций.МодульОбъекта(248)}: Ошибка при вызове метода контекста (Выполнить)
ВыборкаИндексация = ЗапросИндексация.Выполнить().Выбрать();
по причине:
по причине:
{(12, 16)}: Неверные параметры "И"
И <<?>>КоэффициентИндексацииЗаработка.Период

Уважаемый автор, подскажите!!!!

13. scientist 21 21.11.12 13:08 Сейчас в теме

(11) lissa707, скорее всего у вас неверно набран текст указанного запроса. между "И" и "КоэффициентИндексацииЗаработка.Период" должен быть только пробел. а у вас, скорее всего, поставлен еще "&"

12. scientist 21 21.11.12 11:30 Сейчас в теме

Можно скриншот окна конфигуратора, в котором виден проблемный запрос?

14. lissa707 21.11.12 22:33 Сейчас в теме

Да нет, "&" там нет. Код копировала с публикации, не набирала. Скрин приложила.

Прикрепленные файлы:

Документ.rtf

15. scientist 21 22.11.12 09:49 Сейчас в теме

(14) lissa707, текст запроса должен быть таким:

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

16. lissa707 28.11.12 11:01 Сейчас в теме

(15) а можно весь код в текстовый файл положить? может там еще что-то потерялось?

17. lissa707 28.11.12 11:16 Сейчас в теме

А вообще, все получилось. Большое спасибо!

18. bme 232 12.09.13 16:30 Сейчас в теме

Большое спасибо! Статья до сих пор актуальная :)

19. NetKat 33 23.09.13 10:05 Сейчас в теме

Спасибо, помого!. Доработка не учитывает двойной индексации, например у сотрудника отпуск с 05.08. 2013 по 01.10.2013 был начислен в августе. Коэф. индексации с 01.09.2013 =1,14, коэф. индексации с 01.10.13 =1,065. Период отпуска с 05.08.2013 по 31.08.13 должен посчитаться без индексации, период с 01.09.13 по 30.09.13 с коэф= 1,14, а один день 01.10.13 должен посчитаться с коэф. индексации=1,065*1,14=1,2141. При такой настройке период с с 01.09.13 по 01.10.13 посчитается с коэф=1,14.