Работа с табличной частью.

Здравствуйте.

Стоит следующая задача:
У документа имеются реквизиты:
- Сумма документа - Полная сумма продаваемых товаров. Должна высчитываться автоматически и в любой момент времени должна быть актуальна.
- Сумма скидки - Полная сумма всех предоставленных скидок. Должна высчитываться автоматически и в любой момент времени должна быть актуальна.
Табличная часть "Товары". Поля:
- Номенклатура
- Количество
- Цена
- Сумма
- Ручная скидка, %
- Автоматическая скидка, % Поле недоступно для изменения.
- Всего  Значение поля рассчитывается из суммы и скидок

Мною написан следующий код:

Процедура ТоварыПриИзменении(Элемент)

    Объект.СуммаРабот = 0   ;
    Объект.СуммаСкидки =  0   ;

    Для каждого СтрТовар из Объект.Товары
        Цикл

            СтрТовар.Сумма= СтрТовар.Цена *  СтрТовар.Количество    ;
            СуммаРучнойСкидки =  СтрТовар.Сумма *  (СтрТовар.РучнаяСкидка /100 );
            СуммаАвтоматическаяСкидка =  СтрТовар.Сумма *    (СтрТовар.АвтоматическаяСкидка /100 ) ;
            СуммаСкидкиСтр = СуммаРучнойСкидки +  СуммаАвтоматическаяСкидка  ;
            Объект.СуммаСкидки = Объект.СуммаСкидки +     СуммаСкидкиСтр   ;
            СтрТовар.Всего =  СтрТовар.Сумма -    СуммаСкидкиСтр      ;
            Объект.СуммаРабот    =     Объект.СуммаРабот  + СтрТовар.Всего ;

    КонецЦикла

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

Насколько понимаю, это не совсем верное решение, т.к. при каждом изменении в табличной части происходит вызов процедуры. ПОдскажите, как решить данную задачу?