Ошибка в обработке

  • Автор темы MelU
  • Дата начала
M

MelU

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

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ПродажиПоДисконтнымКартамОбороты.ДисконтнаяКарта.ДатаОткрытия КАК ДатаОткрытия,
| ДОБАВИТЬКДАТЕ(ПродажиПоДисконтнымКартамОбороты.ДисконтнаяКарта.ДатаОткрытия, МЕСЯЦ, 12) КАК ДатаЗакрытия,
| ПродажиПоДисконтнымКартамОбороты.ДисконтнаяКарта,
| ПродажиПоДисконтнымКартамОбороты.СуммаОборот,
| ПродажиПоДисконтнымКартамОбороты.ДисконтнаяКарта.ВидДисконтнойКарты
|ИЗ
| РегистрНакопления.ПродажиПоДисконтнымКартам.Обороты КАК ПродажиПоДисконтнымКартамОбороты
|ГДЕ
| ПродажиПоДисконтнымКартамОбороты.ДисконтнаяКарта.ВидДисконтнойКарты = &ВидДК И
| ДОБАВИТЬКДАТЕ(ПродажиПоДисконтнымКартамОбороты.ДисконтнаяКарта.ДатаОткрытия, МЕСЯЦ, 12) = &ДатаЗакрытия
|
|УПОРЯДОЧИТЬ ПО
| ДатаОткрытия
|";
Запрос.УстановитьПараметр("ВидДК", ВидДК);
Запрос.УстановитьПараметр("ДатаЗакрытия", ДатаЗакрытия);
ТЗ = Запрос.Выполнить().Выгрузить();

Док = Документы.КорректировкаЗаписейРегистров.СоздатьДокумент();
Док.Дата = ДатаЗакрытия;
ДвиженияДок = Док.Движения;
Регистры = Док.ТаблицаРегистровНакопления.Добавить();
Регистры.Имя = "ПродажиПоДисконтнымКартам";
Регистры.Представление = "ПродажиПоДисконтнымКартам";
ПродажиПоДисконтнымКартам = ДвиженияДок.ПродажиПоДисконтнымКартам;

Для Счетчик = 0 ПО (ТЗ.Количество() - 1) Цикл
СтрокиТаблицы = ПродажиПоДисконтнымКартам.Добавить();
СтрокиТаблицы.ДисконтнаяКарта = ТЗ.Получить(Счетчик).ДисконтнаяКарта;
СтрокиТаблицы.Сумма = ТЗ.Получить(Счетчик).СуммаОборот;
КонецЦикла;
Док.Записать();

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

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