Обновить табличные части докумета

1с8.3 УТ 11. Проблема в следующем, есть две табличные части (Товар, Работы) при изменении вида цен надо пересчитать весь документ.
Вот так пересчитываю табличную часть "Товар", а как еще  добавить и табличную часть "Работы".

&НаКлиенте
Процедура ВидЦенПриИзменении(Элемент)

ТекущиеДанные  = Элементы.Товары.ТекущиеДанные;
ВидЦен = Объект.ВидЦены;
Данные  = ПолучитьЦены(ТекущиеДанные.Номенклатура, ВидЦен);
ТекущиеДанные.Цена  = Данные.ЦеныНоменклатуры;

Для Каждого Строка из Объект.Товары цикл
Вид = ПолучитьЦены(Строка.Номенклатура, ВидЦен);
Строка.Цена = Вид.ЦеныНоменклатуры;
КонецЦикла;

Если ТекущиеДанные <> Неопределено Тогда
    ПересчитатьСуммуТаблЧасти(ТекущиеДанные);
    ПересчитатьСуммуДок();
КонецЕсли;

Объект.Валюта = ПолучитьВалюту(ВидЦен);
ПриИзмененииВалютыСервер();
ВалютаДокумента = Объект.Валюта;

КонецПроцедуры