MS v2.0

app/DD_PM_WINDREAM/frmAdministration.vb

@@ -74,12 +74,11 @@ Public Class frmAdministration
             Me.cmbLOGIndex.Items.Clear()
             Me.PM_VEKTOR_INDEXComboBox.Items.Add("")
             Me.cmbLOGIndex.Items.Add("")
-
+            cmbLOGIndex.Enabled = True
+            Label9.Enabled = True
             If IDB_ACTIVE = False Then
                 PM_VEKTOR_INDEXComboBox.Enabled = True
                 Label4.Enabled = True
-                cmbLOGIndex.Enabled = True
-                Label9.Enabled = True
                 Try
                     Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text)
                     If indexe IsNot Nothing Then
@@ -122,8 +121,7 @@ Public Class frmAdministration
                     cmbLOGIndex.SelectedIndex = -1
                 End If
             Else
-                cmbLOGIndex.Enabled = False
-                Label9.Enabled = False
+
                 PM_VEKTOR_INDEXComboBox.Enabled = False
                 Label4.Enabled = False
                 Try
@@ -994,7 +992,8 @@ Public Class frmAdministration
                 obj = FINALINDICES.SetValue(value, obj, index, MyIndicies, MyIndicies_Types)
             End If
 
-            obj.Indicies = MyIndicies
+            obj.Indicies = MyIndicies.Except(IDBData.Source_IDBIndices).ToList
+
             obj.IndiciesType = MyIndicies_Types
             obj.IndexName = index
             obj.VectorBehaviourType = New List(Of String) From {