From 8e8bb037d0484dd03eb5ad762e88606316cd166a Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@didalog.de>
Date: Wed, 7 Nov 2018 12:11:10 +0100
Subject: [PATCH] jj: allow new values when sql suggestions is true / false

---
 Global_Indexer/frmAdministration.resx |  4 +--
 Global_Indexer/frmAdministration.vb   | 42 ++++++++++++++++++---------
 Global_Indexer/frmIndex.vb            |  1 +
 3 files changed, 31 insertions(+), 16 deletions(-)

diff --git a/Global_Indexer/frmAdministration.resx b/Global_Indexer/frmAdministration.resx
index c84e821..f4f764f 100644
--- a/Global_Indexer/frmAdministration.resx
+++ b/Global_Indexer/frmAdministration.resx
@@ -2677,7 +2677,7 @@
     <value>0</value>
   </data>
   <data name="VKT_ADD_ITEMCheckbox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>618, 133</value>
+    <value>473, 133</value>
   </data>
   <data name="VKT_ADD_ITEMCheckbox.Size" type="System.Drawing.Size, System.Drawing">
     <value>128, 24</value>
@@ -2701,7 +2701,7 @@
     <value>1</value>
   </data>
   <data name="MULTISELECTCheckBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>483, 133</value>
+    <value>627, 133</value>
   </data>
   <data name="MULTISELECTCheckBox.Size" type="System.Drawing.Size, System.Drawing">
     <value>115, 24</value>
diff --git a/Global_Indexer/frmAdministration.vb b/Global_Indexer/frmAdministration.vb
index ecb374c..ff39b16 100644
--- a/Global_Indexer/frmAdministration.vb
+++ b/Global_Indexer/frmAdministration.vb
@@ -412,9 +412,15 @@ Public Class frmAdministration
         If frmloaded = True Then
             If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
                 btnSQLView.Visible = True
+                VKT_ADD_ITEMCheckbox.Enabled = True
             Else
-
                 btnSQLView.Visible = False
+
+                If (_indexIsVectorField) Then
+                    VKT_ADD_ITEMCheckbox.Enabled = True
+                Else
+                    VKT_ADD_ITEMCheckbox.Enabled = False
+                End If
             End If
         End If
     End Sub
@@ -1179,23 +1185,31 @@ Public Class frmAdministration
         End If
     End Sub
 
-    Private Sub WD_INDEXComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles WD_INDEXComboBox.SelectedIndexChanged
-        Dim selectedIndexName As String = WD_INDEXComboBox.Text
-
-        If selectedIndexName = String.Empty Then
-            Exit Sub
-        End If
+    Private _indexIsVectorField As Boolean = False
 
-        ' Vektorindexe fangen bei 4000 an
-        Dim isVectorIndex As Boolean = ClassWindream.GetTypeOfIndexAsIntByName(selectedIndexName) > 4000
-        MULTISELECTCheckBox.Visible = isVectorIndex
-        VKT_ADD_ITEMCheckbox.Visible = isVectorIndex
-        VKT_PREVENT_MULTIPLE_VALUESCheckbox.Visible = isVectorIndex
+    Private Sub WD_INDEXComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles WD_INDEXComboBox.SelectedIndexChanged
+        _indexIsVectorField = indexIsVectorField()
+        MULTISELECTCheckBox.Visible = _indexIsVectorField
+        VKT_PREVENT_MULTIPLE_VALUESCheckbox.Visible = _indexIsVectorField
 
-        If Not isVectorIndex Then
+        If Not _indexIsVectorField Then
             MULTISELECTCheckBox.Checked = False
-            VKT_ADD_ITEMCheckbox.Checked = False
             VKT_PREVENT_MULTIPLE_VALUESCheckbox.Checked = False
         End If
     End Sub
+
+    Private Function indexIsVectorField() As Boolean
+        Try
+            Dim selectedIndexName As String = WD_INDEXComboBox.Text
+
+            If selectedIndexName = String.Empty Then
+                Return False
+            End If
+
+            ' Vektorindexe fangen bei 4000 an
+            Return ClassWindream.GetTypeOfIndexAsIntByName(selectedIndexName) > 4000
+        Catch ex As Exception
+            Return False
+        End Try
+    End Function
 End Class
diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb
index e548074..47c2ef6 100644
--- a/Global_Indexer/frmIndex.vb
+++ b/Global_Indexer/frmIndex.vb
@@ -621,6 +621,7 @@ Public Class frmIndex
                                                                frm.FormBorderStyle = FormBorderStyle.SizableToolWindow
                                                                frm.MultiSelect = False
                                                                frm.DataSource = table
+                                                               frm.AddNewValues = AddNewValues
                                                                frm.StartPosition = FormStartPosition.Manual
                                                                frm.SelectedValues = New List(Of String) From {textBox.Text}
                                                                frm.Location = pnlIndex.PointToScreen(New Point(340, y))