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