Как получить значение из результата запроса в 1С?

Question

[Павел Богданов]

Есть таблица с товарами и ценами в документе Поставка. Есть справочник контрагентов с таблицей цен для каждого контрагента. Нужно из таблицы цен контрагента вытащить цену на нужный товар. Для этого написал такой код:

&НаКлиенте
Процедура ТоварыНоменклатураПриИзменении(Элемент)
	Контрагент = Объект.Контрагент;
	СтрокаТабличнойЧасти = Элементы.Товары.ТекущиеДанные;
	Товар = Элементы.Товары.ТекущиеДанные.Номенклатура;
	СтрокаТабличнойЧасти.Цена = ПолучитьЦены(Контрагент,Товар);	
КонецПроцедуры

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

Но вот получить цену так и не удалось. Где здесь может быть ошибка?

При отладке данного кода такой результат:
{Документ.Поставка.Форма.ФормаДокумента.Форма(40)}: Поле объекта не обнаружено (Цена)
Возврат Результат.Цена;

Comments

[Павел Богданов]

Решение вопроса в комментариях https://toster.ru/answer?answer_id=761007#comments...

Answer 1

[gunsmyth]

И запрос поправьте.

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

Answer 2

[Константин Нагибович]

все банально

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

Имейте ввиду, что если в результате запроса возвращается несколько строк, то вы получите результат последней строки.

Comments

[Павел Богданов]

Спасибо! Попробовал, ошибки при отладке не возникают. Но цена по прежнему не передается. Буду искать ошибки в другом месте.

[Константин Нагибович]

Павел Богданов: рекомендую вам проверить ваш запрос в консоли запросов.

[Павел Богданов]

Спасибо! Запрос проверил, ошибку исправил. Но теперь не могу побороть такое:
{Документ.Поставка.Форма.ФормаДокумента.Форма(24)}: Ошибка при вызове метода контекста (ПолучитьЦены)
ЦенаТовара = ПолучитьЦены();
по причине:
Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа.
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства 'ret':
форма: Элемент
имя: {http://v8.1c.ru/8.2/managed-application/modules}ret
по причине:
Ошибка отображения типов:
Отсутствует отображение для типа 'РезультатЗапроса'

[Константин Нагибович]

Павел Богданов: видимо вы не цену пытаетесь вернуть.

[Павел Богданов]

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

Разве не так должно быть?

[Константин Нагибович]

Павел Богданов: вы в консоли запросов свой запрос проверяли? Под отладчиком смотрели что получаете в переменной Цена?

[Павел Богданов]

Константин Нагибович: В консоли проверял, там строка приходит. Под отладчиком не знаю как посмотреть. Сейчас попробую.

[Константин Нагибович]

Павел Богданов: вы параметры устанавливаете как-то странно. Подставляете строки там, где нужны ссылки на объекты справочников.

[Константин Нагибович]

Павел Богданов: вы в функцию передаете параметры, а для запроса их не используете. Так и должно быть?

[Павел Богданов]

Константин Нагибович:
"Запрос.УстановитьПараметр("Контрагент", "Иванов К.Е.");
Запрос.УстановитьПараметр("Номенклатура", "Металлочерепица");"

Это я просто проверял один из методов. Сейчас там уже стоят ссылки на объекты.

[Павел Богданов]

Константин Нагибович: Использую. Конечный вариант так выглядит:

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

[gunsmyth]

Вы не оттуда выбираете. Надо из "Справочник.Контрагенты.Цены"

[Павел Богданов]

gunsmyth: "Справочник.Контрагенты.Цены" это ТЧ. Убрал "Цены", потому что с ними не срабатывали условия. Разве недостаточно того, что указано "ВЫБРАТЬ Контрагент.Цены.Цена"? Здесь же идет обращение к ТЧ...

[Павел Богданов]

Константин Нагибович: Нашел похоже где ошибка. При вызове функции выходит:

{Документ.Поставка.Форма.ФормаДокумента.Форма(24)}: Ошибка при вызове метода контекста (ПолучитьЦены)
ЦенаТовара = ПолучитьЦены(Контрагент, Номенклатура);
по причине:
Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа.
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства 'param':
форма: Элемент
имя: {http://v8.1c.ru/8.2/managed-application/modules}param
по причине:
Ошибка отображения типов:
Отсутствует отображение для типа 'ПолеФормы'

[gunsmyth]

Именно потому, что это табличная часть. Просто попробуйте использовать код, что я привел в ответе.

[Павел Богданов]

gunsmyth: Использую Ваш код, достиг такого:

{Документ.Поставка.Форма.ФормаДокумента.Форма(57)}: Значение не является значением объектного типа (Цена)
Возврат Результат.Цена;

[gunsmyth]

Попробуйте вместо "Результат = Запрос.Выполнить().Выбрать().Следующий();" использовать

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

[gunsmyth]

И "Возврат Цена" вместо "Возврат Результат.Цена"

[Павел Богданов]

gunsmyth:
Константин Нагибович:

Спасибо Вам большое! Работает!

Полученный рабочий код:

&НаКлиенте
Процедура ТоварыНоменклатураПриИзменении(Элемент)
Контрагент = Объект.Контрагент;
СтрокаТабличнойЧасти = Элементы.Товары.ТекущиеДанные;
Номенклатура = Элементы.Товары.ТекущиеДанные.Номенклатура;
ЦенаТовара = ПолучитьЦены(Контрагент, Номенклатура);
СтрокаТабличнойЧасти.Цена = ЦенаТовара;
КонецПроцедуры

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

Answer 3

[redakoc]

Вы получаете таблицу (пусть даже состоящую из одной строки).
Вам нужно не просто результаты запроса читать, а или обходить все строки таблицы в цикле или прямо обращаться к первой строчке таблицы.