В начало

Процедура РасчетПодразделения

 

// Рассчитаем все записи текущего расчетного периода по

// подразделению (переменная Подр)

 

Процедура РасчетПодразделения (Подр)

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

   ТекПер = ЖР.ТекущийПериод ();

   ЖР.ВыбратьПоЗначению ("Подразделение", Подр, ТекПер.ТекПер);

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

      ЖР.Рассчитать();

   КонецЦикла;

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