Для каждого стр из ЭтотОбъект.СоставУслуги цикл
Если стр.КлючСтроки=КлючСтр тогда
стр.Цена = СтрокаТабличнойЧасти.ЦенаНовая;
ОбработкаТабличныхЧастей.РассчитатьСуммуТабЧасти(стр, ЭтотОбъект);
ОбработкаТабличныхЧастей.РассчитатьСуммуНДСТабЧасти(стр, ЭтотОбъект);
Конецесли;
Конеццикла;
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший