Столкнулся с проблемой что УложитьОбъекты не отрабатывает: "SELECT val FROM Спс" возвращает пустую таблицу, запрос без этой части отрабатывает. Что я делаю не так??? Вот текст запроса:

    ТекстЗапроса="
    |Select
    | code,
    | Descr,
    | id [Объект :Справочник.Товары]
    //| Ном.Производитель [Производитель :Справочник.Производители]
    |From Товары
    //|LIMIT 100";
    |WHERE (ID IN (SELECT val FROM Спс))";

    База = СоздатьОбъект( "SQLiteBase" );
    база.Открыть(":memory:"); // Откроем пустую базу данных в памяти
    запрос = база.НовыйЗапрос();
    запрос.ВыполнитьЗапрос("PRAGMA journal_mode = WAL");
    запрос.ВыполнитьЗапрос("create virtual table Товары using dbeng(Справочник.Товары)");

    база.УложитьОбъекты(ВыбТовары,"Спс",0,"Товары");
    ТЗ = Запрос.ВыполнитьЗапрос(ТекстЗапроса); //"SELECT val FROM Спс"); //ТекстЗапроса);
    ТЗ.ВыбратьСтроку();



1SQLite - 1.0.2.6, База ДБФ 7.7 ВыбТовары - элемент диалога на форме, выбираю группу, ожидалось что в отбор попадут элементы группы.

А что, 1С++ уже работает и с 1SQLite? Не знал. Раньше только с MS SQL работал из 1с 7.7.

(0) а что в ВыбТовары?

(0) А что выдает "SELECT val FROM Спс"?
Подзабыл, может там надо писать "Справочник.Товары"...

(3) Да не, только вид пишется.
Попробовал, не поленился. 1.0.2.6.

    ВыбКлассификатор        = СоздатьОбъект( "Справочник.КлассификаторНоменклатуры" );
    ВыбКлассификатор.НайтиПоКоду( "ОБ_ББ" );
    ВыбКлассификатор        = ВыбКлассификатор.ТекущийЭлемент();
    
    Отбор                    = СоздатьОбъект( "СписокЗначений" );
    Отбор.ДобавитьЗначение(ВыбКлассификатор);
    
    ТекстЗапроса            ="
    |Select
    | Ном.code,
    | id [Объект $Справочник.Номенклатура],
    | Ном.КодПоКлассификатору [КодПоКлассификатору $Справочник.КлассификаторНоменклатуры]
    |From
    | [Справочник.Номенклатура] Ном
    |WHERE (Ном.КодПоКлассификатору IN (SELECT val FROM Отбор))
    |";
    
    База                    = СоздатьОбъект( "SQLiteBase" );
    база.Открыть(":memory:");
    запрос                    = база.НовыйЗапрос();
    запрос.ВыполнитьЗапрос( "PRAGMA journal_mode = WAL" );
    
    база.УложитьОбъекты(Отбор,"Отбор",0,"КлассификаторНоменклатуры" );
    
    ТЗ                        = СоздатьОбъект("ТаблицаЗначений");
    ТЗ                        = Запрос.ВыполнитьЗапрос(ТекстЗапроса);
    ТЗ.ВыбратьСтроку();

Упростил, тоже все работает:

    База                    = СоздатьОбъект( "SQLiteBase" );
    База.Открыть(":memory:");
    Запрос                    = база.НовыйЗапрос();
    Запрос.ВыполнитьЗапрос( "PRAGMA journal_mode = WAL" );
    ВыбГруппа                = глНайти("Номенклатура","05963");
    ТекстЗапроса            ="
    |Select id [Объект $Справочник.Номенклатура]
    |From [Справочник.Номенклатура] Ном
    |WHERE (ID IN (SELECT val FROM Отбор))
    |";
    
    База.УложитьОбъекты(ВыбГруппа.ТекущийЭлемент(),"Отбор",0,"Номенклатура" );
    ТЗ                        = Запрос.ВыполнитьЗапрос(ТекстЗапроса);
    ТЗ.ВыбратьСтроку();

Ничего не помогло..
(2) ВыбТовары - элемент диалога на форме, Тип - "Справочник.Товары"
(3) "SELECT val FROM Спс" выдает пустую таблицу. Если в "УложитьОбъекты" убрать тип справочника (для иерархии который), то выдает только указанную группу.

Может из-за этого: 1sqlite, метод УложитьОбъекты

   orefkov
