Форум

Чтобы удалить (почистить) записи независимого регистра сведений в 1с 8.3, используйте следующий запрос

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