//Формирование записей перерасчета Процедура СформироватьЗаписиПерерасчета() // Запрос по записям регистра расчета. Запрос = Новый Запрос(" |ВЫБРАТЬ РАЗЛИЧНЫЕ | СдельнаяВыработка.ФизЛицо, | СдельнаяВыработка.Организация, | ОсновныеНачисленияРегл.Регистратор, | ОсновныеНачисленияРегл.ВидРасчета |ИЗ | РегистрНакопления.СдельнаяВыработка КАК СдельнаяВыработка | ЛЕВОЕ СОЕДИНЕНИЕ | РегистрРасчета.ОсновныеНачисленияРегл КАК ОсновныеНачисленияРегл | ПО СдельнаяВыработка.ФизЛицо = ОсновныеНачисленияРегл.ФизЛицо | И СдельнаяВыработка.Организация = ОсновныеНачисленияРегл.Организация | И (СдельнаяВыработка.Период МЕЖДУ | ОсновныеНачисленияРегл.ПериодДействияНачало | И ОсновныеНачисленияРегл.ПериодДействияКонец) |ГДЕ | ОсновныеНачисленияРегл.ВидРасчета = &ВидРасчета | И СдельнаяВыработка.Регистратор = &Регистратор |ИТОГИ ПО | Регистратор"); Запрос.УстановитьПараметр("ВидРасчета", ПланыВидовРасчета.ОсновныеНачисления.Сдельный); Запрос.УстановитьПараметр("Регистратор", Ссылка); ВыборкаДокументов = Запрос.Выполнить(). Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам); // Получение объекта ПерерасчетМенеджер. Перерасчет = РегистрыРасчета.ОсновныеНачисленияРегл. Перерасчеты.ПерерасчетОсновныхНачислений; Пока ВыборкаДокументов.Следующий() Цикл // Создание набора записей. НаборЗаписей = Перерасчет.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.ОбъектПерерасчета.Значение = ВыборкаДокументов.Регистратор; Выборка = ВыборкаДокументов.Выбрать(); // Создание записей перерасчета. Пока Выборка.Следующий() Цикл Запись = НаборЗаписей.Добавить(); Запись.ВидРасчета = Выборка.ВидРасчета; Запись.Организация = Выборка.Организация; Запись.ФизЛицо = Выборка.ФизЛицо; КонецЦикла; // Запись в таблицу без замещения. НаборЗаписей.Записать(Ложь); КонецЦикла; КонецПроцедуры
