В начало

Процедура Выполнить

 

// Процедура выполняет расчет по журналу Зарплата

 

Процедура Выполнить ()

   ЖрнЗарплата.ВыбратьПериод{ЖрнЗарплата.НачалоТекущегоПериода ());

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

      Если Считать () = 1 Тогда

         Если ЖрнЗарплата.ВыполнитьРасчет ()= 0 Тогда

            // Прерываем процедуру, если расчет неудачен или

            // пользователь нажал ЕSС

            Прервать;

         КонецЕсли;

      КонецЕсли;

   КонецЦикла;

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