Помогите найти ошибку.
Принадлежность не определена Новая.Партия.Записать()

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

Процедура СоздатьПартиюТовара (Строка) Экспорт
Если Строка.Партия.Пустая() Тогда
НоваяПартия = Справочники.Партии.СоздатьЭлемент();
НоваяПартия.Владелец = Строка.Номенклатура;
НоваяПартия.Наименование = "временно";
НоваяПартия.Записать();
НоваяПартия.ПартияСозданаАвтоматически = Истина;
НоваяПартия.Наименование = "Партия " + Строка(НоваяПартия.Код) + " сумма " + Строка(Строка.Сумма)+ " " + Строка(Ссылка);
НоваяПартия.Валюта = Валюта;
НоваяПартия.ДатаПоступления = Дата;
НоваяПартия.ЕдиницаИзмерения = Строка.ЕдиницаИзмерения;
//НоваяПартия.Количество = Строка.Количество;
НоваяПартия.ПокупнаяЦена = Строка.Цена;
НоваяПартия.Поставщик = Контрагент;
НоваяПартия.ПриходныйДокумент = Ссылка;
НоваяПартия.СтавкаНДС = Строка.НДС;
НоваяПартия.Записать();
Строка.Партия = НоваяПартия.Ссылка;
Иначе
НоваяПартия = Строка.Партия.ПолучитьОбъект();
Если не НоваяПартия = Неопределено Тогда
НоваяПартия.Наименование = "Партия " + Строка(НоваяПартия.Код) + " сумма " + Строка(Строка.Сумма)+ " " + Строка(Ссылка);
НоваяПартия.Валюта = Валюта;
НоваяПартия.ДатаПоступления = Дата;
НоваяПартия.ЕдиницаИзмерения = Строка.ЕдиницаИзмерения;
//НоваяПартия.Количество = Строка.Количество;
НоваяПартия.ПокупнаяЦена = Строка.Цена;
НоваяПартия.Поставщик = Контрагент;
НоваяПартия.ПриходныйДокумент = Ссылка;
НоваяПартия.СтавкаНДС = Строка.НДС;
НоваяПартия.Записать();
Строка.Партия = НоваяПартия.Ссылка;

КонецЕсли;

КонецЕсли;

(0) Новая.Партия. - Такой строки в приведенном коде нет.
НоваяПартия.Записать() - а вот таких, целых три.
"стандартный комментарий про телепатов"

на какую строку ругается?

Телепатия подсказывает это
НоваяПартия.Владелец = Строка.Номенклатура;

мало Новаяпартия.записать(). Надо больше