MS

app/DD_PM_WINDREAM/frmAdministration.vb

@@ -79,6 +79,10 @@ Public Class frmAdministration
             If IDB_ACTIVE = False Then
                 PM_VEKTOR_INDEXComboBox.Enabled = True
                 Label4.Enabled = True
+                If cmbObjekttypen.Text = "DEFAULT" And IDB_ACTIVE = False Then
+                    MsgBox("The Objecttype is invalid!", MsgBoxStyle.Exclamation)
+                    Exit Sub
+                End If
                 Try
                     Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text)
                     If indexe IsNot Nothing Then
@@ -99,6 +103,7 @@ Public Class frmAdministration
 
                         Next
                     End If
+                    MyIndicies_Types = New List(Of Integer)
                     MyIndicies = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList()
                     For Each i In MyIndicies
                         Dim type = WINDREAM.GetTypeOfIndex(i)
@@ -120,7 +125,7 @@ Public Class frmAdministration
                 Else
                     cmbLOGIndex.SelectedIndex = -1
                 End If
-            Else
+            Else '############## IDB ACTIVE #################
 
                 PM_VEKTOR_INDEXComboBox.Enabled = False
                 Label4.Enabled = False
@@ -699,24 +704,6 @@ Public Class frmAdministration
         End If
     End Sub
 
-    Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles btnTest_Email.Click
-        If txtemailEmpfaenger.Text <> "" And EMAIL_FROMTextBox.Text <> "" And EMAIL_SMTPTextBox.Text <> "" And EMAIL_USERTextBox.Text <> "" And EMAIL_PWTextBox.Text <> "" Then
-            email.Send_Log_Mail("<b>Dies ist eine Testemail! Gesendet vom Softwaremodul Process-Manager DD.</b><p>",
-                                "Testemail Process-Manager", EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, EMAIL_USERTextBox.Text, EMAIL_PWTextBox.Text, txtemailEmpfaenger.Text, True)
-            Save_Konfiguration()
-        Else
-            MsgBox("Bitte geben Sie in allen Pflichtfeldern einen Wert ein!", MsgBoxStyle.Exclamation)
-        End If
-    End Sub
-
-    Private Sub EMAIL_ACTIVECheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles EMAIL_ACTIVECheckBox.CheckedChanged
-        If EMAIL_ACTIVECheckBox.Checked Then
-            Me.grpbxEmail.Enabled = True
-        Else
-            Me.grpbxEmail.Enabled = False
-        End If
-    End Sub
-
     Private Sub btnopen_SQLAdmin_Click(sender As Object, e As EventArgs) Handles btnopen_SQLAdmin.Click
         frmSQL_Admin.ShowDialog()
     End Sub
@@ -991,8 +978,10 @@ Public Class frmAdministration
             If e.FocusedRowHandle <> GridControl.NewItemRowHandle Then
                 obj = FINALINDICES.SetValue(value, obj, index, MyIndicies, MyIndicies_Types)
             End If
+            If IDB_ACTIVE Then
+                obj.Indicies = MyIndicies.Except(IDBData.IDBSystemIndices).ToList
+            End If
 
-            obj.Indicies = MyIndicies.Except(IDBData.Source_IDBIndices).ToList
 
             obj.IndiciesType = MyIndicies_Types
             obj.IndexName = index