[Hellga]

Документ Приходная накладная. При проведении должны автоматически формировться партии ТМЦ (в справочнике Партии), Соответственно при проведении по регистру (остатков) ТМЦ должно заполнятся значние измерения Партия, а оно не заполняется. Ниже выкладываю лист кода. Подскажите, пожалуйста, в чем я не права.

Процедура ОбработкаПроведения()       
    
    Перем СпрПарт;               
    
    СпрПарт = СоздатьОбъект("Справочник.Партии");

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

    КонецЦикла;

КонецПроцедуры

[Ardi]

Регистр.ТМЦ.Партия = СпрПарт.ТекущийЭлемент();

[Hellga]

Регистр.ТМЦ.Партия = СпрПарт.ТекущийЭлемент();

Логично ))) Спасибо Вам большое!