1С 7.7 простейший прямой запрос ОстаткиТМЦ ТиС

ТекстЗапроса = "
|DECLARE @Тов varchar(8)

|SET @Тов = ?

|SELECT
|     sum(Ост.ОстатокТовараОстаток) Остаток
|FROM $РегистрОстатки.ОстаткиТМЦ AS Ост
|WHERE    
|        Ост.Номенклатура = @Тов

|";

РекордСет.ДобПараметр(1, 14, 8, 0);


РекордСет.Подготовить(ТекстЗапроса);
// ВыбСкл="";                          
РекордСет.УстПараметр(1, Ном.ТекущийЭлемент());
//RS.УстПараметр(2, ВыбСкл);

Рез = РекордСет.ВыполнитьСкалярный();
РекордСет.Закрыть();                                  
Конец = _GetPerformanceCounter()    ;
Сообщить(Конец-Старт);
Сообщить(Рез);
Сообщить(ТипЗначенияСтр(Рез));
КонецПроцедуры


Выводит:
1
0
Число

хотя остаток там есть, уже голову сломал

патамушта char(9)
прежде чем запросы писать почитай тут: http://www.script-coding.com/v77tables.html

ТекстЗапроса = "
        |SELECT
        |    Рег.Номенклатура as [Номенклатура $Справочник.Номенклатура],
        |    Рег.КоличествоОстаток as Количество
        |FROM  
        |    $РегистрОстатки.ОстаткиТМЦ(,,Номенклатура IN (SELECT Val FROM #ТНоменклатура),(Номенклатура),Количество) as Рег";

        //|    $РегистрОстатки.МенеджерыПокупатели("+?(ВремИтогиАктуальны=0,":ВыбДата~","")+",,Договор IN (SELECT Val FROM #ВЗПДоговор) AND Менеджер IN (SELECT Val FROM #ВЗПМенеджер),(КредДокумент,Договор,Менеджер),СуммаРуб) as Рег";
        СН = СоздатьОбъект("СписокЗначений");
        СН.ДобавитьЗначение(Ном.ТекущийЭлемент());
        РекордСет.УложитьСписокОбъектов(СН, "#ТНоменклатура", "Номенклатура");
        
        //Если ВремИтогиАктуальны = 0 Тогда
        //    RS.УстановитьТекстовыйПараметр("ВыбДата", СформироватьПозициюДокумента(ТекущийДокумент(), -1));
        //КонецЕсли;
          
        //RS.Отладка(1);                  
        ТЗДолгов = РекордСет.ВыполнитьИнструкцию(ТекстЗапроса);  



Internal error:


и по скорости медленнее

ТекстЗапроса = "
        |SELECT
        |    Рег.Номенклатура as [Номенклатура $Справочник.Номенклатура],
        |    Рег.КоличествоОстаток as Количество
        |FROM  
        |    $РегистрОстатки.ОстаткиТМЦ(,,Номенклатура = ?,(Номенклатура),Количество) as Рег";

         РекордСет.Подготовить(ТекстЗапроса)
    РекордСет.ПостроитьПараметры();
        ТЗДолгов = РекордСет.ВыполнитьИнструкцию(ТекстЗапроса);

Параметрический запрос у тебя зачем? ты его в цикле хочешь выполнять?

+(3) еще установить параметр впихнуть

(4) очевидно, хочет засунуть его в форму списка или подбора таким извоащенным способом

В формулу текстовой колонки поди пихает свой запрос для показа останка.

(7) есть же класс для этого...

Ну и надо ВыполнитьСкалярный всё же

ТекстЗапроса = "
|SELECT
|    Рег.Номенклатура as [Номенклатура $Справочник.Номенклатура],
|    Рег.КоличествоОстаток as Количество
|FROM  
|    $РегистрОстатки.ОстаткиТМЦ(,,Номенклатура = ?,(Номенклатура),Количество) as Рег";


РекордСет.ДобПараметр(1, 14, 9, 0);
РекордСет.Подготовить(ТекстЗапроса);
                          
РекордСет.УстПараметр(1, Ном.ТекущийЭлемент());
ТЗДолгов = РекордСет.ВыполнитьСкалярный(ТекстЗапроса);

Конец = _GetPerformanceCounter()    ;
Сообщить(Конец-Старт);
Сообщить(ТЗДолгов);
Сообщить(ТипЗначенияСтр(ТЗДолгов));





результат


0
0
Число

(4)+(6)
да все верно в подборе в цикле

(10) да уж.. блин, ну нельзя же применять советуемые методы не ознакомившись с докумментацией.

https://www.1cpp.ru/docum/html/ODBC.html#executescalar


ТекстЗапроса = "
|SELECT
|    Рег.КоличествоОстаток
|FROM  
|    $РегистрОстатки.ОстаткиТМЦ(,,Номенклатура = ?,(Номенклатура),Количество) as Рег";
....

КоличествоОстаток= РекордСет.ВыполнитьСкалярный(ТекстЗапроса);
Сообщить(КоличествоОстаток);


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

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

кэш долго будет при  открытии думать,
(14) возвращает остаток = 0

хотя там есть остаток в разрезе фирм и складов

сводныйостаток тоже возвращает не ноль

(16) схрена ? твои остатки, что штатно с ВыгрузитьИтоги, что через прямой запрос для всей номенлатуры.. это милисекунды.

(18) нужно динамическое обновление остатка

(19) в подборе ? Ну и обновляй свою ИТЗ по таймеру.

Хотя на практике, это нах никому не впёрлось.

(14)
проблема в фильтре?
ему не нравится справочник.Номенклатура?
нужно что то типа ИДОбъекта ?

У тебя в любом случае, даже если оператор подобрал нечто, он может док проводить не сразу, а потом и остатка- тю-тю уже не будет в момент проведения.

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

(22) выведи так, для начала и посмотри, че там..

ТекстЗапроса = "
|SELECT
|    Рег.Номенклатура as [Номенклатура $Справочник.Номенклатура],
|    Рег.КоличествоОстаток as Количество
|FROM  
|    $РегистрОстатки.ОстаткиТМЦ(,,,(Номенклатура),Количество) as Рег";


ТЗДолгов = РекордСет.ВыполнитьИнструкцию(ТекстЗапроса);
ТЗДолгов.ВыбратьСтроку() и сымотри, чего там есть

(24)
пусто(((
даже таблица не создалась

ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"1cpp.dll");
        БазаДанных = СоздатьОбъект("ODBCDataBase");
        БазаДанных.Соединение("
        |DRIVER=Microsoft Visual FoxPro Driver;
        |Deleted=No;
        |Null=No;
        |Collate=RUSSIAN;
        |BackgroundFetch=No;
        |Exclusive=No;
        |SourceType=DBF;
        |SourceDB=" + КаталогИБ());
        РекордСет=СоздатьОбъект("ODBCRecordset");
        РекордСет.УстБД(БазаДанных);

ИБ=СоздатьОбъект("ODBCDataBase");
ИБ.ПрисоединитьИБ("\\server\КаталогИБ\");
рс=СоздатьОбъект("ODBCRecordset");
рс.УстБД(ИБ);
Результат=рс.ВыполнитьИнструкцию(ТекстЗапроса);

как по статье то не соединяет вовсе
Ошибка соединения: State IM001, native 0, message [Microsoft][Диспетчер драйверов ODBC] Драйвер не поддерживает данную функцию

(26) У тя дбф что ле ???? )))))))))))))

