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