jj: move index consts

app/DD_PM_WINDREAM/ClassFinalIndex.vb

@@ -1,5 +1,15 @@
 Public Class ClassFinalIndex
-    Public Shared PREFIX_VECTOR = "[%VKT"
+    Public Const INDEX_TYPE_STRING = 1
+    Public Const INDEX_TYPE_INTEGER = 2
+    Public Const INDEX_TYPE_FLOAT = 3
+    Public Const INDEX_TYPE_BOOLEAN = 4
+    Public Const INDEX_TYPE_DATE = 5
+    Public Const INDEX_TYPE_VECTOR_INTEGER = 4107
+    Public Const INDEX_TYPE_VECTOR_STRING = 4097
+    Public Const INDEX_TYPE_VECTOR_BOOLEAN = 4100
+    Public Const INDEX_TYPE_VECTOR_DATE = 4101
+
+    Public Const PREFIX_VECTOR = "[%VKT"
 
     Public Shared Function GetValue(obj As Object, indexName As String, indcies As List(Of String), types As List(Of Integer), isVector As Boolean)
         Try
@@ -70,4 +80,12 @@
             MsgBox($"Error in SetValue: {ex.Message}", MsgBoxStyle.Critical)
         End Try
     End Function
+
+    Public Shared Function IsVectorIndex(type As Integer) As Boolean
+        If type = INDEX_TYPE_VECTOR_BOOLEAN Or type = INDEX_TYPE_VECTOR_DATE Or type = INDEX_TYPE_VECTOR_INTEGER Or type = INDEX_TYPE_VECTOR_STRING Then
+            Return True
+        Else
+            Return False
+        End If
+    End Function
 End Class