(nolock)
воткни в текст запроса + это, остатки всегда на ТА нужны вам разве ?


+ не ясно, что есть Склад у вас

Так что "воткнуть"?! Склад это параметр формы, он определяется при ее открытии, а номенклатура - это текущий элемент для которого рассчитывается остаток?!

Как он может вернуть более одного значения, если в него передается 2 параметра Склад и Номенклатура, это конечные элементы и остаток только один. Запрос построен на основе методических рекомендаций к компоненте 1C++?! Вы предлагаете убрать один параметр из запроса?!

Eugene1980 писал(а) 02. Апреля 2014 :: 12:00:
нет, не предлагал я такого.
Я предлагаю гарантировать одну строку в выборке. Это достигается либо путем агрегирования, как я показал, либо указанием отбора по значениям всех измерений регистра.

Через УстановитьТекстовыйПараметр..

Попробовал, но теперь другая ошибка - message [Microsoft][ODBC SQL Server Driver]Invalid Descriptor Index, что то с индексом?!

Eugene1980 писал(а) 02. Апреля 2014 :: 17:16:

Не с индексом, с построением параметров, у тебя в (0) никак не указано, как подготавливается запрос и как создаются параметры.
Например, была такая ветка с аналогичной проблемой: http://www.1cpp.ru/forum/YaBB.pl?num=1288688923/0

trad писал(а) 03. Апреля 2014 :: 05:18:

Вот спасибо, теперь стало понятнее

)

Товар описал как переменную, а на остальные переменные болт положил ?

Так что ли?!

Функция ЗапросСКЛ()
           
     ТекстЗапроса = "
         |DECLARE @Товар CHAR(9)
         |Set @Фирма = ?,
         |Set @Склад = ?,
         |Set @Товар = ?
         |SELECT
         |      sum(Рег.КоличествоОстаток) as Количество
         |FROM
         |      $РегистрОстатки.ОстаткиТМЦ(,,Фирма = ? AND Склад = ? AND Номенклатура = @Товар,(Фирма,Склад,Номенклатура), Количество) as Рег
         |";

     RS = СоздатьОбъект("ODBCRecordset");
     Если RS.Подготовить(ТекстЗапроса) = 0 Тогда
            Сообщить(RS.ПолучитьОписаниеОшибки());
     КонецЕсли;
     RS.ПостроитьПараметры(); 

     RS.УстПараметр(1, ВыбФирма);
     RS.УстПараметр(2, ВыбСклад);
      RS.УстПараметр(3, Товар);

     Возврат RS.ВыполнитьСкалярный();
    
КонецФункции

+
DECLARE @Товар CHAR(9), @Склад CHAR(9), @Фирма CHAR(9)

и запятые после set лишние

и вообще зачем подготавливать запрос при каждом получении остатка?..
весь профит от параметрического запроса коту под хвост

Воспользуйтесь поиском.
Хотя, ваш пример довести до ума, не так и тяжело.
Достаточно в ПриОткртыиии написать текст запроса, подготовить его, и построить параметры, а в функции только устанавливать парметры и выполнять его.

А так - с параметрическим (если я правильно все понял)

Перем RS;
Процедура ИнициализироватьЗапрос()
    ТекстЗапроса = "
	   |DECLARE @Товар CHAR(9),@Фирма CHAR(9),@Склад CHAR(9)
	   |Set @Фирма = ?
	   |Set @Склад = ?
	   |Set @Товар = ?
	   |SELECT
	   |	sum(Рег.КоличествоОстаток) as Количество
	   |FROM
	   |	$РегистрОстатки.ОстаткиТМЦ(,,Фирма = @Фирма AND Склад = @Склад AND Номенклатура = @Товар,(Фирма,Склад,Номенклатура), Количество) as Рег
	   |";

    RS = СоздатьОбъект("ODBCRecordset");
    Если RS.Подготовить(ТекстЗапроса) = 0 Тогда
		Сообщить(RS.ПолучитьОписаниеОшибки());
    КонецЕсли;
    RS.ПостроитьПараметры();
КонецПроцедуры
//------------------------------------------
Процедура ПриОткрытии()
  ИнициализироватьЗапрос();
...
КонецПроцедуры
//------------------------------------------
Функция ЗапросСКЛ()
    RS.УстПараметр(1, ВыбФирма);
    RS.УстПараметр(2, ВыбСклад);
    RS.УстПараметр(3, Товар);

    Возврат RS.ВыполнитьСкалярный();

КонецФункции 

Так в том то и дел что все мануалы уже поднял, ваши рекомендации выполнил, ни черта, валится с ошибкой
индекса и все:

Вот код обработки для теста прямого запроса, в таблицу на форме выводит элементы группы номенклатуры
и остаток, все просто блин, ошибка
Возврат RS.ВыполнитьСкалярный();      
{D:\1C ADMIN\ОБРАБОТКИ\SQL_ПОДБОР.ERT(40)}: State 07009, native 0, message [Microsoft][ODBC SQL Server Driver]Invalid Descriptor Index

