док = СоздатьОбъект("Документ.Премия");

// Метод Выбрать вызывает диалог для выбора документа

// Если документ не выбран

если док.Выбрать("Выберите документ") = 0 тогда

Предупреждение("Документ не выбран.");

возврат;

конецЕсли;

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

жз.ВыбратьЗаписиПоДокументу(док.ТекущийДокумент());

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

жз.УдалитьЗапись(); // Удаляем расчет

конецЦикла; // пока

док.Удалить(0); // Удаляем документ (ставим 1С-пометку удаления)

 док = СоздатьОбъект("Документ.Премия");

// Метод Выбрать вызывает диалог для выбора документа

// Если документ не выбран

если док.Выбрать("Выберите документ") = 0 тогда

Предупреждение("Документ не выбран.");

возврат;

конецЕсли;

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

жз.ВыбратьЗаписиПоДокументу(док.ТекущийДокумент());

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

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

КонецЦикла;

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

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

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

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

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

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

 КонецЕсли;

КонецЦикла;



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

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

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

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

КонецЦикла;



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

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

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

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

КонецЦикла;



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

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

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

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

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

КонецЦикла;