Есть Запрос

Процедура ПриОткрытии()    
     Есть1срр = 1;
     Попытка
         RS = СоздатьОбъект("ODBCRecordset");
     Исключение   
           Есть1срр = 0;
           Возврат;
     КонецПопытки;   
           //Есть1срр = 0;
    ТекстЗапроса = "
     |@Документ = ?
     //|@ВыбранДата = ?
     |SELECT ПартииНаличиеОстатки.КоличествоОстаток
     |      , ПартииНаличиеОстатки.Партия [Партия $Справочник.Партии]
     |FROM $РегистрОстатки.ПартииНаличие(,,
     |            (Партия IN (SELECT $РеализацияСтроки.Партия 
     |            FROM $ДокументСтроки.Реализация AS РеализацияСтроки
     |            WHERE (РеализацияСтроки.IDDOC = @Документ)
     |                  AND ($РеализацияСтроки.Партия <> $ПустойИд)
     |            GROUP BY $РеализацияСтроки.Партия)),
     |            Партия,
     |            Количество) AS ПартииНаличиеОстатки 
     |WHERE (ПартииНаличиеОстатки.КоличествоОстаток < 0)
     |";
     RS.Подготовить(ТекстЗапроса);
     RS.ПостроитьПараметры();   
     RS.Отладка(1);   
КонецПроцедуры

и функция которая срабатывает на текущий документ журнала

Функция ПроверкаРаспределенияПартий()   
     Перем Проверка;
     
     Если (ТекущийДокумент.Вид() <> "Реализация") ИЛИ (ТекущийДокумент.Проведен() = 0) ИЛИ (Есть1срр = 0)  Тогда
           Возврат "";
     КонецЕсли;                                                                              
     //      
     //Позиция = СформироватьПозициюДокумента(ТекущийДокумент,1);
     //Сообщить("Документ - "+Строка(ТекущийДокумент)+" и его позиция "+Строка(Позиция),"!!!");
    RS.УстПараметр(1, ТекущийДокумент);
    //RS.УстПараметр(2, СформироватьПозициюДокумента(ТекущийДокумент,1));
    Проверка =  RS.ВыполнитьСкалярный();
     Если ТипЗначенияСтр(Проверка) = "ТаблицаЗначений" Тогда
           Проверка.ВыбратьСтроку();      
     КонецЕсли;
КонецФункции                        

DangerWulf писал(а) 03. Апреля 2008 :: 06:15:


А в кверюге запрос выполняется на ура? Сегодня с такой же ошибкой столкнулся...
Победил только выполнением запроса не через 1С++, а RiK_SQL
И тоже весьма сильно интересуюсь, как ее все-таки победить нормально...

     |SELECT ПартииНаличиеОстатки.КоличествоОстаток
     |      , ПартииНаличиеОстатки.Партия [Партия $Справочник.Партии]
     |FROM $РегистрОстатки.ПартииНаличие(,,
     |            (Партия IN (SELECT $РеализацияСтроки.Партия 
     |            FROM $ДокументСтроки.Реализация AS РеализацияСтроки
     |            WHERE ($РеализацияСтроки.Партия <> ?)
     |                  AND (РеализацияСтроки.IDDOC = ?)
     |            GROUP BY $РеализацияСтроки.Партия)),
     |            Партия,
     |            Количество) AS ПартииНаличиеОстатки 
     |WHERE (ПартииНаличиеОстатки.КоличествоОстаток < 0)
так пишет что количество параметров 1

А можешь подсказать как надо?

1) Зачем varchar? char(9)
2) Где переменная @ВыбранДата? И почему varchar а не DateTime?
3) Попробуй вместо @Документ использовать @Док
4) Как ты устанавливаешь параметры? Используй вместо ПосторитьПараметры() ДобПараметр()

А что такое 2 в ДобПараметр() ты читал?

Тип базы?
Приведи полный текст запроса и его выполнения.

Ну, по крайней мере, top 1 спасает в любом случае.