EDOKA_Batch/EDKB02/ClsParameters.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_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

    Dim m_officearchivierung As String
    Property OfficeArchivierung As String
        Get
            Return m_officearchivierung
        End Get
        Set(value As String)
            m_officearchivierung = value
        End Set
    End Property

    Dim m_excelpath As String
    Property ExcelPath As String
        Get
            Return m_excelpath
        End Get
        Set(value As String)
            m_excelpath = value
        End Set
    End Property

    Dim m_blfilename As String
    Property blfilename As String
        Get
            Return m_blfilename
        End Get
        Set(value As String)
            Dim s As String
            s = value
            Dim ds As String = Now.ToString("yyyyMMddHHmmss")
            s = s.Replace("timestamp", ds)
            m_blfilename = s
        End Set
    End Property

    Dim m_ZipFilenameBL As String
    Property Zipfilenamebl As String
        Get
            Return m_ZipFilenameBL
        End Get
        Set(value As String)
            Dim s As String
            s = value
            Dim ds As String = Now.ToString("yyyyMMddHHmmss")
            s = s.Replace("timestamp", ds)
            m_ZipFilenameBL = s
        End Set
    End Property

    Dim m_blfolder As String
    Property BL_Folder As String
        Get
            Return m_blfolder
        End Get
        Set(value As String)
            m_blfolder = 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)
            Me.OfficeArchivierung = ParamValue(oread.ReadLine)
            Me.excelpath = ParamValue(oread.ReadLine)
            Me.blfilename = ParamValue(oread.ReadLine)
            Me.Zipfilenamebl = ParamValue(oread.ReadLine)
            Me.BL_Folder = 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