'' ------------------------------------------------------------------------------
''
'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
'' {"TargetFramework":"Net47","NameSpace":"FreierVerkehrAktVeredelUmwandlung_004","Language":"VisualBasic","ExcludeImportedTypes":true,"ExpandNestedAttributeGroup":true,"GenerateUnusedComplexType":true,"GenerateUnusedSimpleType":true,"Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}}
''
'' ------------------------------------------------------------------------------
#Disable Warning
Imports System
Imports System.Diagnostics
Imports System.Xml.Serialization
Imports System.Runtime.Serialization
Imports System.Collections
Imports System.Xml.Schema
Imports System.ComponentModel
Imports System.Xml
Imports System.IO
Imports System.Text
Imports System.Collections.Generic
Namespace FreierVerkehrAktVeredelUmwandlung_004
Partial Public Class FreierVerkehrAktVeredelUmwandlungAVUVTyp
Inherits DatenaustauschFreierVerkehrTyp
#Region "Private fields"
Private _einzelAnmeldung As List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._einzelAnmeldung = New List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp)()
End Sub
Public Property EinzelAnmeldung() As List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp)
Get
Return Me._einzelAnmeldung
End Get
Set
Me._einzelAnmeldung = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FreierVerkehrAktVeredelUmwandlungAVUVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize FreierVerkehrAktVeredelUmwandlungAVUVTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes FreierVerkehrAktVeredelUmwandlungAVUVTyp object
'''
''' string to deserialize
''' Output FreierVerkehrAktVeredelUmwandlungAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FreierVerkehrAktVeredelUmwandlungAVUVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As FreierVerkehrAktVeredelUmwandlungAVUVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FreierVerkehrAktVeredelUmwandlungAVUVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As FreierVerkehrAktVeredelUmwandlungAVUVTyp
Return CType(SerializerXml.Deserialize(s), FreierVerkehrAktVeredelUmwandlungAVUVTyp)
End Function
#End Region
'''
''' Serializes current FreierVerkehrAktVeredelUmwandlungAVUVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an FreierVerkehrAktVeredelUmwandlungAVUVTyp object
'''
''' File to load and deserialize
''' Output FreierVerkehrAktVeredelUmwandlungAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, FreierVerkehrAktVeredelUmwandlungAVUVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FreierVerkehrAktVeredelUmwandlungAVUVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class EinzelEinfuhrUnvollstaendigeAnmeldungTyp
#Region "Private fields"
Private _objektIdentifizierung As ObjektIdentifizierungAVUVTyp
Private _kopfDaten As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp
Private _warenPosition As List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._warenPosition = New List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp)()
Me._kopfDaten = New KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp()
Me._objektIdentifizierung = New ObjektIdentifizierungAVUVTyp()
End Sub
Public Property ObjektIdentifizierung() As ObjektIdentifizierungAVUVTyp
Get
Return Me._objektIdentifizierung
End Get
Set
Me._objektIdentifizierung = Value
End Set
End Property
Public Property KopfDaten() As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp
Get
Return Me._kopfDaten
End Get
Set
Me._kopfDaten = Value
End Set
End Property
Public Property WarenPosition() As List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp)
Get
Return Me._warenPosition
End Get
Set
Me._warenPosition = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelEinfuhrUnvollstaendigeAnmeldungTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize EinzelEinfuhrUnvollstaendigeAnmeldungTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes EinzelEinfuhrUnvollstaendigeAnmeldungTyp object
'''
''' string to deserialize
''' Output EinzelEinfuhrUnvollstaendigeAnmeldungTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelEinfuhrUnvollstaendigeAnmeldungTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelEinfuhrUnvollstaendigeAnmeldungTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelEinfuhrUnvollstaendigeAnmeldungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelEinfuhrUnvollstaendigeAnmeldungTyp
Return CType(SerializerXml.Deserialize(s), EinzelEinfuhrUnvollstaendigeAnmeldungTyp)
End Function
#End Region
'''
''' Serializes current EinzelEinfuhrUnvollstaendigeAnmeldungTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an EinzelEinfuhrUnvollstaendigeAnmeldungTyp object
'''
''' File to load and deserialize
''' Output EinzelEinfuhrUnvollstaendigeAnmeldungTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelEinfuhrUnvollstaendigeAnmeldungTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelEinfuhrUnvollstaendigeAnmeldungTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class ObjektIdentifizierungAVUVTyp
#Region "Private fields"
Private _objektName As String
Private _objektAlias As String
Private _anmeldungArt As String
Private _objektQuittung As String
Private _bezugsnummerVorblendung As String
Private _userVorblendung As String
Private _kopieVon As String
Private _objektAktion As List(Of String)
Private _compliancePruefung As String
Private _bearbeiter As String
Private _anfBemerkungStatusanzeige As String
Private _absenderSystemName As String
Private _shipmentReferenz As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._objektAktion = New List(Of String)()
End Sub
Public Property ObjektName() As String
Get
Return Me._objektName
End Get
Set
Me._objektName = Value
End Set
End Property
Public Property ObjektAlias() As String
Get
Return Me._objektAlias
End Get
Set
Me._objektAlias = Value
End Set
End Property
Public Property AnmeldungArt() As String
Get
Return Me._anmeldungArt
End Get
Set
Me._anmeldungArt = Value
End Set
End Property
Public Property ObjektQuittung() As String
Get
Return Me._objektQuittung
End Get
Set
Me._objektQuittung = Value
End Set
End Property
Public Property BezugsnummerVorblendung() As String
Get
Return Me._bezugsnummerVorblendung
End Get
Set
Me._bezugsnummerVorblendung = Value
End Set
End Property
Public Property UserVorblendung() As String
Get
Return Me._userVorblendung
End Get
Set
Me._userVorblendung = Value
End Set
End Property
Public Property KopieVon() As String
Get
Return Me._kopieVon
End Get
Set
Me._kopieVon = Value
End Set
End Property
Public Property ObjektAktion() As List(Of String)
Get
Return Me._objektAktion
End Get
Set
Me._objektAktion = Value
End Set
End Property
Public Property CompliancePruefung() As String
Get
Return Me._compliancePruefung
End Get
Set
Me._compliancePruefung = Value
End Set
End Property
Public Property Bearbeiter() As String
Get
Return Me._bearbeiter
End Get
Set
Me._bearbeiter = Value
End Set
End Property
Public Property AnfBemerkungStatusanzeige() As String
Get
Return Me._anfBemerkungStatusanzeige
End Get
Set
Me._anfBemerkungStatusanzeige = Value
End Set
End Property
Public Property AbsenderSystemName() As String
Get
Return Me._absenderSystemName
End Get
Set
Me._absenderSystemName = Value
End Set
End Property
Public Property ShipmentReferenz() As String
Get
Return Me._shipmentReferenz
End Get
Set
Me._shipmentReferenz = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungAVUVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize ObjektIdentifizierungAVUVTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes ObjektIdentifizierungAVUVTyp object
'''
''' string to deserialize
''' Output ObjektIdentifizierungAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungAVUVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungAVUVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungAVUVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungAVUVTyp
Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungAVUVTyp)
End Function
#End Region
'''
''' Serializes current ObjektIdentifizierungAVUVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an ObjektIdentifizierungAVUVTyp object
'''
''' File to load and deserialize
''' Output ObjektIdentifizierungAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungAVUVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungAVUVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class AussenhandelsstatistikAVUVTyp
#Region "Private fields"
Private _verkehrszweigInland As String
Private _verkehrszweigGrenze As String
Private _versendungsland As String
Private _bestimmungsbundesland As String
Private _bestimmungsland As String
Private _befoerderungsmittelGrenzeStaatszugehoerigkeitCode As String
Private _befoerderungsmittelGrenzeArt As String
Private _befoerderungsmittelBeschreibung As String
Private _artGeschaeft As String
Private _statistikstatus As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property VerkehrszweigInland() As String
Get
Return Me._verkehrszweigInland
End Get
Set
Me._verkehrszweigInland = Value
End Set
End Property
Public Property VerkehrszweigGrenze() As String
Get
Return Me._verkehrszweigGrenze
End Get
Set
Me._verkehrszweigGrenze = Value
End Set
End Property
Public Property Versendungsland() As String
Get
Return Me._versendungsland
End Get
Set
Me._versendungsland = Value
End Set
End Property
Public Property Bestimmungsbundesland() As String
Get
Return Me._bestimmungsbundesland
End Get
Set
Me._bestimmungsbundesland = Value
End Set
End Property
Public Property Bestimmungsland() As String
Get
Return Me._bestimmungsland
End Get
Set
Me._bestimmungsland = Value
End Set
End Property
Public Property BefoerderungsmittelGrenzeStaatszugehoerigkeitCode() As String
Get
Return Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode
End Get
Set
Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode = Value
End Set
End Property
Public Property BefoerderungsmittelGrenzeArt() As String
Get
Return Me._befoerderungsmittelGrenzeArt
End Get
Set
Me._befoerderungsmittelGrenzeArt = Value
End Set
End Property
Public Property BefoerderungsmittelBeschreibung() As String
Get
Return Me._befoerderungsmittelBeschreibung
End Get
Set
Me._befoerderungsmittelBeschreibung = Value
End Set
End Property
Public Property ArtGeschaeft() As String
Get
Return Me._artGeschaeft
End Get
Set
Me._artGeschaeft = Value
End Set
End Property
Public Property Statistikstatus() As String
Get
Return Me._statistikstatus
End Get
Set
Me._statistikstatus = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AussenhandelsstatistikAVUVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AussenhandelsstatistikAVUVTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes AussenhandelsstatistikAVUVTyp object
'''
''' string to deserialize
''' Output AussenhandelsstatistikAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AussenhandelsstatistikAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AussenhandelsstatistikAVUVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AussenhandelsstatistikAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AussenhandelsstatistikAVUVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AussenhandelsstatistikAVUVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AussenhandelsstatistikAVUVTyp
Return CType(SerializerXml.Deserialize(s), AussenhandelsstatistikAVUVTyp)
End Function
#End Region
'''
''' Serializes current AussenhandelsstatistikAVUVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an AussenhandelsstatistikAVUVTyp object
'''
''' File to load and deserialize
''' Output AussenhandelsstatistikAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AussenhandelsstatistikAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AussenhandelsstatistikAVUVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AussenhandelsstatistikAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AussenhandelsstatistikAVUVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class AbzugHinzurechnungAVUVTyp
#Region "Private fields"
Private _artCode As String
Private _beschreibungAndereZahlungen As String
Private _betrag As String
Private _waehrung As String
Private _kursVereinbartKz As String
Private _kursDatum As Date
Private _prozentsatz As String
Private _betragInEUR As String
Private _iATAKursKz As String
Private _frachtkostenBerechnungsgrundlage As String
Private _kursAuslandswaehrung As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property ArtCode() As String
Get
Return Me._artCode
End Get
Set
Me._artCode = Value
End Set
End Property
Public Property BeschreibungAndereZahlungen() As String
Get
Return Me._beschreibungAndereZahlungen
End Get
Set
Me._beschreibungAndereZahlungen = Value
End Set
End Property
Public Property Betrag() As String
Get
Return Me._betrag
End Get
Set
Me._betrag = Value
End Set
End Property
Public Property Waehrung() As String
Get
Return Me._waehrung
End Get
Set
Me._waehrung = Value
End Set
End Property
Public Property KursVereinbartKz() As String
Get
Return Me._kursVereinbartKz
End Get
Set
Me._kursVereinbartKz = Value
End Set
End Property
Public Property KursDatum() As Date
Get
Return Me._kursDatum
End Get
Set
Me._kursDatum = Value
End Set
End Property
Public Property Prozentsatz() As String
Get
Return Me._prozentsatz
End Get
Set
Me._prozentsatz = Value
End Set
End Property
Public Property BetragInEUR() As String
Get
Return Me._betragInEUR
End Get
Set
Me._betragInEUR = Value
End Set
End Property
Public Property IATAKursKz() As String
Get
Return Me._iATAKursKz
End Get
Set
Me._iATAKursKz = Value
End Set
End Property
Public Property FrachtkostenBerechnungsgrundlage() As String
Get
Return Me._frachtkostenBerechnungsgrundlage
End Get
Set
Me._frachtkostenBerechnungsgrundlage = Value
End Set
End Property
Public Property KursAuslandswaehrung() As String
Get
Return Me._kursAuslandswaehrung
End Get
Set
Me._kursAuslandswaehrung = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbzugHinzurechnungAVUVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AbzugHinzurechnungAVUVTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes AbzugHinzurechnungAVUVTyp object
'''
''' string to deserialize
''' Output AbzugHinzurechnungAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbzugHinzurechnungAVUVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AbzugHinzurechnungAVUVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbzugHinzurechnungAVUVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbzugHinzurechnungAVUVTyp
Return CType(SerializerXml.Deserialize(s), AbzugHinzurechnungAVUVTyp)
End Function
#End Region
'''
''' Serializes current AbzugHinzurechnungAVUVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an AbzugHinzurechnungAVUVTyp object
'''
''' File to load and deserialize
''' Output AbzugHinzurechnungAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbzugHinzurechnungAVUVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbzugHinzurechnungAVUVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class BesondereWertangabeAVUVTyp
#Region "Private fields"
Private _wert As String
Private _preisartCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Wert() As String
Get
Return Me._wert
End Get
Set
Me._wert = Value
End Set
End Property
Public Property PreisartCode() As String
Get
Return Me._preisartCode
End Get
Set
Me._preisartCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BesondereWertangabeAVUVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize BesondereWertangabeAVUVTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes BesondereWertangabeAVUVTyp object
'''
''' string to deserialize
''' Output BesondereWertangabeAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereWertangabeAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BesondereWertangabeAVUVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereWertangabeAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As BesondereWertangabeAVUVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BesondereWertangabeAVUVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As BesondereWertangabeAVUVTyp
Return CType(SerializerXml.Deserialize(s), BesondereWertangabeAVUVTyp)
End Function
#End Region
'''
''' Serializes current BesondereWertangabeAVUVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an BesondereWertangabeAVUVTyp object
'''
''' File to load and deserialize
''' Output BesondereWertangabeAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BesondereWertangabeAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BesondereWertangabeAVUVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BesondereWertangabeAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BesondereWertangabeAVUVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class UnterlageVZPositionAVUVTyp
#Region "Private fields"
Private _bereich As String
Private _art As String
Private _nummer As String
Private _datumAusstellung As Date
Private _vorlageKz As String
Private _abschreibungsMenge As String
Private _abschreibungsMengeMasseinheit As String
Private _abschreibungsMengeMasseinheitQualifier As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Bereich() As String
Get
Return Me._bereich
End Get
Set
Me._bereich = Value
End Set
End Property
Public Property Art() As String
Get
Return Me._art
End Get
Set
Me._art = Value
End Set
End Property
Public Property Nummer() As String
Get
Return Me._nummer
End Get
Set
Me._nummer = Value
End Set
End Property
Public Property DatumAusstellung() As Date
Get
Return Me._datumAusstellung
End Get
Set
Me._datumAusstellung = Value
End Set
End Property
Public Property VorlageKz() As String
Get
Return Me._vorlageKz
End Get
Set
Me._vorlageKz = Value
End Set
End Property
Public Property AbschreibungsMenge() As String
Get
Return Me._abschreibungsMenge
End Get
Set
Me._abschreibungsMenge = Value
End Set
End Property
Public Property AbschreibungsMengeMasseinheit() As String
Get
Return Me._abschreibungsMengeMasseinheit
End Get
Set
Me._abschreibungsMengeMasseinheit = Value
End Set
End Property
Public Property AbschreibungsMengeMasseinheitQualifier() As String
Get
Return Me._abschreibungsMengeMasseinheitQualifier
End Get
Set
Me._abschreibungsMengeMasseinheitQualifier = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVZPositionAVUVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize UnterlageVZPositionAVUVTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes UnterlageVZPositionAVUVTyp object
'''
''' string to deserialize
''' Output UnterlageVZPositionAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVZPositionAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, UnterlageVZPositionAVUVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVZPositionAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As UnterlageVZPositionAVUVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UnterlageVZPositionAVUVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As UnterlageVZPositionAVUVTyp
Return CType(SerializerXml.Deserialize(s), UnterlageVZPositionAVUVTyp)
End Function
#End Region
'''
''' Serializes current UnterlageVZPositionAVUVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an UnterlageVZPositionAVUVTyp object
'''
''' File to load and deserialize
''' Output UnterlageVZPositionAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVZPositionAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, UnterlageVZPositionAVUVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVZPositionAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UnterlageVZPositionAVUVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class SonderfalldatenAVUVTyp
#Region "Private fields"
Private _sonderabgabenGruppeCode As String
Private _anwendungArt As String
Private _satzBetragFaktor As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property SonderabgabenGruppeCode() As String
Get
Return Me._sonderabgabenGruppeCode
End Get
Set
Me._sonderabgabenGruppeCode = Value
End Set
End Property
Public Property AnwendungArt() As String
Get
Return Me._anwendungArt
End Get
Set
Me._anwendungArt = Value
End Set
End Property
Public Property SatzBetragFaktor() As String
Get
Return Me._satzBetragFaktor
End Get
Set
Me._satzBetragFaktor = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SonderfalldatenAVUVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize SonderfalldatenAVUVTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes SonderfalldatenAVUVTyp object
'''
''' string to deserialize
''' Output SonderfalldatenAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalldatenAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SonderfalldatenAVUVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalldatenAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As SonderfalldatenAVUVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SonderfalldatenAVUVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As SonderfalldatenAVUVTyp
Return CType(SerializerXml.Deserialize(s), SonderfalldatenAVUVTyp)
End Function
#End Region
'''
''' Serializes current SonderfalldatenAVUVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an SonderfalldatenAVUVTyp object
'''
''' File to load and deserialize
''' Output SonderfalldatenAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalldatenAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SonderfalldatenAVUVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalldatenAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SonderfalldatenAVUVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class AbgabenminderungAVUVTyp
#Region "Private fields"
Private _abgabengruppeCode As String
Private _minderungsbetrag As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property AbgabengruppeCode() As String
Get
Return Me._abgabengruppeCode
End Get
Set
Me._abgabengruppeCode = Value
End Set
End Property
Public Property Minderungsbetrag() As String
Get
Return Me._minderungsbetrag
End Get
Set
Me._minderungsbetrag = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenminderungAVUVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AbgabenminderungAVUVTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes AbgabenminderungAVUVTyp object
'''
''' string to deserialize
''' Output AbgabenminderungAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenminderungAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbgabenminderungAVUVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenminderungAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabenminderungAVUVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgabenminderungAVUVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AbgabenminderungAVUVTyp
Return CType(SerializerXml.Deserialize(s), AbgabenminderungAVUVTyp)
End Function
#End Region
'''
''' Serializes current AbgabenminderungAVUVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an AbgabenminderungAVUVTyp object
'''
''' File to load and deserialize
''' Output AbgabenminderungAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenminderungAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbgabenminderungAVUVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenminderungAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbgabenminderungAVUVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class VerbrauchssteuerAVUVTyp
#Region "Private fields"
Private _verbrauchsteuerCode As String
Private _verbrauchssteuerMenge As String
Private _verbrauchssteuerMasseinheitCode As String
Private _verbrauchssteuerMasseinheitQualifier As String
Private _gradProzent As String
Private _verbrauchssteuerWertBasis As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property VerbrauchsteuerCode() As String
Get
Return Me._verbrauchsteuerCode
End Get
Set
Me._verbrauchsteuerCode = Value
End Set
End Property
Public Property VerbrauchssteuerMenge() As String
Get
Return Me._verbrauchssteuerMenge
End Get
Set
Me._verbrauchssteuerMenge = Value
End Set
End Property
Public Property VerbrauchssteuerMasseinheitCode() As String
Get
Return Me._verbrauchssteuerMasseinheitCode
End Get
Set
Me._verbrauchssteuerMasseinheitCode = Value
End Set
End Property
Public Property VerbrauchssteuerMasseinheitQualifier() As String
Get
Return Me._verbrauchssteuerMasseinheitQualifier
End Get
Set
Me._verbrauchssteuerMasseinheitQualifier = Value
End Set
End Property
Public Property GradProzent() As String
Get
Return Me._gradProzent
End Get
Set
Me._gradProzent = Value
End Set
End Property
Public Property VerbrauchssteuerWertBasis() As String
Get
Return Me._verbrauchssteuerWertBasis
End Get
Set
Me._verbrauchssteuerWertBasis = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerbrauchssteuerAVUVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize VerbrauchssteuerAVUVTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes VerbrauchssteuerAVUVTyp object
'''
''' string to deserialize
''' Output VerbrauchssteuerAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchssteuerAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerbrauchssteuerAVUVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchssteuerAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As VerbrauchssteuerAVUVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerbrauchssteuerAVUVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As VerbrauchssteuerAVUVTyp
Return CType(SerializerXml.Deserialize(s), VerbrauchssteuerAVUVTyp)
End Function
#End Region
'''
''' Serializes current VerbrauchssteuerAVUVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an VerbrauchssteuerAVUVTyp object
'''
''' File to load and deserialize
''' Output VerbrauchssteuerAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchssteuerAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerbrauchssteuerAVUVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchssteuerAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerbrauchssteuerAVUVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class BeguenstigungsMengeAVUVTyp
#Region "Private fields"
Private _menge As String
Private _masseinheitCode As String
Private _masseinheitQualifier As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Menge() As String
Get
Return Me._menge
End Get
Set
Me._menge = Value
End Set
End Property
Public Property MasseinheitCode() As String
Get
Return Me._masseinheitCode
End Get
Set
Me._masseinheitCode = Value
End Set
End Property
Public Property MasseinheitQualifier() As String
Get
Return Me._masseinheitQualifier
End Get
Set
Me._masseinheitQualifier = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BeguenstigungsMengeAVUVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize BeguenstigungsMengeAVUVTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes BeguenstigungsMengeAVUVTyp object
'''
''' string to deserialize
''' Output BeguenstigungsMengeAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeguenstigungsMengeAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BeguenstigungsMengeAVUVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeguenstigungsMengeAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As BeguenstigungsMengeAVUVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BeguenstigungsMengeAVUVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As BeguenstigungsMengeAVUVTyp
Return CType(SerializerXml.Deserialize(s), BeguenstigungsMengeAVUVTyp)
End Function
#End Region
'''
''' Serializes current BeguenstigungsMengeAVUVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an BeguenstigungsMengeAVUVTyp object
'''
''' File to load and deserialize
''' Output BeguenstigungsMengeAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeguenstigungsMengeAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BeguenstigungsMengeAVUVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeguenstigungsMengeAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BeguenstigungsMengeAVUVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class GehaltsangabenAVUVTyp
#Region "Private fields"
Private _artCode As String
Private _gradProzent As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property ArtCode() As String
Get
Return Me._artCode
End Get
Set
Me._artCode = Value
End Set
End Property
Public Property GradProzent() As String
Get
Return Me._gradProzent
End Get
Set
Me._gradProzent = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GehaltsangabenAVUVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize GehaltsangabenAVUVTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes GehaltsangabenAVUVTyp object
'''
''' string to deserialize
''' Output GehaltsangabenAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, GehaltsangabenAVUVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As GehaltsangabenAVUVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GehaltsangabenAVUVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As GehaltsangabenAVUVTyp
Return CType(SerializerXml.Deserialize(s), GehaltsangabenAVUVTyp)
End Function
#End Region
'''
''' Serializes current GehaltsangabenAVUVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an GehaltsangabenAVUVTyp object
'''
''' File to load and deserialize
''' Output GehaltsangabenAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, GehaltsangabenAVUVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GehaltsangabenAVUVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class AVVeredelungserzeugnisTyp
#Region "Private fields"
Private _warenbezeichnung As String
Private _ausbeuteart As String
Private _ausbeutesatz As String
Private _kNCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Warenbezeichnung() As String
Get
Return Me._warenbezeichnung
End Get
Set
Me._warenbezeichnung = Value
End Set
End Property
Public Property Ausbeuteart() As String
Get
Return Me._ausbeuteart
End Get
Set
Me._ausbeuteart = Value
End Set
End Property
Public Property Ausbeutesatz() As String
Get
Return Me._ausbeutesatz
End Get
Set
Me._ausbeutesatz = Value
End Set
End Property
Public Property KNCode() As String
Get
Return Me._kNCode
End Get
Set
Me._kNCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AVVeredelungserzeugnisTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AVVeredelungserzeugnisTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes AVVeredelungserzeugnisTyp object
'''
''' string to deserialize
''' Output AVVeredelungserzeugnisTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AVVeredelungserzeugnisTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AVVeredelungserzeugnisTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AVVeredelungserzeugnisTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AVVeredelungserzeugnisTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AVVeredelungserzeugnisTyp
Return CType(SerializerXml.Deserialize(s), AVVeredelungserzeugnisTyp)
End Function
#End Region
'''
''' Serializes current AVVeredelungserzeugnisTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an AVVeredelungserzeugnisTyp object
'''
''' File to load and deserialize
''' Output AVVeredelungserzeugnisTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AVVeredelungserzeugnisTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVVeredelungserzeugnisTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AVVeredelungserzeugnisTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class WarenMengeAVUVTyp
#Region "Private fields"
Private _menge As String
Private _masseinheit As String
Private _qualifier As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Menge() As String
Get
Return Me._menge
End Get
Set
Me._menge = Value
End Set
End Property
Public Property Masseinheit() As String
Get
Return Me._masseinheit
End Get
Set
Me._masseinheit = Value
End Set
End Property
Public Property Qualifier() As String
Get
Return Me._qualifier
End Get
Set
Me._qualifier = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(WarenMengeAVUVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize WarenMengeAVUVTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes WarenMengeAVUVTyp object
'''
''' string to deserialize
''' Output WarenMengeAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, WarenMengeAVUVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As WarenMengeAVUVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), WarenMengeAVUVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As WarenMengeAVUVTyp
Return CType(SerializerXml.Deserialize(s), WarenMengeAVUVTyp)
End Function
#End Region
'''
''' Serializes current WarenMengeAVUVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an WarenMengeAVUVTyp object
'''
''' File to load and deserialize
''' Output WarenMengeAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, WarenMengeAVUVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As WarenMengeAVUVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class PositionEinfuhrUnvollstaendigeAnmeldungTyp
#Region "Private fields"
Private _positionsnummer As String
Private _artikelNummer As String
Private _warenNummerEZT As String
Private _warenNummerZusatzCode As List(Of String)
Private _warenNummerZusatz1 As String
Private _warenNummerZusatz2 As String
Private _warenBezeichnung As String
Private _verfahrenscodeVorangegangenesVerfahren As String
Private _abgabensteuerungKz As String
Private _eUCode As List(Of String)
Private _ursprungslandCode As String
Private _praeferenzursprungsland As String
Private _rohmasse As String
Private _eigenmasse As String
Private _aHStatMenge As String
Private _aHStatMengeMasseinheit As String
Private _aHStatMengeQualifier As String
Private _kostenEUSt As String
Private _aHStatWert As String
Private _packstueckAnzahl As String
Private _packstueckArt As String
Private _packstueckZeichen As String
Private _warenMenge As List(Of WarenMengeAVUVTyp)
Private _warenMengeZoll As String
Private _warenMengeZollMasseinheit As String
Private _warenMengeZollMasseinheitQualifier As String
Private _beguenstigungBeantragtCode As String
Private _kontingentnummer As List(Of String)
Private _positionsZusatz As String
Private _aHStatWertManuellKZ As String
Private _artikelpreis As String
Private _ortVerbringens As String
Private _abflughafenIATACode As String
Private _warenmengeAVUVZugang As String
Private _warenmengeAVUVZugangMasseinheit As String
Private _warenmengeAVUVZugangMasseinheitQualifier As String
Private _warenmengeAgrarzoll As String
Private _warenmengeAgrarzollMasseinheit As String
Private _warenmengeAgrarzollMasseinheitQualifier As String
Private _sachbereich As String
Private _bedingungCode As String
Private _veredelungWertsteigerung As String
Private _tabakSteuerzeichenID As String
Private _aVWirtschaftlicheVoraussetzungen As String
Private _aVNaemlichkeitsmittel As String
Private _aVErlaeuterungNaemlichkeit As String
Private _aVVeredelungserzeugnis As List(Of AVVeredelungserzeugnisTyp)
Private _gehaltsangaben As List(Of GehaltsangabenAVUVTyp)
Private _beguenstigungsmenge As BeguenstigungsMengeAVUVTyp
Private _verbrauchssteuer As List(Of VerbrauchssteuerAVUVTyp)
Private _abgabenminderung As List(Of AbgabenminderungAVUVTyp)
Private _sonderfalldaten As List(Of SonderfalldatenAVUVTyp)
Private _unterlage As List(Of UnterlageVZPositionAVUVTyp)
Private _besondereWertangabe As List(Of BesondereWertangabeAVUVTyp)
Private _vZAStatus As String
Private _eGZStatus As String
Private _dV1Status As String
Private _anmeldeArt As String
Private _befundDatum As Date
Private _anmelderAdressCodeEORI As String
Private _anmelderAdressCodeZollnummer As String
Private _zollverfahren As String
Private _abrechnungszollstelleCode As String
Private _sachbereichCode As String
Private _registriernummervZA As String
Private _anmeldeVerfahren As String
Private _bewilligungsnummer As String
Private _bewilligungsnummerEndverwenderEGZDurchDritte As String
Private _zollwert As String
Private _luftfrachtkostenGesamt As String
Private _iATAKursKz As String
Private _luftfrachtkostenGesamtWaehrung As String
Private _kursVereinbartKz As String
Private _kursBetragVereinbart As String
Private _kursDatum As Date
Private _abzugHinzurechnung As List(Of AbzugHinzurechnungAVUVTyp)
Private _aussenhandelsstatistik As AussenhandelsstatistikAVUVTyp
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._aussenhandelsstatistik = New AussenhandelsstatistikAVUVTyp()
Me._abzugHinzurechnung = New List(Of AbzugHinzurechnungAVUVTyp)()
Me._besondereWertangabe = New List(Of BesondereWertangabeAVUVTyp)()
Me._unterlage = New List(Of UnterlageVZPositionAVUVTyp)()
Me._sonderfalldaten = New List(Of SonderfalldatenAVUVTyp)()
Me._abgabenminderung = New List(Of AbgabenminderungAVUVTyp)()
Me._verbrauchssteuer = New List(Of VerbrauchssteuerAVUVTyp)()
Me._beguenstigungsmenge = New BeguenstigungsMengeAVUVTyp()
Me._gehaltsangaben = New List(Of GehaltsangabenAVUVTyp)()
Me._aVVeredelungserzeugnis = New List(Of AVVeredelungserzeugnisTyp)()
Me._kontingentnummer = New List(Of String)()
Me._warenMenge = New List(Of WarenMengeAVUVTyp)()
Me._eUCode = New List(Of String)()
Me._warenNummerZusatzCode = New List(Of String)()
End Sub
Public Property Positionsnummer() As String
Get
Return Me._positionsnummer
End Get
Set
Me._positionsnummer = Value
End Set
End Property
Public Property ArtikelNummer() As String
Get
Return Me._artikelNummer
End Get
Set
Me._artikelNummer = Value
End Set
End Property
Public Property WarenNummerEZT() As String
Get
Return Me._warenNummerEZT
End Get
Set
Me._warenNummerEZT = Value
End Set
End Property
Public Property WarenNummerZusatzCode() As List(Of String)
Get
Return Me._warenNummerZusatzCode
End Get
Set
Me._warenNummerZusatzCode = Value
End Set
End Property
Public Property WarenNummerZusatz1() As String
Get
Return Me._warenNummerZusatz1
End Get
Set
Me._warenNummerZusatz1 = Value
End Set
End Property
Public Property WarenNummerZusatz2() As String
Get
Return Me._warenNummerZusatz2
End Get
Set
Me._warenNummerZusatz2 = Value
End Set
End Property
Public Property WarenBezeichnung() As String
Get
Return Me._warenBezeichnung
End Get
Set
Me._warenBezeichnung = Value
End Set
End Property
Public Property VerfahrenscodeVorangegangenesVerfahren() As String
Get
Return Me._verfahrenscodeVorangegangenesVerfahren
End Get
Set
Me._verfahrenscodeVorangegangenesVerfahren = Value
End Set
End Property
Public Property AbgabensteuerungKz() As String
Get
Return Me._abgabensteuerungKz
End Get
Set
Me._abgabensteuerungKz = Value
End Set
End Property
Public Property EUCode() As List(Of String)
Get
Return Me._eUCode
End Get
Set
Me._eUCode = Value
End Set
End Property
Public Property UrsprungslandCode() As String
Get
Return Me._ursprungslandCode
End Get
Set
Me._ursprungslandCode = Value
End Set
End Property
Public Property Praeferenzursprungsland() As String
Get
Return Me._praeferenzursprungsland
End Get
Set
Me._praeferenzursprungsland = Value
End Set
End Property
Public Property Rohmasse() As String
Get
Return Me._rohmasse
End Get
Set
Me._rohmasse = Value
End Set
End Property
Public Property Eigenmasse() As String
Get
Return Me._eigenmasse
End Get
Set
Me._eigenmasse = Value
End Set
End Property
Public Property AHStatMenge() As String
Get
Return Me._aHStatMenge
End Get
Set
Me._aHStatMenge = Value
End Set
End Property
Public Property AHStatMengeMasseinheit() As String
Get
Return Me._aHStatMengeMasseinheit
End Get
Set
Me._aHStatMengeMasseinheit = Value
End Set
End Property
Public Property AHStatMengeQualifier() As String
Get
Return Me._aHStatMengeQualifier
End Get
Set
Me._aHStatMengeQualifier = Value
End Set
End Property
Public Property KostenEUSt() As String
Get
Return Me._kostenEUSt
End Get
Set
Me._kostenEUSt = Value
End Set
End Property
Public Property AHStatWert() As String
Get
Return Me._aHStatWert
End Get
Set
Me._aHStatWert = Value
End Set
End Property
Public Property PackstueckAnzahl() As String
Get
Return Me._packstueckAnzahl
End Get
Set
Me._packstueckAnzahl = Value
End Set
End Property
Public Property PackstueckArt() As String
Get
Return Me._packstueckArt
End Get
Set
Me._packstueckArt = Value
End Set
End Property
Public Property PackstueckZeichen() As String
Get
Return Me._packstueckZeichen
End Get
Set
Me._packstueckZeichen = Value
End Set
End Property
Public Property WarenMenge() As List(Of WarenMengeAVUVTyp)
Get
Return Me._warenMenge
End Get
Set
Me._warenMenge = Value
End Set
End Property
Public Property WarenMengeZoll() As String
Get
Return Me._warenMengeZoll
End Get
Set
Me._warenMengeZoll = Value
End Set
End Property
Public Property WarenMengeZollMasseinheit() As String
Get
Return Me._warenMengeZollMasseinheit
End Get
Set
Me._warenMengeZollMasseinheit = Value
End Set
End Property
Public Property WarenMengeZollMasseinheitQualifier() As String
Get
Return Me._warenMengeZollMasseinheitQualifier
End Get
Set
Me._warenMengeZollMasseinheitQualifier = Value
End Set
End Property
Public Property BeguenstigungBeantragtCode() As String
Get
Return Me._beguenstigungBeantragtCode
End Get
Set
Me._beguenstigungBeantragtCode = Value
End Set
End Property
Public Property Kontingentnummer() As List(Of String)
Get
Return Me._kontingentnummer
End Get
Set
Me._kontingentnummer = Value
End Set
End Property
Public Property PositionsZusatz() As String
Get
Return Me._positionsZusatz
End Get
Set
Me._positionsZusatz = Value
End Set
End Property
Public Property AHStatWertManuellKZ() As String
Get
Return Me._aHStatWertManuellKZ
End Get
Set
Me._aHStatWertManuellKZ = Value
End Set
End Property
Public Property Artikelpreis() As String
Get
Return Me._artikelpreis
End Get
Set
Me._artikelpreis = Value
End Set
End Property
Public Property OrtVerbringens() As String
Get
Return Me._ortVerbringens
End Get
Set
Me._ortVerbringens = Value
End Set
End Property
Public Property AbflughafenIATACode() As String
Get
Return Me._abflughafenIATACode
End Get
Set
Me._abflughafenIATACode = Value
End Set
End Property
Public Property WarenmengeAVUVZugang() As String
Get
Return Me._warenmengeAVUVZugang
End Get
Set
Me._warenmengeAVUVZugang = Value
End Set
End Property
Public Property WarenmengeAVUVZugangMasseinheit() As String
Get
Return Me._warenmengeAVUVZugangMasseinheit
End Get
Set
Me._warenmengeAVUVZugangMasseinheit = Value
End Set
End Property
Public Property WarenmengeAVUVZugangMasseinheitQualifier() As String
Get
Return Me._warenmengeAVUVZugangMasseinheitQualifier
End Get
Set
Me._warenmengeAVUVZugangMasseinheitQualifier = Value
End Set
End Property
Public Property WarenmengeAgrarzoll() As String
Get
Return Me._warenmengeAgrarzoll
End Get
Set
Me._warenmengeAgrarzoll = Value
End Set
End Property
Public Property WarenmengeAgrarzollMasseinheit() As String
Get
Return Me._warenmengeAgrarzollMasseinheit
End Get
Set
Me._warenmengeAgrarzollMasseinheit = Value
End Set
End Property
Public Property WarenmengeAgrarzollMasseinheitQualifier() As String
Get
Return Me._warenmengeAgrarzollMasseinheitQualifier
End Get
Set
Me._warenmengeAgrarzollMasseinheitQualifier = Value
End Set
End Property
Public Property Sachbereich() As String
Get
Return Me._sachbereich
End Get
Set
Me._sachbereich = Value
End Set
End Property
Public Property BedingungCode() As String
Get
Return Me._bedingungCode
End Get
Set
Me._bedingungCode = Value
End Set
End Property
Public Property VeredelungWertsteigerung() As String
Get
Return Me._veredelungWertsteigerung
End Get
Set
Me._veredelungWertsteigerung = Value
End Set
End Property
Public Property TabakSteuerzeichenID() As String
Get
Return Me._tabakSteuerzeichenID
End Get
Set
Me._tabakSteuerzeichenID = Value
End Set
End Property
Public Property AVWirtschaftlicheVoraussetzungen() As String
Get
Return Me._aVWirtschaftlicheVoraussetzungen
End Get
Set
Me._aVWirtschaftlicheVoraussetzungen = Value
End Set
End Property
Public Property AVNaemlichkeitsmittel() As String
Get
Return Me._aVNaemlichkeitsmittel
End Get
Set
Me._aVNaemlichkeitsmittel = Value
End Set
End Property
Public Property AVErlaeuterungNaemlichkeit() As String
Get
Return Me._aVErlaeuterungNaemlichkeit
End Get
Set
Me._aVErlaeuterungNaemlichkeit = Value
End Set
End Property
Public Property AVVeredelungserzeugnis() As List(Of AVVeredelungserzeugnisTyp)
Get
Return Me._aVVeredelungserzeugnis
End Get
Set
Me._aVVeredelungserzeugnis = Value
End Set
End Property
Public Property Gehaltsangaben() As List(Of GehaltsangabenAVUVTyp)
Get
Return Me._gehaltsangaben
End Get
Set
Me._gehaltsangaben = Value
End Set
End Property
Public Property Beguenstigungsmenge() As BeguenstigungsMengeAVUVTyp
Get
Return Me._beguenstigungsmenge
End Get
Set
Me._beguenstigungsmenge = Value
End Set
End Property
Public Property Verbrauchssteuer() As List(Of VerbrauchssteuerAVUVTyp)
Get
Return Me._verbrauchssteuer
End Get
Set
Me._verbrauchssteuer = Value
End Set
End Property
Public Property Abgabenminderung() As List(Of AbgabenminderungAVUVTyp)
Get
Return Me._abgabenminderung
End Get
Set
Me._abgabenminderung = Value
End Set
End Property
Public Property Sonderfalldaten() As List(Of SonderfalldatenAVUVTyp)
Get
Return Me._sonderfalldaten
End Get
Set
Me._sonderfalldaten = Value
End Set
End Property
Public Property Unterlage() As List(Of UnterlageVZPositionAVUVTyp)
Get
Return Me._unterlage
End Get
Set
Me._unterlage = Value
End Set
End Property
Public Property BesondereWertangabe() As List(Of BesondereWertangabeAVUVTyp)
Get
Return Me._besondereWertangabe
End Get
Set
Me._besondereWertangabe = Value
End Set
End Property
Public Property VZAStatus() As String
Get
Return Me._vZAStatus
End Get
Set
Me._vZAStatus = Value
End Set
End Property
Public Property EGZStatus() As String
Get
Return Me._eGZStatus
End Get
Set
Me._eGZStatus = Value
End Set
End Property
Public Property DV1Status() As String
Get
Return Me._dV1Status
End Get
Set
Me._dV1Status = Value
End Set
End Property
Public Property AnmeldeArt() As String
Get
Return Me._anmeldeArt
End Get
Set
Me._anmeldeArt = Value
End Set
End Property
Public Property BefundDatum() As Date
Get
Return Me._befundDatum
End Get
Set
Me._befundDatum = Value
End Set
End Property
Public Property AnmelderAdressCodeEORI() As String
Get
Return Me._anmelderAdressCodeEORI
End Get
Set
Me._anmelderAdressCodeEORI = Value
End Set
End Property
Public Property AnmelderAdressCodeZollnummer() As String
Get
Return Me._anmelderAdressCodeZollnummer
End Get
Set
Me._anmelderAdressCodeZollnummer = Value
End Set
End Property
Public Property Zollverfahren() As String
Get
Return Me._zollverfahren
End Get
Set
Me._zollverfahren = Value
End Set
End Property
Public Property AbrechnungszollstelleCode() As String
Get
Return Me._abrechnungszollstelleCode
End Get
Set
Me._abrechnungszollstelleCode = Value
End Set
End Property
Public Property SachbereichCode() As String
Get
Return Me._sachbereichCode
End Get
Set
Me._sachbereichCode = Value
End Set
End Property
Public Property RegistriernummervZA() As String
Get
Return Me._registriernummervZA
End Get
Set
Me._registriernummervZA = Value
End Set
End Property
Public Property AnmeldeVerfahren() As String
Get
Return Me._anmeldeVerfahren
End Get
Set
Me._anmeldeVerfahren = Value
End Set
End Property
Public Property Bewilligungsnummer() As String
Get
Return Me._bewilligungsnummer
End Get
Set
Me._bewilligungsnummer = Value
End Set
End Property
Public Property BewilligungsnummerEndverwenderEGZDurchDritte() As String
Get
Return Me._bewilligungsnummerEndverwenderEGZDurchDritte
End Get
Set
Me._bewilligungsnummerEndverwenderEGZDurchDritte = Value
End Set
End Property
Public Property Zollwert() As String
Get
Return Me._zollwert
End Get
Set
Me._zollwert = Value
End Set
End Property
Public Property LuftfrachtkostenGesamt() As String
Get
Return Me._luftfrachtkostenGesamt
End Get
Set
Me._luftfrachtkostenGesamt = Value
End Set
End Property
Public Property IATAKursKz() As String
Get
Return Me._iATAKursKz
End Get
Set
Me._iATAKursKz = Value
End Set
End Property
Public Property LuftfrachtkostenGesamtWaehrung() As String
Get
Return Me._luftfrachtkostenGesamtWaehrung
End Get
Set
Me._luftfrachtkostenGesamtWaehrung = Value
End Set
End Property
Public Property KursVereinbartKz() As String
Get
Return Me._kursVereinbartKz
End Get
Set
Me._kursVereinbartKz = Value
End Set
End Property
Public Property KursBetragVereinbart() As String
Get
Return Me._kursBetragVereinbart
End Get
Set
Me._kursBetragVereinbart = Value
End Set
End Property
Public Property KursDatum() As Date
Get
Return Me._kursDatum
End Get
Set
Me._kursDatum = Value
End Set
End Property
Public Property AbzugHinzurechnung() As List(Of AbzugHinzurechnungAVUVTyp)
Get
Return Me._abzugHinzurechnung
End Get
Set
Me._abzugHinzurechnung = Value
End Set
End Property
Public Property Aussenhandelsstatistik() As AussenhandelsstatistikAVUVTyp
Get
Return Me._aussenhandelsstatistik
End Get
Set
Me._aussenhandelsstatistik = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionEinfuhrUnvollstaendigeAnmeldungTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize PositionEinfuhrUnvollstaendigeAnmeldungTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes PositionEinfuhrUnvollstaendigeAnmeldungTyp object
'''
''' string to deserialize
''' Output PositionEinfuhrUnvollstaendigeAnmeldungTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionEinfuhrUnvollstaendigeAnmeldungTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PositionEinfuhrUnvollstaendigeAnmeldungTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionEinfuhrUnvollstaendigeAnmeldungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionEinfuhrUnvollstaendigeAnmeldungTyp
Return CType(SerializerXml.Deserialize(s), PositionEinfuhrUnvollstaendigeAnmeldungTyp)
End Function
#End Region
'''
''' Serializes current PositionEinfuhrUnvollstaendigeAnmeldungTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an PositionEinfuhrUnvollstaendigeAnmeldungTyp object
'''
''' File to load and deserialize
''' Output PositionEinfuhrUnvollstaendigeAnmeldungTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionEinfuhrUnvollstaendigeAnmeldungTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionEinfuhrUnvollstaendigeAnmeldungTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class AdressenVzImportAVUVTyp
#Region "Private fields"
Private _adressTyp As String
Private _adressCode As String
Private _teilnehmerEORI As String
Private _teilnehmerNLNR As String
Private _zollNr As String
Private _nameFirma As String
Private _strasseHausNr As String
Private _ortsteil As String
Private _landCode As String
Private _pLZS As String
Private _ortS As String
Private _uStIDAnmelder As String
Private _finanzamtIDAnmelder As String
Private _sitzEinfuehrer As String
Private _bewilligungsnummer As String
Private _bewilligungFachVerfahren As String
Private _bewilligungsnummerEndverwender As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property AdressTyp() As String
Get
Return Me._adressTyp
End Get
Set
Me._adressTyp = Value
End Set
End Property
Public Property AdressCode() As String
Get
Return Me._adressCode
End Get
Set
Me._adressCode = Value
End Set
End Property
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set
Me._teilnehmerEORI = Value
End Set
End Property
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set
Me._teilnehmerNLNR = Value
End Set
End Property
Public Property ZollNr() As String
Get
Return Me._zollNr
End Get
Set
Me._zollNr = Value
End Set
End Property
Public Property NameFirma() As String
Get
Return Me._nameFirma
End Get
Set
Me._nameFirma = Value
End Set
End Property
Public Property StrasseHausNr() As String
Get
Return Me._strasseHausNr
End Get
Set
Me._strasseHausNr = Value
End Set
End Property
Public Property Ortsteil() As String
Get
Return Me._ortsteil
End Get
Set
Me._ortsteil = Value
End Set
End Property
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set
Me._landCode = Value
End Set
End Property
Public Property PLZS() As String
Get
Return Me._pLZS
End Get
Set
Me._pLZS = Value
End Set
End Property
Public Property OrtS() As String
Get
Return Me._ortS
End Get
Set
Me._ortS = Value
End Set
End Property
Public Property UStIDAnmelder() As String
Get
Return Me._uStIDAnmelder
End Get
Set
Me._uStIDAnmelder = Value
End Set
End Property
Public Property FinanzamtIDAnmelder() As String
Get
Return Me._finanzamtIDAnmelder
End Get
Set
Me._finanzamtIDAnmelder = Value
End Set
End Property
Public Property SitzEinfuehrer() As String
Get
Return Me._sitzEinfuehrer
End Get
Set
Me._sitzEinfuehrer = Value
End Set
End Property
Public Property Bewilligungsnummer() As String
Get
Return Me._bewilligungsnummer
End Get
Set
Me._bewilligungsnummer = Value
End Set
End Property
Public Property BewilligungFachVerfahren() As String
Get
Return Me._bewilligungFachVerfahren
End Get
Set
Me._bewilligungFachVerfahren = Value
End Set
End Property
Public Property BewilligungsnummerEndverwender() As String
Get
Return Me._bewilligungsnummerEndverwender
End Get
Set
Me._bewilligungsnummerEndverwender = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdressenVzImportAVUVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AdressenVzImportAVUVTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes AdressenVzImportAVUVTyp object
'''
''' string to deserialize
''' Output AdressenVzImportAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdressenVzImportAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AdressenVzImportAVUVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdressenVzImportAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AdressenVzImportAVUVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdressenVzImportAVUVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AdressenVzImportAVUVTyp
Return CType(SerializerXml.Deserialize(s), AdressenVzImportAVUVTyp)
End Function
#End Region
'''
''' Serializes current AdressenVzImportAVUVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an AdressenVzImportAVUVTyp object
'''
''' File to load and deserialize
''' Output AdressenVzImportAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdressenVzImportAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AdressenVzImportAVUVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdressenVzImportAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AdressenVzImportAVUVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class ZusaetzlicheSteuerlicheVerweiseTyp
#Region "Private fields"
Private _kennnummer As String
Private _steuerbeteiligterTIN As String
Private _name As String
Private _strasseUndHausnummer As String
Private _land As String
Private _pLZ As String
Private _ort As String
Private _ortsteil As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Kennnummer() As String
Get
Return Me._kennnummer
End Get
Set
Me._kennnummer = Value
End Set
End Property
Public Property SteuerbeteiligterTIN() As String
Get
Return Me._steuerbeteiligterTIN
End Get
Set
Me._steuerbeteiligterTIN = Value
End Set
End Property
Public Property Name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
Public Property StrasseUndHausnummer() As String
Get
Return Me._strasseUndHausnummer
End Get
Set
Me._strasseUndHausnummer = Value
End Set
End Property
Public Property Land() As String
Get
Return Me._land
End Get
Set
Me._land = Value
End Set
End Property
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
Public Property Ortsteil() As String
Get
Return Me._ortsteil
End Get
Set
Me._ortsteil = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ZusaetzlicheSteuerlicheVerweiseTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize ZusaetzlicheSteuerlicheVerweiseTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes ZusaetzlicheSteuerlicheVerweiseTyp object
'''
''' string to deserialize
''' Output ZusaetzlicheSteuerlicheVerweiseTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ZusaetzlicheSteuerlicheVerweiseTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ZusaetzlicheSteuerlicheVerweiseTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ZusaetzlicheSteuerlicheVerweiseTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ZusaetzlicheSteuerlicheVerweiseTyp
Return CType(SerializerXml.Deserialize(s), ZusaetzlicheSteuerlicheVerweiseTyp)
End Function
#End Region
'''
''' Serializes current ZusaetzlicheSteuerlicheVerweiseTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an ZusaetzlicheSteuerlicheVerweiseTyp object
'''
''' File to load and deserialize
''' Output ZusaetzlicheSteuerlicheVerweiseTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ZusaetzlicheSteuerlicheVerweiseTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ZusaetzlicheSteuerlicheVerweiseTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class AVBuchhaltVeredelungTyp
#Region "Private fields"
Private _strasse As String
Private _land As String
Private _pLZ As String
Private _ort As String
Private _ortsteil As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set
Me._strasse = Value
End Set
End Property
Public Property Land() As String
Get
Return Me._land
End Get
Set
Me._land = Value
End Set
End Property
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
Public Property Ortsteil() As String
Get
Return Me._ortsteil
End Get
Set
Me._ortsteil = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AVBuchhaltVeredelungTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AVBuchhaltVeredelungTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes AVBuchhaltVeredelungTyp object
'''
''' string to deserialize
''' Output AVBuchhaltVeredelungTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AVBuchhaltVeredelungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AVBuchhaltVeredelungTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AVBuchhaltVeredelungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AVBuchhaltVeredelungTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AVBuchhaltVeredelungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AVBuchhaltVeredelungTyp
Return CType(SerializerXml.Deserialize(s), AVBuchhaltVeredelungTyp)
End Function
#End Region
'''
''' Serializes current AVBuchhaltVeredelungTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an AVBuchhaltVeredelungTyp object
'''
''' File to load and deserialize
''' Output AVBuchhaltVeredelungTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVBuchhaltVeredelungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AVBuchhaltVeredelungTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVBuchhaltVeredelungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AVBuchhaltVeredelungTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class BEAnteilZLAVUVPositionAVUVTyp
#Region "Private fields"
Private _registriernummerZugang As String
Private _positionZugang As String
Private _artikelcodeATZL As String
Private _eigentuemerATZL As String
Private _chargennummerATZL As String
Private _ursprungslandATZL As String
Private _atlasKz As String
Private _warennummer As String
Private _ueblicheBehandlungKz As String
Private _handelsmenge As String
Private _masseinheitHandelsmenge As String
Private _qualifikatorHandelsmenge As String
Private _abgangsmenge As String
Private _masseinheitAbgangsmenge As String
Private _qualifikatorAbgangsmenge As String
Private _positionszusatz As String
Private _warenbezogeneAngaben As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property RegistriernummerZugang() As String
Get
Return Me._registriernummerZugang
End Get
Set
Me._registriernummerZugang = Value
End Set
End Property
Public Property PositionZugang() As String
Get
Return Me._positionZugang
End Get
Set
Me._positionZugang = Value
End Set
End Property
Public Property ArtikelcodeATZL() As String
Get
Return Me._artikelcodeATZL
End Get
Set
Me._artikelcodeATZL = Value
End Set
End Property
Public Property EigentuemerATZL() As String
Get
Return Me._eigentuemerATZL
End Get
Set
Me._eigentuemerATZL = Value
End Set
End Property
Public Property ChargennummerATZL() As String
Get
Return Me._chargennummerATZL
End Get
Set
Me._chargennummerATZL = Value
End Set
End Property
Public Property UrsprungslandATZL() As String
Get
Return Me._ursprungslandATZL
End Get
Set
Me._ursprungslandATZL = Value
End Set
End Property
Public Property AtlasKz() As String
Get
Return Me._atlasKz
End Get
Set
Me._atlasKz = Value
End Set
End Property
Public Property Warennummer() As String
Get
Return Me._warennummer
End Get
Set
Me._warennummer = Value
End Set
End Property
Public Property UeblicheBehandlungKz() As String
Get
Return Me._ueblicheBehandlungKz
End Get
Set
Me._ueblicheBehandlungKz = Value
End Set
End Property
Public Property Handelsmenge() As String
Get
Return Me._handelsmenge
End Get
Set
Me._handelsmenge = Value
End Set
End Property
Public Property MasseinheitHandelsmenge() As String
Get
Return Me._masseinheitHandelsmenge
End Get
Set
Me._masseinheitHandelsmenge = Value
End Set
End Property
Public Property QualifikatorHandelsmenge() As String
Get
Return Me._qualifikatorHandelsmenge
End Get
Set
Me._qualifikatorHandelsmenge = Value
End Set
End Property
Public Property Abgangsmenge() As String
Get
Return Me._abgangsmenge
End Get
Set
Me._abgangsmenge = Value
End Set
End Property
Public Property MasseinheitAbgangsmenge() As String
Get
Return Me._masseinheitAbgangsmenge
End Get
Set
Me._masseinheitAbgangsmenge = Value
End Set
End Property
Public Property QualifikatorAbgangsmenge() As String
Get
Return Me._qualifikatorAbgangsmenge
End Get
Set
Me._qualifikatorAbgangsmenge = Value
End Set
End Property
Public Property Positionszusatz() As String
Get
Return Me._positionszusatz
End Get
Set
Me._positionszusatz = Value
End Set
End Property
Public Property WarenbezogeneAngaben() As String
Get
Return Me._warenbezogeneAngaben
End Get
Set
Me._warenbezogeneAngaben = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BEAnteilZLAVUVPositionAVUVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize BEAnteilZLAVUVPositionAVUVTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes BEAnteilZLAVUVPositionAVUVTyp object
'''
''' string to deserialize
''' Output BEAnteilZLAVUVPositionAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BEAnteilZLAVUVPositionAVUVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As BEAnteilZLAVUVPositionAVUVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BEAnteilZLAVUVPositionAVUVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As BEAnteilZLAVUVPositionAVUVTyp
Return CType(SerializerXml.Deserialize(s), BEAnteilZLAVUVPositionAVUVTyp)
End Function
#End Region
'''
''' Serializes current BEAnteilZLAVUVPositionAVUVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an BEAnteilZLAVUVPositionAVUVTyp object
'''
''' File to load and deserialize
''' Output BEAnteilZLAVUVPositionAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BEAnteilZLAVUVPositionAVUVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BEAnteilZLAVUVPositionAVUVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class SumABeendigungsAnteilAVUVTyp
#Region "Private fields"
Private _sumARegistriernummer As String
Private _sumAPosNr As String
Private _beendigungsPackstueckzahl As String
Private _artIdentifikation As String
Private _verwahrerEORI As String
Private _zollNummerVerwahrer As String
Private _spezifOrdnungsbegriffArt As String
Private _spezifOrdnungsbegriff As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property SumARegistriernummer() As String
Get
Return Me._sumARegistriernummer
End Get
Set
Me._sumARegistriernummer = Value
End Set
End Property
Public Property SumAPosNr() As String
Get
Return Me._sumAPosNr
End Get
Set
Me._sumAPosNr = Value
End Set
End Property
Public Property BeendigungsPackstueckzahl() As String
Get
Return Me._beendigungsPackstueckzahl
End Get
Set
Me._beendigungsPackstueckzahl = Value
End Set
End Property
Public Property ArtIdentifikation() As String
Get
Return Me._artIdentifikation
End Get
Set
Me._artIdentifikation = Value
End Set
End Property
Public Property VerwahrerEORI() As String
Get
Return Me._verwahrerEORI
End Get
Set
Me._verwahrerEORI = Value
End Set
End Property
Public Property ZollNummerVerwahrer() As String
Get
Return Me._zollNummerVerwahrer
End Get
Set
Me._zollNummerVerwahrer = Value
End Set
End Property
Public Property SpezifOrdnungsbegriffArt() As String
Get
Return Me._spezifOrdnungsbegriffArt
End Get
Set
Me._spezifOrdnungsbegriffArt = Value
End Set
End Property
Public Property SpezifOrdnungsbegriff() As String
Get
Return Me._spezifOrdnungsbegriff
End Get
Set
Me._spezifOrdnungsbegriff = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SumABeendigungsAnteilAVUVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize SumABeendigungsAnteilAVUVTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes SumABeendigungsAnteilAVUVTyp object
'''
''' string to deserialize
''' Output SumABeendigungsAnteilAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumABeendigungsAnteilAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SumABeendigungsAnteilAVUVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumABeendigungsAnteilAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As SumABeendigungsAnteilAVUVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SumABeendigungsAnteilAVUVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As SumABeendigungsAnteilAVUVTyp
Return CType(SerializerXml.Deserialize(s), SumABeendigungsAnteilAVUVTyp)
End Function
#End Region
'''
''' Serializes current SumABeendigungsAnteilAVUVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an SumABeendigungsAnteilAVUVTyp object
'''
''' File to load and deserialize
''' Output SumABeendigungsAnteilAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SumABeendigungsAnteilAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SumABeendigungsAnteilAVUVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SumABeendigungsAnteilAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SumABeendigungsAnteilAVUVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class AufschubAVUVTyp
#Region "Private fields"
Private _aufschubart As String
Private _artAufschubantrag As String
Private _aufschubnehmerEORI As String
Private _kennbuchstabenAufschub As String
Private _zollnummerAufschubnehmer As String
Private _kontoBewHZA As String
Private _kontoNr As String
Private _aufschubBIN As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Aufschubart() As String
Get
Return Me._aufschubart
End Get
Set
Me._aufschubart = Value
End Set
End Property
Public Property ArtAufschubantrag() As String
Get
Return Me._artAufschubantrag
End Get
Set
Me._artAufschubantrag = Value
End Set
End Property
Public Property AufschubnehmerEORI() As String
Get
Return Me._aufschubnehmerEORI
End Get
Set
Me._aufschubnehmerEORI = Value
End Set
End Property
Public Property KennbuchstabenAufschub() As String
Get
Return Me._kennbuchstabenAufschub
End Get
Set
Me._kennbuchstabenAufschub = Value
End Set
End Property
Public Property ZollnummerAufschubnehmer() As String
Get
Return Me._zollnummerAufschubnehmer
End Get
Set
Me._zollnummerAufschubnehmer = Value
End Set
End Property
Public Property KontoBewHZA() As String
Get
Return Me._kontoBewHZA
End Get
Set
Me._kontoBewHZA = Value
End Set
End Property
Public Property KontoNr() As String
Get
Return Me._kontoNr
End Get
Set
Me._kontoNr = Value
End Set
End Property
Public Property AufschubBIN() As String
Get
Return Me._aufschubBIN
End Get
Set
Me._aufschubBIN = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AufschubAVUVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize AufschubAVUVTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes AufschubAVUVTyp object
'''
''' string to deserialize
''' Output AufschubAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AufschubAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AufschubAVUVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AufschubAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AufschubAVUVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AufschubAVUVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AufschubAVUVTyp
Return CType(SerializerXml.Deserialize(s), AufschubAVUVTyp)
End Function
#End Region
'''
''' Serializes current AufschubAVUVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an AufschubAVUVTyp object
'''
''' File to load and deserialize
''' Output AufschubAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AufschubAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AufschubAVUVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AufschubAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AufschubAVUVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class UnterlageVzKopfAVUVTyp
#Region "Private fields"
Private _bereich As String
Private _art As String
Private _nummer As String
Private _datumAusstellung As Date
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Bereich() As String
Get
Return Me._bereich
End Get
Set
Me._bereich = Value
End Set
End Property
Public Property Art() As String
Get
Return Me._art
End Get
Set
Me._art = Value
End Set
End Property
Public Property Nummer() As String
Get
Return Me._nummer
End Get
Set
Me._nummer = Value
End Set
End Property
Public Property DatumAusstellung() As Date
Get
Return Me._datumAusstellung
End Get
Set
Me._datumAusstellung = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVzKopfAVUVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
'''
''' Serialize UnterlageVzKopfAVUVTyp object
'''
''' XML value
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
'''
''' Deserializes UnterlageVzKopfAVUVTyp object
'''
''' string to deserialize
''' Output UnterlageVzKopfAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVzKopfAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, UnterlageVzKopfAVUVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVzKopfAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As UnterlageVzKopfAVUVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UnterlageVzKopfAVUVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As UnterlageVzKopfAVUVTyp
Return CType(SerializerXml.Deserialize(s), UnterlageVzKopfAVUVTyp)
End Function
#End Region
'''
''' Serializes current UnterlageVzKopfAVUVTyp object into file
'''
''' full path of outupt xml file
''' output Exception value if failed
''' true if can serialize and save into file; otherwise, false
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''
''' Deserializes xml markup from file into an UnterlageVzKopfAVUVTyp object
'''
''' File to load and deserialize
''' Output UnterlageVzKopfAVUVTyp object
''' output Exception value if deserialize failed
''' true if this Serializer can deserialize the object; otherwise, false
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVzKopfAVUVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, UnterlageVzKopfAVUVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVzKopfAVUVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UnterlageVzKopfAVUVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
Partial Public Class DV1KostenverteilungAVUVTyp
#Region "Private fields"
Private _kostenart As String
Private _kosten As String
Private _kostenWaehrung As String
Private _wechselkursArt As String
Private _wechselkurs As String
Private _wechselkursDatum As Date
Private _verteilungsart As String
Private _minimalbetrag As String
Private _rabattProzent As String
Private _skontoProzent As String
Private _bemerkungen As String
Private _versicherungBerechnenKz As String
Private _prozentualerAnteil As String
Private _imaginaererProfit As String
Private _andereZahlung As String
Private _summeRechnungManuell As String
Private _summeFrachtManuell As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Property Kostenart() As String
Get
Return Me._kostenart
End Get
Set
Me._kostenart = Value
End Set
End Property
Public Property Kosten() As String
Get
Return Me._kosten
End Get
Set
Me._kosten = Value
End Set
End Property
Public Property KostenWaehrung() As String
Get
Return Me._kostenWaehrung
End Get
Set
Me._kostenWaehrung = Value
End Set
End Property
Public Property WechselkursArt() As String
Get
Return Me._wechselkursArt
End Get
Set
Me._wechselkursArt = Value
End Set
End Property
Public Property Wechselkurs() As String
Get
Return Me._wechselkurs
End Get
Set
Me._wechselkurs = Value
End Set
End Property
Public Property WechselkursDatum() As Date
Get
Return Me._wechselkursDatum
End Get
Set
Me._wechselkursDatum = Value
End Set
End Property
Public Property Verteilungsart() As String
Get
Return Me._verteilungsart
End Get
Set
Me._verteilungsart = Value
End Set
End Property
Public Property Minimalbetrag() As String
Get
Return Me._minimalbetrag
End Get
Set
Me._minimalbetrag = Value
End Set
End Property
Public Property RabattProzent() As String
Get
Return Me._rabattProzent
End Get
Set
Me._rabattProzent = Value
End Set
End Property
Public Property SkontoProzent() As String
Get
Return Me._skontoProzent
End Get
Set
Me._skontoProzent = Value
End Set
End Property
Public Property Bemerkungen() As String
Get
Return Me._bemerkungen
End Get
Set
Me._bemerkungen = Value
End Set
End Property
Public Property VersicherungBerechnenKz() As String
Get
Return Me._versicherungBerechnenKz
End Get
Set
Me._versicherungBerechnenKz = Value
End Set
End Property
Public Property ProzentualerAnteil() As String
Get
Return Me._prozentualerAnteil
End Get
Set
Me._prozentualerAnteil = Value
End Set
End Property
Public Property ImaginaererProfit() As String
Get
Return Me._imaginaererProfit
End Get
Set
Me._imaginaererProfit = Value
End Set
End Property
Public Property AndereZahlung() As String
Get
Return Me._andereZahlung
End Get
Set
Me._andereZahlung = Value
End Set
End Property
Public Property SummeRechnungManuell() As String
Get
Return Me._summeRechnungManuell
End Get
Set
Me._summeRechnungManuell = Value
End Set
End Property