1c DBF + 1c++ 3.2.2.0 + 1sqlite 1.0.2.6  

База = СоздатьОбъект("SQLiteBase");
   База.Открыть(":memory:");
   Запрос = База.НовыйЗапрос();
   Запрос.ВыполнитьЗапрос("PRAGMA journal_mode = WAL");
     
   Запрос.ВыполнитьЗапрос("create virtual table _1SENTRY using dbeng(_1S.Entry)");

ТекстЗапроса = "SELECT                            
   |  substr(Проводки.DTSC2,1,9) as [Партия_вид:Справочник.Партии],
     |  (0) as КолвоОстаток,
   |  (CAST(Проводки.AMOUNT as NUMERIC(15,3))) as КолвоДебет,
   |  (0) as КолвоКредит
   | FROM
   |  _1SENTRY as Проводки
   | WHERE
   |  (Проводки.idx_DATE_TIME_DOCID_NUMBER_CORNO >= @ДатаПроводкиНач) AND
   |  (Проводки.idx_DATE_TIME_DOCID_NUMBER_CORNO < @ДатаПроводкиКон) AND  
   |  (Проводки.ACCDTID = @Счет) AND (Проводки.DTSC0 = @Склад) AND (Проводки.DTSC1 = @ТМЦ)";

Запрос.Подготовить(ТекстЗапроса);

Запрос.УстановитьПараметр("@Склад",Склад);
Запрос.УстановитьПараметр("@ТМЦ",ТМЦ);
Запрос.УстановитьПараметр("@Счет",ТМЦ.Счет);

Запрос.УстановитьПараметр("@ДатаПроводкиНач",НачКвартала(Док.ДатаДок));
),1);

ТЗ = Запрос.Выполнить();


Вот че говорит отладчик:

Подбор индекса для таблицы 1SENTRY:
Ограничения: DATETIME[dx_DATE_TIME_DOCID_NUMBER_CORNO]>=; DATETIME[dx_DATE_TIME_DOCID_NUMBER_CORNO]<; ACCDTID=; DTSC0=; DTSC1=;
Найдено в кэше
Выбран индекс DATETIME: DTOS(DATE)+TIME+DOCID+STR(NUMBER,5)+STR(CORNO,5)
Стоимость: 20

В тестовой базе (монопольно) время выполнения для 36 ТМЦ:
0.174

В реальной базе в терминале:
> 5

причем штатный СоздатьОбъект("БухгалтерскиеИтоги") делает эту задачу в терминале быстрее

я наверно че-то не так делаю?

Надо использовать ВТ из класса ПрямойЗапрос так как у автора не задействована таблица отбора проводок по субконто

leshik писал(а) 11. Апреля 2012 :: 04:59:


а без ВТ можно? как задействовать эту таблицу?

ну _1SBKTTL само-собой у меня в данном запросе НачДата береться с начала квартала. Удивляет то что даже за период меньше месяца запрос делаеться по одному ТМЦ около 0.1 сек, а если ТМЦ штук 50, то и получает 5 сек

а какой стабильный?

вот последние замеры:
через 1sqlite время 3 сек
через VFPOLEDB - 0.2 сек

просто мне нужны запросы в монопольном режиме поэтому и остановился на 1sqlite

ну заплатку от hogik я не нашел для VFP

спасибо, а то в нете все ссылки мертвые

подитожим:
список из 60 ТМЦ, получаю остатки по партиям на дату документа
выбрал документ где-то конец квартала

OLEDB - 4.632
1sqlite - 70.594
и штатный БухгалтерсиеИтоги - 8.129

поможете разобраться в чем прикол?

мог бы выбрать самый быстрый вариант, просто интересно почему так проигрывает 1sqlte и почему OLEDB выигрывает всего-лишь в 2 раза?

1SQLITE
Если НачКвартала(Док.ДатаДок) = НачМесяца(Док.ДатаДок) Тогда
//первый месяц квартала  
СтрСальдо = "SUM(CAST(Остатки.SD as NUMERIC(15,3)))";
ИначеЕсли ДобавитьМесяц(НачКвартала(Док.ДатаДок), 1) = НачМесяца(Док.ДатаДок) Тогда    
//второй  
СтрСальдо = "SUM(CAST(Остатки.SD as NUMERIC(15,3))+(CAST(Остатки.OBDT1 as NUMERIC(15,3))-CAST(Остатки.OBKT1 as NUMERIC(15,3))))";
ИначеЕсли ДобавитьМесяц(НачКвартала(Док.ДатаДок), 2) = НачМесяца(Док.ДатаДок) Тогда
//третий  
СтрСальдо = "SUM(CAST(Остатки.SD as NUMERIC(15,3))+(CAST(Остатки.OBDT1 as NUMERIC(15,3))-CAST(Остатки.OBKT1 as NUMERIC(15,3)))+(CAST(Остатки.OBDT2 as NUMERIC(15,3))-CAST(Остатки.OBKT2 as NUMERIC(15,3))))";
КонецЕсли;
                         
