Собственно подготавливаю запрос при открытии формы.
     РС = СоздатьОбъект("ODBCRecordset");
     КолПараметровКоличества = 1;
     ТекстЗапроса = "
     |SELECT
     |  $Рег.Количество as Количество
     |FROM
     |  $РегистрИтоги.ОстаткиТМЦ as Рег
     |WHERE
     |  Рег.Period = ?";
     Если ПустоеЗначение(ФирмаДляОстатковТМЦ) = 0 Тогда
           ТекстЗапроса = ТекстЗапроса + "
           | AND $Рег.Фирма = ?";
     КонецЕсли;
     Если ПустоеЗначение(Склад) = 0 Тогда
           ТекстЗапроса = ТекстЗапроса + "
           | AND $Рег.Склад = ?";
     КонецЕсли;
     ТекстЗапроса = ТекстЗапроса + "
     | AND $Рег.Номенклатура = ?";
     РС.Подготовить(ТекстЗапроса);
     рс.ПостроитьПараметры();
     РС.УстПараметр(КолПараметровКоличества,НачМесяца(ТекущаяДата()));

далее в функции выполняю запрос

Если ПустоеЗначение(ФирмаДляОстатковТМЦ) = 0 Тогда
           КолПараметровКоличества = КолПараметровКоличества + 1;
           РС.УстПараметр(КолПараметровКоличества,ФирмаДляОстатковТМЦ);
     КонецЕсли;
     Если ПустоеЗначение(Склад) = 0 Тогда
           КолПараметровКоличества = КолПараметровКоличества + 1;
           РС.УстПараметр(КолПараметровКоличества,Склад);
     КонецЕсли;
     КолПараметровКоличества = КолПараметровКоличества + 1;
     РС.УстПараметр(КолПараметровКоличества,ТекущийЭлемент());
     КолПараметровКоличества = 1;
     Возврат СокрЛП(Формат(РС.ВыполнитьСкалярный(),"Ч014.3"));

Вопрос в следующем не могу понять как мне поступить перед изменением фильтра. Например склад пустой соответствено необходимо остаток по все складам получить. только когда меняешь запрос ошибка. типа нельзя так как соединение используется КАК ПОСТУПИТЬ??

Вот еще проблема хочу получить последнюю цену позиции в подпоре создаю запрос

РС2 = СоздатьОбъект("ODBCRecordset");
     ТекстЗапроса = "
     |Select
     |      $ПоследнееЗначение.Цены.Цена(СпрЦены.ID,:ДатаЦены~);
     |FROM
     |      $Справочник.Цены СпрЦены
     |WHERE
     |      $СпрЦ.Владелец = ? AND
     |   $СпрЦ.ТипЦен = ?
     |";
     РС2.УстановитьТекстовыйПараметр("ДатаЦены",ТекущаяДата());
     РС2.Подготовить(ТекстЗапроса);
     РС2.ПостроитьПараметры();

Выполняю

Функция ПолучитьЦену()
     РС2.УстПараметр(2,ТекущийЭлемент());
     РС2.УстПараметр(3,ТипЦен);
     Возврат СокрЛП(Формат(РС2.ВыполнитьСкалярный(),"Ч015.2"));
     //ЦенаТекНоменклатуры
КонецФункции

И пишет, что индекс параметра указан не верно !?
С 1 тоже пробовал в чем загвоздка?

Z1 писал(а) 02. Сентября 2011 :: 09:29:

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

mozer писал(а) 02. Сентября 2011 :: 09:33:

свое сумирование без виртуальной таблицы.

Z1 писал(а) 02. Сентября 2011 :: 09:36:

невозможно если писать простой запрос, то тормоза дикие.
Поясню этот запрос используется для вывода остатка в форме подбора! Тоже хочу написать для получения цены пока засада

trad писал(а) 02. Сентября 2011 :: 10:04:

МММ ... дак запросы то аналогичные, только один работает быстрей, а другой тупит ... куда тогда смотреть?

Процедура ПодготовитьЗапрос();
     //ХВС_Начало Создадим параметризованый запрос для получения остатка
     ТекстЗапроса = "
     |SELECT
     |  $Рег.Количество as Количество
     |FROM
     |  $РегистрИтоги.ОстаткиТМЦ as Рег
     |WHERE
     |  Рег.Period = :ВыбДата~";
     Если ПустоеЗначение(ФирмаДляОстатковТМЦ) = 0 Тогда
           ТекстЗапроса = ТекстЗапроса + "
           | AND $Рег.Фирма = :ВыбФирма";
     КонецЕсли;
     Если ПустоеЗначение(Склад) = 0 Тогда
           ТекстЗапроса = ТекстЗапроса + "
           | AND $Рег.Склад = :ВыбСклад";
     КонецЕсли;
     ТекстЗапроса = ТекстЗапроса + "
     | AND $Рег.Номенклатура = :ВыбНом";
КонецПроцедуры

Функция ПолучитьОстаток()
     РС.УстановитьТекстовыйПараметр("ВыбДата",НачМесяца(ТекущаяДата()));
     Если ПустоеЗначение(ФирмаДляОстатковТМЦ) = 0 Тогда
           РС.УстановитьТекстовыйПараметр("ВыбФирма",ФирмаДляОстатковТМЦ);
     КонецЕсли;
     Если ПустоеЗначение(Склад) = 0 Тогда
           РС.УстановитьТекстовыйПараметр("ВыбСклад",Склад);
     КонецЕсли;
     РС.УстановитьТекстовыйПараметр("ВыбНом",ТекущийЭлемент());
     Возврат СокрЛП(Формат(РС.ВыполнитьСкалярный(ТекстЗапроса),"Ч014.3"));
     //ПолучитьОстатокЗаполнитьЦену()
КонецФункции

в таком варианте вообще не работает

старыйзапрос с тормозами я пох#рил. Щас вспомню что там было ?