Imports System.Xml
Imports System.IO
Imports System.Reflection

Public Class Parameters
    Dim sconnectionstringEDOKA As String
    Property ConnectionStringEDOKA() As String
        Get
            Return sconnectionstringEDOKA
        End Get
        Set(ByVal value As String)
            sconnectionstringEDOKA = value
        End Set
    End Property
    Dim sconnectionstringEDOKA_HOST As String
    Property ConnectionStringEDOKA_HOST() As String
        Get
            Return sconnectionstringEDOKA_HOST
        End Get
        Set(ByVal value As String)
            sconnectionstringEDOKA_HOST = value
        End Set
    End Property
    Dim sconnectionstringEDOKA_ZV As String
    Property ConnectionStringEDOKA_ZV() As String
        Get
            Return sconnectionstringEDOKA_ZV
        End Get
        Set(ByVal value As String)
            sconnectionstringEDOKA_ZV = value
        End Set
    End Property
    Dim sconnectionstringColdabgleich As String
    Property ConnectionStringColdabgleich() As String
        Get
            Return sconnectionstringColdabgleich
        End Get
        Set(ByVal value As String)
            sconnectionstringColdabgleich = value
        End Set
    End Property

    Dim mtmppath As String
    Property TMPPath() As String
        Get
            Return mtmppath
        End Get
        Set(ByVal value As String)
            mtmppath = value
        End Set
    End Property
    Dim sconnectiontmphost As String
    Property ConnectionStringTmpHost() As String
        Get
            Return sconnectiontmphost
        End Get
        Set(ByVal value As String)
            sconnectiontmphost = value

        End Set
    End Property


    Dim xmldoc As New XmlDocument

    Public Sub New()
        xmldoc.Load(Me.ApplicationPath + "Parameters.xml")
        Me.ConnectionStringEDOKA = xmldoc.SelectSingleNode("/Configuration/SQLConnEDOKA").InnerText
        Me.ConnectionStringEDOKA_HOST = xmldoc.SelectSingleNode("/Configuration/SQLConnHOST").InnerText
        Me.ConnectionStringEDOKA_ZV = xmldoc.SelectSingleNode("/Configuration/SQLConnZV").InnerText
        Me.ConnectionStringColdabgleich = xmldoc.SelectSingleNode("/Configuration/SQLConnColdabgleich").InnerText
        'Me.ConnectionStringTmpHost = xmldoc.SelectSingleNode("/Configuration/SQLConnTmpHost").InnerText
        Me.TMPPath = xmldoc.SelectSingleNode("/Configuration/TMPPath").InnerText
    End Sub

    Public Function ApplicationPath() As String
        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
    End Function

End Class