В начало

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

 

Процедура ПровестиПерерасчет (Док)

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

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

 

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

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

  

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

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

  

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

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

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

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

   Сч = 1;

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

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

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

         ЖрнЗарплата.ВвестиПерерасчетНаОсновании (Док);

      КонецЕсли;

   КонецЦикла;

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