Добрый день. Может Кто то подсказать. Почему не работает? Вроде все элементарно. Может как в анекдоте про ключи)) весь день искал, а они в кармане были))) Может что то не вижу?
&НаСервере
Процедура Расш1_ТоварыНоменклатураПриИзмененииПослеНаСервере(Номенклатура)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| ЦеныНоменклатурыСрезПоследних.Номенклатура КАК Номенклатура,
| ЦеныНоменклатурыСрезПоследних.ВидЦены КАК ВидЦены,
| ЕСТЬNULL(ЦеныНоменклатурыСрезПоследних.Цена, 0) КАК Цена
|ИЗ
| Документ.СборкаТоваров.Товары КАК СборкаТоваровТовары
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&Дата, ) КАК ЦеныНоменклатурыСрезПоследних
| ПО СборкаТоваровТовары.Номенклатура = ЦеныНоменклатурыСрезПоследних.Номенклатура
|ГДЕ
| СборкаТоваровТовары.Номенклатура = ЦеныНоменклатурыСрезПоследних.Номенклатура
| И ЦеныНоменклатурыСрезПоследних.ВидЦены = &ВидЦены
| И СборкаТоваровТовары.Номенклатура = &Номенклатура";
Запрос.УстановитьПараметр("Дата", Объект.Дата);
Запрос.УстановитьПараметр("ВидЦены", Объект.ВидЦены);
Запрос.УстановитьПараметр("Номенклатура", Номенклатура);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Для Каждого ТекСтрока Из Объект.Товары Цикл
Если НЕ ТекСтрока.Номенклатура = Номенклатура Тогда
Иначе
ТекСтрока.Цена = ВыборкаДетальныеЗаписи.Цена ;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура Расш1_ТоварыНоменклатураПриИзмененииПосле(Элемент)
Строка = Элементы.Товары.ТекущиеДанные;
Номенклатура = Строка.Номенклатура;
Расш1_ТоварыНоменклатураПриИзмененииПослеНаСервере(Номенклатура);
КонецПроцедуры
ПоказатьПрикрепленные файлы:
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот