0
VID1234
03.03.22
✎
11:48
|
Здравствуйте. Есть код ниже, но он не работает если тонкий клиент! Почему, подскажите пожалуйста?
&НаКлиенте
Процедура ПоставкаСЗИТоварПриИзменении(Элемент)
ОСТЧ = Элементы.ПоставкаСЗИ.ТекущиеДанные;
Если Не ЗначениеЗаполнено(ОСТЧ.ТипЦены) Тогда
Сообщить("Сначала заполните тип цены! После этого перевыберите товар, необходимые поля заполнятся автоматически!");
Иначе
Данные = ЦенаОС(Объект.Дата, ОСТЧ.Товар, ОСТЧ.ТипЦены);
//Для Каждого Пункта Из Данные Цикл
// ОСТЧ.Цена = Пункта.Цена;
// ОСТЧ.Описание = Пункта.Описание;
//КонецЦикла;
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция ЦенаОС (Дата, Номенклатура, ТипЦены)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЦеныНоменклатурыСрезПоследних.Цена КАК Цена,
| ЦеныНоменклатурыСрезПоследних.Описание КАК Описание,
| ЦеныНоменклатурыСрезПоследних.ТипЦены КАК ТипЦены,
| ЦеныНоменклатурыСрезПоследних.Номенклатура КАК Товар
|ИЗ
| РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&Период, ) КАК ЦеныНоменклатурыСрезПоследних
|ГДЕ
| ЦеныНоменклатурыСрезПоследних.ТипЦены = &ТипЦены
| И ЦеныНоменклатурыСрезПоследних.Номенклатура = &Номенклатура";
Запрос.УстановитьПараметр("Номенклатура", Номенклатура);
Запрос.УстановитьПараметр("Период", Дата);
Запрос.УстановитьПараметр("ТипЦены", ТипЦены);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выгрузить();
Объект.ПоставкаСЗИ.Загрузить(ВыборкаДетальныеЗаписи);
Возврат ВыборкаДетальныеЗаписи;
КонецФункции
|
|