В начало

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

 

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

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

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

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

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

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

   КонецЕсли;

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

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

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

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