v7: Готовый пересчет цен табличной части док-та Реализация продукции

Здравствуйте форумчане !

До сих пор в типовой конфигурации 1С:Предприятие 7.7 ПУБ (производство+услуги+бухгалтерия) нет пересчета ЦЕН табличной части док-та РеализацияПродукции. Хочу поделиться своей маленькой доработкой.
Итак, в конфигурации ПУБ в модуле формы документа РеализацияПродукции заменяем Процедура ПриИзмененииКонтрагента() на эту:

Процедура ПриИзмененииКонтрагента()

глПриВыбореКонтрагента(Контрагент, Договор, 1);
Если (КоличествоСтрок() > 0) Тогда

ТипЦен = Контрагент.ОсновнойТипЦен.Получить(ДатаДок);
глПриИзмененииТипаЦен(Контекст, ТипЦен, УчитыватьНДС, СуммаВклНДС, УчитыватьНП, СуммаВклНП);

Ответ = Вопрос("Изменен тип цены документа! Пересчитать цены?", "Да+Нет", 60);

Если Ответ ="Да" Тогда

// Цикл по всем товарам в документе
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл

ВыборкаЦен = СоздатьОбъект("Справочник.Цены");
ВыборкаЦен.ИспользоватьВладельца(Номенклатура);
ВыборкаЦен.ВыбратьЭлементы();

Пока ВыборкаЦен.ПолучитьЭлемент() = 1 Цикл
Если ВыборкаЦен.ТипЦен = ТипЦен Тогда

Цена = ВыборкаЦен.Цена.Получить(ДатаДок); // из справочника цен

ЦенаВклНДС = ТипЦен.ЦенаВклНДС;
ЦенаВклНП = ТипЦен.ЦенаВклНП;

Цена = глПересчетЦеныСНалогами(Контекст, Цена, ЦенаВклНДС, ЦенаВклНП);

КонецЕсли;
КонецЦикла;
глПересчетТаблЧасти(Контекст, "Цена");
КонецЦикла;

КонецЕсли;
КонецЕсли;

ПриИзмененииДоговора();

КонецПроцедуры // ПриИзмененииКонтрагента()