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.
105 lines
2.6 KiB
105 lines
2.6 KiB
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
|