Update 2024-01-10

DPM2016/Klassen/clsStammdaten_flat.vb

@@ -172,6 +172,7 @@ Public Class clsStammdaten_flat
         Catch ex As Exception
 
         End Try
+        Globals.ToastInfo.ShowSaveMesasge(Me)
         'MsgBox("Daten wurden gespeichert")
     End Sub
 
@@ -208,14 +209,27 @@ Public Class clsStammdaten_flat
 
     Private Sub c1daten_AfterInsert(sender As Object, e As EventArgs) Handles c1daten.AfterInsert
         Try
-            'Me.c1daten.Columns("erstellt_am").Value = Now
-            'Me.c1daten.Columns("mutiert_am").Value = Now
-            'Me.c1daten.Columns("mutierer").Value = Globals.ActUser
-            'Me.c1daten.Columns("aktiv").Value = True
-            'Me.c1daten.Columns("Mandant").Value = Globals.Mandant
-        Catch ex As Exception
-
+            Me.c1daten.Columns("erstellt_am").Value = Now
+        Catch
         End Try
+
+        Try
+            Me.c1daten.Columns("mutiert_am").Value = Now
+        Catch
+        End Try
+        Try
+            Me.c1daten.Columns("mutierer").Value = Globals.ActUser
+        Catch
+        End Try
+        Try
+            Me.c1daten.Columns("aktiv").Value = True
+        Catch
+        End Try
+        Try
+            Me.c1daten.Columns("Mandant").Value = Globals.Mandant
+        Catch
+        End Try
+
     End Sub
 
     Private Sub c1daten_DoubleClick(sender As Object, e As EventArgs) Handles c1daten.DoubleClick
@@ -507,4 +521,16 @@ Public Class clsStammdaten_flat
     Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
 
     End Sub
+
+    Private Sub c1daten_AfterColUpdate(sender As Object, e As ColEventArgs) Handles c1daten.AfterColUpdate
+
+        Try
+            Me.c1daten.Columns("mutiert_am").Value = Now
+        Catch
+        End Try
+        Try
+            Me.c1daten.Columns("mutierer").Value = Globals.ActUser
+        Catch
+        End Try
+    End Sub
 End Class