Initial commit

EDKB09/Backup1/utils/clsParameter.vb

@@ -0,0 +1,200 @@
+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
+
+#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"
+            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