1С 7.x : Как вывести все зарегистрированные в текущем периоде расчеты (объект, ВР и результат) Сотрудников

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

если сСотр_2.НайтиПоНаименованию("02 Цех", 0) = 0 тогда

Предупреждение("Второй цех не найден.");

возврат;

конецЕсли;

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

пер = жз.ТекущийПериод();

// Подразделение предприятия (найденная выше группа справочника Сотрудники)

подр = сСотр_2.ТекущийЭлемент();

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

пока жз.ПолучитьЗапись() = 1 цикл

Сообщить("" + жз.Объект + СимволТабуляции + жз.ВидРасч +

СимволТабуляции + жз.Результат);

конецЦикла;