Initial commit

Archiv/EDKB14WS - Kopie/Backup/EDKB14WS/Klassen/Parameters.vb

@@ -0,0 +1,256 @@
+Imports System.Xml
+Imports System.IO
+Imports System.Reflection
+
+Public Class Parameters
+    Dim sconnectionstring As String
+    Property connectionstring() As String
+        Get
+            Return sconnectionstring
+        End Get
+        Set(ByVal value As String)
+            sconnectionstring = value
+        End Set
+    End Property
+
+    Dim sconnectionstring_Journale As String
+    Property connectionstring_Journale() As String
+        Get
+            Return sconnectionstring_Journale
+        End Get
+        Set(ByVal value As String)
+            sconnectionstring_Journale = value
+        End Set
+    End Property
+
+ 
+    Dim bDebugmode As Boolean
+    Property DebugMode() As Boolean
+        Get
+            Return bDebugmode
+        End Get
+        Set(ByVal value As Boolean)
+            bDebugmode = value
+        End Set
+    End Property
+
+    Dim sworkdir As String
+    Property WorkDir() As String
+        Get
+            Return sworkdir
+        End Get
+        Set(ByVal value As String)
+            sworkdir = value
+        End Set
+    End Property
+
+    Dim sDsrDir As String 'Input-Directory für DSR-XML-Dateien
+    Property DSRDir() As String
+        Get
+            Return sDsrDir
+        End Get
+        Set(ByVal value As String)
+            sDsrDir = value
+        End Set
+    End Property
+
+    Dim iAnzDokumente As Integer
+    Property AnzDokumente() As Integer
+        Get
+            Return iAnzDokumente
+        End Get
+        Set(ByVal value As Integer)
+            iAnzDokumente = value
+        End Set
+    End Property
+
+    Dim iDokTypeBriefvorlage As Integer
+    Property DokTypeBriefvorlage() As Integer
+        Get
+            Return iDokTypeBriefvorlage
+        End Get
+        Set(ByVal value As Integer)
+            iDokTypeBriefvorlage = value
+        End Set
+    End Property
+
+    Dim sPSDir As String
+    Property PSDir() As String
+        Get
+            Return sPSDir
+        End Get
+        Set(ByVal value As String)
+            sPSDir = value
+        End Set
+    End Property
+
+    Dim sPDFDir As String
+    Property PDFDir() As String
+        Get
+            Return sPDFDir
+        End Get
+        Set(ByVal value As String)
+            sPDFDir = value
+        End Set
+    End Property
+
+    Dim sPSPrinter As String
+    Property PSPrinter() As String
+        Get
+            Return sPSPrinter
+        End Get
+        Set(ByVal value As String)
+            sPSPrinter = value
+        End Set
+    End Property
+    Dim m_edkb08dir
+    Property EDKB08Dir() As String
+        Get
+            Return m_edkb08dir
+        End Get
+        Set(ByVal value As String)
+            m_edkb08dir = value
+        End Set
+    End Property
+
+    Dim m_logdir As String
+    Property LogDir() As String
+        Get
+            Return m_logdir
+        End Get
+        Set(ByVal value As String)
+            m_logdir = value
+        End Set
+    End Property
+    Dim m_waitloop As Integer
+    Property WaitLoop() As Integer
+        Get
+            Return m_waitloop
+        End Get
+        Set(ByVal value As Integer)
+            m_waitloop = value
+        End Set
+    End Property
+
+    Dim m_covertpdfdirect As Boolean
+    Property ConvertPDFDirect() As Boolean
+        Get
+            Return m_covertpdfdirect
+        End Get
+        Set(ByVal value As Boolean)
+            m_covertpdfdirect = value
+        End Set
+    End Property
+
+    Dim m_oracleconnectionstring As String
+    Property OracleConnectionString() As String
+        Get
+            Return m_oracleconnectionstring
+        End Get
+        Set(ByVal value As String)
+            m_oracleconnectionstring = value
+        End Set
+    End Property
+
+    Dim m_AdresseAbOracle As Boolean
+    Property AdresseAbOracle() As Boolean
+        Get
+            Return m_AdresseAbOracle
+
+        End Get
+        Set(ByVal value As Boolean)
+            m_AdresseAbOracle = value
+        End Set
+    End Property
+    Dim m_UsePDFInOutDir As Boolean
+    Property Use_PDFInOutDir() As Boolean
+        Get
+            Return m_UsePDFInOutDir
+        End Get
+        Set(ByVal value As Boolean)
+            m_UsePDFInOutDir = value
+        End Set
+    End Property
+
+    Dim m_Startzeit As String
+    Property Startzeit() As String
+        Get
+            Return m_Startzeit
+        End Get
+        Set(ByVal value As String)
+            m_Startzeit = value
+        End Set
+    End Property
+
+    Dim m_Laufzeit As String
+    Property Laufzeit() As String
+        Get
+            Return m_Laufzeit
+        End Get
+        Set(ByVal value As String)
+            m_Laufzeit = value
+        End Set
+    End Property
+    Dim m_mailadresse As String
+    Property Mailadresse() As String
+        Get
+            Return m_mailadresse
+        End Get
+        Set(ByVal value As String)
+            m_mailadresse = value
+        End Set
+    End Property
+    Dim m_timerintervall As Integer
+    Property TimerIntevall() As Integer
+        Get
+            Return m_timerintervall * 60 * 1000
+        End Get
+        Set(ByVal value As Integer)
+            m_timerintervall = value
+        End Set
+    End Property
+    Dim m_CheckOffice2010 As Boolean
+    Property CheckOffice2010() As Boolean
+        Get
+            Return m_CheckOffice2010
+        End Get
+        Set(ByVal value As Boolean)
+            m_CheckOffice2010 = value
+        End Set
+    End Property
+
+    Dim xmldoc As New XmlDocument
+
+    Public Sub New()
+        xmldoc.Load(Me.ApplicationPath + "Parameters.xml")
+        Me.connectionstring = xmldoc.SelectSingleNode("/Configuration/SQLConnectionString").InnerText
+        Me.connectionstring_Journale = xmldoc.SelectSingleNode("/Configuration/SQLConnectionStringJournale").InnerText
+        Me.WorkDir = xmldoc.SelectSingleNode("/Configuration/WorkDir").InnerText
+        Me.DebugMode = UCase(xmldoc.SelectSingleNode("/Configuration/DebugMode").InnerText) = "TRUE"
+        Me.DSRDir = xmldoc.SelectSingleNode("/Configuration/DSRDir").InnerText
+        Me.AnzDokumente = xmldoc.SelectSingleNode("/Configuration/AnzDokumente").InnerText
+        Me.DokTypeBriefvorlage = xmldoc.SelectSingleNode("/Configuration/DoktypeBriefvorlage").InnerText
+        Me.sPSDir = xmldoc.SelectSingleNode("/Configuration/PSDir").InnerText
+        Me.sPDFDir = xmldoc.SelectSingleNode("/Configuration/PDFDir").InnerText
+        Me.sPSPrinter = xmldoc.SelectSingleNode("/Configuration/PSPrinter").InnerText
+        Me.Use_PDFInOutDir = xmldoc.SelectSingleNode("/Configuration/DistillerInOutDirs").InnerText = True
+        Me.ConvertPDFDirect = xmldoc.SelectSingleNode("/Configuration/ConvertPDFDirect").InnerText = True
+        Me.EDKB08Dir = xmldoc.SelectSingleNode("/Configuration/EDKB08Dir").InnerText
+        Me.LogDir = xmldoc.SelectSingleNode("/Configuration/LogDir").InnerText
+        Me.WaitLoop = xmldoc.SelectSingleNode("/Configuration/WaitLoop").InnerText
+        Me.OracleConnectionString = xmldoc.SelectSingleNode("/Configuration/OraConnectionstring").InnerText
+        Me.AdresseAbOracle = xmldoc.SelectSingleNode("/Configuration/OracleAdresse").InnerText = True
+        Me.Startzeit = xmldoc.SelectSingleNode("/Configuration/Startzeit").InnerText
+        Me.Laufzeit = xmldoc.SelectSingleNode("/Configuration/RunTimeInStd").InnerText
+        Me.Mailadresse = xmldoc.SelectSingleNode("/Configuration/Mail").InnerText
+        Me.TimerIntevall = xmldoc.SelectSingleNode("/Configuration/TimerIntervallInMinuten").InnerText
+        Me.CheckOffice2010 = UCase(xmldoc.SelectSingleNode("/Configuration/CheckOffice2010").InnerText) = "TRUE"
+        Globals.conn.sConnectionString = Me.connectionstring
+        Globals.connJournale.sConnectionString = Me.connectionstring_Journale
+    End Sub
+
+    Public Function ApplicationPath() As String
+        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
+    End Function
+
+End Class