MS

app/DD-Record-Organizer/frmMain.vb

@@ -347,7 +347,9 @@ Public Class frmMain
 
                     image2 = Nothing
                 Next
-
+            Else
+                MsgBox("No consturctors configured for user!", MsgBoxStyle.Information)
+                Clipboard.SetText(SQL2)
             End If
 
             Dim sql = "SELECT COUNT(GUID) FROM TBPMO_USER_GLOBAL_SEARCH WHERE USER_ID = " & USER_GUID
@@ -491,18 +493,22 @@ Public Class frmMain
     Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         Try
             Me.Cursor = Cursors.WaitCursor
+
             If ERROR_INIT <> "INVALID USER" Then
+
                 If Task_Popup_minutes <> 0 Then
                     TimerTasks.Start()
                     Refresh_TaskReminder()
                 End If
 
                 RUN_TIMER()
+
                 If Sett_ConstructorStart <> 0 Then
                     Cursor = Cursors.WaitCursor
                     OpenFormConstructor(Sett_ConstructorStart)
                     Cursor = Cursors.Default
                 End If
+
                 'Lizenz abgellaufen, überprüfen ob User Admin ist
                 If LICENSE_COUNT < USERS_LOGGED_IN Then
                     If USER_IS_ADMIN = True Then
@@ -525,6 +531,7 @@ Public Class frmMain
                 End If
                 Try
                     If ClassUpdate.Init = True And Not IsNothing(ClassUpdate.DT_UPDATE_ITEMS) Then
+                        'MsgBox("532")
                         If Not IsNothing(ClassUpdate.DT_UPDATE) And Not IsNothing(ClassUpdate.DT_UPDATE_ITEMS) Then
                             If ClassUpdate.DT_UPDATE_ITEMS.Rows.Count > 0 Then
                                 If ClassUpdate.InitUser = False Then
@@ -566,9 +573,10 @@ Public Class frmMain
                 MsgBox("Application will close now!", MsgBoxStyle.Critical)
                 Me.Close()
             End If
-
+            ' MsgBox("574")
             Dim myversion = CInt(My.Application.Info.Version.ToString.Replace(".", ""))
             Dim minreqver = CInt(MIN_REQUIRED_VERSION.Replace(".", ""))
+            '   MsgBox("577")
             If myversion < minreqver Then
                 MsgBox(String.Format("Your version '{0}' does not match the minimum required version and needs to be updated! Please contact Your systemadministrator!" & vbNewLine & "Application will close now.", My.Application.Info.Version.ToString), MsgBoxStyle.Exclamation)
                 Me.Close()