RUS  ENG 

Cвятослав Найденко (Все сообщения пользователя)

Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Регулярные выражения, оконные функции SQL
 
Добрый день.

Хотелось бы видеть возможность использования регулярных выражений и оконных функций внутри Zulu.
Вызов макросов во время ввода текста в примитив "Текст"
 
Добрый день.
Имеется достаточно большое количество горячих клавиш с различными скриптами/командами, однако при вводе примитива "Текст" данные горячие срабатывают и приходится заходить в свойства объекта для изменения текста.
Можно ли заблокировать использование горячих клавиш в момент ввода текста?
Изменено: Cвятослав Найденко - 22.11.2024 11:21:44
Оптимизация SQL запроса. Проверка пересечения с временной буферной зоной.
 
Дмитрий Озеров, [QUOTE] написал:
[URL=/forums/?PAGE_NAME=profile_view&UID=2635]Cвятослав[/URL], можно запрос упростить так:

SEL ECT t1.Sys, t2.Sys
FR OM [Рабочий] AS t1, [Потребители] AS t2
WHERE t2.geometry.selected()=1
AND t1.typeid = 3
AND t1.geometry.STWithin(t2.geometry.STBuffer(20));

Попробуйте.

Вообще, мы посмотрим, что можно ускорить внутри движка.[/QUOTE]
Это был первый вариант запроса и по какой-то причине он даже один объект обрабатывает более 60 секунд.
В связи с этим запрос геометрии буферной зоны и был перенесён в подзапрос.
Оптимизация SQL запроса. Проверка пересечения с временной буферной зоной.
 
Добрый день.

Подскажите, есть ли возможность оптимизировать (переписать) представленный запрос для ускорения получения ответа?
При предварительном выборе 1 объекта в слое t1 время ответа составляет около 15 секунд, при выборе 2 объектов около 40-45 секунд.

SEL ECT t1.sys, t2.sys
fr om [Рабочий] as t1,
(SEL ECT t2.geometry.stbuffer(20) as a, t2.sys
FR OM [Потребители] as t2
where t2.geometry.selected()=1) AS t2
where t1.typeid = 3
and t1.geometry.stwithin(t2.a)
Отключение автоматической привязки линий к узлам
 
Добрый день.
Подскажите пожалуйста, как отключить автоматическую привязку полилинии/полигона к существующим узлам при вводе этих линий? При большом масштабе ввод новых объектов становится сложной задачей при наличии большого количества узлов в слое.
Создать объект на конечной/начальной точке участка по условию пересечения с другим слоем, VBS, координаты
 
Алексей Демин, Не уверен, но мне кажется что это из-за того что sys_polygon = L.ElemIDByXY(Point_X, Point_y) возвращает одно значение ID из слоя, при этом и здания и линия находятся в одном слое. Поскольку Точка лежит одновременно и на линии и на здании в некоторых случаях вы возвращаете ключ линии, который дальше по условию не проходит.
Наименование слоя в переменную в SQL запросе
 
Дмитрий Озеров, Добрый день!
Планируется ли добавление оконных функций SQL в версии 2021 или в ближайшем будущем?
Как получить список изображений
 
Есть вот такой скрипт для отображения атрибутов файлов в каталоге/подкаталогах, если доработать в разрезе поиска по расширению должен подойти:

Sub FileList()
   Dim V As String
   Dim BrowseFolder As String
   
   'открываем диалоговое окно выбора папки
   With Application.FileDialog(msoFileDialogFolderPicker)
       .Title = "Выберите папку или диск"
       .Show
       On Error Resume Next
       Err.Clear
       V = .SelectedItems(1)
       If Err.Number <> 0 Then
           MsgBox "Вы ничего не выбрали!"
           Exit Sub
       End If
   End With
   BrowseFolder = CStr(V)
   
   'добавляем лист и выводим на него шапку таблицы
   ActiveWorkbook.Sheets.Add
   With Range("A1:E1")
       .Font.Bold = True
       .Font.Size = 12
   End With
   Range("A1").Value = "Имя файла"
   Range("B1").Value = "Путь"
   Range("C1").Value = "Размер"
   Range("D1").Value = "Дата создания"
   Range("E1").Value = "Дата изменения"
   
   'вызываем процедуру вывода списка файлов
   'измените True на False, если не нужно выводить файлы из вложенных папок
   ListFilesInFolder BrowseFolder, True