Перем RS;


// ТекстЗапроса()
//
// Параметры:
//  Нет
//
// Возвращаемое значение:
//  Текст запроса
//
// Вызывается из формул элементов диалога:
//
// Описание:
//      Формирует текс запроса, для рассчета остатков
//
Функция ТекстЗапросаСКЛ()
             
     ТекстЗапроса = "
        |DECLARE @Товар CHAR(9),@Фирма CHAR(9),@Склад CHAR(9)
        |Set @Фирма = ?
        |Set @Склад = ?
        |Set @Товар = ?
        |SELECT
        |      sum(Рег.КоличествоОстаток) as Количество
        |FROM
        |      $РегистрОстатки.ОстаткиТМЦ(,,Фирма = @Фирма AND Склад = @Склад AND Номенклатура = @Товар,(Фирма,Склад,Номенклатура), Количество) as Рег
        |";        

    Возврат ТекстЗапроса;
     
КонецФункции


Функция ПолучитьОстатокНоменклатурыСКЛ(Товар)  
     
     RS.УстПараметр(3, Товар);
     Возврат RS.ВыполнитьСкалярный();      
     
КонецФункции


Процедура ПриОткрытии()
           
     ВыбФирма = глЗначениеПоУмолчанию("ОсновнаяФирма");
     ФирмаДляОстатковТМЦ = глФирмаДляОстатковТМЦ(ВыбФирма);
     ВыбСклад = глЗначениеПоУмолчанию("ОсновнойСклад");
     
     ТаблицаПодбора.НоваяКолонка("Номенклатура",       ,  , ,"Выбранный товар",20   );
     ТаблицаПодбора.НоваяКолонка("Единица"     ,       ,  , ,"Ед."            ,4    );
     ТаблицаПодбора.НоваяКолонка("ОстатокФ"    ,"Число",14,3,"Ост. ф."        ,10,,2);
           
КонецПроцедуры      // ПриОткрытии



Процедура Сформировать()                      
                   
     Если ПустоеЗначение(ВыбФирма) = 1 Тогда
           Предупреждение("Не указана фирма!",10);
           СтатусВозврата(0);
           Возврат;
     КонецЕсли;  
     
     Если ПустоеЗначение(ВыбСклад) = 1 Тогда
           Предупреждение("Не указан  склад!",10);
           СтатусВозврата(0);
           Возврат;
     КонецЕсли;
     
     Если ПустоеЗначение(ВыбТМЦ) = 1 Тогда
           Предупреждение("Не указана группа ТМЦ!",10);
           СтатусВозврата(0);
           Возврат;
     КонецЕсли;
     
     Если ЗагрузитьВнешнююКомпоненту("1cpp.dll") = 0 Тогда
           Сообщить("Неудачная попытка загрузить 1cpp.dll! Выполнение отчета невозможно!","!");
           СтатусВозврата(0);
           Возврат;
     КонецЕсли;  
     
     RS = СоздатьОбъект("ODBCRecordset");
     ТекстЗапроса = ТекстЗапросаСКЛ();
     Если RS.Подготовить(ТекстЗапроса) = 0 Тогда
             Сообщить(RS.ПолучитьОписаниеОшибки());
     КонецЕсли;
     RS.ПостроитьПараметры();  
     RS.УстПараметр(1, ВыбФирма);
     RS.УстПараметр(2, ВыбСклад);
           
     Спр = СоздатьОбъект("Справочник.Номенклатура");
     Спр.ИспользоватьРодителя(ВыбТМЦ);  
     Спр.ВыбратьЭлементы();
     Пока Спр.ПолучитьЭлемент() > 0 Цикл
           Если Спр.ЭтоГруппа() = 1 Тогда
                 Продолжить;
           КонецЕсли;    
           ТаблицаПодбора.НоваяСтрока();
           ТаблицаПодбора.Номенклатура = Спр.ТекущийЭлемент();
           ТаблицаПодбора.Единица      = Спр.БазоваяЕдиница;
           ТаблицаПодбора.ОстатокФ     = ПолучитьОстатокНоменклатурыСКЛ(Спр.ТекущийЭлемент());
     КонецЦикла;
     
КонецПроцедуры  


// ОПЕРАТОРЫ ОСНОВНОЙ ПРОГРАММЫ
//
ДатаКонца = ПолучитьДатуТА();
ВыбТМЦ.ВыборГруппы(1);

Неужели, действительно, вот это помогло. Спасибо ОГРОМНОЕ!
А в чем шайтан, открой секрет?!
И вопрос по поводу даты остатков, если я захочу ее сам задавать, использовать тоже
RS.ДобПараметр(1,14,9,0);
RS.УстПараметр(1, ДатаОст);

Т.е. задавать дату в параметрическом запросе  невозможно?!

Так отработает RS.УстановитьТекстовыйПараметр("ДатаОст", ДатаКонца)?!

Всем спасибо господа вот теперь все заработало, если необходимо могу выложить полный текст запроса, т. с для потомков?!