Ошибка в обработке - Форум программистов

Вот код обработки весь ...

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

| ПродажиПоДисконтнымКартамОбороты.ДисконтнаяКарта.ДатаОткрытия КАК ДатаОткрытия,

| ДОБАВИТЬКДАТЕ(ПродажиПоДисконтнымКартамОбороты.ДисконтнаяКарта.ДатаОткрытия, МЕСЯЦ, 12) КАК ДатаЗакрытия,

| ПродажиПоДисконтнымКартамОбороты.ДисконтнаяКарта,

| ПродажиПоДисконтнымКартамОбороты.ДисконтнаяКарта.ВидДисконтнойКарты

| РегистрНакопления.ПродажиПоДисконтнымКартам.Обороты КАК ПродажиПоДисконтнымКартамОбороты

| ПродажиПоДисконтнымКартамОбороты.ДисконтнаяКарта.ВидДисконтнойКарты = &ВидДК И

| ДОБАВИТЬКДАТЕ(ПродажиПоДисконтнымКартамОбороты.ДисконтнаяКарта.ДатаОткрытия, МЕСЯЦ, 12) = &ДатаЗакрытия

|";

Запрос.УстановитьПараметр("ВидДК", ВидДК);

Запрос.УстановитьПараметр("ДатаЗакрытия", ДатаЗакрытия);

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

Док = Документы.КорректировкаЗаписейРегистров.СоздатьДокумент();

Док.Дата = ДатаЗакрытия;

ДвиженияДок = Док.Движения;

Регистры = Док.ТаблицаРегистровНакопления.Добавить();

Регистры.Имя = "ПродажиПоДисконтнымКартам";

Регистры.Представление = "ПродажиПоДисконтнымКартам";

ПродажиПоДисконтнымКартам = ДвиженияДок.ПродажиПоДисконтнымКартам;

СтрокиТаблицы = ПродажиПоДисконтнымКартам.Добавить();

СтрокиТаблицы.ДисконтнаяКарта = ТЗ.Получить(Счетчик).ДисконтнаяКарта;

СтрокиТаблицы.Сумма = ТЗ.Получить(Счетчик).СуммаОборот;

КонецЦикла;

Док.Записать();

"Редактирование данных этого периода запрещено. Изменения не могут быть записаны..."

Ошибка при вызове метода контекста (Записать): Запись не верна! Период не может быть пустым!