Склад = Справочники.Склады.НайтиПоКоду("000000019");
Контрагент = Справочники.Контрагенты.НайтиПоКоду("000003011");
Для Каждого СтрокаОтклонения Из ОтклонениеПоКоличествуНьютон Цикл
Попытка
Если ЗначениеЗаполнено(СтрокаОтклонения[_Цена]) Тогда
Если Число(СокрЛП(СтрокаОтклонения[_Цена])) <> Число(СтрокаОтклонения.Цена) Тогда
ИскомаяСтрока = ТЗПроверка.Найти(СтрокаОтклонения.Характеристика,"Характеристика");
Если ИскомаяСтрока = Неопределено Тогда
ЗПоследниеЦены = НЗПоследниеЦены.Добавить();
ЗПоследниеЦены.Период = ТекущаяДата();
ЗПоследниеЦены.Регистратор = ДокКорректировкаСсылка;
ЗПоследниеЦены.Активность = Истина;
ЗПоследниеЦены.Номенклатура = СтрокаОтклонения.Номенклатура;
ЗПоследниеЦены.Характеристика = СтрокаОтклонения.Характеристика;
ЗПоследниеЦены.Контрагент = Контрагент;
ЗПоследниеЦены.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом;
ЗПоследниеЦены.Склад = Склад;
ЗПоследниеЦены.ЦенаБезНДС = Число(СтрокаОтклонения[_Цена]);
ЗПоследниеЦены.ЦенаСНДС = Число(СтрокаОтклонения[_Цена]);
НоваяСтрока = ТЗПроверка.Добавить();
НоваяСтрока.Характеристика = СтрокаОтклонения.Характеристика;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Исключение
Сообщить("Ошибка:" + СтрокаОтклонения.Характеристика);
КонецПопытки;
КонецЦикла;
НЗПоследниеЦены.Записать();
И сама ошибка
{Форма.Форма(1345)}: Ошибка при вызове метода контекста (Записать): Ошибка записи! Не установлен отбор по регистратору (Регистр сведений: Последние цены закупок)
НЗПоследниеЦены.Записать();
по причине:
Ошибка записи! Не установлен отбор по регистратору (Регистр сведений: Последние цены закупок)