MS
This commit is contained in:
SchreiberM
@@ -6,7 +6,7 @@ Public Class ClassInit
|
||||
End Sub
|
||||
|
||||
Public Sub InitLogger()
|
||||
ClassLogger.Init("", "VersionChecker")
|
||||
ClassLogger.Init("", "")
|
||||
clsLogger.LOGFILE_PATH = ClassLogger.logDateiname
|
||||
End Sub
|
||||
|
||||
@@ -24,31 +24,40 @@ Public Class ClassInit
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in Init Database:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Unexpected Error in InitDatabase: " & ex.Message, True)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
Public Sub InitBasics()
|
||||
Try
|
||||
InitAddons()
|
||||
Dim sql = String.Format("SELECT * FROM TBPMO_KONFIGURATION WHERE GUID = 1")
|
||||
Dim UPDATE_ID As Integer
|
||||
InitInstallPath()
|
||||
Dim sql = String.Format("SELECT * FROM TBDD_MODULES WHERE UPPER(NAME) = ('Record-Organizer')")
|
||||
Dim KONFIG_DT As DataTable = clsDatabase.Return_Datatable(sql, False)
|
||||
If KONFIG_DT.Rows.Count = 1 Then
|
||||
Try
|
||||
MyServer_UpdatePath = KONFIG_DT.Rows(0).Item("UPDATE_PATH")
|
||||
VERSION_SERVER = KONFIG_DT.Rows(0).Item("VERSION_CLIENT")
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
MyServer_UpdatePath = KONFIG_DT.Rows(0).Item("VERSION_UPATE_PATH")
|
||||
End If
|
||||
sql = String.Format("SELECT * FROM TBDD_VERSION_UPDATE WHERE GUID = (SELECT MAX(GUID) FROM TBDD_VERSION_UPDATE WHERE UPPER(MODULE_NAME) = UPPER('{0}'))", "Record-Organizer")
|
||||
Dim DT_UPDATE As DataTable = clsDatabase.Return_Datatable(sql, False)
|
||||
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")
|
||||
sql = String.Format("SELECT * FROM TBDD_VERSION_ITEMS WHERE UPDATE_ID = {0} ORDER BY GUID", UPDATE_ID)
|
||||
DT_UPDATE_ITEMS = clsDatabase.Return_Datatable(sql)
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in InitBasics:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Unexpected Error in InitBasics: " & ex.Message, True)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Function InitUserLogin(Optional _User As String = "")
|
||||
Public Shared Function InitUser(Optional _User As String = "")
|
||||
Try
|
||||
Dim sql = ""
|
||||
USER_USERNAME = Environment.UserName
|
||||
@@ -63,63 +72,55 @@ Public Class ClassInit
|
||||
Return False
|
||||
Else
|
||||
USER_GUID = USER_DT.Rows(0).Item("GUID")
|
||||
sql = String.Format("SELECT UPDATE_PATH FROM TBPMO_USER_UPDATE_PATH WHERE USER_ID = {0}", USER_GUID)
|
||||
USER_LANGUAGE = USER_DT.Rows(0).Item("LANGUAGE")
|
||||
sql = String.Format("SELECT UPDATE_PATH FROM TBDD_VERSION_USER_UPDATE_PATH WHERE USER_ID = {0} AND UPPER(MODULE_NAME) = UPPER('{1}')", USER_GUID, "Record-Organizer")
|
||||
Dim USER_UPDATE_PATH = clsDatabase.Execute_Scalar(sql)
|
||||
If Not IsNothing(USER_UPDATE_PATH) Then
|
||||
If USER_UPDATE_PATH <> String.Empty Then
|
||||
MyServer_UpdatePath = USER_UPDATE_PATH
|
||||
End If
|
||||
End If
|
||||
sql = String.Format("SELECT CASE VERSION_CLIENT WHEN '' THEN '1.0.0.0' ELSE VERSION_CLIENT END AS VERSION_CLIENT FROM VWDD_LOGIN_USER_HISTORY WHERE GUID = (select MAX(GUID) from VWDD_LOGIN_USER_HISTORY where USER_ID = {0} AND VERSION_CLIENT <> '')", USER_GUID)
|
||||
sql = String.Format("SELECT CASE VERSION_CLIENT WHEN '' THEN '1.0.0.0' ELSE VERSION_CLIENT END AS VERSION_CLIENT FROM VWDD_LOGIN_USER_HISTORY WHERE GUID = (select MAX(GUID) from VWDD_LOGIN_USER_HISTORY where USER_ID = {0} AND VERSION_CLIENT <> '' AND UPPER(MACHINE_NAME) = UPPER('{1}') AND UPPER(MODULE) = UPPER('{2}'))", USER_GUID, Environment.MachineName, "Record-Organizer")
|
||||
VERSION_USER = clsDatabase.Execute_Scalar(sql)
|
||||
If IsNothing(VERSION_USER) Then
|
||||
sql = String.Format("SELECT CASE VERSION_CLIENT WHEN '' THEN '1.0.0.0' ELSE VERSION_CLIENT END AS VERSION_CLIENT FROM VWDD_LOGIN_USER_HISTORY WHERE GUID = (select MAX(GUID) from VWDD_LOGIN_USER_HISTORY where USER_ID = {0} AND VERSION_CLIENT <> '' AND UPPER(MODULE) = UPPER('{1}'))", USER_GUID, "Record-Organizer")
|
||||
VERSION_USER = clsDatabase.Execute_Scalar(sql)
|
||||
If IsNothing(VERSION_USER) Then
|
||||
VERSION_USER = "1.0.0.0"
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Return True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True)
|
||||
MsgBox("Unexpected Error in InitUserLogin: " & ex.Message, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Unexpected Error in InitUser_Update_Spec: " & ex.Message, True)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Public Sub InitAddons()
|
||||
Public Sub InitInstallPath()
|
||||
Try
|
||||
Dim CurrentDir As String = My.Application.Info.DirectoryPath
|
||||
' Dim Sql As String = "SELECT PATH_ADDONS from TBPMO_KONFIGURATION WHERE GUID = 1"
|
||||
Dim AddonPath As String = MY_ADDON_PATH ' ClassDatabase.Execute_Scalar(Sql)
|
||||
Dim Dev_AddonPath As String = System.IO.Path.GetFullPath(System.IO.Path.Combine(CurrentDir, "..\..\..\..\app"))
|
||||
|
||||
If AddonPath Is Nothing OrElse AddonPath = "" Then
|
||||
' Addon Pfad in der Datenbank ist leer
|
||||
Dim path = System.IO.Path.Combine(CurrentDir, "Addons")
|
||||
Dim AddonDir As New DirectoryInfo(path)
|
||||
|
||||
If AddonDir.Exists Then
|
||||
AddonPath = path
|
||||
Else
|
||||
AddonPath = Dev_AddonPath
|
||||
End If
|
||||
Dim readValue = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Digital Data\Record Organizer", "Path", Nothing)
|
||||
If Not IsNothing(readValue) Then
|
||||
MY_INSTALL_PATH = readValue
|
||||
Else
|
||||
' Addon Pfad steht in der Datenbank
|
||||
Dim path = AddonPath
|
||||
Dim AddonDir As New DirectoryInfo(path)
|
||||
|
||||
If (AddonDir.Exists) Then
|
||||
If AddonDir.Name = "Addons" Then
|
||||
AddonPath = path
|
||||
Else
|
||||
AddonPath = Dev_AddonPath
|
||||
End If
|
||||
Else
|
||||
AddonPath = Dev_AddonPath
|
||||
End If
|
||||
MY_INSTALL_PATH = readValue = ""
|
||||
End If
|
||||
|
||||
MY_ADDON_PATH = AddonPath
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in InitAddons:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Unexpected Error in InitInstallPath: " & ex.Message, True)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Shared Function InsertEssential_Log(REFERENCE_KEY As Integer, REFERENCE_STRING As String, COMMENT As String)
|
||||
Try
|
||||
Dim insert = String.Format("INSERT INTO TBPMO_LOG_ESSENTIALS (REFERENCE_KEY,REFERENCE_STRING,COMMENT,ADDED_WHO) VALUES ({0},'{1}','{2}','{3}')", REFERENCE_KEY, REFERENCE_STRING, COMMENT, USER_USERNAME)
|
||||
Return clsDatabase.Execute_non_Query(insert, False)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in InsertEssential_Log: " & ex.Message, True)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user