В начало

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

 

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

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

 

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

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

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

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

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

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

   КонецЦикла;

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