получить набор записей регистра

       |ГДЕ

       |    НачисленияПерерасчет.ВидРасчета = &ТребуемыйВидРасчета

       |ИТОГИ ПО

       |    ОбъектПерерасчета");

   Запрос.УстановитьПараметр("ТребуемыйВидРасчета", ТребуемыйВидРасчета);

   СписокСотрудников = Новый СписокЗначений;

   //перебрать группировку по регистратору

   ВыборкаПоРегистратору = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

   Пока ВыборкаПоРегистратору.Следующий() Цикл

       Регистратор = ВыборкаПоРегистратору.ОбъектПерерасчета;

       //перебрать группировку по сотрудникам

       //для выбранного регистратора

       //и создать список сотрудников

       ВыборкаПоСотрудникам = ВыборкаПоРегистратору.Выбрать();

       СписокСотрудников.Очистить();

       Пока ВыборкаПоСотрудникам.Следующий() Цикл

           СписокСотрудников.Добавить(ВыборкаПоСотрудникам.Сотрудник);

       КонецЦикла;

       // получить набор записей регистра расчета

       //для выбранного регистратора

       НаборЗаписей = РегистрыРасчета.Начисления.СоздатьНаборЗаписей();

       НаборЗаписей.Отбор.Регистратор.Значение = Регистратор;

       НаборЗаписей.Прочитать();

       РасчитатьНачисления(НаборЗаписей, ТребуемыйВидРасчета, СписокСотрудников);

       НаборЗаписей.Записать(,Истина);

       //очистить перерасчитанные записи в перерасчете


Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---

---

---