Не заполняется плановая цена

Здравствуйте, не пойму в чем дело, есть документ ОтчетПроизводстваЗаСмену, табличная часть документа у меня заполняется на основании документов реализации, все хорошо но плановая цена не встает, нижу листинг

&НаКлиенте
Процедура КоманднаяПанельПродукцияПодборИзРеализации_test(Команда)
    ТекФорма = ПолучитьФорму("Документ.РеализацияТоваровУслуг.ФормаВыбора");
    ТекВыбор = ТекФорма.ОткрытьМодально();
    ЗапросПодборИзРеализации(ТекВыбор);
    Если ТекВыбор <> Неопределено Тогда
        ЭтаФорма.Модифицированность = Истина;
    КонецЕсли;
КонецПроцедуры

&НаСервере
Функция ЗапросПодборИзРеализации(ТекВыбор)

    Запрос = Новый Запрос;
    Запрос.Текст =
    ("ВЫБРАТЬ
     |    РеализацияТоваровУслуг.Номенклатура КАК Номенклатура,
     |    РеализацияТоваровУслуг.Количество КАК Количество,
     |    РеализацияТоваровУслуг.СчетУчета,
     |    РеализацияТоваровУслуг.Номенклатура.НоменклатурнаяГруппа КАК НоменклатурнаяГруппа
     |ИЗ
     |    Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслуг
     |ГДЕ
     |    РеализацияТоваровУслуг.Ссылка = &ТекРТУ");
    Запрос.УстановитьПараметр("ТекРТУ", ТекВыбор);
    Результат = Запрос.Выполнить().Выгрузить();

    Для каждого Строка из Результат цикл
        Строка2 = Объект.Продукция.Добавить();
        Строка2.Номенклатура = Строка.Номенклатура;
        Строка2.Количество = Строка.Количество;
        Строка2.НоменклатурнаяГруппа = Строка.НоменклатурнаяГруппа;
        СтрокаТабличнойЧасти = Строка2;
Ценообразование.ЗаполнитьПлановуюСебестоимость(СтрокаТабличнойЧасти, Объект.Дата);
        ОбработкаТабличныхЧастейКлиентСервер.ПересчитатьПлановуюСумму(СтрокаТабличнойЧасти);

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