Проблема с Регистром Сведений

Question

Здравствуйте, не могу записать набор записей в регистр сведений.
"Запись не верна! Значение поля не соответствует установленному отбору"
Вот Код :
[1C-CODE]


&НаСервереБезКонтекста
Процедура ЗаполнитьКалендарьНаГодНаСервере()
	 Дата1 = ТекущаяДата();
	 Дата1 = НачалоГода(Дата1);  
	 Дата2 = КонецГода(Дата1);
	 НаборЗаписей = РегистрыСведений.ПроизводственныйКалендарь.СоздатьНаборЗаписей();
	 НаборЗаписей.Отбор.ДатаКалендаря.Установить(Дата1);  
	 НаборЗаписей.Прочитать();      
     НаборЗаписей.Очистить();
	 НаборЗаписей.Записать();
	 Пока Дата1 < Дата2 Цикл
		 НаборЗаписей.Отбор.ДатаКалендаря.Установить(Дата1);
		 Запись = НаборЗаписей.Добавить();
		 Запись.ДатаКалендаря = Дата1;   
		 Запись.Год  = Год(Дата1);
		 Запись.ДеньНедели = ДеньНедели(Дата1);   
		 Дата1 = Дата1 + 86400;   
	     НаборЗаписей.Записать();

	 КонецЦикла;


КонецПроцедуры

[/1C-CODE]

Accepted Answer

(1) внутри цикла нужно добавить:
НаборЗаписей.Очистить();