Email Indexing in own window

2020-05-19 13:14:26 +02:00
parent 61b32797fa
commit 7d3b393c70
7 changed files with 1020 additions and 1257 deletions
--- a/Global_Indexer/frmAdministration.vb
+++ b/Global_Indexer/frmAdministration.vb
@@ -6,9 +6,10 @@ Public Class frmAdministration
    Public Shared _Namenkonvention As String
    Public Shared _aktDokart_Id As Integer

-    Private GroupToDelete As Integer = Nothing
    Private SourceAttributes As List(Of String)
    Private SourceObjectTypes As List(Of String)
+
+    Private GroupToDelete As Integer = Nothing
    Private IsInsert As Boolean = False
    Dim frmloaded As Boolean = False
    Private Sub TBDD_DOKUMENTARTBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
@@ -33,7 +34,7 @@ Public Class frmAdministration
            TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
            Me.TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
            Me.TBGI_CONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection.ConnectionString = MyConnectionString
+            'Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection.ConnectionString = MyConnectionString
            Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection.ConnectionString = MyConnectionString
            Me.TBWHDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
            Me.VWGI_USER_GROUPS_RELATIONTableAdapter.Connection.ConnectionString = MyConnectionString
@@ -84,28 +85,15 @@ Public Class frmAdministration
    End Sub
    Private Sub ObjektTypenEintragen()
        Try
-            pnlObjekttype_Config.Enabled = False
-
            ' Combobox leeren
            Me.OBJEKTTYPComboBox.Items.Clear()
-            ListBoxControl1.Items.Clear()
            ' alle Objekttypen durchlaufen
            If SourceObjectTypes Is Nothing Then
                SourceObjectTypes = WINDREAM.ObjectTypes
            End If
-
-            For Each otype As String In SourceObjectTypes
-                ' und in die Combobox eintragen
-                Me.OBJEKTTYPComboBox.Items.Add(otype)
-                ListBoxControl1.Items.Add(otype)
-            Next
-
-
-            pnlObjekttype_Config.Enabled = True
        Catch ex As Exception
            MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Eintragen der Objekttypen")
        End Try
-
    End Sub
    Sub Load_Dokart()
        Try
@@ -465,77 +453,13 @@ Public Class frmAdministration
            gridAvailableUsers.DataSource = ClassDatatables.GetAvailableUsers(DOKART_GUIDTextBox.Text)
        End If

-        If oSelectedPageName = XtraTabPageEmail.Name Then
-            RibbonPageEmail.Visible = True
-
-            If oSelectedPageName = XtraTabPageEmail.Name Then
-                RibbonControl1.SelectedPage = RibbonPageEmail
-            End If
-        Else
-            RibbonPageEmail.Visible = False
-        End If
-
        Select Case XtraTabControl1.SelectedTabPageIndex
            Case 0
                If DOKART_GUIDTextBox.Text <> "" Then
                    Load_ZuordnungDokart_Module(DOKART_GUIDTextBox.Text)
                End If
-            Case 2
-                EnableControls(pnlObjekttype_Config, False)
-                ObjektTypenListBoxEintragen()
        End Select
    End Sub
