1c 7.7 пересчет суммы в тч документа

"1c 7.7 самописная

Есть док Приход.
в нем ТЦ: цена кол сумма
меняю цену с помощью процедуры Сформировать();
Цена меняется, но сумма не пересчитывается.
Как сделать чтобы сумма пересчиталась ?


Процедура Сформировать()
Док2 = СоздатьОбъект("Документ."+Док1.Вид());
Док2.НайтиДокумент(Док1.ТекущийДокумент());

 Док2.ВыбратьСтроки();
Пока  Док2.ПолучитьСтроку()=1 цикл
  Ц1=Док2.ПолучитьАтрибут("Цена");
  Ц2=Ц1*Коэфф;
  Док2.УстановитьАтрибут("Цена",Ц2);
КонецЦикла;
  Док2.Записать();
КонецПроцедуры"

"как в Шадринске погода ?

Процедура Сформировать()
Док2 = СоздатьОбъект("Документ."+Док1.Вид());
Док2.НайтиДокумент(Док1.ТекущийДокумент());

Док2.ВыбратьСтроки();
Пока  Док2.ПолучитьСтроку()=1 цикл
 Ц1=Док2.ПолучитьАтрибут("Цена");
 С1=Док2.ПолучитьАтрибут("Сумма");
 Ц2=Ц1*Коэфф;
 С2 = Ц2 * Док2.ПолучитьАтрибут("Количество");
 Док2.УстановитьАтрибут("Цена",Ц2);
 Док2.УстановитьАтрибут("Сумма",С2);
КонецЦикла;
 Док2.Записать();
КонецПроцедуры "

ясно)