Получить цену номенклатуры в Бух 3 и УТ 11 — 1С Предприятие 8.3

Опубликовано автором

В Бухгалтерии 3.0:

функция ЦенаНоменклатуры(Номенклатура)
	Дата = ТекущаяДата();
	ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Розничная");

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

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

 

В Управление торговлей 11.4:

функция ЦенаНоменклатуры(Номенклатура)
	Дата = ТекущаяДата();
	ВидЦены = Справочники.ВидыЦен.НайтиПоНаименованию("Прайс-лист");

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

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