2.1.6.3 Final - ApplServer, frmAdminsitrationBugs etc

app/DD_PM_WINDREAM/ClassFinalIndex.vb

@@ -1,6 +1,7 @@
 Public Class ClassFinalIndex
     Public INDEX_TYPE_STRING = 1
     Public INDEX_TYPE_INTEGER = 2
+    Public INDEX_TYPE_INTEGER64 = 11
     Public INDEX_TYPE_FLOAT = 3
     Public INDEX_TYPE_BOOLEAN = 4
     Public INDEX_TYPE_DATE = 5
@@ -114,14 +115,23 @@
                 value = NotNull(value, "")
 
                 props.StringValue = value
-            ElseIf type = INDEX_TYPE_INTEGER Or type = INDEX_TYPE_VECTOR_INTEGER_64 Then
-                value = NotNull(Of Integer)(value, 0)
+            ElseIf type = INDEX_TYPE_INTEGER Or type = INDEX_TYPE_INTEGER64 Or type = INDEX_TYPE_VECTOR_INTEGER_64 Then
+                Try
+                    value = NotNull(Of Integer)(value, 0)
+                    If value = String.Empty Then
+                        props.IntegerValue = 0
+                    Else
+                        props.IntegerValue = Integer.Parse(value)
+                    End If
+                Catch ex As Exception
+                    If value = "SQL-Command" Then
+                        Return props
+                    Else
+                        props.IntegerValue = 99
+                    End If
+
+                End Try
 
-                If value = String.Empty Then
-                    props.IntegerValue = 0
-                Else
-                    props.IntegerValue = Integer.Parse(value)
-                End If
             ElseIf type = INDEX_TYPE_FLOAT Then
                 value = NotNull(Of Double)(value, 0)
 
@@ -143,7 +153,7 @@
             Return props
         Catch ex As Exception
             LOGGER.Error(ex)
-            MsgBox($"Error in SetValue: {ex.Message}", MsgBoxStyle.Critical)
+            MsgBox($"Error in ClassFinalIndexSetValue: {ex.Message}", MsgBoxStyle.Critical)
         End Try
     End Function