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

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

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

возврат;

конецЕсли;

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

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

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

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

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

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

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

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

конецЦикла;

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

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

Сообщить("Текущий период:" + Символ Табуляции + пер);

пер = пер.ПрибавитьПериод(1);

Сообщить("Период после:" + СимволТабуляции + пер);

пер = пер.ПрибавитьПериод(-2);

Сообщить("Период до:" + СимволТабуляции + пер);

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

жз.ВыбратьЗаписи(); // Позиционируемся на первом расчете ЖЗ

пер = жз.ПериодРегистрации; // или жз.ПериодДействия;

Сообщить("Период регистрации:" + СимволТабуляции + пер);

пер = пер.ПрибавитьПериод(1);

Сообщить("Период после:" + СимволТабуляции + пер);

пер = пер.ПрибавитьПериод(-2);

Сообщить("Период до:" + СимволТабуляции + пер);

 //   Посчитаем все начисления текущего сотрудника за январь:

ВсегоНачислено = 0;

ЖЗ.ВыбратьЗаписиПоОбъекту (ТекСотр, ДатаНач, ДатаКон);

Пока ЖЗ.ПолучитьЗапись()=1 Цикл

 Если ЖЗ.ВидРасч.ВходитВГруппу(ГруппаРасчетов.ВсеНачисления)=1 Тогда

   ВсегоНачислено = ВсегоНачислено + ЖЗ.Результат;

 КонецЕсли;

КонецЦикла;



//   Теперь рассчитаем все записи текущего сотрудника, введеные в текущем месяце:

ЖЗ.ВыбратьПериодПоОбъекту (ТекСотр, ДатаНач);

Пока ЖЗ.ПолучитьЗапись()=1 Цикл

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

КонецЦикла;



///   Рассчитаем все записи по документу, независимо от того, в каком расчетном периоде записи порождались:

ЖЗ.ВыбратьЗаписиПоДокументу (ВыбрДокумент);

Пока ЖЗ.ПолучитьЗапись()=1 Цикл

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

КонецЦикла;



//   Рассчитаем все записи по указанному подразделению. В журнале расчетов указана графа отбора "Подразделение".

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

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

Пока ЖЗ.ПолучитьЗапись()=1 Цикл

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

КонецЦикла;