-    Sub load_WDIndicesemail(Otype As String)
-        Try
-            IDX_EMAIL_DATE_INComboBox.Items.Clear()
-            IDX_EMAIL_FROMComboBox.Items.Clear()
-            IDX_EMAIL_IDComboBox.Items.Clear()
-            IDX_EMAIL_SUBJECTComboBox.Items.Clear()
-            IDX_EMAIL_TOComboBox.Items.Clear()
-            IDX_CHECK_ATTACHMENTComboBox.Items.Clear()
-            If SourceAttributes Is Nothing Then
-                SourceAttributes = WINDREAM.GetIndiciesByObjecttype(Otype)
-            End If
-
-
-            If SourceAttributes IsNot Nothing Then
-                For Each index As String In SourceAttributes
-                    Select Case WINDREAM.GetIndexType(index)
-                        Case 4 'Boolean
-                            Me.IDX_CHECK_ATTACHMENTComboBox.Items.Add(index)
-                        Case Else
-                            Me.IDX_EMAIL_DATE_INComboBox.Items.Add(index)
-                            Me.IDX_EMAIL_FROMComboBox.Items.Add(index)
-                            Me.IDX_EMAIL_IDComboBox.Items.Add(index)
-                            Me.IDX_EMAIL_SUBJECTComboBox.Items.Add(index)
-                            Me.IDX_EMAIL_TOComboBox.Items.Add(index)
-                    End Select
-
-
-                Next
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load_WDIndicesemail: ")
-        End Try
-    End Sub
-    Private Sub ObjektTypenListBoxEintragen()
-        Try
-            ' Combobox leeren
-            ListBoxControl1.Items.Clear()
-            ' alle Objekttypen durchlaufen
-            If SourceObjectTypes Is Nothing Then
-                SourceObjectTypes = WINDREAM.ObjectTypes
-            End If
-            For Each oDokumentTyp In SourceObjectTypes
-                ' und in die Combobox eintragen
-                ListBoxControl1.Items.Add(oDokumentTyp)
-            Next
-        Catch ex As Exception
-            MsgBox("Error in ObjektTypenListBoxEintragen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            LOGGER.Info(">> ACHTUNG: Error in ObjektTypenListBoxEintragen - " & ex.Message)
-        End Try
-
-    End Sub

    Private Sub btnSQLView_Click(sender As Object, e As EventArgs) Handles btnSQLView.Click
        Save_IndexMan()
@@ -603,29 +527,10 @@ Public Class frmAdministration
        End Try
    End Function

-    Private Sub ListBoxObjekttypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxControl1.SelectedIndexChanged
-        If ListBoxControl1.SelectedIndex <> -1 Then
-            Dim oRows As Integer = LoadIDXEmail(ListBoxControl1.SelectedItem)
-
-            If oRows > 0 Then
-                EnableControls(pnlObjekttype_Config)
-            End If
-
-            load_WDIndicesemail(ListBoxControl1.SelectedItem)
-        End If
-    End Sub
-
    Private Sub btnidxemail_add_Click(sender As Object, e As EventArgs)
        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddNew()
    End Sub

-    Private Sub TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddingNew
-        If ListBoxControl1.SelectedIndex <> -1 Then
-            MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn.DefaultValue = Environment.UserName
-            MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn.DefaultValue = ListBoxControl1.SelectedItem
-        End If
-    End Sub
-
    Private Sub XtraTabControl2_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl2.SelectedPageChanged
        Load_TabData()
    End Sub
@@ -1070,7 +975,6 @@ Public Class frmAdministration
                Dim del As String = " EXEC PRDD_GLOBIX_DELETE_DOCTYPE " & DOKART_GUIDTextBox.Text
                If ClassDatabase.Execute_non_Query(del, True) = True Then
                    Load_Dokart()
-                    MaybeDisableUserAndEmailTabs()
                    TBDD_DOKUMENTARTBindingSource.ResetBindings(True)

                    If USER_LANGUAGE = "de-DE" Then
@@ -1085,15 +989,6 @@ Public Class frmAdministration
            End Try
        End If
    End Sub
-    Private Sub MaybeDisableUserAndEmailTabs()
-        If MyDataset.TBDD_DOKUMENTART.Rows.Count = 0 Then
-            XtraTabPageUsersGroups.PageEnabled = False
-            XtraTabPageEmail.PageEnabled = False
-        Else
-            XtraTabPageUsersGroups.PageEnabled = True
-            XtraTabPageEmail.PageEnabled = True
-        End If
-    End Sub
    Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
        Dim result As MsgBoxResult

@@ -1135,35 +1030,7 @@ Public Class frmAdministration
        TBDD_DOKUMENTARTBindingSource.AddNew()
    End Sub

-    Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
-        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddNew()
-        EnableControls(pnlObjekttype_Config)
-    End Sub

-    Private Sub BarButtonItem10_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem10.ItemClick
-        Try
-            Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.EndEdit()
-            If MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.GetChanges Is Nothing = False Then
-                CHANGED_WHOTextBox2.Text = Environment.UserName
-                TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.EndEdit()
-                TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Update(MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX)
-            End If
-        Catch ex As Exception
-            LOGGER.Error(ex)
-            MsgBox("Fehler beim Speichern der E-Mail Einstellungen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
-        End Try
-    End Sub
-
-    Private Sub BarButtonItem11_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem11.ItemClick
-        Try
-            Dim oSQL = $"DELETE FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '{OBJECTTYPETextBox.Text}'"
-            ClassDatabase.Execute_non_Query(oSQL)
-            TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Fill(MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX, OBJECTTYPETextBox.Text)
-        Catch ex As Exception
-            LOGGER.Error(ex)
-            MsgBox("Fehler beim Löschen der E-Mail Einstellungen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
-        End Try
-    End Sub

    Private Sub BarButtonItem13_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs)
        TBGI_REGEX_DOCTYPEBindingSource.AddNew()
@@ -1462,5 +1329,7 @@ Public Class frmAdministration
        End If
    End Sub

-
+    Private Sub BarButtonItem29_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem29.ItemClick
+        frmEmailIndexing.ShowDialog()
+    End Sub
 End Class