Initial

EDOKA/Backup1/Drucken/clsSpooler_Data.vb

@@ -0,0 +1,109 @@
+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