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

ms

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-07-26 11:09:38 +02:00
parent 0f8f8ddf65
commit 3ae24fe471
35 changed files with 59894 additions and 1899 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
app/VERSION_CHECKER/ClassInit.vb
View File

@@ -44,6 +44,7 @@ Public Class ClassInit
If Not IsNothing(DT_UPDATE) Then
If DT_UPDATE.Rows.Count = 1 Then
UPDATE_ID = DT_UPDATE.Rows(0).Item("GUID")
VERSION_SERVER = DT_UPDATE.Rows(0).Item("VERSION_NO")
FORCE_UPDATE = DT_UPDATE.Rows(0).Item("FORCE_UPD")
VERSIONS_FOR_FORCE_UPDATE = DT_UPDATE.Rows(0).Item("VERSION_FORCE_UPD")

2
app/VERSION_CHECKER/ClassLogger.vb
View File

@@ -70,7 +70,7 @@ Public Class ClassLogger
Else
ClassLogger.StreamWriter.WriteLine(Now.ToString & " " & information)
ClassLogger.StreamWriter.WriteLine(Now.ToString & " >>" & information)
End If
ClassLogger.CloseFile()
Catch e As Exception

2
app/VERSION_CHECKER/ModuleMySettings.vb
View File

@@ -145,7 +145,7 @@ Module ModuleMySettings
Catch ex As Exception
MsgBox("Error in GetTablefromXML" & vbNewLine & ex.Message & vbNewLine & "ConfigPath: " & vbNewLine & path, MsgBoxStyle.Critical)
ClassLogger.Add("Error in GetTablefromXML: " & ex.Message, True)
ClassLogger.Add(">> ConfigPath: " & ConfigPath, False)
ClassLogger.Add("ConfigPath: " & ConfigPath, False)
Return Nothing
End Try

4
app/VERSION_CHECKER/My Project/AssemblyInfo.vb
View File

@@ -18,7 +18,7 @@ Imports System.Runtime.InteropServices
<Assembly: ComVisible(False)>
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
<Assembly: Guid("e7ddda8e-3304-4845-a610-700bc7717461")>
<Assembly: Guid("e7ddda8e-3304-4845-a610-700bc7717461")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyVersion("1.1.0.1")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

36
app/VERSION_CHECKER/frmVersionCheck.vb
View File

@@ -9,6 +9,7 @@ Public Class frmVersionCheck
Private UPDATE_NECESSARY As Boolean = False
Private UPDATE_CANCELLED As Boolean = False
Private Shared myRow As String
Private DBNOTINITIALIZED As Boolean = False
Private Sub InitProgram()
bw.WorkerReportsProgress = True
AddHandler bw.DoWork, AddressOf bw_DoWork
@@ -52,7 +53,7 @@ Public Class frmVersionCheck
VERSION_USER = CInt(VERSION_USER.ToString.Replace(".", ""))
VERSION_SERVER = CInt(VERSION_SERVER.ToString.Replace(".", ""))
myRow = 54
If (VERSION_USER = VERSION_SERVER) Or VERSION_SERVER = 1000 Or VERSION_USER = 1000 Then
If (VERSION_USER >= VERSION_SERVER) Or VERSION_SERVER = 1000 Or VERSION_USER = 1000 Then
Exit Sub
End If
UPDATE_NECESSARY = True
@@ -64,6 +65,7 @@ Public Class frmVersionCheck
FORCE_UPDATE = True
End If
End If
ClassLogger.Add("Using VersionChecker-Version: " & Application.ProductVersion.ToString, False)
If FORCE_UPDATE = False Then
myRow = 68
If ALL_USERS = False Then
@@ -105,7 +107,9 @@ Public Class frmVersionCheck
Exit For
End If
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(updatefile2copy, tempfilename)
@@ -141,10 +145,11 @@ Public Class frmVersionCheck
End If
Else
ClassLogger.Add(String.Format(">> Database was not intialized!"), False)
ClassLogger.Add(String.Format("Database was not intialized!"), False)
DBNOTINITIALIZED = True
End If
Catch ex As Exception
ClassLogger.Add(String.Format(">> Unexpected Error in bwDoWork: " & ex.Message))
ClassLogger.Add(String.Format("Unexpected Error in bwDoWork: " & ex.Message))
ClassLogger.Add("myRow: " & myRow, False)
End Try
End Sub
@@ -275,23 +280,40 @@ Public Class frmVersionCheck
Sub Start_RO()
Dim filename = ""
Try
Dim PMO_PATH = System.IO.Path.Combine(MY_INSTALL_PATH, "DD-Record-Organizer.exe")
Dim PMO_PATH
If DBNOTINITIALIZED = True And MY_INSTALL_PATH = String.Empty Then
ClassLogger.Add("Trying to find RecordOrganizer Exe.....", False)
PMO_PATH = System.IO.Path.Combine("D:\Program Files\Digital Data\Record Organizer", "DD-Record-Organizer.exe")
If Not File.Exists(PMO_PATH) Then
PMO_PATH = System.IO.Path.Combine("C:\Program Files (x86)\Digital Data\Record Organizer", "DD-Record-Organizer.exe")
If Not File.Exists(PMO_PATH) Then
Else
ClassLogger.Add("RecordOrganizer Exe located in : " & PMO_PATH, False)
End If
Else
ClassLogger.Add("RecordOrganizer Exe located in : " & PMO_PATH, False)
End If
Else
PMO_PATH = System.IO.Path.Combine(MY_INSTALL_PATH, "DD-Record-Organizer.exe")
End If
myRow = "274"
Dim startInfo As New ProcessStartInfo()
startInfo.Arguments = """" & MyConnectionString & """"
filename = startInfo.FileName
If System.IO.File.Exists(PMO_PATH) Then
myRow = "280"
myRow = "299"
startInfo.FileName = PMO_PATH
myRow = "282 - " & PMO_PATH
myRow = "301 - " & PMO_PATH
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
ClassLogger.Add("Could not find RecordOrganizer: " & filename & " - " & ex.Message)
ClassLogger.Add("myRow: " & myRow.ToString, False)