fix status messages, fix changed_who being set on insert, fix added_when being empty for postprocessing

Global_Indexer/frmAdministration.vb

@@ -189,7 +189,9 @@ Public Class frmAdministration
             End Try
 
             If MyDataset.TBDD_DOKUMENTART.GetChanges Is Nothing = False Then
+                If Not IsInsert Then
                     Me.GEANDERTWERTextBox.Text = Environment.UserName
+                End If
 
                 Try
                     Me.TBDD_DOKUMENTARTBindingSource.EndEdit()
@@ -214,7 +216,9 @@ Public Class frmAdministration
                     End If
                 End If
 
-                txtStatus.Caption = $"Profil gespeichert - {Now.ToString}"
+                SetStatus("Profil gespeichert!")
+            Else
+                ClearStatus()
             End If
             IsInsert = False
         Catch ex As Exception
@@ -412,12 +416,15 @@ Public Class frmAdministration
     End Sub
     Sub Save_IndexMan()
         Try
+            If Not IsInsert Then
+                CHANGED_WHOTextBox.Text = Environment.UserName
+            End If
+
             Me.TBDD_INDEX_MANBindingSource.EndEdit()
             If MyDataset.TBDD_INDEX_MAN.GetChanges Is Nothing = False Then
-                CHANGED_WHOTextBox.Text = Environment.UserName
                 Me.TBDD_INDEX_MANBindingSource.EndEdit()
                 TBDD_INDEX_MANTableAdapter.Update(MyDataset.TBDD_INDEX_MAN)
-                SetStatus("Index erfolgreich gespeichert!")
+                SetStatus("Manueller Index erfolgreich gespeichert!")
             Else
                 ClearStatus()
             End If
@@ -433,7 +440,9 @@ Public Class frmAdministration
                 CHANGED_WHOTextBox3.Text = Environment.UserName
                 Me.TBDD_INDEX_AUTOMBindingSource.EndEdit()
                 TBDD_INDEX_AUTOMTableAdapter.Update(MyDataset.TBDD_INDEX_AUTOM)
-                SetStatus("Index erfolgreich gespeichert!")
+                SetStatus("Automatischer Index erfolgreich gespeichert!")
+            Else
+                ClearStatus()
             End If
             IsInsert = False
         Catch ex As Exception
@@ -811,15 +820,21 @@ Public Class frmAdministration
     End Sub
     Sub Save_PostProcessing()
         Try
+            If Not IsInsert Then
+                CHANGED_WHOTextBox4.Text = Environment.UserName
+            End If
+
             TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit()
             If MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.GetChanges Is Nothing = False Then
-                CHANGED_WHOTextBox4.Text = Environment.UserName
+
                 TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit()
                 Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Update(MyDataset.TBDD_INDEX_MAN_POSTPROCESSING)
-                SetStatus("Funktion erfolgreich gespeichert!")
+                SetStatus("Nachbearbeitungsfunktion erfolgreich gespeichert!")
             Else
                 ClearStatus()
             End If
+
+            IsInsert = False
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Save Post Processing: ")
         End Try
@@ -828,9 +843,11 @@ 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(XtraTabPageManualIndexFunctions)
+        MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn.DefaultValue = DateTime.Now
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn.DefaultValue = Environment.UserName
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn.DefaultValue = 1
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn.DefaultValue = "Funktions Name"
+        IsInsert = True
     End Sub
     Sub EnableControls(Control As Control, Optional Value As Boolean = True)
         For Each oSubControl As Control In Control.Controls
@@ -868,7 +885,8 @@ Public Class frmAdministration
             txtcrFoldermanuell.Text = ""
         End If
         Me.TBDD_DOKUMENTARTTableAdapter.cmdUpdateFolderIndex(Environment.UserName, FOLDER_FOR_INDEXTextBox.Text, DOKART_GUIDTextBox.Text)
-        txtStatus.Caption = $"Profil gespeichert - {Now.ToString}"
+
+        SetStatus("Profil gespeichert")
     End Sub
     Private Sub cmbCrFolderIndex_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbCrFolderIndex.SelectedIndexChanged
         cmbCrFolderDate.SelectedIndex = -1
@@ -1002,6 +1020,8 @@ Public Class frmAdministration
 
         TextBox5.Enabled = True
         TextBox1.Enabled = True
+
+        IsInsert = True
     End Sub
 
     Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
@@ -1178,6 +1198,10 @@ Public Class frmAdministration
     End Sub
 
     Private Sub BarButtonItem13_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem13.ItemClick
+        If Not IsInsert Then
+            TextBox4.Text = Environment.UserName
+        End If
+
         Try
             Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
         Catch ex As Exception
@@ -1186,14 +1210,18 @@ Public Class frmAdministration
         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)
+            SetStatus("Profilzuordnung gespeichert!")
+        Else
+            ClearStatus()
         End If
+
+        IsInsert = False
     End Sub
 
     Private Sub BarButtonItem14_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem14.ItemClick