Отлично!

Может тогда дело и до БыстрогоПоиска в поставщике для ТП дойдёт?

JohnyDeath писал(а) 17. Марта 2009 :: 11:33:


+1000 очень не хватает
очень, очень, очень 

vandalsvq писал(а) 17. Марта 2009 :: 19:44:

Сейчас ODBC интегрирован в 1С++, моя же компонента как-бы отдельно, хотелось бы сохранить в ее архитектуре независимость от других компонент. В идеале 1sqlite не должен знать ни о каких классах и 1С++. Но. Допустим выгрузку в ИТЗ все же сделали, благодаря вынесению переноса результатов запроса в объект-приемник через спец-интерфейс. Можно подумать и либо как-то расширить этот интерфейс, чтобы 1С++ могла принять результат запроса и типизировать его дополнительно, либо придумать еще один интерфейс. Надо обсуждать с Артуром и Михаилом.

Подскажите пожалуйста, как с помощью 1sqlite правильно организовать выборку всех документов или документов нескольких видов с наложением условий на реквизиты и упорядочиванием по позиции документа (как в штатных журналах), и вывести результат в ТП.

Попробовал следующий код :

Процедура ПослеОткрытия()
	БазаДанных = СоздатьОбъект("SQLiteBase");
	// Откроем пустую базу данных в памяти
	БазаДанных.Открыть(":memory:");
	// Создадим выполнитель запросов.
	Запрос = БазаДанных.НовыйЗапрос();
	// Так как база в памяти, то журналирование нам ни к чему, только зря будет отнимать время
	Запрос.ВыполнитьЗапрос("PRAGMA journal_mode = OFF");

	// Подключим таблицы документов заданных в конфигурации к SQLite
	// и составим запрос
	Запрос.ВыполнитьЗапрос("create virtual table Накл_ТД using dbeng(Документ.ТранзитнаяДистрибьютерская)");
	Запрос.ВыполнитьЗапрос("create virtual table Накл_ТДС using dbeng(Документ.ТранзитнаяДистрибьютерскаяСуммовая)");
	Запрос.ВыполнитьЗапрос("create virtual table Накл_ЗМ using dbeng(Документ.ЗакупкаМатериалов)");

	ТекстЗапроса="
	|select IDDOC [Ключ],
	|IDDOC [Документ $Документ.ТранзитнаяДистрибьютерская],
	|Поставщик [Поставщик $Справочник.Клиенты]
	|from Накл_ТД
	|
	|UNION ALL
	|
	|select IDDOC [Ключ],
	|IDDOC [Документ $Документ.ЗакупкаМатериалов],
	|Поставщик [Поставщик $Справочник.Клиенты]
	|from Накл_ЗМ
	|
	|UNION ALL
	|
	|select IDDOC [Ключ],
	|IDDOC [Документ $Документ.ТранзитнаяДистрибьютерскаяСуммовая],
	|Поставщик [Поставщик $Справочник.Клиенты]
	|from Накл_ТДС
	|
	|where 1=1
	|";

	АтрФормы=СоздатьОбъект("Форма");
	АтрФормы.УстановитьФорму(Форма);
	ТабличноеПоле=АтрФормы.СоздатьЭлементУправления("ТабличноеПоле","РеквизитТП");

	Колонки=ТабличноеПоле.Колонки;  
	//Добавление Колонки "Ключ"
	Колонка=Колонки.Добавить("Ключ");
	Колонка.Данные="Ключ";
	Колонка.Заголовок="Ключ";
	Колонка.Ширина=12;
	Колонка.ГоризонтальноеВыравнивание=1;
	//Добавление прочих Колонок
	Колонка=Колонки.Добавить("Документ");
	Колонка.Данные="Документ";
	Колонка.Заголовок="Документ";
	Колонка.Ширина=120;
	Колонка.ГоризонтальноеВыравнивание=1;

	Колонка=Колонки.Добавить("Поставщик");
	Колонка.Данные="Поставщик";
	Колонка.Заголовок="Поставщик";
	Колонка.Ширина=30;
	Колонка.ГоризонтальноеВыравнивание=2;


	//Опции отображения
	ТабличноеПоле.ТаймаутБыстрогоПоиска=1;
	ТабличноеПоле.РежимВыделенияСтроки=1;
	ТабличноеПоле.ИзменятьПозициюКолонок=0;
	ТабличноеПоле.ТаймаутОбновления=0;
	//ТабличноеПоле.НачальноеПредставление=1;


	Поставщик=СоздатьОбъект("SQLiteDataProvider");
	Поставщик.УстановитьБД(БазаДанных);
	Поставщик.УстановитьТекстЗапроса(ТекстЗапроса,"[Ключ]");
	Поставщик.Отладка(32,1);
	ТабличноеПоле.ПоставщикДанных=Поставщик;

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

Попытка привела к странному результату : один и тот же документ в ТП стал повторяться по несколко раз в разных строках (изображение прилагаю).
Если из запроса убрать UNION ALL и оставить один select то вроде
выдается нормальный результат, но только по определенному виду документов, а необходимо по всем.

Работаю на ДБФ-версии 1С, 1sqlite Версия 1.0.1.9, 1CPP 3.0.1.22

Дело в том, что при union all названия полей запроса берутся из первого selecta, соответсвенно, для всех документов применяется типизация Документ.ТранзитнаяДистрибьютерская, что неверно.
Перепиши так:

|select IDDOC [Док :Документ],
|:ВидДокумента.ТранзитнаяДистрибьютерская [Док_вид],
|Поставщик [Поставщик $Справочник.Клиенты]
|from Накл_ТД
|
|UNION ALL
|
|select IDDOC,
|:ВидДокумента.ЗакупкаМатериалов,
|Поставщик
|from Накл_ЗМ
и тд
 

В качестве ключа используй поле [Док :Документ]

Блин, туплю чето.
Такой запрос - с union all - вообще очень плохо использовать для поставщика ТП - потому как он получается должен сперва отобрать все записи из разных таблиц, отсортировать их по iddoc, потом взять из них первые нужные.

Такой запрос лучше делать выборкой из общего журнала, с ограничением по видам документов. При этом отлично отсортируется по datetime, как в журналах 1С:

select
idx_DATE_TIME_IDDOC [Ключ],
iddoc [Док :Документ],
iddocdef [Док_вид],
case iddocdef
when :ВидДокумента.ТранзитнаяДистрибьютерская then
    (select Поставщик from Документ_ТранзитнаяДистрибьютерская Д where Д.iddoc = Ж.iddoc limit 1)
when :ВидДокумента.ЗакупкаМатериалов then
    (select Поставщик from Документ_ЗакупкаМатериалов Д where Д.iddoc = Ж.iddoc limit 1)
.... для других видов доков
end [Поставщик :Справочник.Клиенты]

from Журнал Ж
where
iddocdef = :ВидДокумента.ТранзитнаяДистрибьютерская
or iddocdef = :ВидДокумента.ЗакупкаМатериалов
... и тд
 

да, я о ней...
спросил потому, что в списке изменений библиотеки sqlite видимо есть ряд довольно существенных, например
http://sqlite.org/35to36.html
я не настолько силен в понимании, что из этого функционала используется при работе с DBF-таблицами 1С