update TBDD_DOKUMENTART & VWDDINDEX_AUTOM

Global_Indexer/frmAdministration.vb

@@ -369,6 +369,7 @@ Public Class frmAdministration
                 EnableControls(XtraTabPageAutoIndex)
             End If
             CheckIndexAutoWD()
+            SetAutomIndexVectorCheckboxEnabled()
         Catch ex As System.Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Indexe Auto: ")
         End Try
@@ -899,7 +900,7 @@ Public Class frmAdministration
     Private _indexIsVectorField As Boolean = False
 
     Private Sub WD_INDEXComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles WD_INDEXComboBox.SelectedIndexChanged
-        _indexIsVectorField = indexIsVectorField()
+        _indexIsVectorField = indexIsVectorField(WD_INDEXComboBox.Text)
         MULTISELECTCheckBox.Enabled = _indexIsVectorField
 
 
@@ -917,9 +918,9 @@ Public Class frmAdministration
         End If
     End Sub
 
-    Private Function indexIsVectorField() As Boolean
+    Private Function indexIsVectorField(pIndexName As String) As Boolean
         Try
-            Dim selectedIndexName As String = WD_INDEXComboBox.Text
+            Dim selectedIndexName As String = pIndexName
 
             If selectedIndexName = String.Empty Then
                 Return False
@@ -1454,4 +1455,20 @@ Public Class frmAdministration
     Private Sub frmAdministration_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         Check_HasChanges(BEZEICHNUNGTextBox.Text)
     End Sub
+
+    Private Sub INDEXNAME_AutoIndexCMB_SelectedIndexChanged(sender As Object, e As EventArgs) Handles INDEXNAME_AutoIndexCMB.SelectedIndexChanged
+        SetAutomIndexVectorCheckboxEnabled()
+    End Sub
+
+    Private Function SetAutomIndexVectorCheckboxEnabled()
+        _indexIsVectorField = indexIsVectorField(INDEXNAME_AutoIndexCMB.Text)
+
+        If _indexIsVectorField Then
+            chkOverwrite.Enabled = True
+            chkPreventMultipleValues.Enabled = True
+        Else
+            chkOverwrite.Enabled = False
+            chkPreventMultipleValues.Enabled = False
+        End If
+    End Function
 End Class