Initial commit

ColdAbgleich/.svn/pristine/42/42afc2d34d487ee3e72d063b3903cdbaf6bff0ac.svn-base

@@ -0,0 +1,80 @@
+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