marvins todos

2020-03-03 15:49:53 +01:00
parent 5139d51c8d
commit 13b36db5fb
14 changed files with 4659 additions and 3231 deletions
--- a/Global_Indexer/frmAdministration.vb
+++ b/Global_Indexer/frmAdministration.vb
@@ -44,7 +44,6 @@ Public Class frmAdministration
            Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.MyDataset.TBDD_DOKUMENTART)
            Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN)
            Me.TBDD_MODULESTableAdapter.Fill(Me.MyDataset.TBDD_MODULES)
-            Me.TBGI_REGEX_DOCTYPETableAdapter.Fill(Me.MyDataset.TBGI_REGEX_DOCTYPE)
        Catch ex As Exception
            MsgBox("Error in frmAdministration_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
        End Try
@@ -79,11 +78,13 @@ Public Class frmAdministration
            Me.TBDD_DOKUMENTARTTableAdapter.FillByModuleGI(Me.MyDataset.TBDD_DOKUMENTART)

            If MyDataset.TBDD_DOKUMENTART.Rows.Count > 0 Then
+                GridView1.SelectRow(1)
                enableControls(XtraTabPageProfiles)
            End If
            If Me.DOKART_GUIDTextBox.Text <> "" Then
                Load_TabData()
            End If
+
        Catch ex As Exception
            MsgBox("Error in Load_Dokart: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
        End Try
@@ -92,16 +93,16 @@ Public Class frmAdministration
        If frmloaded = False Then
            Exit Sub
        End If
-        Select Case XtraTabControl2.SelectedTabPageIndex
-            Case 0
+        Select Case XtraTabControl2.SelectedTabPage.Name
+            Case XtraTabPageManualIndex.Name
                If DOKART_GUIDTextBox.Text <> "" Then
                    Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
                End If
-            Case 1
+            Case XtraTabPageManualIndexFunctions.Name
                Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
-            Case 2
+            Case XtraTabPageAutoIndex.Name
                Load_INDEXE_AUTO(Me.DOKART_GUIDTextBox.Text)
-            Case 4
+            Case XtraTabPageFolderPath.Name
                Try
                    Dim Dt As DataTable = ClassDatabase.Return_Datatable("select NAME from VWDDINDICES_MAN_AUTO_ACTIVE where DOCTYPE_ID = " & DOKART_GUIDTextBox.Text & " order by NAME")
                    cmbCrFolderIndex.DataSource = Dt
@@ -109,7 +110,8 @@ Public Class frmAdministration
                Catch ex As Exception
                    MsgBox("Error in Load Data TabData 4: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
                End Try
-
+            Case XtraTabPageProfileRegex.Name
+                TBGI_REGEX_DOCTYPETableAdapter.Fill(MyDataset.TBGI_REGEX_DOCTYPE, DOKART_GUIDTextBox.Text)
        End Select
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
@@ -195,6 +197,7 @@ Public Class frmAdministration
            CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text
            Load_TabData()

+
            gridAssignedGroups.DataSource = ClassDatatables.GetAssignedGroups(CURRENT_DOKART_ID)
            gridAvailableGroups.DataSource = ClassDatatables.GetAvailableGroups(CURRENT_DOKART_ID)
        End If
@@ -219,6 +222,7 @@ Public Class frmAdministration

        MyDataset.TBDD_DOKUMENTART.ERSTELLTWERColumn.DefaultValue = Environment.UserName
        MyDataset.TBDD_DOKUMENTART.OBJEKTTYPColumn.DefaultValue = ""
+        MyDataset.TBDD_DOKUMENTART.NAMENKONVENTIONColumn.DefaultValue = "[%vOFilename]-[%vYY_MM_DD]-[%Version]"
        IsInsert = True
    End Sub

@@ -294,7 +298,7 @@ Public Class frmAdministration
        Try
            Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, DA_ID)
            If MyDataset.TBDD_INDEX_MAN.Rows.Count > 0 Then
-                enableControls(XtraTabPage3)
+                enableControls(XtraTabPageManualIndex)
            End If
            lblSaveIndexMan.Visible = False
        Catch ex As System.Exception
@@ -306,7 +310,7 @@ Public Class frmAdministration
        Try
            Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_AUTOM, DA_ID)
            If MyDataset.TBDD_INDEX_AUTOM.Rows.Count > 0 Then
-                enableControls(XtraTabPage4)
+                enableControls(XtraTabPageAutoIndex)
            End If
            CheckIndexAutoWD()
        Catch ex As System.Exception
@@ -319,7 +323,7 @@ Public Class frmAdministration
            Me.TBWHDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBWHDD_INDEX_MAN, DA_ID)
            Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN_POSTPROCESSING, DA_ID)
            If MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.Rows.Count > 0 Then
