Подстановка цены при выборе товара и типа цен
&НаСервереБезКонтекста
Функция ПолучитьЦенуНоменклатуры(Номенклатура)экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЦеныНоменклатурыСрезПоследних.Номенклатура,
| ЦеныНоменклатурыСрезПоследних.ТипЦен,
| ЦеныНоменклатурыСрезПоследних.Цена
|ИЗ
| РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних";
//Параметры запроса
Запрос.УстановитьПараметр("Номенклатура",Номенклатура);// Номенклатура
Запрос.УстановитьПараметр("ТипЦен",справочники.ТипЦен);// Типы цен номенклатуры
ЦеныНоменклатуры = Запрос.Выполнить().Выгрузить();
Если ЦеныНоменклатуры <> 0 Тогда
Возврат ЦеныНоменклатуры.Цена;
иначе
возврат 0;
КонецЕсли;
//Возврат ЦеныНоменклатуры.Цена
КонецФункции
и
&НаКлиенте
процедура ТоварыТоварПриИзменении(Элемент)
Текущие=элементы.Товары.ТекущиеДанные;
//ТекущиеДанные.Цена=ПолучитьЦенуНоменклатуры();
ПолучитьЦенуНоменклатуры(Текущие.Номенклатура);
КонецПроцедуры
Функция ПолучитьЦенуНоменклатуры(Номенклатура)экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЦеныНоменклатурыСрезПоследних.Номенклатура,
| ЦеныНоменклатурыСрезПоследних.ТипЦен,
| ЦеныНоменклатурыСрезПоследних.Цена
|ИЗ
| РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних";
//Параметры запроса
Запрос.УстановитьПараметр("Номенклатура",Номенклатура);// Номенклатура
Запрос.УстановитьПараметр("ТипЦен",справочники.ТипЦен);// Типы цен номенклатуры
ЦеныНоменклатуры = Запрос.Выполнить().Выгрузить();
Если ЦеныНоменклатуры <> 0 Тогда
Возврат ЦеныНоменклатуры.Цена;
иначе
возврат 0;
КонецЕсли;
//Возврат ЦеныНоменклатуры.Цена
КонецФункции
и
&НаКлиенте
процедура ТоварыТоварПриИзменении(Элемент)
Текущие=элементы.Товары.ТекущиеДанные;
//ТекущиеДанные.Цена=ПолучитьЦенуНоменклатуры();
ПолучитьЦенуНоменклатуры(Текущие.Номенклатура);
КонецПроцедуры
По теме из базы знаний
- Создание документов "Отчет о розничных продажах" и "Перемещение товаров" обработкой "Рабочее место продажи розница" для БП 2.0
- Разработка и сценарное тестирование с Vanessa-ADD. Практические примеры сценариев. Шаги встроенной библиотеки
- Изменение типа цены в табличной части документов Реализация и Счет покупателю для БП 3.0
- Возможности доработки выгрузки из 1С в Битрикс
- Интеграции с маркетплейсами из одного окна: Озон, ВБ, Яндекс, Сбер, Али, ЛаМода для 1С:УНФ, УТ, КА, ERP
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(10)
(9)
Реализовал условаие вот так
&НаСервереБезКонтекста
Функция ПолучитьЦенуНоменклатуры(Номенклатура)экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЦеныНоменклатурыСрезПоследних.Номенклатура,
| ЦеныНоменклатурыСрезПоследних.ТипЦен,
| ЦеныНоменклатурыСрезПоследних.Цена
|ИЗ
| РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних
|ГДЕ
| ЦеныНоменклатурыСрезПоследних.Номенклатура = &Номенклатура
| И ЦеныНоменклатурыСрезПоследних.ТипЦен = &ТипЦен";
//Параметры запроса
Запрос.УстановитьПараметр("Номенклатура",Номенклатура);// Номенклатура
Запрос.УстановитьПараметр("ТипЦен",справочники.ТипЦен);// Типы цен номенклатуры
ЦеныНоменклатуры = Запрос.Выполнить().Выгрузить();
Если ЦеныНоменклатуры <> 0 Тогда
Возврат ЦеныНоменклатуры.Цена;
иначе
возврат 0;
КонецЕсли;
//Возврат ЦеныНоменклатуры.Цена
КонецФункции
(9)
нуНоме
Реализовал условаие вот так
&НаСервереБезКонтекста
Функция ПолучитьЦенуНоменклатуры(Номенклатура)экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЦеныНоменклатурыСрезПоследних.Номенклатура,
| ЦеныНоменклатурыСрезПоследних.ТипЦен,
| ЦеныНоменклатурыСрезПоследних.Цена
|ИЗ
| РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних
|ГДЕ
| ЦеныНоменклатурыСрезПоследних.Номенклатура = &Номенклатура
| И ЦеныНоменклатурыСрезПоследних.ТипЦен = &ТипЦен";
//Параметры запроса
Запрос.УстановитьПараметр("Номенклатура",Номенклатура);// Номенклатура
Запрос.УстановитьПараметр("ТипЦен",справочники.ТипЦен);// Типы цен номенклатуры
ЦеныНоменклатуры = Запрос.Выполнить().Выгрузить();
Если ЦеныНоменклатуры <> 0 Тогда
Возврат ЦеныНоменклатуры.Цена;
иначе
возврат 0;
КонецЕсли;
//Возврат ЦеныНоменклатуры.Цена
КонецФункции
Не совсем понятно в чем вопрос, но предположу, к примеру, что вместо
Нужно
Если ЦеныНоменклатуры <> 0 Тогда
Возврат ЦеныНоменклатуры.Цена;
иначе
возврат 0;
КонецЕсли;
//Возврат ЦеныНоменклатуры.Цена
КонецФункции
Нужно
Если ЦеныНоменклатуры.Количество() <> 0 Тогда
Возврат ЦеныНоменклатуры[0].Цена;
иначе
возврат 0;
КонецЕсли;
//Возврат ЦеныНоменклатуры.Цена
КонецФункции
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот