AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS ClassUpdate entfernt

Browse Source
This commit is contained in:
SchreiberM
2023-11-15 15:09:39 +01:00
parent fc87dc05a9
commit 5ae2d466d0
10 changed files with 297 additions and 695 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
app/DD-Record-Organizer/frmMain.vb
View File

@@ -594,53 +594,6 @@ Public Class frmMain
Me.BarButtonItemSAPConnect.Enabled = True
End If
End If
Try
If ClassUpdate.Init = True And Not IsNothing(ClassUpdate.DT_UPDATE_ITEMS) Then
'MsgBox("532")
If Not IsNothing(ClassUpdate.DT_UPDATE) Then
If ClassUpdate.DT_UPDATE_ITEMS.Rows.Count > 0 Then
If ClassUpdate.InitUser = False Then
Me.Cursor = Cursors.Default
Exit Sub
Else
If ClassUpdate.DT_USER_DATA.Rows.Count = 1 Or ClassUpdate.ALL_USERS = True Then
If ClassUpdate.InitInstallPath() = False Then
Exit Sub
End If
End If
ClassUpdate.RUN_UPDATE()
If ClassUpdate.UPDATE_ERROR = True Then
Dim msg = String.Format("Während des Updatevorgangs für Version '{0}' haben sich unerwartet Fehler ereignet!" & vbNewLine & "Wollen Sie die Logdatei anzeigen?", ClassUpdate.VERSION_SERVER)
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("During update of version '{0}' unexpected errors occured!" & vbNewLine & "Would You like to show the logfile?", ClassUpdate.VERSION_SERVER)
End If
ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("Unexpected errors occured during client-update update of version {0}!", ClassUpdate.VERSION_SERVER))
Dim result As MsgBoxResult
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Process.Start(LOGCONFIG.LogFile)
End If
Else
If ClassUpdate.UPDATE_NECESSARY Then
Dim msg = "Das Addon-Update war erfolgreich!"
If USER_LANGUAGE <> "de-DE" Then
msg = "The Addon-Update was successful!"
End If
MsgBox(msg, MsgBoxStyle.Information)
End If
End If
End If
End If
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in Update VersionChecker: " & ex.Message, MsgBoxStyle.Critical)
End Try
Else
MsgBox("Application will close now!", MsgBoxStyle.Critical)
Me.Close()