End Sub


Private Sub ListFilesInFolder(ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean)

   Dim FSO As Object
   Dim SourceFolder As Object
   Dim SubFolder As Object
   Dim FileItem As Object
   Dim r As Long

   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set SourceFolder = FSO.getfolder(SourceFolderName)

   r = Range("A65536").End(xlUp).Row + 1   'находим первую пустую строку
   'выводим данные по файлу
   For Each FileItem In SourceFolder.Files
       Cells(r, 1).Formula = FileItem.Name
       Cells(r, 2).Formula = FileItem.Path
       Cells(r, 3).Formula = FileItem.Size
       Cells(r, 4).Formula = FileItem.DateCreated
       Cells(r, 5).Formula = FileItem.DateLastModified
       r = r + 1
       X = SourceFolder.Path
   Next FileItem
   
   'вызываем процедуру повторно для каждой вложенной папки
   If IncludeSubfolders Then
       For Each SubFolder In SourceFolder.SubFolders
           ListFilesInFolder SubFolder.Path, True
       Next SubFolder
   End If

   Columns("A:E").AutoFit

   Set FileItem = Nothing
   Set SourceFolder = Nothing
   Set FSO = Nothing

End Sub
Создание закладок с древовидной структурой, Расширение возможностей закладок
 
Дмитрий Озеров, Добрый день!
А есть ли метод для создания группы через объектную модель?
А также, возможно ли в момент создания закладок через объектную модель сразу заносить их в группу?
Добавление записей в подчиненную таблицу через ZuluGIS Online, ZuluGIS mobile
 
Прошу прощения, разобрался.

Был запрет на значение null в двух полях подчиненной таблицы. При этом одно из которых являлось полем связи двух таблиц "Много к одному" (Sys - sys), а второе было идентификатором записи подчиненной таблицы "с счетчиком".

Скорее всего, на клиенте с ПК из-за вызова формы Sys проставлялся сам в подчиненную таблицу из базовой при добавлении записи, а в web / mobile нет.

Структуру слоя направил вам на почту.
Добавление записей в подчиненную таблицу через ZuluGIS Online, ZuluGIS mobile
 
[SIZE=13px]Добрый день!

Столкнулся с такой проблемой:

1) Есть базовая таблица table1 (Sys, ...);[/SIZE]

[SIZE=13px]2) Создаю таблицу table2, допустим из 3 полей (Sys, SysID, Test1), SysID - ключевое поле с идентификатором;[/SIZE]

[SIZE=13px]3) Формирую запрос, соединяя table1.sys и table2.sys "Много к одному";[/SIZE]

[SIZE=13px]Теперь у меня есть возможность добавлять записи в table2, однако такая возможность работает только на настольной версии в ПК, а в мобильной версии и web нет.
[/SIZE][SIZE=13px]
Скрин ошибки из web версии:
[IMG WIDTH=697 HEIGHT=486]https://mail.yandex.ru/message_part/?_uid=110198487&hid=1.2&ids=183803159792087632&name=&yandex_class=yandex_inline_content_320.mail:110198487.E10479634:185151200145299983249845910329_1.2_183803159792087632[/IMG]
[/SIZE]
Версия: [SIZE=13px]10.0.0.8636
[/SIZE]
Изменено: Cвятослав Найденко - 13.09.2023 07:47:53
Раскраска бирок по условию
 
Добрый день!

Пожелание:

1) Добавить тематическую раскраску бирок не только по заданным интервалам (От... до), а также и по условиям из базы данных, как это представлено в тематических фильтрах.

При динамически изменяемых полях БД (ZuluOPC), это позволит сигнализировать об отклонении от ранее заданных пределов для каждого значения/объекта.
Страницы: 1