Как сделать, что бы процедура "ЦенаПриИзменении" отработала для всех строк, а не для одной?

&НаКлиенте
Процедура фот_фот_СебестоимостьПриИзмененииПосле(Элемент)
    ЦеныНоменклатуры = фот_фот_СебестоимостьПриИзмененииПослеНаСервере();
    Индекс = 0;
    Для каждого СтрокаТаблицы Из Объект.Запасы Цикл
        СтрокаМассиваСЦенами = ЦеныНоменклатуры.Получить(Индекс);
        СтрокаТаблицы.Цена = СтрокаМассиваСЦенами.Цена;
        Индекс = Индекс + 1; 

        // Типовые процедуры
        РассчитатьСуммуВСтрокеТабличнойЧасти();
        ОбновитьИтогиКлиент();
        ПересчитатьПлатежныйКалендарь();
        ОчиститьКалькуляцию();
        ВключитьИндикаторНеобходимостиПересчетаСтоимостиДоставки();
    
    КонецЦикла;
КонецПроцедуры

&НаСервере
Функция фот_фот_СебестоимостьПриИзмененииПослеНаСервере()
    ТаблицаЗапасы=Объект.Запасы.Выгрузить(,"Номенклатура");
    Запрос = Новый Запрос;
    Запрос.Текст = 
    "ВЫБРАТЬ
    |    ТабличнаяЧастьДокумента.Номенклатура КАК Номенклатура
    |ПОМЕСТИТЬ НоменклатураДокумента
    |ИЗ
    |    &ТабличнаяЧастьДокумента КАК ТабличнаяЧастьДокумента
    |;
    |
    |////////////////////////////////////////////////////////////­////////////////////
    |ВЫБРАТЬ
    |    НоменклатураДокумента.Номенклатура КАК Номенклатура,
    |    ЦеныНоменклатурыСрезПоследних.ВидЦен КАК ВидЦен,
    |    ЕСТЬNULL(ЦеныНоменклатурыСрезПоследних.Цена, 0) КАК Цена
    |ИЗ
    |    НоменклатураДокумента КАК НоменклатураДокумента
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних(
    |                &ДатаДокумента,
    |                Номенклатура В
    |                        (ВЫБРАТЬ
    |                            НоменклатураДокумента.Номенклатура КАК Номенклатура
    |                        ИЗ
    |                            НоменклатураДокумента КАК НоменклатураДокумента)
    |                    И ВидЦен = &ВидЦены) КАК ЦеныНоменклатурыСрезПоследних
    |        ПО НоменклатураДокумента.Номенклатура = ЦеныНоменклатурыСрезПоследних.Номенклатура";

    Запрос.УстановитьПараметр("ТабличнаяЧастьДокумента", ТаблицаЗапасы);
    Запрос.УстановитьПараметр("ДатаДокумента", ДатаДокумента);
    Запрос.УстановитьПараметр("ВидЦены", Объект.фот_ВидЦены);
    
    РезультатЗапроса = Запрос.Выполнить();
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    МассивСРезультатомЗапроса = Новый Массив;
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        СтрокаРезультатЗапроса = Новый Структура;
         СтрокаРезультатЗапроса.Вставить("Номенклатура", ВыборкаДетальныеЗаписи.Номенклатура);
         СтрокаРезультатЗапроса.Вставить("ВидЦен", ВыборкаДетальныеЗаписи.ВидЦен);
         СтрокаРезультатЗапроса.Вставить("Цена", ВыборкаДетальныеЗаписи.Цена);
         МассивСРезультатомЗапроса.Добавить(СтрокаРезультатЗапроса);
     КонецЦикла;
     
     Возврат МассивСРезультатомЗапроса; 
    
КонецФункции