:ВидСубконто.ИмяВидаСубконто разворачивать в идентификатор вида субконто (строка длиной 4 символа)
:ПланСчетов.ИмяПланаСчетов разворачивать в идентификатор плана счетов (строка длиной 4 символа)

steban писал(а) 23. Июня 2008 :: 13:02:


1sqlite 1.0.1.1

Исправлен вылет при попытке подключить таблицу строк документа, у которого нет ТЧ.
Добавлены текстовые параметры:
:ВидСубконто и :ПланСчетов

Какой-то косяк при установке параметра-даты. Запрос просто возвращает пустую выборку

	запрос = база.НовыйЗапрос();
	запрос.ВыполнитьЗапрос("create virtual table РегОст	using dbeng(РегистрИтоги.ОстаткиТМЦ)");
	ТекстЗапросаОстатка		= "
	|SELECT		РегОст.Номенклатура as Номенклатура,
	|			SUM(РегОст.Количество) as Количество
	|FROM		РегОст
	|WHERE		РегОст.Period = @ДатаОстаткаДляИтогов
	|GROUP BY	РегОст.Номенклатура
	|";
	запрос.Отладка(1);
	запрос.Подготовить(ТекстЗапросаОстатка);
	запрос.УстановитьПараметр("@ДатаОстаткаДляИтогов",НачМесяца(ТекущаяДата()));
	запрос.Выполнить(ТаблТоваров); 

orefkov писал(а) 23. Июня 2008 :: 13:49:


Не совсем. При правильной настройке (ANSI OFF) которая в стандартном Fox по умолчанию на Fox  будет

where STR(НеВключатьВПрайс, 2) + UPPER(DESCR)='1'  
order by descr 

http://www.1cpp.ru/forum/YaBB.pl?num=1184317705/31#31
что несколько проще, но безусловно требует усилий вручную подбирать индекс

Обнаружен баг.
Такой код вызывает AV при вызове ВыполнитьЗапрос: [code]База=СоздатьОбъект("SQLiteBase");
имяФайла = ":memory:";
База.Открыть(имяФайла);
Запрос=База.НовыйЗапрос();
Запрос.ВыполнитьЗапрос("PRAGMA journal_mode = OFF");
Запрос.ВыполнитьЗапрос("create virtual table _1SBKTTL using dbeng(_1S.Bkttl)");
Запрос.ВыполнитьЗапрос("create virtual table _1SACCS using dbeng(_1S.Accs)");
Запрос.Отладка(1);
ТекстЗапроса="SELECT
|Итоги.ACCID Счет
|, Итоги.SD+Итоги.OBDT1-Итоги.OBKT1 КоличествоОстаток
|FROM _1SBKTTL AS Итоги
|
|INNER JOIN _1SACCS AS Счета  ON (Итоги.ACCID = Счета.ID) [highlight]AND (Итоги.AccID = :ВыбСчет)[/highlight]
|WHERE (Итоги.DATE = '20080401')
|";
Запрос.Подставлять("ВыбСчет",СчетПоКоду("10"));
ТЗ=Запрос.ВыполнитьЗапрос(ТекстЗапроса);
[/code]

С таким текстом запроса отрабатывает нормально:
[code]ТекстЗапроса="SELECT
|Итоги.ACCID Счет
|, Итоги.SD+Итоги.OBDT1-Итоги.OBKT1 КоличествоОстаток
|FROM _1SBKTTL AS Итоги
|
|INNER JOIN _1SACCS AS Счета  ON (Итоги.ACCID = Счета.ID)
|WHERE (Итоги.DATE = '20080401') [highlight]AND (Итоги.AccID = :ВыбСчет)[/highlight]
|";[/code]
И с таким текстом запроса отрабатывает нормально: [code]ТекстЗапроса="SELECT
|Итоги.ACCID Счет
|, Итоги.SD[highlight] [/highlight]КоличествоОстаток
|FROM _1SBKTTL AS Итоги
|
|INNER JOIN _1SACCS AS Счета  ON (Итоги.ACCID = Счета.ID) AND (Итоги.AccID = :ВыбСчет)
|WHERE (Итоги.DATE = '20080401')
|";
[/code]
И если явно указать ИД счета, то работает нормально: [code]ТекстЗапроса="SELECT
|Итоги.ACCID Счет
|, Итоги.SD+Итоги.OBDT1-Итоги.OBKT1 КоличествоОстаток
|FROM _1SBKTTL AS Итоги
|
|INNER JOIN _1SACCS AS Счета  ON (Итоги.ACCID = Счета.ID) AND (Итоги.AccID = [highlight]'     R   '[/highlight])
|WHERE (Итоги.DATE = '20080401') 
|";[/code]
Точнее локализовать не удалось

Александр, предлагаю новую версию выкладывать в первый пост ветки, удобнее брать обновления

В хелпе написано для SQLiteQuery
Цитата:

Поправишь?