Как удалить записи независимого регистра сведений в 1с 8.3? | Форум Программирование в ЗУП 3.1

Форум

Добро пожаловать на «ЗУП по зубам» — Форум по ЗУП 3.1 на платформе 1С 8.3!

Задайте вопрос и специалисты-консультанты постараются вам помочь!

Домой 1С: Зарплата и управление персоналом (ЗУП) 3.1 Программирование в ЗУП 3.1 Как удалить записи независимого регистра сведений в 1с 8.3?
1 ответ(ов) в теме
ЗУП по зубам
не в сети 2 дня
На сайте с 16.03.2019
Администратор
Тем 146
Сообщения 252
1
16:31

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

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

Редакции сообщения
24.06.2019 16:33ZupManПричина: не указано
27.06.2019 17:04ZupManПричина: не указано
Вы не имеете права на публикацию сообщений в этой теме