Как запонить табличную часть сведениями из подчиненного регистра сведений

Как запонить табличную часть документа сведениями из подчиненного регистра сведений? Вот код, но он не работает при подчиненном регистре, что нужно изменить?

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


    Запрос.УстановитьПараметр("Спецификация", Спецификация);
    Запрос.УстановитьПараметр("Количество", 1);

    Запрос.УстановитьПараметр("ЕдиницаИзмерения", Объект.Номенклатура.ЕдиницаИзмерения);

    Если НЕ ТипЗнч(Объект.Номенклатура.ЕдиницаИзмерения) = Тип("СправочникСсылка.КлассификаторЕдиницИзмерения")
        И Объект.Номенклатура.ЕдиницаИзмерения <> Неопределено Тогда
        Запрос.УстановитьПараметр("Коэффициент", Объект.Номенклатура.ЕдиницаИзмерения.Коэффициент);
    Иначе
        Запрос.УстановитьПараметр("Коэффициент", 1);
    КонецЕсли;

    Запрос.УстановитьПараметр("ТипНоменклатуры", Перечисления.ТипыНоменклатуры.Запас);

    Выборка = Запрос.Выполнить().Выбрать();
    Пока Выборка.Следующий() Цикл

        Если Выборка.ТипСтрокиСостава = Перечисления.ТипыСтрокСоставаСпецификации.Узел Тогда

            ЗагрузитьНоменклатуруПоСпецификации(Выборка.Спецификация);

        Иначе


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

    Запрос1.УстановитьПараметр("ДатаОбработки",     Объект.Дата);
    Запрос1.УстановитьПараметр("Номенклатура",     Выборка.Номенклатура);
    Запрос1.УстановитьПараметр("Коэффициент",     1);

    Выборка1 = Запрос1.Выполнить().Выбрать();
    ПроцентСкидки = 0;
    Цена = 0;
    Пока Выборка1.Следующий() Цикл
        //НоваяСтрока.ДатаНакладной = Выборка1.ДатаНакладной;
        ПроцентСкидки = Выборка1.ПроцентСкидки;
        Цена = Выборка1.Цена;
    КонецЦикла;
            НоваяСтрока.Цена =  Цена;
            НоваяСтрока.ПроцентСкидки = ПроцентСкидки;
            НоваяСтрока.Сумма = НоваяСтрока.Количество * НоваяСтрока.Цена;
            //Если ПроцентСкидки >0 Тогда
            НоваяСтрока.СуммаСкидки =НоваяСтрока.Цена *НоваяСтрока.ПроцентСкидки/100;
            НоваяСтрока.ВсегоСоСкидкой = НоваяСтрока.Количество *(НоваяСтрока.Цена - НоваяСтрока.СуммаСкидки);
        КонецЕсли;
   КонецЦикла;

   Элементы.Декорация1.Видимость = Истина;
   Объект.ТребуетсяПерерасчет = Истина;

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

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

    Запрос1.УстановитьПараметр("ДатаОбработки",     Дата);
    Запрос1.УстановитьПараметр("Номенклатура",     Номенклатура);
    Запрос1.УстановитьПараметр("Коэффициент",     1);


    //Запрос1.УстановитьПараметр("ВалютаДокумента", Валюта);

    Выборка1 = Запрос1.Выполнить().Выбрать();
    ПроцентСкидки = 0;
    Цена = 0;
    Пока Выборка1.Следующий() Цикл
        ДатаНакладной = Выборка1.ДатаНакладной;
        Скидка = Выборка1.ПроцентСкидки;
        Цена = Выборка1.Цена;
        ЕдИзм = Номенклатура.ЕдиницаИзмерения;

    КонецЦикла;
КонецПроцедуры