пересчет реквизитов ТЧ при проведении

Question

существует необходимость изменять программным методом реквизит табличной части при проведении документа
[1C-CODE]	Рег = СоздатьОбъект("Регистр.ПартииНаличие"); 
	СпрПартии = СоздатьОбъект("Справочник.Партии"); 
	
	Док=ТекущийДокумент();
	Док.Выбратьстроки();
	пока док.получитьстроку()=1 цикл 
		текстр=док.номенклатура;
		СпрПартии.ИспользоватьВладельца(Текстр); 
		спрпартии.ВыбратьЭлементы();
		пока спрпартии.получитьЭлемент()=1 цикл
			ДокСеб=спрпартии.ЗакупочнаяЦена;
			ОРЦен=ДокСеб+(ДокСеб*5/105);
		конеццикла; 
		Док.орцена=орцен;
	конеццикла;
	

[/1C-CODE]
Так вот, отладчиком ловлю, все рассчитывает правильно но изменения в табличную часть не встают
пробовал добавлять в конец
[1C-CODE]Док.приЗаписиПерепроводить(0)
Док.Записать()
[/1C-CODE]
везде ругается на то, что документ не выбран

Как сделать все таки расчет орцены при провдении, это важно, ввиду того что после проведения дока сразу печатается пакет документов на принтер, а в пакет должно вставать поле ОрЦена с уже измененной ценой

Accepted Answer

(7) 
в модуле проведения так надо:
[CODE] 
 СпрПартии = СоздатьОбъект("Справочник.Партии"); 
Выбратьстроки();
    пока получитьстроку()=1 цикл 
        СпрПартии.ИспользоватьВладельца(номенклатура.ТекущийЭлемент()); 
        спрпартии.ВыбратьЭлементы();
        пока спрпартии.получитьЭлемент()=1 цикл
            ДокСеб=спрпартии.ЗакупочнаяЦена;
            ОРЦен=ДокСеб+(ДокСеб*5/105);
        конеццикла; 
        орцена=орцен;
    конеццикла;[/CODE]

цикл сам поправь как тебе надо ))