Как поменять период???

[For]

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

[Никитина]

Главное здесь- изменить записи регистра, Сам результат запроса – таблица, в которой по каждой записи заполнены все поля измерений из регистра и поле Период.

Код: [Выделить]

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

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

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

	Пока Выборка.Следующий() Цикл
		
		Запись.Период 			  = Выборка.Период;
		Запись.СтруктурнаяЕдиница = Выборка.СтруктурнаяЕдиница;
		Запись.ОтветственноеЛицо  = Выборка.ОтветственноеЛицо;
		
		Запись.Прочитать();
 
		Если Запись.Выбран() Тогда
			Запись.Период = Дата(2004, 1, 1);
			
			Запись.Записать();		 
			
		КонецЕсли;
		
	КонецЦикла;

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