В начало

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

 

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

   Календ = Объект.Категория.Получить (ДатаНачала).Календарь;

   Дней = Календ.Дней (ДатаНачала, ДатаОкончания);

   Если ОткрытДок (Документ) = 0 Тогда

      РассчитатьСреднюю (Документ, Константа.МесСреднБЛ,

           ГруппаРасчетов.СредняяДляБЛ, 0);

   КонецЕсли;

   // Среднюю зарплату берем из документа породившего расчет

   Результат =Окр (Дней * Документ.СрЗарплата);

   Дни = ? (Сторно = 1, -Дней, Дней);

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