В начало

Процедура Начислено

 

Процедура Начислено (Сотрудник)

   Начисл = 0;

   ПН = 0;

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

   Пока ЖрнЗарплатаолучитьЗапись () = 1 Цикл

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

         Начисл = Рез + ЖрнЗарплатаезультат;

      ИначеЕсли ЖрнЗарплатаидРасч = ВидРасчета.ПодоходныйНалог

         Тогда ПН = ПН+ЖрнЗарплатаезультат;

      КонецЕсли;

   КонецЦикла;

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