14 - 18.05.11 - 14:14
(13)
Усе понятно.
Для разворота справочника по группам 1sqlite использует 2ой по порядку индекс, полагая, что он
PARENTID,ISFOLDER,...
А тут в начале индекса добавляется еще поле PARENTEXT.

Попробовал взять другой справочник - работает..
Справочник.Товары используется через владельца (константа).
Что-то автор разработки в теме из предыдущего поста не указал в какой версии это пофиксил, и сделал ли..

(0) текущая версия вроде та же. Кто-то пересобирал по исходникам орефкова, вроде  Djelf - можно у него спросить, или у самого орефкова,автора - он тут достаточно регулярно бывает.

(8) Справочник.Товары - подчиненный справочник ?
Полный пэ.

(10) ну почему же?
хотя, конечно, прикольно...
интересно, кому подчинен - фирмам/юрлицам?

(11) подчинен "Видам направлений бизнеса".. как-то так..

Пользовался 1срр УложитьСписокОбъектов - проблем не было..

(12) акуеть..
И лежит на складе/полке 2 одинаковых товара, но они в базе разные, каждый подченён разному "Видам направлений бизнеса".

беги оттуда.

(14) не, это вряд ли.
туповатое решение, конечно, но я такое видел, работающее достаточно успешно :-) (правда. недолго - контора развалилась через пару лет)

(14) да не, нормально.. может, действительно, туповатое.. но работает, есть свои плюсы..

(15) может тебя по OLEDBData + 1срр помучить, если есть время..

А кто знает что с форумом на 1cpp.ru? Что-то там уже год никаких тем новых не было..

(19) он в каком-то звидице. после того, как фез движок обновил.

а то я думаю у людей вопросы по 1срр закончились.. все стали спецами..

(21) нет, просто клюшки отмирают. те, кто ими пользуются - в основном да, стали спецами (хотя тут появляются свежезалетевшие дятлы). ну и фез убил форум... да и вообще ресурс.

все, пора линять на снеговика!

(22) Жалко, вроде, толковый ресурс был..
остается только orefkovа здесь пытаться выловить..

(23) Не зря же говорят: "Работает - НЕ ТРОГАЙ!".. ;-)

(24) Зачем он тебе ?
И.. врят ли он будет переделываеть УложитьОбъекты под подчиненный справочник, это и не к чему, это можно и самому, рученьками слепить

(26) Я давал ссылку на пост, где он обещал пофиксить.. хотел узнать. А ручками - это перебирать и в список?

(27) посмотреть запрос, выполнить такой же с указанием индекса?

(28) Каким образом посмотреть как отрабатывает УложитьОбъекты?

(27) обычный запрос к справочнику + куча левых джоинов = количеству уровней в справочнике. Усё

ну и условие соединения id = parentid

Ладно, будем ручками... а то я думал что у меня что-то..
Всем респект и уважуха! Спасибо.

Я это не фиксил.

(33) Здравствуйте! Жаль что так..  ну что ж..

1slite 1.0.2.6/3.8.11.1 bf8
https://cloud.mail.ru/public/JWkg/h6y6xSzta
+УложитьОбъекты работает с подчиненными справочниками.

Да простит меня orefkov, но прямую работу с индексами 1с я не осилил, поэтому этот конкретный случай обернут в рекурсивный cte запрос. Но тут забавно получается, +1мс на подготовку запроса, но -20мс при сравнительно большом объеме.

(35) спасибо

Ну и в догонку 1sqlite Pi edition, первый релиз на движке 3.14.1
1sqlite 1.0.2.6/3.14.1 bf9
https://cloud.mail.ru/public/7k2B/XatSQWQe6
+ исправлены ошибки совместности с новым движком
Все тесты, что придумал, прошли успешно...

И не спрашивайте: "Зачем обновлять движок?" Вот зачем:

SELECT
        iddoc AS ТекущийДокумент
        ,Номенклатура [Номенклатура :Справочник.Номенклатура]
    FROM Регистр_ОстаткиТМЦ РО
    WHERE
        DATE BETWEEN '20130101' AND '20141201'
        AND Номенклатура in (SELECT val FROM vt)
    GROUP BY
        iddoc,Номенклатура

113361 строк

1sqlite/sqlite/ms
1.0.2.3/3.6.22/1307
1.0.2.4/3.7.0/1672
1.0.2.6/3.7.10/2290
1.0.2.6/3.7.17/1030
1.0.2.6/3.8.11.1/805
1.0.2.6/3.14.1/728

