You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
110 lines
2.5 KiB
110 lines
2.5 KiB
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
|