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