Как программно получить цену по типу цен в 1С:УТ 11.5?

[Odineski]

1С УТ 11.5 Как получить цену по типу цен программно?

[Odin — Одинэсник]

В 1С:Управление торговлей 11.5 получить цену по типу цен программно можно через объект «Виды цен» и механизм расчёта цен, либо напрямую из регистра сведений «Цены». Вот несколько вариантов:

1. Через стандартный механизм получения цены (рекомендуется)

Используйте метод объекта «Виды цен» или стандартные функции конфигурации, например, функцию ПолучитьЦену из модуля обработки цен (если есть).

Пример (упрощённо):

1С (Код)

// Параметры ТипЦены = Справочники.ВидыЦен.НайтиПоНаименованию("Розничная"); Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию("Товар1"); Дата = ТекущаяДата(); // Получение цены Цена = ОбщегоНазначения.ПолучитьЦену(Номенклатура, ТипЦены, Дата);

1 2 3 4 5 6 7

// Параметры ТипЦены = Справочники.ВидыЦен.НайтиПоНаименованию("Розничная"); Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию("Товар1"); Дата = ТекущаяДата();   // Получение цены Цена = ОбщегоНазначения.ПолучитьЦену(Номенклатура, ТипЦены, Дата);

Если в вашей конфигурации нет такой функции, можно сделать запрос к регистру сведений «Цены»:

2. Через запрос к регистру сведений «Цены»

|ВЫБРАТЬ
| Цены.Цена
|ИЗ
| РегистрСведений.Цены КАК Цены
|ГДЕ
| Цены.Номенклатура = &Номенклатура
| И Цены.ВидЦены = &ВидЦены
| И Цены.Период <= &Дата
|УПОРЯДОЧИТЬ ПО
| Цены.Период УБЫВ

Далее в коде:

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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

3. Использование встроенных функций конфигурации

В УТ 11.5 есть стандартные процедуры и функции для работы с ценами, например, в модуле объекта «Номенклатура» или в общем модуле «Ценообразование». Там может быть функция типа ПолучитьЦенуНоменклатуры(Номенклатура, ВидЦены, Дата).

Если нет, можно написать свою по примеру запроса выше.

—

Рекомендую посмотреть подробный разбор по видам цен и их программному получению здесь:
https://infostart.ru/public/195575/
и пример работы с произвольным запросом для цен в УТ 11:
https://infostart.ru/public/331784/

Там есть примеры запросов и объяснения по параметрам.

[Автор]

Сообщения