Уведомления
Очистить все

Как поменять период у записей периодического независимого регистра, соответствующих ряду условий в 1С?

1 Записи
1 Пользователи
0 Likes
210 Просмотры
83-150 Okolokompa Форум
(@telman)
Estimable Member
Присоединился: 4 года назад
Записи: 78
Создатель темы  
Процедура ЗаменаПериода() 

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

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

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

	Пока Выборка.Следующий() Цикл 
		Запись.Период = Выборка.Период; 
		Запись.СтруктурнаяЕдиница = Выборка.СтруктурнаяЕдиница; 
		Запись.ПредставительПредприятия = Выборка.ПредставительПредприятия;

		Запись.Прочитать(); 

		Если Запись.Выбран() Тогда 
			Запись.Период = Дата(2020, 1, 1); 
			Запись.Записать(); 
		КонецЕсли; 
	КонецЦикла; 

КонецПроцедуры;

   
Цитата
Поделиться: