Поправляя за неопытными товарищами

У клиента встретил расширение. Не моё, хотя называется также, как люблю называть я «Доработки».

В нем была функция, чтобы при копировании заказа устанавливались актуальные цены.

Но в нем была ошибка, в результате сумма всего выставлялась не корректно (оставалась прежней):

Я сделал правки и сумма стала корректной:

Убрал расчеты сумм НДС (закомментировано) и вставил типовую функцию по расчету сумм в табличной части.

&После("ПриКопировании")
Процедура Доп_ПриКопировании(ОбъектКопирования)
	ДатаОтгрузки = Неопределено;
	ОжидаемаяДатаВручения = Неопределено;
	
	Для Каждого ТекСтрока из Запасы Цикл      
		
		ИскЦены = РегистрыСведений.ЦеныНоменклатуры.СрезПоследних(ТекущаяДата(), Новый Структура("ВидЦен, Номенклатура", ВидЦен, ТекСтрока.Номенклатура));
		Если ИскЦены.Количество() > 0 Тогда
			ТекСтрока.Цена = ИскЦены[0].Цена;
			
			//ТекСтрока.Сумма = ТекСтрока.Количество * ТекСтрока.Цена;
			//СтавкаНДС = УправлениеНебольшойФирмойПовтИсп.ПолучитьЗначениеСтавкиНДС(ТекСтрока.СтавкаНДС);
			//ТекСтрока.СуммаНДС = ТекСтрока.Сумма - (ТекСтрока.Сумма) / ((СтавкаНДС + 100) / 100);
		Иначе
			Сообщить("Не найдена цена: " + ВидЦен + " по номенклатуре: " + ТекСтрока.Номенклатура);
		КонецЕсли;

		//Всегда пересчитываем сумму
		ПараметрыРасчета = Новый Структура();
		ПараметрыРасчета.Вставить("СуммаВключаетНДС",ЭтотОбъект.СуммаВключаетНДС);
		ТабличныеЧастиУНФКлиентСервер.РассчитатьСуммыВСтрокеТЧ(ТекСтрока, ПараметрыРасчета);


	КонецЦикла;	
КонецПроцедуры

Среда: УНФ 3.0.9.105 Объем: 0.6 час.