-                enableControls(XtraTabPage6)
+                enableControls(XtraTabPageManualIndexFunctions)
            End If
            lblsavePostProcess.Visible = False
        Catch ex As System.Exception
@@ -345,7 +349,7 @@ Public Class frmAdministration
            IsInsert = True
            MyDataset.TBDD_INDEX_MAN.ADDED_WHOColumn.DefaultValue = Environment.UserName
            MyDataset.TBDD_INDEX_MAN.DOK_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text
-            enableControls(XtraTabPage3)
+            enableControls(XtraTabPageManualIndex)
            If GI_withWindream = True Then
                Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
            End If
@@ -430,16 +434,12 @@ Public Class frmAdministration
            RibbonPageCategoryUserGroups.Visible = False
        End If

-        If oSelectedPageName = XtraTabPageEmail.Name Or oSelectedPageName = XtraTabPageFilenameRegex.Name Then
+        If oSelectedPageName = XtraTabPageEmail.Name Then
            RibbonPageCategoryMisc.Visible = True

            If oSelectedPageName = XtraTabPageEmail.Name Then
                RibbonControl1.SelectedPage = RibbonPageEmail
            End If
-
-            If oSelectedPageName = XtraTabPageFilenameRegex.Name Then
-                RibbonControl1.SelectedPage = RibbonPageFilenameRegex
-            End If
        Else
            RibbonPageCategoryMisc.Visible = False
        End If
@@ -451,18 +451,7 @@ Public Class frmAdministration
                End If
            Case 2
                ObjektTypenListBoxEintragen()
-            Case 3
-                Me.TBGI_REGEX_DOCTYPETableAdapter.Fill(Me.MyDataset.TBGI_REGEX_DOCTYPE)
-                Dim osql = "SELECT GUID, BEZEICHNUNG FROM TBDD_DOKUMENTART WHERE (GUID IN (SELECT T.DOKART_ID FROM TBDD_DOKUMENTART_MODULE AS T INNER JOIN " &
-                "TBDD_MODULES AS T1 ON T.MODULE_ID = T1.GUID WHERE (T1.NAME = 'Global-Indexer'))) ORDER BY SEQUENCE, BEZEICHNUNG"
-                Dim oDT As DataTable = ClassDatabase.Return_Datatable(osql)
-                If Not IsNothing(oDT) Then
-                    cmbDoctypeRegex.DataSource = oDT
-                    cmbDoctypeRegex.ValueMember = "GUID"
-                    cmbDoctypeRegex.DisplayMember = "BEZEICHNUNG"
-                End If
        End Select
-
    End Sub
    Sub load_WDIndicesemail(Otype As String)
        Try
@@ -551,6 +540,7 @@ Public Class frmAdministration
    Private Sub WINDREAM_DIRECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles WINDREAM_DIRECTCheckBox.CheckedChanged
        WM_CHECKED_CHANGE()
    End Sub
+
    Sub WM_CHECKED_CHANGE()
        If WINDREAM_DIRECTCheckBox.Checked Then
            lblObjekttyp.Visible = True
@@ -568,9 +558,6 @@ Public Class frmAdministration
            WD_INDEXComboBox.Visible = False
        End If
    End Sub
-    Private Sub Button2_Click(sender As Object, e As EventArgs)
-        ClassWindream.GetSystemIndices("")
-    End Sub

    Private Sub LoadIDXEmail(Otype As String)
        Try
