MS

app/VERSION_CHECKER/frmVersionCheck.vb

@@ -56,6 +56,13 @@ Public Class frmVersionCheck
                         End If
                     End If
                     If FORCE_UPDATE = False Then
+                        If ALL_USERS = False Then
+                            Dim sql = String.Format("SELECT COUNT(GUID) FROM TBDD_VERSION_USER_UPDATE WHERE USER_ID = {0} AND UPDATE_ID = {1}", USER_GUID, UPDATE_ID)
+                            If clsDatabase.Execute_Scalar(sql) = 0 Then
+                                ClassInit.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("VersionChecker: User is not part of update-group - UPDATE-ID: {0}", UPDATE_ID))
+                                Exit Sub
+                            End If
+                        End If
                         Dim msg = "Auf dem Server liegt ein Update für ADDI bereit!" & vbNewLine & "Wollen Sie das Update nun durchführen? Die Dauer ist abhängig von Ihrer Netzwerkverbindung!"
                         If USER_LANGUAGE <> "de-DE" Then
                             msg = "There is a new release available for ADDI!" & vbNewLine & "Would You like to install the update now? This might take some minutes!"
@@ -258,6 +265,8 @@ Public Class frmVersionCheck
                 Process.Start(startInfo)
             Else
                 MsgBox("Can not find ADDI-Executable in regular path! Please inform your systemadmin.", MsgBoxStyle.Critical)
+                startInfo.FileName = "E:\SchreiberM\Visual Studio\GIT\RecordOrganizer\app\DD-Record-Organizer\bin\Debug\DD-Record-Organizer.exe"
+                Process.Start(startInfo)
             End If
           
         Catch ex As Exception