В конфигурации пытаюсь использовать прямой запрос для получения цены товара в форме списка справочника:
Краткая пердистория:
-Есть спр. "Цены", подчиненный спр. "Номенклатура", который имеет реквизиты "ТипЦен" и "Цена"-периодический;
-Есть спр. "Прайс", в котором есть реквизит "Товар" - ссылка на эл. спр. "Номенклатура"
-В форме спр. "Прайс" необходимо выводить значение цены ук-го типа на тек. дату.
Т.к. получение стандартными средствами знач. цены ощутимо "тормозит" прокрутку справочника, было принято решение исп-ть прямой запрос:

Перем ЗапросЦ;

//_____________________________________________________________________________            
Процедура ПриОткрытии()

	Перем ТекстЗапросаЦ;

...........

	Если (глЭтоSQLБаза = 1) Тогда

		ЗапросЦ = СоздатьОбъект("ODBCRecordset");

		ТекстЗапросаЦ = "
		|SELECT
		|    $ПоследнееЗначение.Цены.Цена(СпрЦены.ID, ?)
		|FROM
		|    $Справочник.Цены as СпрЦены WITH (NOLOCK)
		|WHERE
		|    СпрЦены.ParentExt = ? AND $СпрЦены.ТипЦен = ? AND СпрЦены.IsMark = 0";

		ЗапросЦ.Подготовить(ТекстЗапросаЦ);
		ЗапросЦ.ДобПараметр(1,10,8,0);
		ЗапросЦ.ДобПараметр(1,14,9,0);
		ЗапросЦ.ДобПараметр(1,14,9,0);
		ЗапросЦ.УстПараметр(1, ПолучитьДатуТА());
		ЗапросЦ.УстПараметр(3, тип_цен);
	КонецЕсли;

КонецПроцедуры //ПриОткрытии

//_____________________________________________________________________________            
Функция ВернутьЦену()
    Перем цена;

	Если (ТекущийЭлемент().ЭтоГруппа() = 1) Тогда
	    Возврат "";
	КонецЕсли;

	Если (глЭтоSQLБаза = 1) Тогда
		Если (тип_цен.СпособФормированияЦен = Перечисление.СпособыФормированияЦен.ХранитсяВИБ) Тогда
			ЗапросЦ.УстПараметр(2, ТекущийЭлемент().Товар);
			цена = ЗапросЦ.ВыполнитьСкалярный();
	    	Возврат Формат(цена,"Ч0.2");
		КонецЕсли;
	КонецЕсли;

	Если (глВернутьЦену(ТекущийЭлемент().Товар, тип_цен, ТекущаяДата(), цена) = 1) Тогда
	    Возврат Формат(цена,"Ч0.2");
	КонецЕсли;

	Возврат "";
КонецФункции //ВернутьЦену

//_____________________________________________________________________________            
 

Функция "ВернутьЦену" используется в формуле, в колонке табл. части типа "Текст"

Запрос отлично выполняется 5 раз (форма спр. "свернута", видно малое кол-во строк), а затем база выпадает с ошибкой (см. вложение)

В чем может быть дело? Please HELP...

PS:"Вылет" происходит при выполнении кода:

Товар = ТекущийЭлемент().Товар;
 

25-я платформа, релиз 1С++ 2.0.2.2

Цитата:

нет, не похоже

При попытке вернуть структуру в ВыполнитьСкалярный вылетает такая бодяга.
При попытке вернуть одно значение, та же фигня.
Если заменить на ВыполнитьИнструкцию - все работает, по крайней мере на
v. 2.0.3.0 NB от 17.06.2006

Цитата:

пример пожалуйста

trad писал(а) 29. Августа 2006 :: 04:53:


Огромное спасибо top 1 спас ситуацию.

slider26 писал(а) 29. Августа 2006 :: 06:44:

то ты Вася, то ты не Вася... 
это я к тому, шо ты вроде типа как проверял и выбирал одно значение и говорил что проблему это не спасло, так таки не проверял получается... нехарашо людефф то в заблуждение вводить...

slider26 писал(а) 29. Августа 2006 :: 06:57:

навреное не проснулся еще, это U_zer утверждал что это не помогло...

Цитата:

ну почитай вот это:
http://www.1cpp.ru/forum/YaBB.pl?num=1156818080/4#4

это же не мое сообщение то...

ХЕЛП У МЕНЯ ТАЖЕ СИТУАЦИЯ И ТАЖЕ ОШИБКА.....

RS_Цена = СоздатьОбъект("ODBCRecordset");
	  ТекстЗапросаЦ = "
		|SELECT
		|    $ПоследнееЗначение.Цены.ЦенаСНДС(СпрЦены.ID, ?)
		|FROM
		|    $Справочник.Цены as СпрЦены WITH (NOLOCK)
		|WHERE
		|    СпрЦены.ParentExt = ? AND
		|    $СпрЦены.КатегорияЦены = ? AND
		|    СпрЦены.IsMark = 0 AND
		|    LEFT(СпрЦены.Code,3) = ?";
	  RS_Цена.Отладка(1);
		RS_Цена.Подготовить(ТекстЗапросаЦ);
		RS_Цена.ДобПараметр(1,10,8,0);
		RS_Цена.ДобПараметр(1,14,9,0);
		RS_Цена.ДобПараметр(1,14,9,0);
		RS_Цена.ДобПараметр(1,14,6,0);
		RS_Цена.УстПараметр(1, ПолучитьДатуТА());
		RS_Цена.УстПараметр(4, Филия.Код); 

после РС.Отладка

SELECT
    (
select top 1
cast(c2041_vv.value as numeric(11, 3))
from
_1sconst as c2041_vv (nolock)
where
c2041_vv.id = 2041 and
c2041_vv.objid = СпрЦены.ID and
(c2041_vv.date <= ?)
order by c2041_vv.date desc, c2041_vv.time desc, c2041_vv.docid desc, c2041_vv.row_id desc
)
FROM
    sc2034 as СпрЦены WITH (NOLOCK)
WHERE
    СпрЦены.ParentExt = ? AND
    СпрЦены.sp2036 = ? AND
    СпрЦены.IsMark = 0 AND
    LEFT(СпрЦены.Code,3) = ?
 

Все работает но там где есть 2 елемента что попадают в условие вылитеет запрос, как вернуть только 1????
top 1 в отладке присутствует???? что не так хелп.