EDOKA_Batch/Archiv/EDKB01/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_files As String
    Property Filepfad() As String
        Get
            Return m_files
        End Get
        Set(ByVal Value As String)
            m_files = 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_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_MailadresseOK As String
    Property MailAdresseOK() As String
        Get
            Return m_MailadresseOK
        End Get
        Set(ByVal Value As String)
            m_MailadresseOK = Value
        End Set
    End Property

    Dim m_MailadresseNOK As String
    Property MailAdresseNOK() As String
        Get
            Return m_MailadresseNOK
        End Get
        Set(ByVal Value As String)
            m_MailadresseNOK = 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

#End Region

    Public Function Loadparameters() As String
        Try
            oread = IO.File.OpenText(args(1) + "parameters.cfg")
            Me.ApplicationID = ParamValue(oread.ReadLine)
            Me.Filepfad = ParamValue(oread.ReadLine)
            Me.MailAdresseOK = ParamValue(oread.ReadLine)
            Me.MailAdresseNOK = ParamValue(oread.ReadLine)
            oread.Close()
            Return ""
        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