В начало

Процедура ВычСреднего

 

Процедура ВычСреднего ()

   // Вычислим среднюю сумму по наряду

   Сумма = Итог ("Сумма");

   Штук = Итог ("Штук");

   Если Штук <> 0 Тогда

      Средн = Сумма / Штук;

   Иначе;

      Средн = 0;

   КонецЕсли;

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