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

MS

Browse Source
This commit is contained in:
SchreiberM
2017-02-02 17:13:17 +01:00
parent 6c1d38e67f
commit 20da19c9b0
31 changed files with 6850 additions and 4819 deletions
Download Patch File Download Diff File Expand all files Collapse all files

238
app/VERSION_CHECKER/frmVersionCheck.vb
View File

@@ -1,10 +1,13 @@
Imports System.ComponentModel
Imports System.IO
Imports DD_LIB_Standards
Public Class frmVersionCheck
Private InitSteps As Integer = 6
Private bw As New BackgroundWorker()
Private mainForm As Form
Private UPDATE_NECESSARY As Boolean = False
Private UPDATE_CANCELLED As Boolean = False
Private Sub InitProgram()
bw.WorkerReportsProgress = True
AddHandler bw.DoWork, AddressOf bw_DoWork
@@ -20,6 +23,7 @@ Public Class frmVersionCheck
Return _step * (100 / InitSteps)
End Function
Private Sub bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs)
Dim JUMP_UPDATE As Boolean = False
'Try
Dim Init = New ClassInit()
bw.ReportProgress(CalcProgress(1), "Initializing Logger")
@@ -35,12 +39,34 @@ Public Class frmVersionCheck
Init.InitBasics()
System.Threading.Thread.Sleep(200)
bw.ReportProgress(CalcProgress(4), "Initializing User-Configuration")
If ClassInit.InitUserLogin = False Then
If ClassInit.InitUser = False Then
Exit Sub
Else
VERSION_USER = CInt(VERSION_USER.ToString.Replace(".", ""))
VERSION_SERVER = CInt(VERSION_SERVER.ToString.Replace(".", ""))
If VERSION_USER = VERSION_SERVER Then
Exit Sub
End If
UPDATE_NECESSARY = True
If FORCE_UPDATE = False Then
If VERSIONS_FOR_FORCE_UPDATE.Contains(VERSION_USER) Then
ClassInit.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("VersionChecker: ForceUpdate for User as Version '{0}' is used!", VERSION_USER))
FORCE_UPDATE = True
End If
End If
If FORCE_UPDATE = False Then
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!"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.No Then
UPDATE_CANCELLED = True
Exit Sub
End If
End If
If MyServer_UpdatePath <> String.Empty Then
If Directory.Exists(MyServer_UpdatePath) Then
GetTempFolderGuid()
@@ -51,33 +77,29 @@ Public Class frmVersionCheck
' Get a reference to each file in that directory.
Dim fiArr As FileInfo() = di.GetFiles()
' Display the names of the files.
Dim fri As FileInfo
'Dim fri As FileInfo
Dim error_while_copying = False
For Each fri In fiArr
For Each Upd_item As DataRow In DT_UPDATE_ITEMS.Rows
If error_while_copying = True Then
Exit For
End If
Dim no_work = False
For Each row As DataRow In DTEXCLUDE_FILES.Rows
Dim content As String = row.Item(0).ToString.ToLower
If fri.Name.Contains(content) Then
no_work = True
End If
Next
If no_work = False Then 'Copy the file to tempFolder
Dim updatefile2copy = Path.Combine(MyServer_UpdatePath, Upd_item.Item("ITEM_INFO"))
Dim tempfilename = Path.Combine(FOLDER_TEMP, Upd_item.Item("ITEM_INFO"))
If File.Exists(updatefile2copy) Then
Try
System.IO.File.Copy(fri.FullName, Path.Combine(FOLDER_TEMP, fri.Name))
System.IO.File.Copy(updatefile2copy, tempfilename)
Catch ex As Exception
ClassLogger.Add(String.Format("Error while copying file {0} to {1}: " & ex.Message, fri.FullName, Path.Combine(FOLDER_TEMP, fri.Name)))
ClassLogger.Add(String.Format("Error while copying file {0} to {1}: " & ex.Message, updatefile2copy, tempfilename))
error_while_copying = True
End Try
If error_while_copying = False Then
End If
Else
ClassLogger.Add(String.Format("UpdateFile {0} is not existing or accessible", updatefile2copy))
End If
Console.WriteLine(fri.Name)
Next fri
Replace_Files()
Next
If error_while_copying = False Then
Replace_Files()
End If
Try
'Delete the tempfolder and all data
@@ -85,20 +107,19 @@ Public Class frmVersionCheck
Catch ex As Exception
End Try
Else
ClassLogger.Add(String.Format("The temporaryFolder could not be created!"))
End If
Else
ClassLogger.Add(String.Format("The Updatepath '{0}'is not accessible or does not exist", MyServer_UpdatePath))
End If
Else
ClassLogger.Add(String.Format("NO ACTION: the Updatepath is empty"))
End If
End If
System.Threading.Thread.Sleep(200)
bw.ReportProgress(CalcProgress(6), "Initializing Frontend")
' InitInterface wurde in frmMain integriert
'Init.InitInterface(mainForm)
System.Threading.Thread.Sleep(200)
Start_RO()
Else
ClassLogger.Add(String.Format(">> Database was not intialized!"), False)
End If
'Catch ex As Exception
' MsgBox("Unexpected Error in Init Classes: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -106,35 +127,129 @@ Public Class frmVersionCheck
End Sub
Sub Replace_Files()
Try
Dim ProductionPath As String = System.IO.Path.Combine(MY_ADDON_PATH, "Record Organizer")
Dim DevelPath As String = System.IO.Path.Combine(MY_ADDON_PATH, "DD-Record-Organiser\bin\Debug")
Dim COPY_FROM_PATH As String
If Directory.Exists(ProductionPath) Then
COPY_FROM_PATH = ProductionPath
Else
COPY_FROM_PATH = DevelPath
End If
'Jede Datei im tempfolder wird replaced
Dim di As New DirectoryInfo(FOLDER_TEMP)
' Get a reference to each file in that directory.
Dim fiArr As FileInfo() = di.GetFiles()
' Display the names of the files.
' Dim fri As FileInfo
Dim error_while_replacing = False
For Each Upd_item As DataRow In DT_UPDATE_ITEMS.Rows
Dim BackUpOfFileToReplace As String = MY_INSTALL_PATH & "\" & Upd_item.Item("ITEM_INFO") & ".bac"
Dim sourcefile = Path.Combine(FOLDER_TEMP, Upd_item.Item("ITEM_INFO"))
Dim targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("ITEM_INFO"))
Try
' Replace the file.
If File.Exists(targetfile) Then
If File_Rename(targetfile, BackUpOfFileToReplace) = True Then
If MoveFile(sourcefile, targetfile) = True Then
File_Delete(BackUpOfFileToReplace)
Else
'Verschieben hat nicht geklappt also die Backupdatei wieder umbenennen!
File_Rename(BackUpOfFileToReplace, targetfile)
End If
End If
Else
MoveFile(sourcefile, targetfile)
End If
Catch ex As Exception
ClassLogger.Add(String.Format("Error while copying file {0} to {1}: " & ex.Message, sourcefile, targetfile))
error_while_replacing = True
End Try
Next
'For Each fri In fiArr
' If error_while_replacing = True Then
' Exit For
' End If
' Dim no_work = False
' For Each row As DataRow In DTEXCLUDE_FILES.Rows
' Dim content As String = row.Item(0).ToString.ToLower
' If fri.Name.Contains(content) Then
' no_work = True
' End If
' Next
' If no_work = False Then 'Copy the file to tempFolder
' Try
' Dim BackUpOfFileToReplace As String = REPLACE_RO_PATH & "\" & fri.Name & ".bac"
' ' Replace the file.
' Dim sourcefile = fri.FullName
' Dim targetfile = REPLACE_RO_PATH & "\" & fri.Name
' If File.Exists(targetfile) Then
' If File_Rename(targetfile, BackUpOfFileToReplace) = True Then
' If MoveFile(sourcefile, targetfile) = True Then
' File.Delete(BackUpOfFileToReplace)
' Else
' File_Rename(BackUpOfFileToReplace, targetfile)
' End If
' End If
' Else
' MoveFile(sourcefile, targetfile)
' End If
' Catch ex As Exception
' ClassLogger.Add(String.Format("Error while copying file {0} to {1}: " & ex.Message, fri.FullName, Path.Combine(FOLDER_TEMP, fri.Name)))
' error_while_replacing = True
' End Try
' End If
' Console.WriteLine(fri.Name)
'Next fri
Catch ex As Exception
MsgBox("Unexpected Error in Replace_Files: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add(String.Format("Unexpected Error in Replace_Files: {0}", ex.Message))
End Try
End Sub
Sub Start_RO()
Private Shared Function File_Rename(targetfile As String, BackUpOfFileToReplace As String)
Try
Dim ProductionPath As String = System.IO.Path.Combine(MY_ADDON_PATH, "Record Organizer", "DD-Record-Organiser.exe")
Dim DevelPath As String = System.IO.Path.Combine(MY_ADDON_PATH, "DD-Record-Organiser\bin\Debug", "DD-Record-Organiser.exe")
If File.Exists(BackUpOfFileToReplace) Then
If File_Delete(BackUpOfFileToReplace) = False Then
Return False
End If
End If
Rename(targetfile, BackUpOfFileToReplace)
Return True
Catch ex As Exception
ClassLogger.Add(String.Format("Unexpected Error in File_Rename: " & vbNewLine & "targetfile '{0}'" & vbNewLine & "BackUpOfFileToReplace '{1}'" & vbNewLine & "ERROR: {2}", targetfile, BackUpOfFileToReplace, ex.Message))
Return False
End Try
End Function
Private Shared Function File_Delete(deletefile As String)
Try
File.Delete(deletefile)
Return True
Catch ex As Exception
ClassLogger.Add(String.Format("Unexpected Error in File_Delete: " & vbNewLine & "deletefile '{0}'" & vbNewLine & "ERROR: {2}", deletefile, ex.Message))
Return False
End Try
End Function
Private Shared Function MoveFile(sourcefile As String, targetfile As String)
Try
File.Move(sourcefile, targetfile)
Return True
Catch ex As Exception
ClassLogger.Add(String.Format("Unexpected Error in MoveFile: sourcefile '{0}', targetfile '{1}' - ERROR: {2}", sourcefile, targetfile, ex.Message))
Return False
End Try
End Function
Sub Start_RO()
Dim filename = ""
Try
Dim PMO_PATH = System.IO.Path.Combine(MY_INSTALL_PATH, "DD-Record-Organizer.exe")
Dim startInfo As New ProcessStartInfo()
startInfo.Arguments = """" & MyConnectionString & """"
filename = startInfo.FileName
If System.IO.File.Exists(ProductionPath) Then
startInfo.FileName = ProductionPath
If System.IO.File.Exists(PMO_PATH) Then
startInfo.FileName = PMO_PATH
Process.Start(startInfo)
Else
startInfo.FileName = DevelPath
MsgBox("Can not find ADDI-Executable in '" & filename & "'! Please inform your systemadmin.", MsgBoxStyle.Critical)
End If
Process.Start(startInfo)
Catch ex As Exception
MsgBox("Could not find Right manager: " & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Could not find RecordOrganizer: " & filename & " - " & ex.Message)
End Try
End Sub
@@ -149,8 +264,37 @@ Public Class frmVersionCheck
ClassLogger.Add(String.Format("Error while Creating tempfolder: " & ex.Message))
End Try
End Function
Private Sub frmVersionCheck_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
If ERROR_WHILE_UPDATING = 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?", 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?", VERSION_SERVER)
End If
ClassInit.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("Unexpected errors occured during client-update update of version '{0}'!", VERSION_SERVER))
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Process.Start(ClassLogger.DateiSpeicherort)
End If
Else
If UPDATE_NECESSARY = True Then
If UPDATE_CANCELLED = True Then
If clsDatabase.DB_DEFAULT_INITIALIZED = True Then
ClassInit.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("The ClientUpdate {0} is necessary but user cancelled update-process!", VERSION_SERVER))
End If
Else
If clsDatabase.DB_DEFAULT_INITIALIZED = True Then
ClassInit.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("The ClientUpdate {0} was completed without errors!", VERSION_SERVER))
End If
End If
End If
End If
Start_RO()
End Sub
Private Sub frmVersionCheck_Load(sender As Object, e As EventArgs) Handles Me.Load
InitProgram()
End Sub