MS Config

GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.vb

@@ -18,7 +18,13 @@ Public Class frmAdmin_IDBEntity
 
     Private Sub frmAdmin_IDBEntity_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
-            TBIDB_BUSINESS_ENTITYTableAdapter.Fill(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY, PrimaryKey)
+            If IsInsert Then
+                DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName
+                TBIDB_BUSINESS_ENTITYBindingSource.AddNew()
+            Else
+                TBIDB_BUSINESS_ENTITYTableAdapter.Fill(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY, PrimaryKey)
+            End If
+
         Catch ex As Exception
             ShowErrorMessage(ex)
         End Try
@@ -44,7 +50,7 @@ Public Class frmAdmin_IDBEntity
         ResetMessages()
 
         If SaveData() And HasChanges Then
-            ShowStatus("Attribute gespeichert!")
+            ShowStatus("Business Entity saved!")
         End If
     End Sub