уй ё... как всё запущено.

(16) Слушай Ё!
Остатки при открытии, в таблицу, на форму доп. колонку (поле).
По опыту могу сказать: такой способ работает в разу быстрее, чем демонический (тьфу, динамический).

(21) Иногда надо. И (в тот самый момент) помогает.

(31) а есть?
я че та не могу к базе через
Microsoft Visual FoxPro Driver
подключицца
проверил на справочнике
пусто

(23) У меня, например, оператор может час с клиентом подбирать товар. Так что построчное проведение при подборе и динамические остатки. Может человеку такое же надо

(32) Формат базы какой ? SQl или дбф, для начала ?

(33) Другая реализация через движение справочника "Резервы" при выборе ТМЦ в форме подбора прямым запросом и доп колонка в той же форме.

(33) ну, если заказ на пару лямов - почему бы и нет. А когда заказ из 50 позиций на 20тыс... - назер таких операторов на тлф.

Не могу только теперь добавить фильтр по номенклатуре
|SELECT

//| $Рег.Склад as [Склад $Справочник.Склады],

| $Рег.Номенклатура as [Номенклатура $Справочник.Номенклатура],

| $Рег.Количество as Количество

|FROM

| $Регистр.ОстаткиТМЦ as Рег

|WHERE

| $Рег.Номенклатура = ?";

Запрос.ДобПараметр (1, 14, 9, 0);

Запрос.УстановитьПараметр(1, Ном.ТекущийЭлемент());


Отсутствует значение для одного или нескольких требуемых параметров.

|SELECT
    
    //|  $Рег.Склад as [Склад $Справочник.Склады],
    
    |  $Рег.Номенклатура as [Номенклатура $Справочник.Номенклатура],
    
    |  $Рег.Количество as Количество
    
    |FROM
    
    |  $Регистр.ОстаткиТМЦ as Рег
    
    |WHERE
    
    |  $Рег.Номенклатура = ВыбНом";

Запрос.УложитьСписокОбъектов(Ном.ТекущийЭлемент(), "#ВыбНом", "Номенклатура");
Column 'ВЫБНОМ' is not found.

ВОТ ПОЛНОСТЬЮ РАБОЧИЙ КОД
по скорости всего в 2 раза быстрее чем СводныйОстаток, хотелось бы быстрее