(37) "Все тесты, что придумал, прошли успешно..."
наверное это более всего ободряет

(39) Ну... в тесты (что придумал) входят все случаи собранные на 1с++ и мисте и прогон 3х десятков тестов на предмет адекватности планировщика sqlite, а он периодически ломается при работе с виртуальными таблицами.
Это же sql... всегда можно найти способ как завалить планировщик запроса.

(39) Не надейся! Ошибок в 1sqlite мало, мои изменения в движке 1sqlite локализованы конкретной проблемой и не затрагивают общую логику.

(35) Уважаемый, попробовал новой версией уложить подчиненный справочник - выдает пустую таблицу.. Может что-то опять не так делаю?
    Попытка
        база = СоздатьОбъект("SQLiteBase");
    Исключение
        ЗагрузитьВнешнююКомпоненту("1sqlite.dll");
        база = СоздатьОбъект("SQLiteBase");
    КонецПопытки;
    база.Открыть(":memory:"); // Откроем пустую базу данных в памяти
    запрос = база.НовыйЗапрос();
    Запрос.Отладка(1);
    запрос.ВыполнитьЗапрос("PRAGMA journal_mode = WAL");
    //запрос.ВыполнитьЗапрос("create virtual table Товары using dbeng(Справочник.Товары)");
    
    база.УложитьОбъекты(ВыбТовары,"СпсК",0,"Товары");
    ТЗ = Запрос.ВыполнитьЗапрос("SELECT val FROM СпсК");

(42) ну, она не пустая, если ВыбТовары - группа подчиненного справочника, то только её вернёт. А вот всей иерархии - нет.

Так что да, (35) - не работает.

(37) Это тоже не верно работает с подчиненным многоуровневым справочником - дает только саму группу в списке, без иерархии.

+45
хотя не, (37) работает как надо, возвращает все элементы как надо.
Вот только автор хочет еще и группы :)

+46, (35) кстати, тоже работает корректно

(47) покажи как. Что я в своем примере не так сделал???

+48 У меня ВыбТовары - элемент формы, выбирает группы..

(47) Попробовал группу в список положить - не проканало..

(48) хз что, что (35), что (37) нормально укладывает в список всю иерархию (только элементы) во всех вложенных группах, с учетом того, что справочник подчиненный.

Возможно, ты ВК не обновил. (Если че, поиск вк ведётся так:
каталог пользователя-каталогИБ-каталог Bin\)

(49) Версию sqlite проверь "SELECT sqlite_version()"
Ну и можно без укладки, вот тебе запрос, который был зашит в 1sqlite для укладки.


WITH RECURSIVE Goods(ID,PARENTEXT,ISFOLDER) AS (

    SELECT
        ID,PARENTEXT,ISFOLDER
    FROM [Справочник.Лицензии]
    WHERE ID   = '   3DD   '

    UNION SELECT
        Спр.ID,Спр.PARENTEXT,Спр.ISFOLDER
    FROM Goods as Goods
    LEFT JOIN [Справочник.Лицензии] AS Спр
    ON Goods.ID = Спр.PARENTID AND Goods.PARENTEXT = Спр.PARENTEXT
    WHERE Goods.ISFOLDER=1
)
-- INSERT INTO tmp
SELECT
    Goods.ID  [Лицензия $Справочник.Лицензии]
FROM Goods
-- WHERE Goods.ISFOLDER=2


Не обращайте внимания что goods <> лицензии. Надо было по быстрому такой справочник сделать для теста...

(53) можешь к методу УложитьОбъекты прикрутить еще 1 параметр ?
КакУкладывать
1-только элементы
2-элементы и группы
3-только группы
?

(55) Можно.

(56) Ага , спсб

И.. еще хотелка,
4-уложить "как есть", чтоб не приводил к ид-9: например, можно было бы пихать строки любой длины. Есть конечно уложитьТЗ, но всё же..

(53) 3.8.11.1

(59) если возвращает пустой список - то в выбранной группе во всей иерархии нет элементов, вообще.

(60)Исключено! Группа 1-го уровня, самая большая..

(58) Ты забыл про классы? оО
С появлением рекурсивных запросов все укладки стали настолько просты, что я УложитьОбъекты вообще никогда не использую...

Ну в связи с (58) 4й параметр как то так:
// 0 преобразование и развороты не осуществляются
// 1 при развороте элементы (по-умолчанию)
// 2 при развороте группы
// 3 при развороте группы и элементы

