Ошибка при вызове метода контекста (Записать). Регистр сведений. Модуль набора записи.

Question

Уважаемые! Необходимо устанавливать значение для любой НОВОЙ записи регистра.

Ситуация следующая.
Был разработан регистра сведений ОтправленныеСообщения. Непериодический, Независимый.
Под этот регистр написаны обработки, данные пишутся, все хорошо, все работает.

В какой-то момент было в конфигураторе добавлено измерение [B]ДатаЗаписиВРегистр[/B]. 

Чтобы не сломался старый код, который написан уже много где и чтобы не искать все обработки по этому регистру, было принято решение использовать [I][B]модуль набора записи[/B][/I] предопределенная процедура [I][B]ПриЗаписи[/B][/I]. Который будет заполнять новыезаписи поле [B]ДатаЗаписиВРегистр[/B] всегда текущей датой.

[1C-CODE]	

Процедура ПриЗаписи(Отказ, Замещение)
	
	Для каждого Запись Из ЭтотОбъект Цикл 
		Если НЕ ЗначениеЗаполнено(Запись.ДатаЗаписиВРегистр) Тогда
			Запись.ДатаЗаписиВРегистр = ТекущаяДата();
		КонецЕсли;
	КонецЦикла;
	
КонецПроцедуры

[/1C-CODE]

Но увы и ах, данная конструкция не работает. 


[IS-QUOTE]
{ОбщийМодуль.Тест.Модуль(1948)}: Ошибка при вызове метода контекста (Записать): Запись не верна! Значение поля не соответствует установленному отбору: ОтправленныеСообщения: 29.03.2017 15:50:09, , +71111111, Прием , , 29.03.2017 15:50:09 (Регистр сведений: Отправленные сообщения; Поле: ДатаЗаписиВРегистр)
[/IS-QUOTE]

Подскажите где ошибка?

Accepted Answer

Забыл написать что в ПередЗаписью была таже самая ошибка.

Ответ как нужно сделать: [U][I][B]Переопределить отбор.
[/B][/I][/U]
[CODE]
Процедура ПередЗаписью(Отказ, Замещение)
	
	Для каждого Запись Из ЭтотОбъект Цикл 
		Если НЕ ЗначениеЗаполнено(Запись.ДатаЗаписиВРегистр) Тогда
			ТекДата = ТекущаяДата();
			Отбор.ДатаЗаписиВРегистр.Значение = ТекДата;
			Запись.ДатаЗаписиВРегистр = ТекДата;
		КонецЕсли;
	КонецЦи
кла;

КонецПроцедуры
[/CODE]