1С Удалить записи регистра сведений с отбором

25 Jun
Published by Nicholas

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

ЗапросДанных.УстановитьПараметр("НачалоПериода", ДатаНачала);
ЗапросДанных.УстановитьПараметр("КонецПериода", ДатаОкончания);

Результат = ЗапросДанных.Выполнить();
Выборка = Результат.Выбрать();

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

   
МенеджерЗаписи = РегистрыСведений.ЗначенияПоказателейСхемМотивации.СоздатьМенеджерЗаписи();

   
МенеджерЗаписи.ПериодДействия = Выборка.ПериодДействия;
   
МенеджерЗаписи.Показатель = Выборка.Показатель;
   
МенеджерЗаписи.Организация = Выборка.Организация;
   
МенеджерЗаписи.Подразделение = Выборка.Подразделение;
   
МенеджерЗаписи.Сотрудник = Выборка.Сотрудник;

   
МенеджерЗаписи.Прочитать();
    Если
МенеджерЗаписи.Выбран() Тогда
       
МенеджерЗаписи.Удалить();
    КонецЕсли;

КонецЦикла;

Тэги 

1С 8

Добавить комментарий

Plain text

  • HTML-теги не обрабатываются и показываются как обычный текст
  • Строки и абзацы переносятся автоматически.
CAPTCHA
Вы человек или автоматическая спам-рассылка?
Target Image