Процедура ПриОткрытии()
    ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"1cpp.dll");

    ОлеДБ = СоздатьОбъект("OLEDBData");
    Соединение = "Provider=VFPOLEDB.1;Data Source=" + КаталогИБ() + ";Mode=ReadWrite;Collating Sequence=MACHINE";
    Рез = ОлеДБ.Соединение(Соединение);
    Запрос = ОлеДБ.СоздатьКоманду();
    Запрос.Выполнить("EXECSCRIPT('SET ANSI OFF')");
    Запрос.Выполнить("EXECSCRIPT('SET REPROCESS TO 60 SECONDS')");
    Запрос.Выполнить("EXECSCRIPT('SET REFRESH TO 0,-1')");
    Запрос.Выполнить("Exec('SET TABLEVALIDATE TO 0')");


КонецПроцедуры

//*******************************************
Процедура Сформировать()
    Старт = _GetPerformanceCounter();    ;
    

    
    ВрТаблГрупп="";
    Запрос.УложитьСписокОбъектов(Ном.ТекущийЭлемент(), ВрТаблГрупп, "Номенклатура");
    ТекстЗапроса = "
    |SELECT
    
    //|  $Рег.Склад as [Склад $Справочник.Склады],
    
    |  $Рег.Номенклатура as [Номенклатура $Справочник.Номенклатура],
    
    |  $Рег.Количество as Количество
    
    |FROM
    
    |  $Регистр.ОстаткиТМЦ as Рег
    
    |WHERE
    
    |  $Рег.Номенклатура IN (SELECT Val FROM " + ВрТаблГрупп + ")";


    ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
    Конец = _GetPerformanceCounter()    ;
    Сообщить(Конец-Старт);
    Сообщить(ТЗ);
    Сообщить(типЗначенияСтр(ТЗ));
    
    
КонецПроцедуры

Думаю дело в фильтре, можно как то добавить 1 объект? Без УложитьСписокОбъектов?

(40) если один - то что мешает использовать параметр? зачем IN?

И вообще, какова цель?

а, цель понял...
ну тогда тебе проще кэшировать в ТЗ/ИТЗ.

(40)

$Рег.Номенклатура = :ВыбТовар
и Запрос.УстановитьТекстовыйПараметр("ВыбТовар",Ном.ТекущийЭлемент())

И добавь условие по периоду
Например (если периодичность регистров месяц) - Запрос.УстановитьТекстовыйПараметр("Период",НачМесяца(ПолучитьДатуТА()))
Рег.Period = :Период

(40)
на вот, развлекайся
ТекстЗапроса="
       |select
       |     $Итоги.Количество КонОст
        |    FROM
        |        $РегистрИтоги.ОстаткиТМЦ Итоги
        |    WHERE
        |        DTOS(Итоги.period)+$Итоги.Номенклатура
        |        LIKE  (DTOS(:ПредПериод~~)+:Номенклатура)
        |";
   мд = СоздатьОбъект("MetaDataWork");
   НачПериод = мд.ПолучитьНачПериода(ПолучитьДатуТА());

   Запрос.УстановитьТекстовыйПараметр("ПредПериод",ПредПериод);
   Запрос.УстановитьТекстовыйПараметр("Номенклатура",Номенклатура);
   ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
   ТЗ.ВыбратьСтроку();

Это запрос останка н дату ТА.
На произвольную дату запрос другой.

(45) самое главное низкий поклон тебе низкий человек, помог лентяю решить проблему. кошельки у тебя актуальны в личке?

(46) Опечатка! Низкий поклон умному человеку!

еще можно так:
ТекстЗапроса="
       |select
       |     $Итоги.Количество КонОст
        |    FROM
        |        $РегистрИтоги.ОстаткиТМЦ Итоги
        |    WHERE
        |        DTOS(Итоги.period)+$Итоги.Номенклатура + $Итоги.Склад
        |        LIKE  (DTOS(:ПредПериод~~)+:Номенклатура + :Склад)
        |";
   мд = СоздатьОбъект("MetaDataWork");
   НачПериод = мд.ПолучитьНачПериода(ПолучитьДатуТА());

   Запрос.УстановитьТекстовыйПараметр("ПредПериод",НачПериод);
   Запрос.УстановитьТекстовыйПараметр("Номенклатура",Ном);
   Запрос.УстановитьТекстовыйПараметр("Склад",ВыбСклады);

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

(49)
яндекс кошельки корректные в профиле?

яндекс, вроде да

(52)проверяй должно придти!

(51) упало?

(53) да, спсб.

(54) Тебе огромное пасибо)

на ИС есть типовой Тис.Отчеты.ОстаткиТМЦ переделанный на прямой запрос

(56) А ссылку можно на него?

(56) А можно сам отчет? Юзать не буду (типовых у меня нет) - просто для самообучения.