Еще хотелки есть? А то переделывать будет лень ;)

(61) А черт его знает... На тексте все ок. Раз такие чудеса проверь ТипЗначенияСтр(ВыбТовары) и ВыбТовары.Наименование перед укладкой. Ну и .ТекущийЭлемент()при укладке хотя для элемента формы это не обязательно.

(62) Там же и так 4 параметра было... это 5-ый???

(62) да вроде нет. И так сойдёт :)

(64) Ну да, 5й.

Попытка
        база = СоздатьОбъект("SQLiteBase");
    Исключение
        ЗагрузитьВнешнююКомпоненту("1sqlite.dll");
        база = СоздатьОбъект("SQLiteBase");
    КонецПопытки;
    база.Открыть(":memory:"); // Откроем пустую базу данных в памяти
    запрос = база.НовыйЗапрос();
    Запрос.Отладка(1);
    //запрос.ВыполнитьЗапрос("PRAGMA journal_mode = WAL");
    база.УложитьОбъекты(ВыбТовары,"СпсК",0,"Товары");
    Сообщить("Тип: "+ТипЗначенияСтр(ВыбТовары));
    Сообщить("Имя: "+ВыбТовары.Наименование);
    ТЗ = Запрос.ВыполнитьЗапрос("SELECT val FROM СпсК"); //ТекстЗапроса);
    Сообщить("1SQLite: "+Строка((_GetPerformanceCounter()-начало)/1000)+" сек.");
    Состояние("");    
    Сообщить(ТЗ.КоличествоСтрок());
    ТЗ.ВыбратьСтроку();
    Возврат;


Тип: Справочник
Имя: Бумага
SELECT val FROM СпсК
1SQLite: 0.022 сек.
0

(66) Спасибо! Откуда забирать?

(67)
Сообщить(ВыбТовары.ЭтоГруппа());

?

и
Сообщить(ВыбТоары.Вид()); ?

(69)
Тип: Справочник
Имя: Бумага
Это группа: 1
Вид: Товары
SELECT val FROM СпсК
1SQLite: 0.042 сек.
0

Ок. Так, что ?

Спр  = создатьОбъект("Справочник.Товары");
Спр.ИспользоватьВладельца(ВыбТовары.Владелец);
Спр.ИспользоватьРодителя(ВыбТовары);
Спр.ВыбратьЭлементы();
Пока Спр.ВыбратьЭлемент()=1 Цикл
  Сообщить(""+Спр.ТекущийЭлемент+" "+Спр.ЭтоГруппа()+" "+Спр.Уровень());
КонецЦикла;

(73) И что это даст??? Там 800 только элементов.. + групп немеряно.. список будет...
Без типизации список укладывается..

(74) ну ты сделай. Что возвращает ?

(75) Кусок:
Элемент: Фото бумага А6 - это группа?: 1 - уровень: 3
Элемент: Фотобумага А6 глянц. "Super Gloss"260г/м2 20л  1103102 для струйн принт - это группа?: 0 - уровень: 4
Элемент: Фотобумага А6 глянц. одностор.170г/м2 50л для струйн принт 0102150 - это группа?: 0 - уровень: 4
Элемент: Фотобумага А6 глянц. одностор.230г/м2 50л  883  97/102035 для струйн принт - это группа?: 0 - уровень: 4
Элемент: Фотобумага А6 матов. одностор.180г/м2 50л  883155/102063 для струйн принт - это группа?: 0 - уровень: 4
Элемент: Фотобумага А6 матов. одностор.230г/м2 50л  0102034 для струйн принт - это группа?: 0 - уровень: 4
Элемент: Фотобумага А6 п/глянц. одностор."Semi"260г/м2 20л 1103302 для струйн принт - это группа?: 0 - уровень: 4
Элемент: Фотобумага А6 сатин. одностор."Satin" 280г/м2 20л  883105/1104202 для струйн принт - это группа?: 0 - уровень: 4
Элемент: Чековая лента - это группа?: 1 - уровень: 2
Элемент: Чековая лента двуслойная - это группа?: 1 - уровень: 3
Элемент: Ролик д/касс 57*57*12  2 акт.слой  ААБ009 - это группа?: 0 - уровень: 4
Элемент: Ролик д/касс 57*57*12  2-х слой.  ААБ027 - это группа?: 0 - уровень: 4
Элемент: Чековая лента 57*57*12 2 слоя - это группа?: 0 - уровень: 4
Элемент: Чековая лента из термобумаги - это группа?: 1 - уровень: 3
Элемент: Ролик термо 112*120*12 слой снаружи термо/б - это группа?: 0 - уровень: 4
Элемент: Ролик термо 44*30 термо/б  (Е) - это группа?: 0 - уровень: 4
Элемент: Ролик термо 44*40 термо (А) (14,5) - это группа?: 0 - уровень: 4
Элемент: Ролик термо 44*40*12 термо/б  (H) 13.5 - это группа?: 0 - уровень: 4
Элемент: Ролик термо 44*40*12 термо/б (15,7) 0107233 - это группа?: 0 - уровень: 4
Элемент: Ролик термо 44*40*12 термо/б 32634 (15,7) 00630 Т - это группа?: 0 - уровень: 4
Элемент: Ролик термо 57*25  термо/б - это группа?: 0 - уровень: 4

