Imports System.ComponentModel
Imports System.IO
Imports DD_LIB_Standards
Public Class ClassInit
    Public Sub New()
    End Sub

    Public Sub InitLogger()
        ClassLogger.Init("", "VersionChecker")
        clsLogger.LOGFILE_PATH = ClassLogger.logDateiname
    End Sub

    Public Function InitDatabase()
        Try
            Dim dbResult As Boolean
            clsDatabase.GUI = True
            If MyConnectionString <> String.Empty Then
                dbResult = clsDatabase.Init(MyConnectionString)
                Return dbResult
            Else

                Return False

            End If

        Catch ex As Exception
            MsgBox("Unexpected Error in Init Database:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            Return False
        End Try

    End Function
    Public Sub InitBasics()
        Try
            InitAddons()
            Dim sql = String.Format("SELECT * FROM TBPMO_KONFIGURATION WHERE GUID = 1")
            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

            End If
        Catch ex As Exception
            MsgBox("Unexpected Error in InitBasics:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub

    Public Shared Function InitUserLogin(Optional _User As String = "")
        Try
            Dim sql = ""
            USER_USERNAME = Environment.UserName
            sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", USER_USERNAME)
            Dim USER_DT As DataTable = clsDatabase.Return_Datatable(sql, True)
            If USER_DT.Rows.Count = 0 Then
                ClassLogger.Add(" - User '" & USER_USERNAME & "' not listed in Useradministration!", False)
                'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
                'Me.Close()
                Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
                MsgBox(msg, MsgBoxStyle.Exclamation)
                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)
                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)
                VERSION_USER = clsDatabase.Execute_Scalar(sql)
                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)
            Return False
        End Try

    End Function

    Public Sub InitAddons()
        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
            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
            End If

            MY_ADDON_PATH = AddonPath
        Catch ex As Exception
            MsgBox("Unexpected Error in InitAddons:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
  

End Class