В начало

Процедура Перерасчет

 

Процедура Перерасчет (Группа, Сотрудник, Основание, Начало, Окончание)

   //Группа расчетов "оплата по среднему"

   ОС = ГруппаРасчетов.ОплатаПоСреднему;

   // Перерасчет по журналу "зарплата"

   ЖрнЗарплата = СоздатьОбъект ("ЖурналРасчетов.Зарплата");

   // Дата, начиная с которой нужно перерасчитывать и начисления

   ДатаНачислений = ЖрнЗарплата.КонецПериодаПоДате (Начало) + 1;

   // выделим все записи ЖР по сотруднику

   ЖрнЗарплата.ВыбратьЗаписиПоОбъекту (Сотрудник,

                    ЖрнЗарплата.НачалоПериодаПоДате (Начало),

                    Минимум (Окончание, ЖрнЗарплата.НачалоТекущегоПериода () - 1));

   Сч = 1;

   Пока ЖрнЗарплата.ПолучитьЗапись () > 0 Цикл

      Если ЖрнЗарплата.ВидРасч.ВходитВГруппу (Группа) = 1 Тогда

         Пересчитать = 1;

         Если  ( (ЖрнЗарплата.ВидРасч.ВходитВГруппу (ОС) = 1) И

                (ЖрнЗарплата.ДатаНачала<ДатаНачислений)) Тогда

            // Надо перерасчитывать начисления, оплачиваемые

            //по среднему заработку только следующего

            //  (за началом действия данного документа-основания)

            // периода расчета

            Пересчитать = 0;

         КонецЕсли;

         Если Пересчитать = 1 Тогда

            ЖрнЗарплата.ВвестиПерерасчет (};

         КонецЕсли;

      КонецЕсли;

   КонецЦикла;

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