EDKB09_DMS/utils/clsParameter.vb

Public Class ClsParameters

#Region "Deklarationen"

    Dim m_applicationid As String
    Property ApplicationID() As String
        Get
            Return m_applicationid
        End Get
        Set(ByVal Value As String)
            m_applicationid = Value
        End Set
    End Property

    Dim m_pathtmpsb As String
    Property Pfad_Serienbrief_Daten() As String
        Get
            Return m_pathtmpsb
        End Get
        Set(ByVal Value As String)
            m_pathtmpsb = Value
        End Set
    End Property

    Dim m_pfadps As String
    Property Pfad_PS() As String
        Get
            Return m_pfadps
        End Get
        Set(ByVal Value As String)
            m_pfadps = Value
        End Set
    End Property

    Dim m_pfadpdf As String
    Property Pfad_Pdf() As String
        Get
            Return m_pfadpdf
        End Get
        Set(ByVal Value As String)
            m_pfadpdf = Value
        End Set
    End Property

    Dim m_dokumente_kleinauftrag As Integer
    Property Anzahl_Dokumente_Kleinauftrag() As Integer
        Get
            Return m_dokumente_kleinauftrag
        End Get
        Set(ByVal Value As Integer)
            m_dokumente_kleinauftrag = Value
        End Set
    End Property

    Dim m_anzahl_dokumente_druckjob As Integer
    Property Anzahl_Dokumente_Druckjob() As Integer
        Get
            Return m_anzahl_dokumente_druckjob
        End Get
        Set(ByVal Value As Integer)
            m_anzahl_dokumente_druckjob = Value
        End Set
    End Property

    Dim m_Dokumente_Auftrag As Integer
    Property Anzahl_Dokumente_Auftrag() As Integer
        Get
            Return m_Dokumente_Auftrag
        End Get
        Set(ByVal Value As Integer)
            m_Dokumente_Auftrag = Value
        End Set
    End Property

    Dim m_pfad_edkb08 As String
    Property Pfad_EDKB08() As String
        Get
            Return m_pfad_edkb08
        End Get
        Set(ByVal Value As String)
            m_pfad_edkb08 = Value

        End Set
    End Property

    Dim m_PrinterDriver As String
    Property PrinterDriver() As String
        Get
            Return m_PrinterDriver
        End Get
        Set(ByVal Value As String)
            m_PrinterDriver = Value
        End Set
    End Property

    Dim m_mailempfaenger As String
    Property MailEmpfanger() As String
        Get
            Return m_mailempfaenger
        End Get
        Set(ByVal Value As String)
            m_mailempfaenger = Value
        End Set
    End Property

    Dim m_timeOutKleinAuftrage As String
    Property TimeOutKleinAuftraege() As String
        Get
            Return m_timeOutKleinAuftrage
        End Get
        Set(ByVal Value As String)
            m_timeOutKleinAuftrage = Value
        End Set
    End Property

    Dim m_timeOutGrossAuftrage As String
    Property TimeOutGrossAuftraege() As String
        Get
            Return m_timeOutGrossAuftrage
        End Get
        Set(ByVal Value As String)
            m_timeOutGrossAuftrage = Value
        End Set
    End Property

    Dim m_wordwait As String
    Property Wordwait() As String
        Get
            Return m_wordwait
        End Get
        Set(ByVal value As String)
            m_wordwait = value
        End Set
    End Property
    Dim m_maxwait As Integer
    Property MaxWait() As Integer
        Get
            Return m_maxwait
        End Get
        Set(ByVal value As Integer)
            m_maxwait = value
        End Set
    End Property

    Dim m_Office2010 As Boolean
    Property Office2010() As Boolean
        Get
            Return m_Office2010
        End Get
        Set(ByVal value As Boolean)
            m_Office2010 = value
        End Set
    End Property

    Dim m_ppfileB As String
    Property PPFileB As String
        Get
            Return m_ppfileB
        End Get
        Set(value As String)
            m_ppfileB = value
        End Set
    End Property

    Dim m_ppfileA As String
    Property PPFileA As String
        Get
            Return m_ppfileA
        End Get
        Set(value As String)
            m_ppfileA = value
        End Set
    End Property

    Dim m_log As String
    Property Log As String
        Get
            Return m_log
        End Get
        Set(value As String)
            m_log = value
        End Set
    End Property

    Dim m_logpfad As String
    Property LogPfad As String
        Get
            Return m_logpfad
        End Get
        Set(value As String)
            m_logpfad = value
        End Set
    End Property


#End Region

    Sub New()
        Loadparameters()
    End Sub
    Public Function Loadparameters() As String
        Try
            oread = IO.File.OpenText(Globals.ApplicationPath + "parameters.cfg")
            Me.ApplicationID = ParamValue(oread.ReadLine)
            Me.Pfad_Serienbrief_Daten = ParamValue(oread.ReadLine)
            Me.Pfad_PS = ParamValue(oread.ReadLine)
            Me.Pfad_Pdf = ParamValue(oread.ReadLine)
            Me.Anzahl_Dokumente_Kleinauftrag = ParamValue(oread.ReadLine)
            Me.Anzahl_Dokumente_Druckjob = ParamValue(oread.ReadLine)
            Me.Anzahl_Dokumente_Auftrag = ParamValue(oread.ReadLine)
            Me.Pfad_EDKB08 = ParamValue(oread.ReadLine)
            Me.PrinterDriver = ParamValue(oread.ReadLine)
            Me.MailEmpfanger = ParamValue(oread.ReadLine)
            Me.TimeOutGrossAuftraege = ParamValue(oread.ReadLine)
            Me.TimeOutKleinAuftraege = ParamValue(oread.ReadLine)
            Try
                Me.Wordwait = ParamValue(oread.ReadLine)
            Catch
                Me.Wordwait = 500
            End Try
            Try
                Me.MaxWait = ParamValue(oread.ReadLine)
            Catch
                Me.MaxWait = 2
            End Try
            Me.Office2010 = ParamValue(oread.ReadLine) = "True"
            Me.Pfad_Pdf = ParamValue(oread.ReadLine)
            Me.PPFileB = ParamValue(oread.ReadLine)
            Me.ppfileA = ParamValue(oread.ReadLine)
            Me.m_log = ParamValue(oread.ReadLine)
            Me.LogPfad = ParamValue(oread.ReadLine)
            oread.Close()
            Return Nothing
        Catch ex As Exception
            Return ex.Message
        End Try
    End Function



    Private Function ParamValue(ByVal sinput As String) As String
        Dim splitter() As String
        splitter = Split(sinput, "=")
        ParamValue = splitter(1)
    End Function
End Class