Initial commit

EDOKA/Backup1/Drucken/clsMehrfachdruck_Data.vb

@@ -0,0 +1,104 @@
+Public Class clsMehrfachdruck_Data
+
+    Public Enum Enum_Typ
+        EDOKA = 1
+        HOST = 2
+        ZV = 3
+    End Enum
+
+    Dim m_DokumentId As String
+    Property DokumentId() As String
+        Get
+            Return m_DokumentId
+        End Get
+        Set(ByVal Value As String)
+            m_DokumentId = Value
+        End Set
+    End Property
+
+    Dim m_PartnerNr As String
+    Property PartnerNr() As String
+        Get
+            Return m_PartnerNr
+        End Get
+        Set(ByVal Value As String)
+            m_PartnerNr = Value
+        End Set
+    End Property
+
+    Dim m_Typ As Enum_Typ
+    Property Typ() As Enum_Typ
+        Get
+            Return m_Typ
+        End Get
+        Set(ByVal Value As Enum_Typ)
+            m_Typ = Value
+        End Set
+    End Property
+
+    Dim m_OfficeDokument As Boolean
+    Property OfficeDokument() As Boolean
+        Get
+            Return m_OfficeDokument
+        End Get
+        Set(ByVal Value As Boolean)
+            m_OfficeDokument = Value
+        End Set
+    End Property
+
+    Dim m_DokumentTyp As String
+    Property DokumentTyp() As String
+        Get
+            Return m_DokumentTyp
+        End Get
+        Set(ByVal Value As String)
+            m_DokumentTyp = 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_PartnerName As String
+    Property PartnerName() As String
+        Get
+            Return m_PartnerName
+        End Get
+        Set(ByVal Value As String)
+            m_PartnerName = Value
+        End Set
+    End Property
+
+    Dim m_Erstellungsdatum As String
+    Property Erstellungsdatum() As String
+        Get
+            Return m_Erstellungsdatum
+        End Get
+        Set(ByVal Value As String)
+            m_Erstellungsdatum = Value
+        End Set
+    End Property
+
+    Public Sub New(ByVal DokID As String, ByVal iPartnerNr As String, ByVal sTyp As Enum_Typ, _
+    ByVal bOfficeDokument As Boolean, ByVal sDokTyp As String, ByVal sAuftragnr As String, ByVal sPartnerName As String, _
+    ByVal sErstellungsdatum As String)
+
+        m_DokumentId = DokID
+        m_PartnerNr = iPartnerNr
+        m_Typ = sTyp
+        m_OfficeDokument = bOfficeDokument
+        m_DokumentTyp = sDokTyp
+        m_Auftragnr = sAuftragnr
+        m_PartnerName = sPartnerName
+        m_Erstellungsdatum = sErstellungsdatum
+
+    End Sub
+
+End Class