Public Class clsSpooler_Data

    Dim m_JobID As Integer
    Property JobID() As Integer
        Get
            Return m_JobID
        End Get
        Set(ByVal Value As Integer)
            m_JobID = Value
        End Set
    End Property

    Dim m_AuftragNR As String
    Property AuftragNr() As String
        Get
            Return m_AuftragNR
        End Get
        Set(ByVal Value As String)
            m_AuftragNR = Value
        End Set
    End Property

    Dim m_Typ As String
    Property Typ() As String
        Get
            Return m_Typ
        End Get
        Set(ByVal Value As String)
            m_Typ = Value
        End Set
    End Property

    Dim m_Status As String
    Property Status() As String
        Get
            Return m_Status
        End Get
        Set(ByVal Value As String)
            m_Status = Value
        End Set
    End Property

    Dim m_StatusID As Integer
    Property StatusID() As Integer
        Get
            Return m_StatusID
        End Get
        Set(ByVal Value As Integer)
            m_StatusID = Value
        End Set
    End Property

    Dim m_Anzahl As String
    Property Anzahl() As String
        Get
            Return m_Anzahl
        End Get
        Set(ByVal Value As String)
            m_Anzahl = Value
        End Set
    End Property

    Dim m_Data As Collection
    Property Data() As Collection
        Get
            Return m_Data
        End Get
        Set(ByVal Value As Collection)
            m_Data = Value
        End Set
    End Property

    Dim m_ErstelltAm As Date
    Property ErstelltAm() As Date
        Get
            Return m_ErstelltAm
        End Get
        Set(ByVal Value As Date)
            m_ErstelltAm = Value
        End Set
    End Property

    Dim m_DateiName As String
    Property DateiName() As String
        Get
            Return m_DateiName
        End Get
        Set(ByVal Value As String)
            m_DateiName = Value
        End Set
    End Property

    Public Sub New(ByVal JobID As Integer, ByVal sAuftragNr As String, ByVal sTyp As String, _
    ByVal sStatus As String, ByVal sAnzahl As String, ByVal sData As Collection, _
    ByVal sErstellungsdatum As String, ByVal iStatusID As Integer, ByVal sDateiName As String)

        m_JobID = JobID
        m_AuftragNR = sAuftragNr
        m_Typ = sTyp
        m_Status = sStatus
        m_Anzahl = sAnzahl
        m_Data = sData
        m_ErstelltAm = sErstellungsdatum
        m_StatusID = iStatusID
        m_DateiName = sDateiName

    End Sub

End Class