ТекстЗапроса="
|SELECT
| substr(Остатки.SC2, 1, 9) as [Партия_вид:Справочник.Партии],
| "+СтрСальдо+" as КолвоОстаток,
| SUM(0) as КолвоДебет,
| SUM(0) as КолвоКредит
|FROM
| _1SBKTTL AS Остатки
|WHERE
| (Остатки.DATE = @ДатаПроводкиНач) AND (Остатки.SP4373 = @НашаФирма) AND (Остатки.KIND = '3') AND
| (Остатки.ACCID = @Счет) AND (Остатки.SC0 = @Склад) AND (Остатки.SC1 = @ТМЦ)
|GROUP BY
| Остатки.SC2
|      
|UNION ALL
|      
|SELECT      
|  substr(Проводки.KTSC2,1,9) as [Партия_вид:Справочник.Партии],      
|  SUM(0) as КолвоОстаток,
|  SUM(0) as КолвоДебет,
|  SUM(CAST(Проводки.AMOUNT as NUMERIC(15,3))) as КолвоКредит
| FROM
|  _1SENTRY as Проводки
| WHERE
|  (Проводки.ACCKTID = @Счет) AND (Проводки.KTSC0 = @Склад) AND (Проводки.KTSC1 = @ТМЦ) AND  
|  (Проводки.idx_DATE_TIME_DOCID_NUMBER_CORNO BETWEEN @ДатаПроводкиНач AND @ДатаПроводкиКон)
| GROUP BY
|  Проводки.KTSC2
|
| UNION ALL    
|
| SELECT                            
|  substr(Проводки.DTSC2,1,9) as [Партия_вид:Справочник.Партии],
|  (0) as КолвоОстаток,
|  (CAST(Проводки.AMOUNT as NUMERIC(15,3))) as КолвоДебет,
|  (0) as КолвоКредит
| FROM
|  _1SENTRY as Проводки
| WHERE            
|  (Проводки.ACCDTID = @Счет) and (Проводки.DTSC0 = @Склад) and (Проводки.DTSC1 = @ТМЦ) and
|  (Проводки.idx_DATE_TIME_DOCID_NUMBER_CORNO BETWEEN @ДатаПроводкиНач AND @ДатаПроводкиКон)
| GROUP BY
|  Проводки.DTSC2
|";

OLEDB
Если НачКвартала(Док.ДатаДок) = НачМесяца(Док.ДатаДок) Тогда
//первый месяц квартала  
СтрСальдо = "SUM(CAST(Остатки.SD as NUMERIC(15,3)))";
ИначеЕсли ДобавитьМесяц(НачКвартала(Док.ДатаДок), 1) = НачМесяца(Док.ДатаДок) Тогда    
//второй  
СтрСальдо = "SUM(CAST(Остатки.SD as NUMERIC(15,3))+(CAST(Остатки.OBDT1 as NUMERIC(15,3))-CAST(Остатки.OBKT1 as NUMERIC(15,3))))";
ИначеЕсли ДобавитьМесяц(НачКвартала(Док.ДатаДок), 2) = НачМесяца(Док.ДатаДок) Тогда
//третий  
СтрСальдо = "SUM(CAST(Остатки.SD as NUMERIC(15,3))+(CAST(Остатки.OBDT1 as NUMERIC(15,3))-CAST(Остатки.OBKT1 as NUMERIC(15,3)))+(CAST(Остатки.OBDT2 as NUMERIC(15,3))-CAST(Остатки.OBKT2 as NUMERIC(15,3))))";
КонецЕсли;
                 
ТекстЗапроса = "SELECT
| Остатки.SC2 as [Партия $Справочник.Партии],                  
| "+СтрСальдо+" as [КолвоОстаток $Число],
| SUM(0) as [КолвоДебет $Число],
| SUM(0) as [КолвоКредит $Число]
|FROM
| 1SBKTTL AS Остатки
|WHERE
| тки.SC1+Остатки.SC2+Остатки.CURRID LIKE
| _______'+'_________'))
|GROUP BY
| Остатки.SC2
|
| UNION ALL
|
|SELECT            
|  Проводки.KTSC2 as [Партия $Справочник.Партии]                  
|  , SUM(0) as [КолвоОстаток $Число]
|  , SUM(0) as [КолвоДебет $Число]
|  , SUM(Проводки.AMOUNT) as [КолвоКредит $Число]
|FROM  
|  1SENTRY as Проводки    
|Where
|  (Проводки.ACCKTID = :Счет) and (Проводки.KTSC0 = :Склад) and (Проводки.KTSC1 = :ТМЦ) and
| оводки.CORNO,5)
| BETWEEN (DTOS(:ДатаПроводкиНач~~)+'      '+'         '+'     '+'     ') AND (:ДатаПроводкиКон~+'ZZZZZ'+'ZZZZZ'))
| GROUP BY
|  Проводки.KTSC2
|
| UNION ALL
|
|SELECT            
|  Проводки.DTSC2 as [Партия $Справочник.Партии]                  
|  , SUM(0) as [КолвоОстаток $Число]
|  , SUM(Проводки.AMOUNT) as [КолвоДебет $Число]
|  , SUM(0) as [КолвоКредит $Число]
|FROM  
|  1SENTRY as Проводки    
|Where
|  (Проводки.ACCDTID = :Счет) and (Проводки.DTSC0 = :Склад) and (Проводки.DTSC1 = :ТМЦ) and
| оводки.CORNO,5)
| BETWEEN (DTOS(:ДатаПроводкиНач~~)+'      '+'         '+'     '+'     ') AND (:ДатаПроводкиКон~+'ZZZZZ'+'ZZZZZ'))
| GROUP BY
|  Проводки.DTSC2
|";

неа..

С виду всё правильно.

Разве что не используешь табличку отбора по счетам
+ в одном запросе отрезаешь часть строки через субстринг, а в другом и так типизируешь..

k_petrovich писал(а) 12. Апреля 2012 :: 08:22:


ааа..значит снят отбор со счетов