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