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

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

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

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

    ВыборкаДанных = Запрос.Выполнить().Выбрать();
    
    Если ВыборкаДанных.Следующий() Тогда
        ЦенаПродажи = ВыборкаДанных.Цена;
    Иначе
        ЦенаПродажи = 0;
    КонецЕсли;
    
    ЦенаПродажиМодифицирована = Ложь;
    
    Возврат ЦенаПродажи;
    
КонецФункции

ты близок к истине, ты уже написал  Массив = Новый массив();
осталось в массив сунуть всю номенклатуру и передать параметром в запрос, получить таблицу цен и в цикле искать уже в таблице

вот только запрос еще бы переписать на регистры

+1 Запрос за цикл ко всей коллекции "Товары", выгрузить в ТЗ, далее в цикле искать цену методом НайтиСтроки

(0) Бред какой-то, почти всё, что написано.

МассивТоваров = НовыйОбъект.Товары.ВыгрузитьКолонку("Номенклатура");
И его пихаешь в запрос, только в запросе условие
ОтчетПроизводстваЗаСменуПродукция.Номенклатура В (&Номенклатура)

И в ВЫБРАТЬ номенклатуру добавь.

можно сразу отправить таб часть в запрос и потом загрузить чтобы не мучиться потом с .Найти и т.д.
Как пример подстановка цен в расходную накладную:
//------

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

тРез=Рез.Выгрузить().Выгрузить();
Товары.Загрузить(тРез);

Соединением таблицы объекта и и таблицы ссылок(регистра)

можно вопрос .а где у вас запрос в цикле?

"Выбрать ТЧ.Номенклатура Поместить ВТ Из &ТЧ Как ТЧ; Выбрать ВТ.Номенклатура, Регистр.Цена ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних Как Регистр
По ВТ.Номенклатура = Регистр.Номенклатура"

все увидел . делайте без  функции напрямую

Ну и параметры задать - &ТЧ - товары, организация и все что еще нужно

умудренный код

(12)да обычный код начинающего, главное что работает)

(0) Берёшь и избавляешься.

А по факту — номенклатуру в массив надо.
А по ещё большему факту — хранить себестоимость в документе это зашквар.

Всем спасибо, все получилось))
Первый раз создавал тему, и удивился, что так много откликов))

(0) А тебе точно нужна первая попавшаяся цена за месяц?

(15)Вопрос простой, повод пофлудить.

(0) Не использовать запрос в цикле

(16) да, предполагается, что документ за месяц один