Initial commit

Archiv/EDKB02_Spire/ClsParameters.vb

@@ -0,0 +1,384 @@
+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_pathCold As String
+    Property PathColdDateien() As String
+        Get
+            Return m_pathCold
+        End Get
+        Set(ByVal Value As String)
+            m_pathCold = Value
+        End Set
+    End Property
+
+    Dim m_paramfilebin As String
+    Property ParameterFileBin() As String
+        Get
+            Return m_paramfilebin
+        End Get
+        Set(ByVal Value As String)
+            m_paramfilebin = Value
+        End Set
+    End Property
+
+    Dim m_paramfiletxt As String
+    Property ParameterFileTxt() As String
+        Get
+            Return m_paramfiletxt
+        End Get
+        Set(ByVal Value As String)
+            m_paramfiletxt = Value
+        End Set
+    End Property
+
+    Dim m_filedtostart As String
+    Property FileDtoStart() As String
+        Get
+            Return m_filedtostart
+        End Get
+        Set(ByVal Value As String)
+            m_filedtostart = Value
+        End Set
+    End Property
+    Dim m_FileColdReturn As String
+    Property FileColdReturn() As String
+        Get
+            Return m_FileColdReturn
+        End Get
+        Set(ByVal Value As String)
+            m_FileColdReturn = Value
+        End Set
+    End Property
+
+    Dim m_FileNeu As String
+    Property FileNeu() As String
+        Get
+            Return m_FileNeu
+        End Get
+        Set(ByVal Value As String)
+            m_FileNeu = Value
+        End Set
+    End Property
+
+    Dim m_FileUpdate As String
+    Property FileUpdate() As String
+        Get
+            Return m_FileUpdate
+        End Get
+        Set(ByVal Value As String)
+            m_FileUpdate = Value
+        End Set
+    End Property
+
+    Dim m_FileReturnCode As String
+    Property FileReturnCode() As String
+        Get
+            Return m_FileReturnCode
+        End Get
+        Set(ByVal Value As String)
+            m_FileReturnCode = Value
+        End Set
+    End Property
+
+    Dim m_FileGeneration As String
+    Property FileGeneration() As String
+        Get
+            Return m_FileGeneration
+        End Get
+        Set(ByVal Value As String)
+            m_FileGeneration = Value
+        End Set
+    End Property
+
+    Dim m_AnzahlGenerationen As String
+    Property AnzahlGenerationen() As String
+        Get
+            Return m_AnzahlGenerationen
+        End Get
+        Set(ByVal Value As String)
+            m_AnzahlGenerationen = Value
+        End Set
+    End Property
+
+    Dim m_Bankname As String
+    Property Bankname() As String
+        Get
+            Return m_Bankname
+        End Get
+        Set(ByVal Value As String)
+            m_Bankname = 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_printtype As String
+    Property Printtype() As String
+        Get
+            Return m_printtype
+        End Get
+        Set(ByVal Value As String)
+            m_printtype = Value
+        End Set
+    End Property
+
+    Dim m_PathTif As String
+    Property PathTif() As String
+        Get
+            Return m_PathTif
+        End Get
+        Set(ByVal Value As String)
+            m_PathTif = Value
+        End Set
+    End Property
+
+    Dim m_AMSDriveLetter As String
+    Property AMSDriveLetter() As String
+        Get
+            Return m_AMSDriveLetter
+        End Get
+        Set(ByVal Value As String)
+            m_AMSDriveLetter = Value
+        End Set
+    End Property
+
+    Dim m_amsServer As String
+    Property AMSServer() As String
+        Get
+            Return m_amsServer
+        End Get
+        Set(ByVal Value As String)
+            m_amsServer = Value
+        End Set
+    End Property
+
+    Dim m_amsroot As String
+    Property AMSRoot() As String
+        Get
+            Return m_amsroot
+        End Get
+        Set(ByVal Value As String)
+            m_amsroot = Value
+        End Set
+    End Property
+
+    Dim m_coldfolder As String
+    Property ColdFolder() As String
+        Get
+            Return m_coldfolder
+        End Get
+        Set(ByVal Value As String)
+            m_coldfolder = Value
+        End Set
+    End Property
+    Dim m_Schema As String
+    Property Schema() As String
+        Get
+            Return m_Schema
+        End Get
+        Set(ByVal Value As String)
+            m_Schema = 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_Mailadresse1 As String
+    Property MailAdresse1() As String
+        Get
+            Return m_Mailadresse1
+        End Get
+        Set(ByVal Value As String)
+            m_Mailadresse1 = Value
+        End Set
+    End Property
+
+    Dim m_pathtemp As String
+    Property PathTemp() As String
+        Get
+            Return m_pathtemp
+        End Get
+        Set(ByVal Value As String)
+            m_pathtemp = Value
+        End Set
+    End Property
+
+    Dim m_cmddatei As String
+    Property CMDDatei() As String
+        Get
+            Return m_cmddatei
+        End Get
+        Set(ByVal Value As String)
+            m_cmddatei = Value
+        End Set
+    End Property
+
+    Dim m_copystat As String
+    Property CMDCopyStat() As String
+        Get
+            Return m_copystat
+        End Get
+        Set(ByVal Value As String)
+            m_copystat = Value
+        End Set
+    End Property
+
+    Dim m_Zeitintervall As Integer
+    Property Zeitintervall() As Integer
+        Get
+            Return m_Zeitintervall
+        End Get
+        Set(ByVal Value As Integer)
+            m_Zeitintervall = Value
+        End Set
+    End Property
+
+    Dim m_test As String
+    Property Test() As String
+        Get
+            Return m_test
+        End Get
+        Set(ByVal Value As String)
+            m_test = Value
+        End Set
+    End Property
+
+    Dim m_PrinterdriverColor As String
+    Property PrinterdriverColor() As String
+        Get
+            Return m_PrinterdriverColor
+        End Get
+        Set(ByVal Value As String)
+            m_PrinterdriverColor = Value
+        End Set
+    End Property
+
+    Dim m_PrintFarbigAb As DateTime
+    Property PrintFarbigAb() As DateTime
+        Get
+            Return m_PrintFarbigAb
+        End Get
+        Set(ByVal Value As DateTime)
+            m_PrintFarbigAb = Value
+        End Set
+    End Property
+
+    Dim m_bldeltime As String
+    Property BlDelTime() As String
+        Get
+            Return m_bldeltime
+        End Get
+        Set(ByVal Value As String)
+            m_bldeltime = Value
+        End Set
+    End Property
+
+    Dim m_office2010 As Boolean = True
+    Property Offcie2010() As Boolean
+        Get
+            Return m_office2010
+        End Get
+        Set(ByVal value As Boolean)
+            m_office2010 = value
+        End Set
+    End Property
+
+    Dim m_pdfpfad As String
+    Property PDFPfad() As String
+        Get
+            Return m_pdfpfad
+        End Get
+        Set(ByVal value As String)
+            m_pdfpfad = value
+        End Set
+    End Property
+ 
+#End Region
+
+    Public Function Loadparameters() As String
+        Try
+            oread = IO.File.OpenText(Globals.ApplicationPath + "parameters.cfg")
+            Me.ApplicationID = ParamValue(oread.ReadLine)
+            Me.PathColdDateien = ParamValue(oread.ReadLine)
+            Me.ParameterFileBin = ParamValue(oread.ReadLine)
+            Me.ParameterFileTxt = ParamValue(oread.ReadLine)
+            Me.FileColdReturn = ParamValue(oread.ReadLine)
+            Me.FileNeu = ParamValue(oread.ReadLine)
+            Me.FileUpdate = ParamValue(oread.ReadLine)
+            Me.FileDtoStart = ParamValue(oread.ReadLine)
+            Me.FileReturnCode = ParamValue(oread.ReadLine)
+            Me.CMDDatei = ParamValue(oread.ReadLine)
+            Me.FileGeneration = ParamValue(oread.ReadLine)
+            Me.AnzahlGenerationen = ParamValue(oread.ReadLine)
+            Me.Bankname = ParamValue(oread.ReadLine)
+            Me.PrinterDriver = ParamValue(oread.ReadLine)
+            Me.Printtype = ParamValue(oread.ReadLine)
+            Me.PathTif = ParamValue(oread.ReadLine)
+            Me.AMSDriveLetter = ParamValue(oread.ReadLine)
+            Me.AMSServer = ParamValue(oread.ReadLine)
+            Me.AMSRoot = ParamValue(oread.ReadLine)
+            Me.Schema = ParamValue(oread.ReadLine)
+            Me.ColdFolder = ParamValue(oread.ReadLine)
+            Me.MailAdresse = ParamValue(oread.ReadLine)
+            Me.MailAdresse1 = ParamValue(oread.ReadLine)
+            Me.PathTemp = ParamValue(oread.ReadLine)
+            Me.CMDCopyStat = ParamValue(oread.ReadLine)
+            Me.Zeitintervall = ParamValue(oread.ReadLine)
+            Dim s As String
+            s = ParamValue(oread.ReadLine)
+            Me.Test = ParamValue(oread.ReadLine)
+            Me.m_PrinterdriverColor = ParamValue(oread.ReadLine)
+            SetTimeBack(ParamValue(oread.ReadLine))
+            Me.BlDelTime = ParamValue(oread.ReadLine)
+            Me.Offcie2010 = ParamValue(oread.ReadLine) = "True"
+            Me.PDFPfad = ParamValue(oread.ReadLine)
+            oread.Close()
+            Return ""
+        Catch ex As Exception
+            Return ex.Message
+        End Try
+    End Function
+
+    Private Sub SetTimeBack(ByVal sInputTime As String)
+        Try
+            m_PrintFarbigAb = DateTime.Parse(sInputTime)
+        Catch ex As Exception
+            m_PrintFarbigAb = Now().AddHours(1)
+            m_log.Log("ClsParameters:GetTimeBack:" & ex.Message & ex.StackTrace, Common.Common.JournalEntryType.Error)
+        End Try
+    End Sub
+
+    Private Function ParamValue(ByVal sinput As String) As String
+        Dim splitter() As String
+        splitter = Split(sinput, "=")
+        ParamValue = splitter(1)
+    End Function
+
+End Class