MS

app/DD_PM_WINDREAM/frmAdministration.vb

@@ -1127,7 +1127,12 @@ Public Class frmAdministration
         If TBPM_PROFILETableAdapter.cmdAnzProfile + 1 > LICENSE_PROFILES Then
             MsgBox("Sie haben die maximale Anzahl (" & LICENSE_PROFILES & ") von lizensierten Profilen erreicht!" & vbNewLine & "Bitte löschen Sie Profile oder setzen sich mit Digital Data in Verbindung!", MsgBoxStyle.Exclamation, "Achtung Lizenzhinweis:")
         Else
-            TBPM_PROFILEBindingSource.AddNew()
+            Try
+                TBPM_PROFILEBindingSource.AddNew()
+            Catch ex As Exception
+                LOGGER.Error(ex)
+            End Try
+
         End If
     End Sub