8.х Получить цену на номенклатуру

Добрый день!
Хочу получить цены на номенклатуры но не получается, будьте добры подскажите пожалуйста как правильно нужно написать код.
Спасибо!
в Общие Модуле

Код:

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

    Запрос.УстановитьПараметр("Номенклатура", Номенклатура);
    Запрос.УстановитьПараметр("Дата", Дата);
    Запрос.УстановитьПараметр("Склад", Склад);

    Результат = Запрос.Выполнить();

    ВыборкаДетальныеЗаписи = Результат.Выбрать();
   // Результат=Новый Структура("ЦенаЗаЕдиницуNC", 0);
   
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
       
        //Результат.ЦенаЗаЕдиницуNC = ВыборкаДетальныеЗаписи.ЦенаЗаЕдиницуNC;
       
        Возврат(ВыборкаДетальныеЗаписи.ЦенаЗаЕдиницуNC);
       
        КонецЦикла;

КонецФункции   

в Модуле формы Документа

Код:

&НаКлиенте
Процедура НоменклатураПриИзменении(Элемент)
    НоменклатураПриИзмененииСервер();
КонецПроцедуры


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

--- Объединение сообщений, 4 ноя 2015 ---

ошибка при выбора номенклатуры

Взаиморасчеты.ПолучитьЦенуНаНоменклатуру(Объект.Номенклатура,Объект.Дата); - сколько параметров передаете?

три
Запрос.УстановитьПараметр("Номенклатура", Номенклатура);
Запрос.УстановитьПараметр("Дата", Дата);
Запрос.УстановитьПараметр("Склад", Склад);

Запрос вообще неработоспособен.
Первое - не видно, как в запросе учтены параметры, нет секции "ГДЕ".
Второе - такой запрос на "срез последних " не будет работать; в секции "ИЗ" нужно разместить параметр "Дата".

Попробуй так:

Код:

&НаСервере
Процедура НоменклатураПриИзмененииСервер()

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

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

исправил

Код:

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

ошибка

{Документ.РозничнаяПродажа.Форма.ФормаДокумента.Форма(12)}: Значение не является значением объектного типа (ЦенаПродажаNC)
Объект.ЦенаПродажаNC=Результат.ЦенаПродажаNC;

Еще раз и медленно: когда вы описываете процедуру вы указываете три параметра ПолучитьЦенуНаНоменклатуру(Номенклатура,Склад,Дата), а когда вызываете ее то указываете или 2 параметра или в другом порядке Взаиморасчеты.ПолучитьЦенуНаНоменклатуру(Объект.Номенклатура,Объект.Дата,Объект.Склад); Вот он и ругается, что вместо склада вы дату подсовываете.

не сейчас он ругается на
{Документ.РозничнаяПродажа.Форма.ФормаДокумента.Форма(16)}: Значение не является значением объектного типа (ЦенаПродажаNC)
Объект.ЦенаПродажаNC=Результат.ЦенаПродажаNC;
т.е если в общем модуле параметры например склад, номенклатура, дата то на модуле документа по той же порядки должен быть, на пример склад, номенклатура, дата а не дата, склад номен...

--- Объединение сообщений, 4 ноя 2015 ---

кто нить может мне объяснить где было моя ошибка

Код:

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

код работает но только при изменение номенклатуры а при изменение склада цена не изменяется и не смог понять где было ошибок

--- Объединение сообщений, 4 ноя 2015 ---

ужас у работает как то неправильно на все номенклатуры одна цена
есть кто нибудь?

где было ошибок ?
Сейчас код работает?

ну в общем-то цены от места хранения не зависят.

а почему на все номенклатуры одна цена?

Понятия не имею, посмотрите вживую в РС.ЦеныНоменклатуры

Если Вы для получения цен используете запрос, показанный в первом топике, то и получите то, что получили.

Вот пример моего подобного гавнокода.

Код:

&НаКлиенте
Процедура ТоварыНоменклатураПриИзменении(Элемент)
   //Передаю текущию строчку в ТЧ
   ТекущиеДанные = Элементы.Товары.ТекущиеДанные;
   СуммаИзРегистра = ТоварыНоменклатураПриИзмененииНаСервере(Объект.Дата,ТекущиеДанные.Номенклатура );
   //Подставляем полученную цену
ТекущиеДанные.Цена = СуммаИзРегистра.Цена;
КонецПроцедуры

&НаСервереБезКонтекста
Функция ТоварыНоменклатураПриИзмененииНаСервере(Дата, Номенклатура)
  //По тупому найдем закупочную и подставим, это не нужно тебе
    номен = Справочники.ТипыЦенНоменклатуры;
    элементСсылка = номен.НайтиПоНаименованию("Закупочная");
   
//тут нужную структуру по твоему регистру сделай
   СтруктураОтбора = Новый Структура;
   СтруктураОтбора.Вставить("Номенклатура",Номенклатура);
   СтруктураОтбора.Вставить("ТипЦены",элементСсылка);

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

   Возврат Результат;

КонецФункции

точно, запрос не внимательно прочитала.

потому что, вы в самом запросе не указываете параметры. Нет конструкции "ГДЕ"