(76)
ВыбТовары - точно элемент диалога с типом Справочник.Товары?

(68) Не беги впереди паровоза... Сказать "Можно" - быстро. Сделать - не очень ;)
(58) Ну ка попробуй https://cloud.mail.ru/public/TVrR/f77hsTNUd
Если 5й параметр 0 выгружает как из не типизированной ТЗ.
Так сойдет?
P.S. остальные флаги в процессе...

(76) PrintScreen прилепить не смогу...
    СпрТов.ИспользоватьРодителя(ВыбТовары); (!!!)
    СпрТов.ВыбратьЭлементы();
    Пока СпрТов.ПолучитьЭлемент() = 1 Цикл
        Сообщить("Элемент: "+СпрТов.ТекущийЭлемент()+" - это группа?: "+СпрТов.ЭтоГруппа()+" - уровень: "+СпрТов.Уровень());
    КонецЦикла;

(77) Может есть смысл кинуть *.md и отчет?

хотя без данных тяжко будет..

(81) данные нагенерить пара минут...

(78) не совсем, щас как ИД-23 выгружает, обрезает строки :(

(82) кинуть куда-то???

(84) на любую файлопомойку кинуть мд и твою поделку

(82)(85)
http://disk.tom.ru/vlbblz3

(83) А так? https://cloud.mail.ru/public/F7u2/mz2GXZmnB
Но тогда типизация :Неопределенный для строк больше 23 символов не сработает.
Хотя... можно подпилить типизацию, чтобы она такое понимала и допилить аналогично выгрузку из тз.
Вроде ничего сломаться не должно...

(87) Ща проверю

(88) Я вообще думал над тем чтобы подключать таблицы 1с к sqlite напрямую. Как то таким образом Запрос.ПодключитьТаблицу(ИмяТаблицы). Механизм виртуальных таблиц sqlite довольно простой и препятствий к этому вроде бы никаких нет.

(86) всё работает
http://pics.rsh.ru/img/_pq1xrdjl.jpg

(86) Работает, подтверждаю (90).
Проверь процедуркой... может так и должно быть ;)


Процедура Проверка1С()
    
    спрТовары=СоздатьОбъект("Справочник.Товары");
    спрТовары.ИспользоватьВладельца(ВыбТовары.Владелец);
    спрТовары.ИспользоватьРодителя(ВыбТовары);
    сч=0;
    спрТовары.ВыбратьЭлементы();
    Пока спрТовары.ПолучитьЭлемент() = 1 Цикл
        Если спрТовары.ЭтоГруппа()=1 Тогда
            Продолжить;
        КонецЕсли;
        сч=сч+1;
    КонецЦикла;
    Сообщить("Товары по версии 1c "+сч);
    
КонецПроцедуры


(55)(58) Проверяй свои хотелки...
sqlite 3.14.1.bf10
https://cloud.mail.ru/public/DKJV/b2M1dvj3K
+ изменена схема подключения виртуальных таблиц 1с, теперь они подключаются как таблицы во временной схеме
+ добавлен флаг выгрузки в УложитьОбъекты как 5й параметр
    0 - выгружать объекты в неопределенном виде tos23, длинные строки как tos23+хвост
    1 - при выгрузке по иерархиии выгружать только элемены
    2 - при выгрузке по иерархиии выгружать только группы
    3 - при выгрузке по иерархиии выгружать группы и элементы
+ изменена типизация  :Неопределенный для поддержки  tos23+хвост

(90),(91) Спасибо! Всё работает!

(92) спасибо