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

 // Изменение записей регистра

Процедура ЗаменаПериода()



	Запрос = Новый Запрос;

	

	Запрос.Текст = 

	"ВЫБРАТЬ

	|	ОтветственныеЛицаОрганизации.Период,

	|	ОтветственныеЛицаОрганизации.СтруктурнаяЕдиница,

	|	ОтветственныеЛицаОрганизации.ОтветственноеЛицо

	|ИЗ

	|	РегистрСведений.ОтветственныеЛицаОрганизации КАК ОтветственныеЛицаОрганизации

	|ГДЕ

	|	ОтветственныеЛицаОрганизации.Период <= ДАТАВРЕМЯ(2005, 1, 1)

	|	И 

	|	ОтветственныеЛицаОрганизации.СтруктурнаяЕдиница.Наименование ПОДОБНО ""Групп-Трейдинг""

	|	И 

	|	(ОтветственныеЛицаОрганизации.Должность.Наименование ЕСТЬ NULL 

	|	 ИЛИ 

	|	 НЕ(ОтветственныеЛицаОрганизации.Должность.Наименование ПОДОБНО ""Продавец"" 

	|		ИЛИ 

	|		ОтветственныеЛицаОрганизации.Должность.Наименование ПОДОБНО ""Кладовщик""))";



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

	Выборка = Результат.Выбрать();

		

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



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

		

		Запись.Период = Выборка.Период;

		Запись.СтруктурнаяЕдиница = Выборка.СтруктурнаяЕдиница;

		Запись.ОтветственноеЛицо  = Выборка.ОтветственноеЛицо;

		

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

 

		Если Запись.Выбран() Тогда

			Запись.Период = Дата(2004, 1, 1);

			

			Запись.Записать();		 

			

		КонецЕсли;

		

	КонецЦикла;



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