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

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