@@ -578,7 +565,6 @@ Public Class frmAdministration
        Catch ex As System.Exception
            MsgBox("Error in LoadIDXEmail:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
-
    End Sub

    Private Sub ListBoxObjekttypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxControl1.SelectedIndexChanged
@@ -611,7 +597,7 @@ Public Class frmAdministration
            Save_Dokumentart()
            MyDataset.TBDD_INDEX_AUTOM.ADDED_WHOColumn.DefaultValue = Environment.UserName
            MyDataset.TBDD_INDEX_AUTOM.DOCTYPE_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text
-            enableControls(XtraTabPage4)
+            enableControls(XtraTabPageAutoIndex)
            IsInsert = True
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add IndexeAuto: ")
@@ -775,7 +761,6 @@ Public Class frmAdministration

    End Sub
    Private Sub ToolStripButton30_Click(sender As Object, e As EventArgs) Handles ToolStripButton30.Click
-
        Save_PostProcessing()
    End Sub
    Sub Save_PostProcessing()
@@ -796,7 +781,7 @@ Public Class frmAdministration

    Private Sub TBDD_INDEX_MAN_POSTPROCESSINGBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.AddingNew
        Save_Dokumentart()
-        enableControls(XtraTabPage6)
+        enableControls(XtraTabPageManualIndexFunctions)
        MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn.DefaultValue = Environment.UserName
        MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn.DefaultValue = 1
    End Sub
@@ -811,46 +796,6 @@ Public Class frmAdministration
        Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
    End Sub

-    Private Sub Load_UserRelation(UserID As Integer)
-        Try
-            Me.VWGI_USER_GROUPS_RELATIONTableAdapter.Fill(Me.MyDataset.VWGI_USER_GROUPS_RELATION, UserID)
-        Catch ex As System.Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load User-Relation: ")
-        End Try
-    End Sub
-
-    Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs)
-        Dim result As MsgBoxResult
-
-        If USER_LANGUAGE = "de-DE" Then
-            result = MessageBox.Show("Sind Sie sicher dass Sie diese Dokumentart löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-        Else
-            result = MessageBox.Show("Are you sure you want to delete this documenttype", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-        End If
-
-        If result = MsgBoxResult.Yes Then
-            Try
-                Dim del As String = " EXEC PRDD_GLOBIX_DELETE_DOCTYPE " & DOKART_GUIDTextBox.Text
-                If ClassDatabase.Execute_non_Query(del, True) = True Then
-                    Dim str = "Global-Indexer Dokarten"
-                    Load_Dokart()
-
-                    If USER_LANGUAGE = "de-DE" Then
-                        MsgBox("Die Dokumentart wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
-                    Else
-                        MsgBox("Documenttype successfully deleted!", MsgBoxStyle.Information)
-                    End If
-
-                End If
-            Catch ex As Exception
-                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete DocType: ")
-            End Try
-        End If
-    End Sub
-
-    Private Sub ToolStripButton40_Click(sender As Object, e As EventArgs)
-        LoadGlobix_Doctypes()
-    End Sub
    Sub LoadGlobix_Doctypes()
        Dim str = "Global-Indexer Dokarten"
        Load_Dokart()
@@ -894,42 +839,10 @@ Public Class frmAdministration
        cmbCrFolderIndex.SelectedIndex = -1
    End Sub

-    Private Sub tsbtnCopyDoctype_Click(sender As Object, e As EventArgs)
-        Dim result As MsgBoxResult
-
-        If USER_LANGUAGE = "de-DE" Then
-            result = MessageBox.Show("Sind Sie sicher dass Sie diese Dokumentart kopieren wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-        Else
-            result = MessageBox.Show("Are you sure you want to copy this documenttype", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-        End If
-
-        If result = MsgBoxResult.Yes Then
-            Try
-                Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", 1"
-                If ClassDatabase.Execute_non_Query(copy, True) Then
-
-                    If USER_LANGUAGE = "de-DE" Then
-                        MsgBox("Die Dokumentart wurde erfolgreich kopiert und auf INAKTIV gesetzt." & vbNewLine & "Bitte beachten Sie:" & vbNewLine & "- Die Dokumentart wurde keiner Usergruppe zugeordnet.", MsgBoxStyle.Information)
-                    Else
-                        MsgBox("Documenttype was copied successfully and set to INACTIVE." & vbNewLine & "Please note:" & vbNewLine & "- Documenttype was not assigned to a usergroup", MsgBoxStyle.Information)
-                    End If
-
-                    Load_Dokart()
-                End If
-            Catch ex As Exception
-                MsgBox("Error in Copy Doctype:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            End Try
-        End If
-    End Sub
-
-    Private Sub FOLDER_FOR_INDEXTextBox_LostFocus(sender As Object, e As EventArgs) Handles FOLDER_FOR_INDEXTextBox.LostFocus
-        'Me.TBDD_DOKUMENTARTTableAdapter.cmdUpdateFolderIndex(Environment.UserName, FOLDER_FOR_INDEXTextBox.Text, DOKART_GUIDTextBox.Text)
-        'Me.lblSaveDokart.Visible = True
-    End Sub
-
    Private Sub XtraTabControl2_SelectedPageChanging(sender As Object, e As DevExpress.XtraTab.TabPageChangingEventArgs) Handles XtraTabControl2.SelectedPageChanging
        Save_Dokumentart()
    End Sub
+
    Private Sub TBDD_USERBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USERBindingSource.AddingNew
        MyDataset.TBDD_USER.ADDED_WHOColumn.DefaultValue = Environment.UserName
        enableControls(XtraTabPageUsersGroups)
@@ -984,18 +897,10 @@ Public Class frmAdministration
        End If
    End Sub

-    Private Sub VARIANTComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles VARIANTComboBox.SelectedIndexChanged
-
-    End Sub
-
    Private Sub ToolStripButton41_Click(sender As Object, e As EventArgs) Handles ToolStripButton41.Click
        Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
    End Sub

-    Private Sub FOLDER_FOR_INDEXTextBox_TextChanged(sender As Object, e As EventArgs) Handles FOLDER_FOR_INDEXTextBox.TextChanged
-
-    End Sub
-
    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
        If GUIDTextBox1.Text <> "" Then
            Try
@@ -1044,63 +949,8 @@ Public Class frmAdministration
        End Try
    End Function

-    Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs)
-
-    End Sub
-
-    Private Sub ToolStripButton42_Click(sender As Object, e As EventArgs)
-        Try
-            Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
-        Catch ex As Exception
-
-            MsgBox("Error in Save Regex1: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
-            Exit Sub
-        End Try
-
-        If MyDataset.TBGI_REGEX_DOCTYPE.GetChanges Is Nothing = False Then
-            Me.CHANGED_WHOTextBox1.Text = Environment.UserName
-            Try
-                Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
-            Catch ex As Exception
-
-                MsgBox("Error in Save Regex2: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
-
-            End Try
-            TBGI_REGEX_DOCTYPETableAdapter.Update(MyDataset.TBGI_REGEX_DOCTYPE)
-
-        End If
-    End Sub
-
-    Private Sub BindingNavigatorAddNewItem1_Click(sender As Object, e As EventArgs)
-        Me.TBGI_REGEX_DOCTYPEBindingSource.AddNew()
-    End Sub
-
    Private Sub TBGI_REGEX_DOCTYPEBindingSource_AddingNew(sender As Object, e As AddingNewEventArgs) Handles TBGI_REGEX_DOCTYPEBindingSource.AddingNew
        MyDataset.TBGI_REGEX_DOCTYPE.ADDED_WHOColumn.DefaultValue = Environment.UserName
-        MyDataset.TBGI_REGEX_DOCTYPE.REGEXColumn.DefaultValue = txtFilenameTest.Text
-    End Sub
-
-    Private Sub XtraTabPage1_Paint(sender As Object, e As PaintEventArgs) Handles XtraTabPageProfiles.Paint
-
-    End Sub
-
-    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
-        My.Settings.Save()
-
-        Try
-            If Regex.IsMatch(txtFilenameTest.Text, REGEXTextBox.Text) Then
-                MsgBox("The RegEx resulted in a proper match!", MsgBoxStyle.Information, "Perfect:")
-            Else
-                MsgBox("No Match- There might be an error in the RegEx!", MsgBoxStyle.Information, "Something wrong:")
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Testing Regex: ")
-        End Try
-    End Sub
-
-    Private Sub BindingNavigatorDeleteItem1_Click(sender As Object, e As EventArgs)
-
-
    End Sub

    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
@@ -1175,9 +1025,9 @@ Public Class frmAdministration
        Dim result As MsgBoxResult

        If USER_LANGUAGE = "de-DE" Then
-            result = MessageBox.Show("Sind Sie sicher dass Sie diese Dokumentart kopieren wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+            result = MessageBox.Show("Sind Sie sicher dass Sie dieses Profil kopieren wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        Else
-            result = MessageBox.Show("Are you sure you want to copy this documenttype", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+            result = MessageBox.Show("Are you sure you want to copy this profile", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        End If

        If result = MsgBoxResult.Yes Then
@@ -1186,9 +1036,9 @@ Public Class frmAdministration
                If ClassDatabase.Execute_non_Query(copy, True) Then

                    If USER_LANGUAGE = "de-DE" Then
-                        MsgBox("Die Dokumentart wurde erfolgreich kopiert und auf INAKTIV gesetzt." & vbNewLine & "Bitte beachten Sie:" & vbNewLine & "- Die Dokumentart wurde keiner Usergruppe zugeordnet.", MsgBoxStyle.Information)
+                        MsgBox("Das Profil wurde erfolgreich kopiert und auf INAKTIV gesetzt." & vbNewLine & "Bitte beachten Sie:" & vbNewLine & "- Das Profil wurde keiner Usergruppe zugeordnet.", MsgBoxStyle.Information)
                    Else
-                        MsgBox("Documenttype was copied successfully and set to INACTIVE." & vbNewLine & "Please note:" & vbNewLine & "- Documenttype was not assigned to a usergroup", MsgBoxStyle.Information)
+                        MsgBox("Profile was copied successfully and set to INACTIVE." & vbNewLine & "Please note:" & vbNewLine & "- Profile was not assigned to a usergroup", MsgBoxStyle.Information)
                    End If

                    Load_Dokart()
@@ -1233,41 +1083,53 @@ Public Class frmAdministration
        MsgBox("TODO: Implement", MsgBoxStyle.OkCancel Or MsgBoxStyle.Exclamation)
    End Sub

-    Private Sub BarButtonItem12_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem12.ItemClick
-        Try
-            Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
-        Catch ex As Exception
-
-            MsgBox("Error in Save Regex1: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
-            Exit Sub
-        End Try
-
-        If MyDataset.TBGI_REGEX_DOCTYPE.GetChanges Is Nothing = False Then
-            Me.CHANGED_WHOTextBox1.Text = Environment.UserName
-            Try
-                Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
-            Catch ex As Exception
-
-                MsgBox("Error in Save Regex2: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
-
-            End Try
-            TBGI_REGEX_DOCTYPETableAdapter.Update(MyDataset.TBGI_REGEX_DOCTYPE)
-
-        End If
+    Private Sub BarButtonItem13_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs)
+        TBGI_REGEX_DOCTYPEBindingSource.AddNew()
    End Sub

-    Private Sub BarButtonItem14_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem14.ItemClick
+    Private Sub BarButtonItem15_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem15.ItemClick
+        frmConnections.ShowDialog()
+    End Sub
+
+    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        Try
-            Dim oSQL = $"DELETE FROM TBGI_REGEX_DOCTYPE WHERE GUID = {GUIDTextBox.Text}"
+            If Regex.IsMatch(TextBox1.Text, TextBox5.Text) Then
+                MsgBox("The RegEx resulted in a proper match!", MsgBoxStyle.Information, "Perfect:")
+            Else
+                MsgBox("No Match- There might be an error in the RegEx!", MsgBoxStyle.Information, "Something wrong:")
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Testing Regex: ")
+        End Try
+    End Sub
+
+    Private Sub ToolStripButton9_Click(sender As Object, e As EventArgs) 
+        Try
+            Dim oSQL = $"DELETE FROM TBGI_REGEX_DOCTYPE WHERE GUID = {TextBox3.Text}"
            If ClassDatabase.Execute_non_Query(oSQL, True) = True Then
-                Me.TBGI_REGEX_DOCTYPETableAdapter.Fill(Me.MyDataset.TBGI_REGEX_DOCTYPE)
+                Me.TBGI_REGEX_DOCTYPETableAdapter.Fill(Me.MyDataset.TBGI_REGEX_DOCTYPE, DOKART_GUIDTextBox.Text)
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Deleting Regex:")
        End Try
    End Sub

-    Private Sub BarButtonItem13_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem13.ItemClick
-        TBGI_REGEX_DOCTYPEBindingSource.AddNew()
+    Private Sub ToolStripButton10_Click(sender As Object, e As EventArgs) Handles ToolStripButton10.Click
+        Try
+            Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
+        Catch ex As Exception
+            MsgBox("Error in Save Regex1: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
+            Exit Sub
+        End Try
+
+        If MyDataset.TBGI_REGEX_DOCTYPE.GetChanges Is Nothing = False Then
+            TextBox4.Text = Environment.UserName
+            Try
+                Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
+            Catch ex As Exception
+                MsgBox("Error in Save Regex2: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
+            End Try
+            TBGI_REGEX_DOCTYPETableAdapter.Update(MyDataset.TBGI_REGEX_DOCTYPE)
+        End If
    End Sub
 End Class