Files
ADMIN/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_008.designer.vb
2022-10-30 22:31:57 +01:00

5850 lines
203 KiB
VB.net

'' ------------------------------------------------------------------------------
'' <auto-generated>
'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL)
'' <NameSpace>BefundVereinfachteZollanmeldung_008</NameSpace><Collection>List</Collection><codeType>VisualBasic</codeType><EnableDataBinding>False</EnableDataBinding><EnableLazyLoading>False</EnableLazyLoading><TrackingChangesEnable>False</TrackingChangesEnable><GenTrackingClasses>False</GenTrackingClasses><HidePrivateFieldInIDE>False</HidePrivateFieldInIDE><EnableSummaryComment>False</EnableSummaryComment><VirtualProp>False</VirtualProp><IncludeSerializeMethod>True</IncludeSerializeMethod><UseBaseClass>False</UseBaseClass><GenBaseClass>False</GenBaseClass><GenerateCloneMethod>False</GenerateCloneMethod><GenerateDataContracts>False</GenerateDataContracts><CodeBaseTag>Net20</CodeBaseTag><SerializeMethodName>Serialize</SerializeMethodName><DeserializeMethodName>Deserialize</DeserializeMethodName><SaveToFileMethodName>SaveToFile</SaveToFileMethodName><LoadFromFileMethodName>LoadFromFile</LoadFromFileMethodName><GenerateXMLAttributes>False</GenerateXMLAttributes><OrderXMLAttrib>False</OrderXMLAttrib><EnableEncoding>False</EnableEncoding><AutomaticProperties>False</AutomaticProperties><GenerateShouldSerialize>False</GenerateShouldSerialize><DisableDebug>False</DisableDebug><PropNameSpecified>Default</PropNameSpecified><Encoder>UTF8</Encoder><CustomUsings></CustomUsings><ExcludeIncludedTypes>False</ExcludeIncludedTypes><EnableInitializeFields>True</EnableInitializeFields>
'' </auto-generated>
'' ------------------------------------------------------------------------------
Imports System
Imports System.Diagnostics
Imports System.Xml.Serialization
Imports System.Collections
Imports System.Xml.Schema
Imports System.ComponentModel
Imports System.IO
Imports System.Text
Imports System.Collections.Generic
Namespace BefundVereinfachteZollanmeldung_008
Partial Public Class BefundVereinfachteZollanmeldungVBTyp
Inherits DatenaustauschFreierVerkehrTyp
Private einzelBefundVereinfachteZollanmeldungField As EinzelBefundVereinfachteZollanmeldungTyp
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Sub New()
MyBase.New
Me.einzelBefundVereinfachteZollanmeldungField = New EinzelBefundVereinfachteZollanmeldungTyp()
End Sub
Public Property EinzelBefundVereinfachteZollanmeldung() As EinzelBefundVereinfachteZollanmeldungTyp
Get
Return Me.einzelBefundVereinfachteZollanmeldungField
End Get
Set
Me.einzelBefundVereinfachteZollanmeldungField = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(BefundVereinfachteZollanmeldungVBTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''<summary>
'''Serializes current BefundVereinfachteZollanmeldungVBTyp object into an XML document
'''</summary>
'''<returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Serializer.Serialize(memoryStream, Me)
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
streamReader = New System.IO.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
'''<summary>
'''Deserializes workflow markup into an BefundVereinfachteZollanmeldungVBTyp object
'''</summary>
'''<param name="xml">string workflow markup to deserialize</param>
'''<param name="obj">Output BefundVereinfachteZollanmeldungVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BefundVereinfachteZollanmeldungVBTyp)
Try
obj = Deserialize(xml)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(xml, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String) As BefundVereinfachteZollanmeldungVBTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), BefundVereinfachteZollanmeldungVBTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''<summary>
'''Serializes current BefundVereinfachteZollanmeldungVBTyp object into file
'''</summary>
'''<param name="fileName">full path of outupt xml file</param>
'''<param name="exception">output Exception value if failed</param>
'''<returns>true if can serialize and save into file; otherwise, false</returns>
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 System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''<summary>
'''Deserializes xml markup from file into an BefundVereinfachteZollanmeldungVBTyp object
'''</summary>
'''<param name="fileName">string xml file to load and deserialize</param>
'''<param name="obj">Output BefundVereinfachteZollanmeldungVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BefundVereinfachteZollanmeldungVBTyp)
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 BefundVereinfachteZollanmeldungVBTyp) 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 BefundVereinfachteZollanmeldungVBTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
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 Region
End Class
Partial Public Class EinzelBefundVereinfachteZollanmeldungTyp
Private objektIdentifizierungField As ObjektIdentifizierungVBTyp
Private kopfDatenField As KopfdatenBefundVereinfachteZollanmeldungTyp
Private positionField As List(Of PositionBefundVereinfachteZollanmeldungTyp)
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Sub New()
MyBase.New
Me.positionField = New List(Of PositionBefundVereinfachteZollanmeldungTyp)()
Me.kopfDatenField = New KopfdatenBefundVereinfachteZollanmeldungTyp()
Me.objektIdentifizierungField = New ObjektIdentifizierungVBTyp()
End Sub
Public Property ObjektIdentifizierung() As ObjektIdentifizierungVBTyp
Get
Return Me.objektIdentifizierungField
End Get
Set
Me.objektIdentifizierungField = Value
End Set
End Property
Public Property KopfDaten() As KopfdatenBefundVereinfachteZollanmeldungTyp
Get
Return Me.kopfDatenField
End Get
Set
Me.kopfDatenField = Value
End Set
End Property
Public Property Position() As List(Of PositionBefundVereinfachteZollanmeldungTyp)
Get
Return Me.positionField
End Get
Set
Me.positionField = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelBefundVereinfachteZollanmeldungTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''<summary>
'''Serializes current EinzelBefundVereinfachteZollanmeldungTyp object into an XML document
'''</summary>
'''<returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Serializer.Serialize(memoryStream, Me)
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
streamReader = New System.IO.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
'''<summary>
'''Deserializes workflow markup into an EinzelBefundVereinfachteZollanmeldungTyp object
'''</summary>
'''<param name="xml">string workflow markup to deserialize</param>
'''<param name="obj">Output EinzelBefundVereinfachteZollanmeldungTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelBefundVereinfachteZollanmeldungTyp)
Try
obj = Deserialize(xml)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(xml, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelBefundVereinfachteZollanmeldungTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelBefundVereinfachteZollanmeldungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''<summary>
'''Serializes current EinzelBefundVereinfachteZollanmeldungTyp object into file
'''</summary>
'''<param name="fileName">full path of outupt xml file</param>
'''<param name="exception">output Exception value if failed</param>
'''<returns>true if can serialize and save into file; otherwise, false</returns>
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 System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''<summary>
'''Deserializes xml markup from file into an EinzelBefundVereinfachteZollanmeldungTyp object
'''</summary>
'''<param name="fileName">string xml file to load and deserialize</param>
'''<param name="obj">Output EinzelBefundVereinfachteZollanmeldungTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelBefundVereinfachteZollanmeldungTyp)
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 EinzelBefundVereinfachteZollanmeldungTyp) 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 EinzelBefundVereinfachteZollanmeldungTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
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 Region
End Class
Partial Public Class ObjektIdentifizierungVBTyp
Private objektNameField As String
Private eDIFACTNachrichtenNrField As String
Private zeitpunktEingangField As Date
Private zeitpunktEingangFieldSpecified As Boolean
Private shipmentReferenzField As String
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Property ObjektName() As String
Get
Return Me.objektNameField
End Get
Set
Me.objektNameField = Value
End Set
End Property
Public Property EDIFACTNachrichtenNr() As String
Get
Return Me.eDIFACTNachrichtenNrField
End Get
Set
Me.eDIFACTNachrichtenNrField = Value
End Set
End Property
Public Property ZeitpunktEingang() As Date
Get
Return Me.zeitpunktEingangField
End Get
Set
Me.zeitpunktEingangField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property ZeitpunktEingangSpecified() As Boolean
Get
Return Me.zeitpunktEingangFieldSpecified
End Get
Set
Me.zeitpunktEingangFieldSpecified = Value
End Set
End Property
Public Property ShipmentReferenz() As String
Get
Return Me.shipmentReferenzField
End Get
Set
Me.shipmentReferenzField = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungVBTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''<summary>
'''Serializes current ObjektIdentifizierungVBTyp object into an XML document
'''</summary>
'''<returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Serializer.Serialize(memoryStream, Me)
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
streamReader = New System.IO.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
'''<summary>
'''Deserializes workflow markup into an ObjektIdentifizierungVBTyp object
'''</summary>
'''<param name="xml">string workflow markup to deserialize</param>
'''<param name="obj">Output ObjektIdentifizierungVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungVBTyp)
Try
obj = Deserialize(xml)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungVBTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(xml, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String) As ObjektIdentifizierungVBTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungVBTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''<summary>
'''Serializes current ObjektIdentifizierungVBTyp object into file
'''</summary>
'''<param name="fileName">full path of outupt xml file</param>
'''<param name="exception">output Exception value if failed</param>
'''<returns>true if can serialize and save into file; otherwise, false</returns>
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 System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''<summary>
'''Deserializes xml markup from file into an ObjektIdentifizierungVBTyp object
'''</summary>
'''<param name="fileName">string xml file to load and deserialize</param>
'''<param name="obj">Output ObjektIdentifizierungVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungVBTyp)
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 ObjektIdentifizierungVBTyp) 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 ObjektIdentifizierungVBTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
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 Region
End Class
Partial Public Class SonderabgabenVBTyp
Private sonderfalleingabeSonderabgabengruppeField As String
Private anwendungsartField As String
Private satzBetragFaktorField As Decimal
Private satzBetragFaktorFieldSpecified As Boolean
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Property SonderfalleingabeSonderabgabengruppe() As String
Get
Return Me.sonderfalleingabeSonderabgabengruppeField
End Get
Set
Me.sonderfalleingabeSonderabgabengruppeField = Value
End Set
End Property
Public Property Anwendungsart() As String
Get
Return Me.anwendungsartField
End Get
Set
Me.anwendungsartField = Value
End Set
End Property
Public Property SatzBetragFaktor() As Decimal
Get
Return Me.satzBetragFaktorField
End Get
Set
Me.satzBetragFaktorField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property SatzBetragFaktorSpecified() As Boolean
Get
Return Me.satzBetragFaktorFieldSpecified
End Get
Set
Me.satzBetragFaktorFieldSpecified = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(SonderabgabenVBTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''<summary>
'''Serializes current SonderabgabenVBTyp object into an XML document
'''</summary>
'''<returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Serializer.Serialize(memoryStream, Me)
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
streamReader = New System.IO.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
'''<summary>
'''Deserializes workflow markup into an SonderabgabenVBTyp object
'''</summary>
'''<param name="xml">string workflow markup to deserialize</param>
'''<param name="obj">Output SonderabgabenVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SonderabgabenVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SonderabgabenVBTyp)
Try
obj = Deserialize(xml)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SonderabgabenVBTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(xml, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String) As SonderabgabenVBTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), SonderabgabenVBTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''<summary>
'''Serializes current SonderabgabenVBTyp object into file
'''</summary>
'''<param name="fileName">full path of outupt xml file</param>
'''<param name="exception">output Exception value if failed</param>
'''<returns>true if can serialize and save into file; otherwise, false</returns>
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 System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''<summary>
'''Deserializes xml markup from file into an SonderabgabenVBTyp object
'''</summary>
'''<param name="fileName">string xml file to load and deserialize</param>
'''<param name="obj">Output SonderabgabenVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderabgabenVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SonderabgabenVBTyp)
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 SonderabgabenVBTyp) 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 SonderabgabenVBTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
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 Region
End Class
Partial Public Class MinderungVBTyp
Private minderndeAbgabengruppeField As String
Private minderungsbetragField As Decimal
Private minderungsbetragFieldSpecified As Boolean
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Property MinderndeAbgabengruppe() As String
Get
Return Me.minderndeAbgabengruppeField
End Get
Set
Me.minderndeAbgabengruppeField = Value
End Set
End Property
Public Property Minderungsbetrag() As Decimal
Get
Return Me.minderungsbetragField
End Get
Set
Me.minderungsbetragField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property MinderungsbetragSpecified() As Boolean
Get
Return Me.minderungsbetragFieldSpecified
End Get
Set
Me.minderungsbetragFieldSpecified = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(MinderungVBTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''<summary>
'''Serializes current MinderungVBTyp object into an XML document
'''</summary>
'''<returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Serializer.Serialize(memoryStream, Me)
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
streamReader = New System.IO.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
'''<summary>
'''Deserializes workflow markup into an MinderungVBTyp object
'''</summary>
'''<param name="xml">string workflow markup to deserialize</param>
'''<param name="obj">Output MinderungVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As MinderungVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, MinderungVBTyp)
Try
obj = Deserialize(xml)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As MinderungVBTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(xml, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String) As MinderungVBTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), MinderungVBTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''<summary>
'''Serializes current MinderungVBTyp object into file
'''</summary>
'''<param name="fileName">full path of outupt xml file</param>
'''<param name="exception">output Exception value if failed</param>
'''<returns>true if can serialize and save into file; otherwise, false</returns>
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 System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''<summary>
'''Deserializes xml markup from file into an MinderungVBTyp object
'''</summary>
'''<param name="fileName">string xml file to load and deserialize</param>
'''<param name="obj">Output MinderungVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MinderungVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, MinderungVBTyp)
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 MinderungVBTyp) 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 MinderungVBTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
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 Region
End Class
Partial Public Class VerbrauchsteuerVBTyp
Private verbrauchsteuerCodeField As String
Private verbrauchssteuerMengeField As Decimal
Private verbrauchssteuerMengeFieldSpecified As Boolean
Private verbrauchssteuerMasseinheitCodeField As String
Private verbrauchssteuerMasseinheitQualifierField As String
Private gradProzentField As Decimal
Private gradProzentFieldSpecified As Boolean
Private verbrauchssteuerWertBasisField As Decimal
Private verbrauchssteuerWertBasisFieldSpecified As Boolean
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Property VerbrauchsteuerCode() As String
Get
Return Me.verbrauchsteuerCodeField
End Get
Set
Me.verbrauchsteuerCodeField = Value
End Set
End Property
Public Property VerbrauchssteuerMenge() As Decimal
Get
Return Me.verbrauchssteuerMengeField
End Get
Set
Me.verbrauchssteuerMengeField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property VerbrauchssteuerMengeSpecified() As Boolean
Get
Return Me.verbrauchssteuerMengeFieldSpecified
End Get
Set
Me.verbrauchssteuerMengeFieldSpecified = Value
End Set
End Property
Public Property VerbrauchssteuerMasseinheitCode() As String
Get
Return Me.verbrauchssteuerMasseinheitCodeField
End Get
Set
Me.verbrauchssteuerMasseinheitCodeField = Value
End Set
End Property
Public Property VerbrauchssteuerMasseinheitQualifier() As String
Get
Return Me.verbrauchssteuerMasseinheitQualifierField
End Get
Set
Me.verbrauchssteuerMasseinheitQualifierField = Value
End Set
End Property
Public Property GradProzent() As Decimal
Get
Return Me.gradProzentField
End Get
Set
Me.gradProzentField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property GradProzentSpecified() As Boolean
Get
Return Me.gradProzentFieldSpecified
End Get
Set
Me.gradProzentFieldSpecified = Value
End Set
End Property
Public Property VerbrauchssteuerWertBasis() As Decimal
Get
Return Me.verbrauchssteuerWertBasisField
End Get
Set
Me.verbrauchssteuerWertBasisField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property VerbrauchssteuerWertBasisSpecified() As Boolean
Get
Return Me.verbrauchssteuerWertBasisFieldSpecified
End Get
Set
Me.verbrauchssteuerWertBasisFieldSpecified = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(VerbrauchsteuerVBTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''<summary>
'''Serializes current VerbrauchsteuerVBTyp object into an XML document
'''</summary>
'''<returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Serializer.Serialize(memoryStream, Me)
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
streamReader = New System.IO.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
'''<summary>
'''Deserializes workflow markup into an VerbrauchsteuerVBTyp object
'''</summary>
'''<param name="xml">string workflow markup to deserialize</param>
'''<param name="obj">Output VerbrauchsteuerVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As VerbrauchsteuerVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerbrauchsteuerVBTyp)
Try
obj = Deserialize(xml)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As VerbrauchsteuerVBTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(xml, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String) As VerbrauchsteuerVBTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), VerbrauchsteuerVBTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''<summary>
'''Serializes current VerbrauchsteuerVBTyp object into file
'''</summary>
'''<param name="fileName">full path of outupt xml file</param>
'''<param name="exception">output Exception value if failed</param>
'''<returns>true if can serialize and save into file; otherwise, false</returns>
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 System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''<summary>
'''Deserializes xml markup from file into an VerbrauchsteuerVBTyp object
'''</summary>
'''<param name="fileName">string xml file to load and deserialize</param>
'''<param name="obj">Output VerbrauchsteuerVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchsteuerVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerbrauchsteuerVBTyp)
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 VerbrauchsteuerVBTyp) 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 VerbrauchsteuerVBTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
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 Region
End Class
Partial Public Class GehaltsangabenVBTyp
Private artCodeField As String
Private gradProzentField As Decimal
Private gradProzentFieldSpecified As Boolean
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Property ArtCode() As String
Get
Return Me.artCodeField
End Get
Set
Me.artCodeField = Value
End Set
End Property
Public Property GradProzent() As Decimal
Get
Return Me.gradProzentField
End Get
Set
Me.gradProzentField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property GradProzentSpecified() As Boolean
Get
Return Me.gradProzentFieldSpecified
End Get
Set
Me.gradProzentFieldSpecified = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(GehaltsangabenVBTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''<summary>
'''Serializes current GehaltsangabenVBTyp object into an XML document
'''</summary>
'''<returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Serializer.Serialize(memoryStream, Me)
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
streamReader = New System.IO.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
'''<summary>
'''Deserializes workflow markup into an GehaltsangabenVBTyp object
'''</summary>
'''<param name="xml">string workflow markup to deserialize</param>
'''<param name="obj">Output GehaltsangabenVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As GehaltsangabenVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, GehaltsangabenVBTyp)
Try
obj = Deserialize(xml)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As GehaltsangabenVBTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(xml, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String) As GehaltsangabenVBTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), GehaltsangabenVBTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''<summary>
'''Serializes current GehaltsangabenVBTyp object into file
'''</summary>
'''<param name="fileName">full path of outupt xml file</param>
'''<param name="exception">output Exception value if failed</param>
'''<returns>true if can serialize and save into file; otherwise, false</returns>
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 System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''<summary>
'''Deserializes xml markup from file into an GehaltsangabenVBTyp object
'''</summary>
'''<param name="fileName">string xml file to load and deserialize</param>
'''<param name="obj">Output GehaltsangabenVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, GehaltsangabenVBTyp)
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 GehaltsangabenVBTyp) 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 GehaltsangabenVBTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
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 Region
End Class
Partial Public Class PreisWertangabeVBTyp
Private preisartCodeField As String
Private wertField As Decimal
Private wertFieldSpecified As Boolean
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Property PreisartCode() As String
Get
Return Me.preisartCodeField
End Get
Set
Me.preisartCodeField = Value
End Set
End Property
Public Property Wert() As Decimal
Get
Return Me.wertField
End Get
Set
Me.wertField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property WertSpecified() As Boolean
Get
Return Me.wertFieldSpecified
End Get
Set
Me.wertFieldSpecified = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PreisWertangabeVBTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''<summary>
'''Serializes current PreisWertangabeVBTyp object into an XML document
'''</summary>
'''<returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Serializer.Serialize(memoryStream, Me)
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
streamReader = New System.IO.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
'''<summary>
'''Deserializes workflow markup into an PreisWertangabeVBTyp object
'''</summary>
'''<param name="xml">string workflow markup to deserialize</param>
'''<param name="obj">Output PreisWertangabeVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PreisWertangabeVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PreisWertangabeVBTyp)
Try
obj = Deserialize(xml)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PreisWertangabeVBTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(xml, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String) As PreisWertangabeVBTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PreisWertangabeVBTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''<summary>
'''Serializes current PreisWertangabeVBTyp object into file
'''</summary>
'''<param name="fileName">full path of outupt xml file</param>
'''<param name="exception">output Exception value if failed</param>
'''<returns>true if can serialize and save into file; otherwise, false</returns>
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 System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''<summary>
'''Deserializes xml markup from file into an PreisWertangabeVBTyp object
'''</summary>
'''<param name="fileName">string xml file to load and deserialize</param>
'''<param name="obj">Output PreisWertangabeVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreisWertangabeVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PreisWertangabeVBTyp)
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 PreisWertangabeVBTyp) 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 PreisWertangabeVBTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
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 Region
End Class
Partial Public Class WarenMengeVBTyp
Private mengeField As String
Private masseinheitField As String
Private qualifierField As String
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Property Menge() As String
Get
Return Me.mengeField
End Get
Set
Me.mengeField = Value
End Set
End Property
Public Property Masseinheit() As String
Get
Return Me.masseinheitField
End Get
Set
Me.masseinheitField = Value
End Set
End Property
Public Property Qualifier() As String
Get
Return Me.qualifierField
End Get
Set
Me.qualifierField = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(WarenMengeVBTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''<summary>
'''Serializes current WarenMengeVBTyp object into an XML document
'''</summary>
'''<returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Serializer.Serialize(memoryStream, Me)
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
streamReader = New System.IO.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
'''<summary>
'''Deserializes workflow markup into an WarenMengeVBTyp object
'''</summary>
'''<param name="xml">string workflow markup to deserialize</param>
'''<param name="obj">Output WarenMengeVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As WarenMengeVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, WarenMengeVBTyp)
Try
obj = Deserialize(xml)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As WarenMengeVBTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(xml, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String) As WarenMengeVBTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), WarenMengeVBTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''<summary>
'''Serializes current WarenMengeVBTyp object into file
'''</summary>
'''<param name="fileName">full path of outupt xml file</param>
'''<param name="exception">output Exception value if failed</param>
'''<returns>true if can serialize and save into file; otherwise, false</returns>
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 System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''<summary>
'''Deserializes xml markup from file into an WarenMengeVBTyp object
'''</summary>
'''<param name="fileName">string xml file to load and deserialize</param>
'''<param name="obj">Output WarenMengeVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, WarenMengeVBTyp)
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 WarenMengeVBTyp) 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 WarenMengeVBTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
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 Region
End Class
Partial Public Class AbzugHinzurechnungenVBTyp
Private artCodeField As String
Private artTextField As String
Private betragField As Decimal
Private betragFieldSpecified As Boolean
Private iATAKursKzField As String
Private waehrungField As String
Private kursVereinbartKzField As String
Private kursAuslandswaehrungField As Decimal
Private kursAuslandswaehrungFieldSpecified As Boolean
Private kursDatumField As Date
Private kursDatumFieldSpecified As Boolean
Private prozentsatzField As Decimal
Private prozentsatzFieldSpecified As Boolean
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Property ArtCode() As String
Get
Return Me.artCodeField
End Get
Set
Me.artCodeField = Value
End Set
End Property
Public Property ArtText() As String
Get
Return Me.artTextField
End Get
Set
Me.artTextField = Value
End Set
End Property
Public Property Betrag() As Decimal
Get
Return Me.betragField
End Get
Set
Me.betragField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property BetragSpecified() As Boolean
Get
Return Me.betragFieldSpecified
End Get
Set
Me.betragFieldSpecified = Value
End Set
End Property
Public Property IATAKursKz() As String
Get
Return Me.iATAKursKzField
End Get
Set
Me.iATAKursKzField = Value
End Set
End Property
Public Property Waehrung() As String
Get
Return Me.waehrungField
End Get
Set
Me.waehrungField = Value
End Set
End Property
Public Property KursVereinbartKz() As String
Get
Return Me.kursVereinbartKzField
End Get
Set
Me.kursVereinbartKzField = Value
End Set
End Property
Public Property KursAuslandswaehrung() As Decimal
Get
Return Me.kursAuslandswaehrungField
End Get
Set
Me.kursAuslandswaehrungField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property KursAuslandswaehrungSpecified() As Boolean
Get
Return Me.kursAuslandswaehrungFieldSpecified
End Get
Set
Me.kursAuslandswaehrungFieldSpecified = Value
End Set
End Property
Public Property KursDatum() As Date
Get
Return Me.kursDatumField
End Get
Set
Me.kursDatumField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property KursDatumSpecified() As Boolean
Get
Return Me.kursDatumFieldSpecified
End Get
Set
Me.kursDatumFieldSpecified = Value
End Set
End Property
Public Property Prozentsatz() As Decimal
Get
Return Me.prozentsatzField
End Get
Set
Me.prozentsatzField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property ProzentsatzSpecified() As Boolean
Get
Return Me.prozentsatzFieldSpecified
End Get
Set
Me.prozentsatzFieldSpecified = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbzugHinzurechnungenVBTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''<summary>
'''Serializes current AbzugHinzurechnungenVBTyp object into an XML document
'''</summary>
'''<returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Serializer.Serialize(memoryStream, Me)
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
streamReader = New System.IO.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
'''<summary>
'''Deserializes workflow markup into an AbzugHinzurechnungenVBTyp object
'''</summary>
'''<param name="xml">string workflow markup to deserialize</param>
'''<param name="obj">Output AbzugHinzurechnungenVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbzugHinzurechnungenVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbzugHinzurechnungenVBTyp)
Try
obj = Deserialize(xml)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbzugHinzurechnungenVBTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(xml, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String) As AbzugHinzurechnungenVBTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbzugHinzurechnungenVBTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''<summary>
'''Serializes current AbzugHinzurechnungenVBTyp object into file
'''</summary>
'''<param name="fileName">full path of outupt xml file</param>
'''<param name="exception">output Exception value if failed</param>
'''<returns>true if can serialize and save into file; otherwise, false</returns>
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 System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''<summary>
'''Deserializes xml markup from file into an AbzugHinzurechnungenVBTyp object
'''</summary>
'''<param name="fileName">string xml file to load and deserialize</param>
'''<param name="obj">Output AbzugHinzurechnungenVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungenVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbzugHinzurechnungenVBTyp)
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 AbzugHinzurechnungenVBTyp) 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 AbzugHinzurechnungenVBTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
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 Region
End Class
Partial Public Class AbweichungVBTyp
Private abweichendFestgesetztesFeldField As String
Private abweichendFestgesetztesFeldQualifikatorField As String
Private qualifikatorInhaltField As String
Private abweichendeFestsetzungArtField As String
Private abweichendFestgesetztVonField As String
Private abweichendFestgesetztAufField As String
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Property AbweichendFestgesetztesFeld() As String
Get
Return Me.abweichendFestgesetztesFeldField
End Get
Set
Me.abweichendFestgesetztesFeldField = Value
End Set
End Property
Public Property AbweichendFestgesetztesFeldQualifikator() As String
Get
Return Me.abweichendFestgesetztesFeldQualifikatorField
End Get
Set
Me.abweichendFestgesetztesFeldQualifikatorField = Value
End Set
End Property
Public Property QualifikatorInhalt() As String
Get
Return Me.qualifikatorInhaltField
End Get
Set
Me.qualifikatorInhaltField = Value
End Set
End Property
Public Property AbweichendeFestsetzungArt() As String
Get
Return Me.abweichendeFestsetzungArtField
End Get
Set
Me.abweichendeFestsetzungArtField = Value
End Set
End Property
Public Property AbweichendFestgesetztVon() As String
Get
Return Me.abweichendFestgesetztVonField
End Get
Set
Me.abweichendFestgesetztVonField = Value
End Set
End Property
Public Property AbweichendFestgesetztAuf() As String
Get
Return Me.abweichendFestgesetztAufField
End Get
Set
Me.abweichendFestgesetztAufField = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbweichungVBTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''<summary>
'''Serializes current AbweichungVBTyp object into an XML document
'''</summary>
'''<returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Serializer.Serialize(memoryStream, Me)
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
streamReader = New System.IO.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
'''<summary>
'''Deserializes workflow markup into an AbweichungVBTyp object
'''</summary>
'''<param name="xml">string workflow markup to deserialize</param>
'''<param name="obj">Output AbweichungVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbweichungVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbweichungVBTyp)
Try
obj = Deserialize(xml)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbweichungVBTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(xml, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String) As AbweichungVBTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbweichungVBTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''<summary>
'''Serializes current AbweichungVBTyp object into file
'''</summary>
'''<param name="fileName">full path of outupt xml file</param>
'''<param name="exception">output Exception value if failed</param>
'''<returns>true if can serialize and save into file; otherwise, false</returns>
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 System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''<summary>
'''Deserializes xml markup from file into an AbweichungVBTyp object
'''</summary>
'''<param name="fileName">string xml file to load and deserialize</param>
'''<param name="obj">Output AbweichungVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichungVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AbweichungVBTyp)
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 AbweichungVBTyp) 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 AbweichungVBTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
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 Region
End Class
Partial Public Class UnterlageVBTyp
Private artField As String
Private bereichField As String
Private nummerField As String
Private datumAusstellungField As Date
Private datumAusstellungFieldSpecified As Boolean
Private vorlageKzField As String
Private abschreibungsMengeField As Decimal
Private abschreibungsMengeFieldSpecified As Boolean
Private abschreibungsMengeMasseinheitField As String
Private abschreibungsMengeMasseinheitQualifierField As String
Private kzAnerkennungField As String
Private kzAbschreibungField As String
Private kzEinbehaltenField As String
Private kzPeriodischeVorlageField As String
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Property Art() As String
Get
Return Me.artField
End Get
Set
Me.artField = Value
End Set
End Property
Public Property Bereich() As String
Get
Return Me.bereichField
End Get
Set
Me.bereichField = Value
End Set
End Property
Public Property Nummer() As String
Get
Return Me.nummerField
End Get
Set
Me.nummerField = Value
End Set
End Property
Public Property DatumAusstellung() As Date
Get
Return Me.datumAusstellungField
End Get
Set
Me.datumAusstellungField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property DatumAusstellungSpecified() As Boolean
Get
Return Me.datumAusstellungFieldSpecified
End Get
Set
Me.datumAusstellungFieldSpecified = Value
End Set
End Property
Public Property VorlageKz() As String
Get
Return Me.vorlageKzField
End Get
Set
Me.vorlageKzField = Value
End Set
End Property
Public Property AbschreibungsMenge() As Decimal
Get
Return Me.abschreibungsMengeField
End Get
Set
Me.abschreibungsMengeField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property AbschreibungsMengeSpecified() As Boolean
Get
Return Me.abschreibungsMengeFieldSpecified
End Get
Set
Me.abschreibungsMengeFieldSpecified = Value
End Set
End Property
Public Property AbschreibungsMengeMasseinheit() As String
Get
Return Me.abschreibungsMengeMasseinheitField
End Get
Set
Me.abschreibungsMengeMasseinheitField = Value
End Set
End Property
Public Property AbschreibungsMengeMasseinheitQualifier() As String
Get
Return Me.abschreibungsMengeMasseinheitQualifierField
End Get
Set
Me.abschreibungsMengeMasseinheitQualifierField = Value
End Set
End Property
Public Property KzAnerkennung() As String
Get
Return Me.kzAnerkennungField
End Get
Set
Me.kzAnerkennungField = Value
End Set
End Property
Public Property KzAbschreibung() As String
Get
Return Me.kzAbschreibungField
End Get
Set
Me.kzAbschreibungField = Value
End Set
End Property
Public Property KzEinbehalten() As String
Get
Return Me.kzEinbehaltenField
End Get
Set
Me.kzEinbehaltenField = Value
End Set
End Property
Public Property KzPeriodischeVorlage() As String
Get
Return Me.kzPeriodischeVorlageField
End Get
Set
Me.kzPeriodischeVorlageField = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(UnterlageVBTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''<summary>
'''Serializes current UnterlageVBTyp object into an XML document
'''</summary>
'''<returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Serializer.Serialize(memoryStream, Me)
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
streamReader = New System.IO.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
'''<summary>
'''Deserializes workflow markup into an UnterlageVBTyp object
'''</summary>
'''<param name="xml">string workflow markup to deserialize</param>
'''<param name="obj">Output UnterlageVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As UnterlageVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, UnterlageVBTyp)
Try
obj = Deserialize(xml)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As UnterlageVBTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(xml, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String) As UnterlageVBTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), UnterlageVBTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''<summary>
'''Serializes current UnterlageVBTyp object into file
'''</summary>
'''<param name="fileName">full path of outupt xml file</param>
'''<param name="exception">output Exception value if failed</param>
'''<returns>true if can serialize and save into file; otherwise, false</returns>
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 System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''<summary>
'''Deserializes xml markup from file into an UnterlageVBTyp object
'''</summary>
'''<param name="fileName">string xml file to load and deserialize</param>
'''<param name="obj">Output UnterlageVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, UnterlageVBTyp)
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 UnterlageVBTyp) 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 UnterlageVBTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
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 Region
End Class
Partial Public Class PositionBefundVereinfachteZollanmeldungTyp
Private positionsNrvZAAZField As String
Private mitteilungAnTeilnehmerBeschauField As String
Private weitererNachweisField As String
Private mitteilungAnTeilnehmerErledigungField As String
Private positionsbefundField As String
Private unterlageField As List(Of UnterlageVBTyp)
Private ueberlassungDatumField As Date
Private ueberlassungDatumFieldSpecified As Boolean
Private weitererNachweisFristField As Date
Private weitererNachweisFristFieldSpecified As Boolean
Private positionKzErledigungField As String
Private abweichungField As List(Of AbweichungVBTyp)
Private warenNummerEZTField As String
Private warenNummerZusatzCodeField As List(Of String)
Private abgabensteuerungKzField As String
Private eUCodeField As List(Of String)
Private sachbereichField As String
Private artikelNummerField As String
Private artikelpreisField As Decimal
Private artikelpreisFieldSpecified As Boolean
Private positionsZusatzField As String
Private eigenmasseField As Decimal
Private eigenmasseFieldSpecified As Boolean
Private ursprungslandCodeField As String
Private tabakSteuerzeichenIDField As String
Private statistikStatusField As String
Private artGeschaeftCodeField As String
Private bestimmungsbundeslandField As String
Private aHStatWertField As String
Private aHStatMengeField As Decimal
Private aHStatMengeFieldSpecified As Boolean
Private aHStatMengeMasseinheitField As String
Private aHStatMengeQualifierField As String
Private rohmasseField As Decimal
Private rohmasseFieldSpecified As Boolean
Private dV1NettopreisField As Decimal
Private dV1NettopreisFieldSpecified As Boolean
Private dV1WaehrungField As String
Private dV1KzKursNettoVereinbartField As String
Private dV1KursField As Decimal
Private dV1KursFieldSpecified As Boolean
Private dV1MittelbareZahlungenField As Decimal
Private dV1MittelbareZahlungenFieldSpecified As Boolean
Private dV1MittelbareZahlungenWaehrungField As String
Private dV1MittelbareZahlungenKursKzField As String
Private dV1MittelbareZahlungenKursField As Decimal
Private dV1MittelbareZahlungenKursFieldSpecified As Boolean
Private ortVerbringensField As String
Private abflughafenIATACodeField As String
Private luftfrachtkostenGesamtField As Decimal
Private luftfrachtkostenGesamtFieldSpecified As Boolean
Private iATAKursKzField As String
Private luftfrachtkostenGesamtWaehrungField As String
Private kursVereinbartKzField As String
Private kursBetragVereinbartField As Decimal
Private kursBetragVereinbartFieldSpecified As Boolean
Private kursDatumField As Date
Private kursDatumFieldSpecified As Boolean
Private abzugHinzurechnungenField As List(Of AbzugHinzurechnungenVBTyp)
Private zollwertField As Decimal
Private zollwertFieldSpecified As Boolean
Private warenMengeField As List(Of WarenMengeVBTyp)
Private besondereWertangabeField As List(Of PreisWertangabeVBTyp)
Private gehaltsangabenField As List(Of GehaltsangabenVBTyp)
Private veredelungWertsteigerungField As Decimal
Private veredelungWertsteigerungFieldSpecified As Boolean
Private kostenEUStField As Decimal
Private kostenEUStFieldSpecified As Boolean
Private verbrauchsteuerField As List(Of VerbrauchsteuerVBTyp)
Private beguenstigungBeantragtCodeField As String
Private beguenstigungMengeField As String
Private beguenstigungMengeMasseinheitField As String
Private beguenstigungMengeQualifikatorField As String
Private minderungField As List(Of MinderungVBTyp)
Private sonderabgabenField As List(Of SonderabgabenVBTyp)
Private kontingentNrAngewandtField As List(Of String)
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Sub New()
MyBase.New
Me.kontingentNrAngewandtField = New List(Of String)()
Me.sonderabgabenField = New List(Of SonderabgabenVBTyp)()
Me.minderungField = New List(Of MinderungVBTyp)()
Me.verbrauchsteuerField = New List(Of VerbrauchsteuerVBTyp)()
Me.gehaltsangabenField = New List(Of GehaltsangabenVBTyp)()
Me.besondereWertangabeField = New List(Of PreisWertangabeVBTyp)()
Me.warenMengeField = New List(Of WarenMengeVBTyp)()
Me.abzugHinzurechnungenField = New List(Of AbzugHinzurechnungenVBTyp)()
Me.eUCodeField = New List(Of String)()
Me.warenNummerZusatzCodeField = New List(Of String)()
Me.abweichungField = New List(Of AbweichungVBTyp)()
Me.unterlageField = New List(Of UnterlageVBTyp)()
End Sub
Public Property PositionsNrvZAAZ() As String
Get
Return Me.positionsNrvZAAZField
End Get
Set
Me.positionsNrvZAAZField = Value
End Set
End Property
Public Property MitteilungAnTeilnehmerBeschau() As String
Get
Return Me.mitteilungAnTeilnehmerBeschauField
End Get
Set
Me.mitteilungAnTeilnehmerBeschauField = Value
End Set
End Property
Public Property WeitererNachweis() As String
Get
Return Me.weitererNachweisField
End Get
Set
Me.weitererNachweisField = Value
End Set
End Property
Public Property MitteilungAnTeilnehmerErledigung() As String
Get
Return Me.mitteilungAnTeilnehmerErledigungField
End Get
Set
Me.mitteilungAnTeilnehmerErledigungField = Value
End Set
End Property
Public Property Positionsbefund() As String
Get
Return Me.positionsbefundField
End Get
Set
Me.positionsbefundField = Value
End Set
End Property
Public Property Unterlage() As List(Of UnterlageVBTyp)
Get
Return Me.unterlageField
End Get
Set
Me.unterlageField = Value
End Set
End Property
Public Property UeberlassungDatum() As Date
Get
Return Me.ueberlassungDatumField
End Get
Set
Me.ueberlassungDatumField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property UeberlassungDatumSpecified() As Boolean
Get
Return Me.ueberlassungDatumFieldSpecified
End Get
Set
Me.ueberlassungDatumFieldSpecified = Value
End Set
End Property
Public Property WeitererNachweisFrist() As Date
Get
Return Me.weitererNachweisFristField
End Get
Set
Me.weitererNachweisFristField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property WeitererNachweisFristSpecified() As Boolean
Get
Return Me.weitererNachweisFristFieldSpecified
End Get
Set
Me.weitererNachweisFristFieldSpecified = Value
End Set
End Property
Public Property PositionKzErledigung() As String
Get
Return Me.positionKzErledigungField
End Get
Set
Me.positionKzErledigungField = Value
End Set
End Property
Public Property Abweichung() As List(Of AbweichungVBTyp)
Get
Return Me.abweichungField
End Get
Set
Me.abweichungField = Value
End Set
End Property
Public Property WarenNummerEZT() As String
Get
Return Me.warenNummerEZTField
End Get
Set
Me.warenNummerEZTField = Value
End Set
End Property
Public Property WarenNummerZusatzCode() As List(Of String)
Get
Return Me.warenNummerZusatzCodeField
End Get
Set
Me.warenNummerZusatzCodeField = Value
End Set
End Property
Public Property AbgabensteuerungKz() As String
Get
Return Me.abgabensteuerungKzField
End Get
Set
Me.abgabensteuerungKzField = Value
End Set
End Property
Public Property EUCode() As List(Of String)
Get
Return Me.eUCodeField
End Get
Set
Me.eUCodeField = Value
End Set
End Property
Public Property Sachbereich() As String
Get
Return Me.sachbereichField
End Get
Set
Me.sachbereichField = Value
End Set
End Property
Public Property ArtikelNummer() As String
Get
Return Me.artikelNummerField
End Get
Set
Me.artikelNummerField = Value
End Set
End Property
Public Property Artikelpreis() As Decimal
Get
Return Me.artikelpreisField
End Get
Set
Me.artikelpreisField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property ArtikelpreisSpecified() As Boolean
Get
Return Me.artikelpreisFieldSpecified
End Get
Set
Me.artikelpreisFieldSpecified = Value
End Set
End Property
Public Property PositionsZusatz() As String
Get
Return Me.positionsZusatzField
End Get
Set
Me.positionsZusatzField = Value
End Set
End Property
Public Property Eigenmasse() As Decimal
Get
Return Me.eigenmasseField
End Get
Set
Me.eigenmasseField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property EigenmasseSpecified() As Boolean
Get
Return Me.eigenmasseFieldSpecified
End Get
Set
Me.eigenmasseFieldSpecified = Value
End Set
End Property
Public Property UrsprungslandCode() As String
Get
Return Me.ursprungslandCodeField
End Get
Set
Me.ursprungslandCodeField = Value
End Set
End Property
Public Property TabakSteuerzeichenID() As String
Get
Return Me.tabakSteuerzeichenIDField
End Get
Set
Me.tabakSteuerzeichenIDField = Value
End Set
End Property
Public Property StatistikStatus() As String
Get
Return Me.statistikStatusField
End Get
Set
Me.statistikStatusField = Value
End Set
End Property
Public Property ArtGeschaeftCode() As String
Get
Return Me.artGeschaeftCodeField
End Get
Set
Me.artGeschaeftCodeField = Value
End Set
End Property
Public Property Bestimmungsbundesland() As String
Get
Return Me.bestimmungsbundeslandField
End Get
Set
Me.bestimmungsbundeslandField = Value
End Set
End Property
Public Property AHStatWert() As String
Get
Return Me.aHStatWertField
End Get
Set
Me.aHStatWertField = Value
End Set
End Property
Public Property AHStatMenge() As Decimal
Get
Return Me.aHStatMengeField
End Get
Set
Me.aHStatMengeField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property AHStatMengeSpecified() As Boolean
Get
Return Me.aHStatMengeFieldSpecified
End Get
Set
Me.aHStatMengeFieldSpecified = Value
End Set
End Property
Public Property AHStatMengeMasseinheit() As String
Get
Return Me.aHStatMengeMasseinheitField
End Get
Set
Me.aHStatMengeMasseinheitField = Value
End Set
End Property
Public Property AHStatMengeQualifier() As String
Get
Return Me.aHStatMengeQualifierField
End Get
Set
Me.aHStatMengeQualifierField = Value
End Set
End Property
Public Property Rohmasse() As Decimal
Get
Return Me.rohmasseField
End Get
Set
Me.rohmasseField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property RohmasseSpecified() As Boolean
Get
Return Me.rohmasseFieldSpecified
End Get
Set
Me.rohmasseFieldSpecified = Value
End Set
End Property
Public Property DV1Nettopreis() As Decimal
Get
Return Me.dV1NettopreisField
End Get
Set
Me.dV1NettopreisField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property DV1NettopreisSpecified() As Boolean
Get
Return Me.dV1NettopreisFieldSpecified
End Get
Set
Me.dV1NettopreisFieldSpecified = Value
End Set
End Property
Public Property DV1Waehrung() As String
Get
Return Me.dV1WaehrungField
End Get
Set
Me.dV1WaehrungField = Value
End Set
End Property
Public Property DV1KzKursNettoVereinbart() As String
Get
Return Me.dV1KzKursNettoVereinbartField
End Get
Set
Me.dV1KzKursNettoVereinbartField = Value
End Set
End Property
Public Property DV1Kurs() As Decimal
Get
Return Me.dV1KursField
End Get
Set
Me.dV1KursField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property DV1KursSpecified() As Boolean
Get
Return Me.dV1KursFieldSpecified
End Get
Set
Me.dV1KursFieldSpecified = Value
End Set
End Property
Public Property DV1MittelbareZahlungen() As Decimal
Get
Return Me.dV1MittelbareZahlungenField
End Get
Set
Me.dV1MittelbareZahlungenField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property DV1MittelbareZahlungenSpecified() As Boolean
Get
Return Me.dV1MittelbareZahlungenFieldSpecified
End Get
Set
Me.dV1MittelbareZahlungenFieldSpecified = Value
End Set
End Property
Public Property DV1MittelbareZahlungenWaehrung() As String
Get
Return Me.dV1MittelbareZahlungenWaehrungField
End Get
Set
Me.dV1MittelbareZahlungenWaehrungField = Value
End Set
End Property
Public Property DV1MittelbareZahlungenKursKz() As String
Get
Return Me.dV1MittelbareZahlungenKursKzField
End Get
Set
Me.dV1MittelbareZahlungenKursKzField = Value
End Set
End Property
Public Property DV1MittelbareZahlungenKurs() As Decimal
Get
Return Me.dV1MittelbareZahlungenKursField
End Get
Set
Me.dV1MittelbareZahlungenKursField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property DV1MittelbareZahlungenKursSpecified() As Boolean
Get
Return Me.dV1MittelbareZahlungenKursFieldSpecified
End Get
Set
Me.dV1MittelbareZahlungenKursFieldSpecified = Value
End Set
End Property
Public Property OrtVerbringens() As String
Get
Return Me.ortVerbringensField
End Get
Set
Me.ortVerbringensField = Value
End Set
End Property
Public Property AbflughafenIATACode() As String
Get
Return Me.abflughafenIATACodeField
End Get
Set
Me.abflughafenIATACodeField = Value
End Set
End Property
Public Property LuftfrachtkostenGesamt() As Decimal
Get
Return Me.luftfrachtkostenGesamtField
End Get
Set
Me.luftfrachtkostenGesamtField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property LuftfrachtkostenGesamtSpecified() As Boolean
Get
Return Me.luftfrachtkostenGesamtFieldSpecified
End Get
Set
Me.luftfrachtkostenGesamtFieldSpecified = Value
End Set
End Property
Public Property IATAKursKz() As String
Get
Return Me.iATAKursKzField
End Get
Set
Me.iATAKursKzField = Value
End Set
End Property
Public Property LuftfrachtkostenGesamtWaehrung() As String
Get
Return Me.luftfrachtkostenGesamtWaehrungField
End Get
Set
Me.luftfrachtkostenGesamtWaehrungField = Value
End Set
End Property
Public Property KursVereinbartKz() As String
Get
Return Me.kursVereinbartKzField
End Get
Set
Me.kursVereinbartKzField = Value
End Set
End Property
Public Property KursBetragVereinbart() As Decimal
Get
Return Me.kursBetragVereinbartField
End Get
Set
Me.kursBetragVereinbartField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property KursBetragVereinbartSpecified() As Boolean
Get
Return Me.kursBetragVereinbartFieldSpecified
End Get
Set
Me.kursBetragVereinbartFieldSpecified = Value
End Set
End Property
Public Property KursDatum() As Date
Get
Return Me.kursDatumField
End Get
Set
Me.kursDatumField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property KursDatumSpecified() As Boolean
Get
Return Me.kursDatumFieldSpecified
End Get
Set
Me.kursDatumFieldSpecified = Value
End Set
End Property
Public Property AbzugHinzurechnungen() As List(Of AbzugHinzurechnungenVBTyp)
Get
Return Me.abzugHinzurechnungenField
End Get
Set
Me.abzugHinzurechnungenField = Value
End Set
End Property
Public Property Zollwert() As Decimal
Get
Return Me.zollwertField
End Get
Set
Me.zollwertField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property ZollwertSpecified() As Boolean
Get
Return Me.zollwertFieldSpecified
End Get
Set
Me.zollwertFieldSpecified = Value
End Set
End Property
Public Property WarenMenge() As List(Of WarenMengeVBTyp)
Get
Return Me.warenMengeField
End Get
Set
Me.warenMengeField = Value
End Set
End Property
Public Property BesondereWertangabe() As List(Of PreisWertangabeVBTyp)
Get
Return Me.besondereWertangabeField
End Get
Set
Me.besondereWertangabeField = Value
End Set
End Property
Public Property Gehaltsangaben() As List(Of GehaltsangabenVBTyp)
Get
Return Me.gehaltsangabenField
End Get
Set
Me.gehaltsangabenField = Value
End Set
End Property
Public Property VeredelungWertsteigerung() As Decimal
Get
Return Me.veredelungWertsteigerungField
End Get
Set
Me.veredelungWertsteigerungField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property VeredelungWertsteigerungSpecified() As Boolean
Get
Return Me.veredelungWertsteigerungFieldSpecified
End Get
Set
Me.veredelungWertsteigerungFieldSpecified = Value
End Set
End Property
Public Property KostenEUSt() As Decimal
Get
Return Me.kostenEUStField
End Get
Set
Me.kostenEUStField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property KostenEUStSpecified() As Boolean
Get
Return Me.kostenEUStFieldSpecified
End Get
Set
Me.kostenEUStFieldSpecified = Value
End Set
End Property
Public Property Verbrauchsteuer() As List(Of VerbrauchsteuerVBTyp)
Get
Return Me.verbrauchsteuerField
End Get
Set
Me.verbrauchsteuerField = Value
End Set
End Property
Public Property BeguenstigungBeantragtCode() As String
Get
Return Me.beguenstigungBeantragtCodeField
End Get
Set
Me.beguenstigungBeantragtCodeField = Value
End Set
End Property
Public Property BeguenstigungMenge() As String
Get
Return Me.beguenstigungMengeField
End Get
Set
Me.beguenstigungMengeField = Value
End Set
End Property
Public Property BeguenstigungMengeMasseinheit() As String
Get
Return Me.beguenstigungMengeMasseinheitField
End Get
Set
Me.beguenstigungMengeMasseinheitField = Value
End Set
End Property
Public Property BeguenstigungMengeQualifikator() As String
Get
Return Me.beguenstigungMengeQualifikatorField
End Get
Set
Me.beguenstigungMengeQualifikatorField = Value
End Set
End Property
Public Property Minderung() As List(Of MinderungVBTyp)
Get
Return Me.minderungField
End Get
Set
Me.minderungField = Value
End Set
End Property
Public Property Sonderabgaben() As List(Of SonderabgabenVBTyp)
Get
Return Me.sonderabgabenField
End Get
Set
Me.sonderabgabenField = Value
End Set
End Property
Public Property KontingentNrAngewandt() As List(Of String)
Get
Return Me.kontingentNrAngewandtField
End Get
Set
Me.kontingentNrAngewandtField = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PositionBefundVereinfachteZollanmeldungTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''<summary>
'''Serializes current PositionBefundVereinfachteZollanmeldungTyp object into an XML document
'''</summary>
'''<returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Serializer.Serialize(memoryStream, Me)
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
streamReader = New System.IO.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
'''<summary>
'''Deserializes workflow markup into an PositionBefundVereinfachteZollanmeldungTyp object
'''</summary>
'''<param name="xml">string workflow markup to deserialize</param>
'''<param name="obj">Output PositionBefundVereinfachteZollanmeldungTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionBefundVereinfachteZollanmeldungTyp)
Try
obj = Deserialize(xml)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(xml, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String) As PositionBefundVereinfachteZollanmeldungTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PositionBefundVereinfachteZollanmeldungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''<summary>
'''Serializes current PositionBefundVereinfachteZollanmeldungTyp object into file
'''</summary>
'''<param name="fileName">full path of outupt xml file</param>
'''<param name="exception">output Exception value if failed</param>
'''<returns>true if can serialize and save into file; otherwise, false</returns>
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 System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''<summary>
'''Deserializes xml markup from file into an PositionBefundVereinfachteZollanmeldungTyp object
'''</summary>
'''<param name="fileName">string xml file to load and deserialize</param>
'''<param name="obj">Output PositionBefundVereinfachteZollanmeldungTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionBefundVereinfachteZollanmeldungTyp)
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 PositionBefundVereinfachteZollanmeldungTyp) 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 PositionBefundVereinfachteZollanmeldungTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
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 Region
End Class
Partial Public Class AnmeldungVBTyp
Private bereichField As String
Private artField As String
Private nummerField As String
Private datumAusstellungField As Date
Private datumAusstellungFieldSpecified As Boolean
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Property Bereich() As String
Get
Return Me.bereichField
End Get
Set
Me.bereichField = Value
End Set
End Property
Public Property Art() As String
Get
Return Me.artField
End Get
Set
Me.artField = Value
End Set
End Property
Public Property Nummer() As String
Get
Return Me.nummerField
End Get
Set
Me.nummerField = Value
End Set
End Property
Public Property DatumAusstellung() As Date
Get
Return Me.datumAusstellungField
End Get
Set
Me.datumAusstellungField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property DatumAusstellungSpecified() As Boolean
Get
Return Me.datumAusstellungFieldSpecified
End Get
Set
Me.datumAusstellungFieldSpecified = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AnmeldungVBTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''<summary>
'''Serializes current AnmeldungVBTyp object into an XML document
'''</summary>
'''<returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Serializer.Serialize(memoryStream, Me)
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
streamReader = New System.IO.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
'''<summary>
'''Deserializes workflow markup into an AnmeldungVBTyp object
'''</summary>
'''<param name="xml">string workflow markup to deserialize</param>
'''<param name="obj">Output AnmeldungVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AnmeldungVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AnmeldungVBTyp)
Try
obj = Deserialize(xml)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AnmeldungVBTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(xml, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String) As AnmeldungVBTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AnmeldungVBTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''<summary>
'''Serializes current AnmeldungVBTyp object into file
'''</summary>
'''<param name="fileName">full path of outupt xml file</param>
'''<param name="exception">output Exception value if failed</param>
'''<returns>true if can serialize and save into file; otherwise, false</returns>
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 System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''<summary>
'''Deserializes xml markup from file into an AnmeldungVBTyp object
'''</summary>
'''<param name="fileName">string xml file to load and deserialize</param>
'''<param name="obj">Output AnmeldungVBTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmeldungVBTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AnmeldungVBTyp)
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 AnmeldungVBTyp) 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 AnmeldungVBTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
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 Region
End Class
Partial Public Class KopfdatenBefundVereinfachteZollanmeldungTyp
Private sachbearbeiterField As String
Private telefonnummerBearbeiterField As String
Private kopfKzErledigungField As String
Private registriernummerField As String
Private registrierdatumField As Date
Private registrierdatumFieldSpecified As Boolean
Private artAnmeldungField As String
Private datumErstellungBefundField As Date
Private datumErstellungBefundFieldSpecified As Boolean
Private befundField As String
Private kzVertretungsverhaeltnisField As String
Private wKZField As String
Private kzRechtsbehelfField As String
Private kzGesamtschuldnerschaftField As String
Private eingangszollstelleGeaendertKzField As String
Private anmelderEORIField As String
Private anmelderNLNRField As String
Private anmelderFirmenbezeichungField As String
Private anmelderStrasseHausNrField As String
Private anmelderOrtsteilField As String
Private anmelderOrtSField As String
Private anmelderPLZSField As String
Private anmelderNationalitaetField As String
Private dienststellenschluesselField As String
Private dienststelleBezeichungField As String
Private dienststelleStrasseHausNrField As String
Private dienststelleOrtSField As String
Private dienststellePLZSField As String
Private bearbeiterField As String
Private dienststelleVorwahlTelefonNrField As String
Private vertreterEORIField As String
Private vertreterNLNRField As String
Private vertreterFirmenbezeichnungField As String
Private vertreterStrasseHausNrField As String
Private vertreterOrtsteilField As String
Private vertreterOrtSField As String
Private vertreterPLZSField As String
Private vertreterNationalitaetField As String
Private hZABezeichnungField As String
Private hZAEmailAdresseField As String
Private hZADEmailAdresseField As String
Private hZAPostfachField As String
Private hZAOrtPField As String
Private hZAPLZPField As String
Private hZAStrasseHausNrField As String
Private hZAOrtsteilField As String
Private hZAOrtSField As String
Private hZAPLZSField As String
Private fRechnungEORIField As String
Private fRechnungNLNRField As String
Private fRechnungNationalitaetField As String
Private fRechnungNameField As String
Private fRechnungStrasseHausNrField As String
Private fRechnungPLZSField As String
Private fRechnungOrtSField As String
Private fRechnungOrtsteilField As String
Private anmelderEmpfaengerKzField As String
Private bewilligungsnummerField As String
Private versendungslandCodeField As String
Private lieferbedingungField As String
Private lieferbedingungTextField As String
Private lieferbedingungOrtField As String
Private lieferbedingungSchluesselField As String
Private rechnungspreisField As Decimal
Private rechnungspreisFieldSpecified As Boolean
Private rechnungswaehrungField As String
Private finanzamtField As String
Private eingangszollstelleField As String
Private dV1KzField As String
Private verkaeuferEORIField As String
Private verkaeuferFirmenbezeichnungField As String
Private verkaeuferNationalitaetField As String
Private verkaeuferStrasseHausNrField As String
Private verkaeuferPLZSField As String
Private verkaeuferOrtSField As String
Private verkaeuferOrtsteilField As String
Private kaeuferEORIField As String
Private kaeuferFirmenbezeichnungField As String
Private kaeuferNationalitaetField As String
Private kaeuferStrasseHausNrField As String
Private kaeuferPLZSField As String
Private kaeuferOrtSField As String
Private kaeuferOrtsteilField As String
Private zollwertanmelderEORIField As String
Private zollwertanmelderFirmenbezeichnungField As String
Private zollwertanmelderNationalitaetField As String
Private zollwertanmelderStrasseHausNrField As String
Private zollwertanmelderPLZSField As String
Private zollwertanmelderOrtSField As String
Private zollwertanmelderOrtsteilField As String
Private vertreterZollwertanmelderEORIField As String
Private vertreterZollwertanmelderFirmenbezeichnungField As String
Private vertreterZollwertanmelderNationalitaetField As String
Private vertreterZollwertanmelderStrasseHausNrField As String
Private vertreterZollwertanmelderPLZSField As String
Private vertreterZollwertanmelderOrtSField As String
Private vertreterZollwertanmelderOrtsteilField As String
Private vertretungsverhaeltnisField As String
Private fruehereEntscheidungenField As String
Private verbundenheitField As String
Private verbundenheitEinzelheitenField As String
Private einschraenkungenKzField As String
Private bedingungenLeistungenKzField As String
Private bedingungenLeistungenArtField As String
Private lizenzgebuehrenKzField As String
Private lizenzgebuehrenUmstandField As String
Private spezielleVereinbarungKzField As String
Private spezielleVereinbarungUmstandField As String
Private empfaengerEORIField As String
Private empfaengerNLNRField As String
Private empfaengerFirmenbezeichnungField As String
Private empfaengerNationalitaetField As String
Private empfaengerStrasseHausNrField As String
Private empfaengerPLZSField As String
Private empfaengerOrtSField As String
Private empfaengerOrtsteilField As String
Private datenuebermittlungEORIField As String
Private erwerberAndererMitgliedstaatEORIField As String
Private erwerberAndererMitgliedstaatNLNRField As String
Private erwerberFirmenbezeichnungField As String
Private erwerberNationalitaetField As String
Private erwerberStrasseHausNrField As String
Private erwerberPLZSField As String
Private erwerberOrtSField As String
Private erwerberOrtsteilField As String
Private erwerberUStIdNrAndererMitgliedstaatField As String
Private versenderAusfuehrerEORIField As String
Private versenderAusfuehrerFirmenbezeichnungField As String
Private versenderAusfuehrerNationalitaetField As String
Private versenderAusfuehrerStrasseHausNrField As String
Private versenderAusfuehrerPLZSField As String
Private versenderAusfuehrerOrtSField As String
Private versenderAusfuehrerOrtsteilField As String
Private unterlageField As List(Of AnmeldungVBTyp)
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Sub New()
MyBase.New
Me.unterlageField = New List(Of AnmeldungVBTyp)()
End Sub
Public Property Sachbearbeiter() As String
Get
Return Me.sachbearbeiterField
End Get
Set
Me.sachbearbeiterField = Value
End Set
End Property
Public Property TelefonnummerBearbeiter() As String
Get
Return Me.telefonnummerBearbeiterField
End Get
Set
Me.telefonnummerBearbeiterField = Value
End Set
End Property
Public Property KopfKzErledigung() As String
Get
Return Me.kopfKzErledigungField
End Get
Set
Me.kopfKzErledigungField = Value
End Set
End Property
Public Property Registriernummer() As String
Get
Return Me.registriernummerField
End Get
Set
Me.registriernummerField = Value
End Set
End Property
Public Property Registrierdatum() As Date
Get
Return Me.registrierdatumField
End Get
Set
Me.registrierdatumField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property RegistrierdatumSpecified() As Boolean
Get
Return Me.registrierdatumFieldSpecified
End Get
Set
Me.registrierdatumFieldSpecified = Value
End Set
End Property
Public Property ArtAnmeldung() As String
Get
Return Me.artAnmeldungField
End Get
Set
Me.artAnmeldungField = Value
End Set
End Property
Public Property DatumErstellungBefund() As Date
Get
Return Me.datumErstellungBefundField
End Get
Set
Me.datumErstellungBefundField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property DatumErstellungBefundSpecified() As Boolean
Get
Return Me.datumErstellungBefundFieldSpecified
End Get
Set
Me.datumErstellungBefundFieldSpecified = Value
End Set
End Property
Public Property Befund() As String
Get
Return Me.befundField
End Get
Set
Me.befundField = Value
End Set
End Property
Public Property KzVertretungsverhaeltnis() As String
Get
Return Me.kzVertretungsverhaeltnisField
End Get
Set
Me.kzVertretungsverhaeltnisField = Value
End Set
End Property
Public Property WKZ() As String
Get
Return Me.wKZField
End Get
Set
Me.wKZField = Value
End Set
End Property
Public Property KzRechtsbehelf() As String
Get
Return Me.kzRechtsbehelfField
End Get
Set
Me.kzRechtsbehelfField = Value
End Set
End Property
Public Property KzGesamtschuldnerschaft() As String
Get
Return Me.kzGesamtschuldnerschaftField
End Get
Set
Me.kzGesamtschuldnerschaftField = Value
End Set
End Property
Public Property EingangszollstelleGeaendertKz() As String
Get
Return Me.eingangszollstelleGeaendertKzField
End Get
Set
Me.eingangszollstelleGeaendertKzField = Value
End Set
End Property
Public Property AnmelderEORI() As String
Get
Return Me.anmelderEORIField
End Get
Set
Me.anmelderEORIField = Value
End Set
End Property
Public Property AnmelderNLNR() As String
Get
Return Me.anmelderNLNRField
End Get
Set
Me.anmelderNLNRField = Value
End Set
End Property
Public Property AnmelderFirmenbezeichung() As String
Get
Return Me.anmelderFirmenbezeichungField
End Get
Set
Me.anmelderFirmenbezeichungField = Value
End Set
End Property
Public Property AnmelderStrasseHausNr() As String
Get
Return Me.anmelderStrasseHausNrField
End Get
Set
Me.anmelderStrasseHausNrField = Value
End Set
End Property
Public Property AnmelderOrtsteil() As String
Get
Return Me.anmelderOrtsteilField
End Get
Set
Me.anmelderOrtsteilField = Value
End Set
End Property
Public Property AnmelderOrtS() As String
Get
Return Me.anmelderOrtSField
End Get
Set
Me.anmelderOrtSField = Value
End Set
End Property
Public Property AnmelderPLZS() As String
Get
Return Me.anmelderPLZSField
End Get
Set
Me.anmelderPLZSField = Value
End Set
End Property
Public Property AnmelderNationalitaet() As String
Get
Return Me.anmelderNationalitaetField
End Get
Set
Me.anmelderNationalitaetField = Value
End Set
End Property
Public Property Dienststellenschluessel() As String
Get
Return Me.dienststellenschluesselField
End Get
Set
Me.dienststellenschluesselField = Value
End Set
End Property
Public Property DienststelleBezeichung() As String
Get
Return Me.dienststelleBezeichungField
End Get
Set
Me.dienststelleBezeichungField = Value
End Set
End Property
Public Property DienststelleStrasseHausNr() As String
Get
Return Me.dienststelleStrasseHausNrField
End Get
Set
Me.dienststelleStrasseHausNrField = Value
End Set
End Property
Public Property DienststelleOrtS() As String
Get
Return Me.dienststelleOrtSField
End Get
Set
Me.dienststelleOrtSField = Value
End Set
End Property
Public Property DienststellePLZS() As String
Get
Return Me.dienststellePLZSField
End Get
Set
Me.dienststellePLZSField = Value
End Set
End Property
Public Property Bearbeiter() As String
Get
Return Me.bearbeiterField
End Get
Set
Me.bearbeiterField = Value
End Set
End Property
Public Property DienststelleVorwahlTelefonNr() As String
Get
Return Me.dienststelleVorwahlTelefonNrField
End Get
Set
Me.dienststelleVorwahlTelefonNrField = Value
End Set
End Property
Public Property VertreterEORI() As String
Get
Return Me.vertreterEORIField
End Get
Set
Me.vertreterEORIField = Value
End Set
End Property
Public Property VertreterNLNR() As String
Get
Return Me.vertreterNLNRField
End Get
Set
Me.vertreterNLNRField = Value
End Set
End Property
Public Property VertreterFirmenbezeichnung() As String
Get
Return Me.vertreterFirmenbezeichnungField
End Get
Set
Me.vertreterFirmenbezeichnungField = Value
End Set
End Property
Public Property VertreterStrasseHausNr() As String
Get
Return Me.vertreterStrasseHausNrField
End Get
Set
Me.vertreterStrasseHausNrField = Value
End Set
End Property
Public Property VertreterOrtsteil() As String
Get
Return Me.vertreterOrtsteilField
End Get
Set
Me.vertreterOrtsteilField = Value
End Set
End Property
Public Property VertreterOrtS() As String
Get
Return Me.vertreterOrtSField
End Get
Set
Me.vertreterOrtSField = Value
End Set
End Property
Public Property VertreterPLZS() As String
Get
Return Me.vertreterPLZSField
End Get
Set
Me.vertreterPLZSField = Value
End Set
End Property
Public Property VertreterNationalitaet() As String
Get
Return Me.vertreterNationalitaetField
End Get
Set
Me.vertreterNationalitaetField = Value
End Set
End Property
Public Property HZABezeichnung() As String
Get
Return Me.hZABezeichnungField
End Get
Set
Me.hZABezeichnungField = Value
End Set
End Property
Public Property HZAEmailAdresse() As String
Get
Return Me.hZAEmailAdresseField
End Get
Set
Me.hZAEmailAdresseField = Value
End Set
End Property
Public Property HZADEmailAdresse() As String
Get
Return Me.hZADEmailAdresseField
End Get
Set
Me.hZADEmailAdresseField = Value
End Set
End Property
Public Property HZAPostfach() As String
Get
Return Me.hZAPostfachField
End Get
Set
Me.hZAPostfachField = Value
End Set
End Property
Public Property HZAOrtP() As String
Get
Return Me.hZAOrtPField
End Get
Set
Me.hZAOrtPField = Value
End Set
End Property
Public Property HZAPLZP() As String
Get
Return Me.hZAPLZPField
End Get
Set
Me.hZAPLZPField = Value
End Set
End Property
Public Property HZAStrasseHausNr() As String
Get
Return Me.hZAStrasseHausNrField
End Get
Set
Me.hZAStrasseHausNrField = Value
End Set
End Property
Public Property HZAOrtsteil() As String
Get
Return Me.hZAOrtsteilField
End Get
Set
Me.hZAOrtsteilField = Value
End Set
End Property
Public Property HZAOrtS() As String
Get
Return Me.hZAOrtSField
End Get
Set
Me.hZAOrtSField = Value
End Set
End Property
Public Property HZAPLZS() As String
Get
Return Me.hZAPLZSField
End Get
Set
Me.hZAPLZSField = Value
End Set
End Property
Public Property FRechnungEORI() As String
Get
Return Me.fRechnungEORIField
End Get
Set
Me.fRechnungEORIField = Value
End Set
End Property
Public Property FRechnungNLNR() As String
Get
Return Me.fRechnungNLNRField
End Get
Set
Me.fRechnungNLNRField = Value
End Set
End Property
Public Property FRechnungNationalitaet() As String
Get
Return Me.fRechnungNationalitaetField
End Get
Set
Me.fRechnungNationalitaetField = Value
End Set
End Property
Public Property FRechnungName() As String
Get
Return Me.fRechnungNameField
End Get
Set
Me.fRechnungNameField = Value
End Set
End Property
Public Property FRechnungStrasseHausNr() As String
Get
Return Me.fRechnungStrasseHausNrField
End Get
Set
Me.fRechnungStrasseHausNrField = Value
End Set
End Property
Public Property FRechnungPLZS() As String
Get
Return Me.fRechnungPLZSField
End Get
Set
Me.fRechnungPLZSField = Value
End Set
End Property
Public Property FRechnungOrtS() As String
Get
Return Me.fRechnungOrtSField
End Get
Set
Me.fRechnungOrtSField = Value
End Set
End Property
Public Property FRechnungOrtsteil() As String
Get
Return Me.fRechnungOrtsteilField
End Get
Set
Me.fRechnungOrtsteilField = Value
End Set
End Property
Public Property AnmelderEmpfaengerKz() As String
Get
Return Me.anmelderEmpfaengerKzField
End Get
Set
Me.anmelderEmpfaengerKzField = Value
End Set
End Property
Public Property Bewilligungsnummer() As String
Get
Return Me.bewilligungsnummerField
End Get
Set
Me.bewilligungsnummerField = Value
End Set
End Property
Public Property VersendungslandCode() As String
Get
Return Me.versendungslandCodeField
End Get
Set
Me.versendungslandCodeField = Value
End Set
End Property
Public Property Lieferbedingung() As String
Get
Return Me.lieferbedingungField
End Get
Set
Me.lieferbedingungField = Value
End Set
End Property
Public Property LieferbedingungText() As String
Get
Return Me.lieferbedingungTextField
End Get
Set
Me.lieferbedingungTextField = Value
End Set
End Property
Public Property LieferbedingungOrt() As String
Get
Return Me.lieferbedingungOrtField
End Get
Set
Me.lieferbedingungOrtField = Value
End Set
End Property
Public Property LieferbedingungSchluessel() As String
Get
Return Me.lieferbedingungSchluesselField
End Get
Set
Me.lieferbedingungSchluesselField = Value
End Set
End Property
Public Property Rechnungspreis() As Decimal
Get
Return Me.rechnungspreisField
End Get
Set
Me.rechnungspreisField = Value
End Set
End Property
<System.Xml.Serialization.XmlIgnoreAttribute()>
Public Property RechnungspreisSpecified() As Boolean
Get
Return Me.rechnungspreisFieldSpecified
End Get
Set
Me.rechnungspreisFieldSpecified = Value
End Set
End Property
Public Property Rechnungswaehrung() As String
Get
Return Me.rechnungswaehrungField
End Get
Set
Me.rechnungswaehrungField = Value
End Set
End Property
Public Property Finanzamt() As String
Get
Return Me.finanzamtField
End Get
Set
Me.finanzamtField = Value
End Set
End Property
Public Property Eingangszollstelle() As String
Get
Return Me.eingangszollstelleField
End Get
Set
Me.eingangszollstelleField = Value
End Set
End Property
Public Property DV1Kz() As String
Get
Return Me.dV1KzField
End Get
Set
Me.dV1KzField = Value
End Set
End Property
Public Property VerkaeuferEORI() As String
Get
Return Me.verkaeuferEORIField
End Get
Set
Me.verkaeuferEORIField = Value
End Set
End Property
Public Property VerkaeuferFirmenbezeichnung() As String
Get
Return Me.verkaeuferFirmenbezeichnungField
End Get
Set
Me.verkaeuferFirmenbezeichnungField = Value
End Set
End Property
Public Property VerkaeuferNationalitaet() As String
Get
Return Me.verkaeuferNationalitaetField
End Get
Set
Me.verkaeuferNationalitaetField = Value
End Set
End Property
Public Property VerkaeuferStrasseHausNr() As String
Get
Return Me.verkaeuferStrasseHausNrField
End Get
Set
Me.verkaeuferStrasseHausNrField = Value
End Set
End Property
Public Property VerkaeuferPLZS() As String
Get
Return Me.verkaeuferPLZSField
End Get
Set
Me.verkaeuferPLZSField = Value
End Set
End Property
Public Property VerkaeuferOrtS() As String
Get
Return Me.verkaeuferOrtSField
End Get
Set
Me.verkaeuferOrtSField = Value
End Set
End Property
Public Property VerkaeuferOrtsteil() As String
Get
Return Me.verkaeuferOrtsteilField
End Get
Set
Me.verkaeuferOrtsteilField = Value
End Set
End Property
Public Property KaeuferEORI() As String
Get
Return Me.kaeuferEORIField
End Get
Set
Me.kaeuferEORIField = Value
End Set
End Property
Public Property KaeuferFirmenbezeichnung() As String
Get
Return Me.kaeuferFirmenbezeichnungField
End Get
Set
Me.kaeuferFirmenbezeichnungField = Value
End Set
End Property
Public Property KaeuferNationalitaet() As String
Get
Return Me.kaeuferNationalitaetField
End Get
Set
Me.kaeuferNationalitaetField = Value
End Set
End Property
Public Property KaeuferStrasseHausNr() As String
Get
Return Me.kaeuferStrasseHausNrField
End Get
Set
Me.kaeuferStrasseHausNrField = Value
End Set
End Property
Public Property KaeuferPLZS() As String
Get
Return Me.kaeuferPLZSField
End Get
Set
Me.kaeuferPLZSField = Value
End Set
End Property
Public Property KaeuferOrtS() As String
Get
Return Me.kaeuferOrtSField
End Get
Set
Me.kaeuferOrtSField = Value
End Set
End Property
Public Property KaeuferOrtsteil() As String
Get
Return Me.kaeuferOrtsteilField
End Get
Set
Me.kaeuferOrtsteilField = Value
End Set
End Property
Public Property ZollwertanmelderEORI() As String
Get
Return Me.zollwertanmelderEORIField
End Get
Set
Me.zollwertanmelderEORIField = Value
End Set
End Property
Public Property ZollwertanmelderFirmenbezeichnung() As String
Get
Return Me.zollwertanmelderFirmenbezeichnungField
End Get
Set
Me.zollwertanmelderFirmenbezeichnungField = Value
End Set
End Property
Public Property ZollwertanmelderNationalitaet() As String
Get
Return Me.zollwertanmelderNationalitaetField
End Get
Set
Me.zollwertanmelderNationalitaetField = Value
End Set
End Property
Public Property ZollwertanmelderStrasseHausNr() As String
Get
Return Me.zollwertanmelderStrasseHausNrField
End Get
Set
Me.zollwertanmelderStrasseHausNrField = Value
End Set
End Property
Public Property ZollwertanmelderPLZS() As String
Get
Return Me.zollwertanmelderPLZSField
End Get
Set
Me.zollwertanmelderPLZSField = Value
End Set
End Property
Public Property ZollwertanmelderOrtS() As String
Get
Return Me.zollwertanmelderOrtSField
End Get
Set
Me.zollwertanmelderOrtSField = Value
End Set
End Property
Public Property ZollwertanmelderOrtsteil() As String
Get
Return Me.zollwertanmelderOrtsteilField
End Get
Set
Me.zollwertanmelderOrtsteilField = Value
End Set
End Property
Public Property VertreterZollwertanmelderEORI() As String
Get
Return Me.vertreterZollwertanmelderEORIField
End Get
Set
Me.vertreterZollwertanmelderEORIField = Value
End Set
End Property
Public Property VertreterZollwertanmelderFirmenbezeichnung() As String
Get
Return Me.vertreterZollwertanmelderFirmenbezeichnungField
End Get
Set
Me.vertreterZollwertanmelderFirmenbezeichnungField = Value
End Set
End Property
Public Property VertreterZollwertanmelderNationalitaet() As String
Get
Return Me.vertreterZollwertanmelderNationalitaetField
End Get
Set
Me.vertreterZollwertanmelderNationalitaetField = Value
End Set
End Property
Public Property VertreterZollwertanmelderStrasseHausNr() As String
Get
Return Me.vertreterZollwertanmelderStrasseHausNrField
End Get
Set
Me.vertreterZollwertanmelderStrasseHausNrField = Value
End Set
End Property
Public Property VertreterZollwertanmelderPLZS() As String
Get
Return Me.vertreterZollwertanmelderPLZSField
End Get
Set
Me.vertreterZollwertanmelderPLZSField = Value
End Set
End Property
Public Property VertreterZollwertanmelderOrtS() As String
Get
Return Me.vertreterZollwertanmelderOrtSField
End Get
Set
Me.vertreterZollwertanmelderOrtSField = Value
End Set
End Property
Public Property VertreterZollwertanmelderOrtsteil() As String
Get
Return Me.vertreterZollwertanmelderOrtsteilField
End Get
Set
Me.vertreterZollwertanmelderOrtsteilField = Value
End Set
End Property
Public Property Vertretungsverhaeltnis() As String
Get
Return Me.vertretungsverhaeltnisField
End Get
Set
Me.vertretungsverhaeltnisField = Value
End Set
End Property
Public Property FruehereEntscheidungen() As String
Get
Return Me.fruehereEntscheidungenField
End Get
Set
Me.fruehereEntscheidungenField = Value
End Set
End Property
Public Property Verbundenheit() As String
Get
Return Me.verbundenheitField
End Get
Set
Me.verbundenheitField = Value
End Set
End Property
Public Property VerbundenheitEinzelheiten() As String
Get
Return Me.verbundenheitEinzelheitenField
End Get
Set
Me.verbundenheitEinzelheitenField = Value
End Set
End Property
Public Property EinschraenkungenKz() As String
Get
Return Me.einschraenkungenKzField
End Get
Set
Me.einschraenkungenKzField = Value
End Set
End Property
Public Property BedingungenLeistungenKz() As String
Get
Return Me.bedingungenLeistungenKzField
End Get
Set
Me.bedingungenLeistungenKzField = Value
End Set
End Property
Public Property BedingungenLeistungenArt() As String
Get
Return Me.bedingungenLeistungenArtField
End Get
Set
Me.bedingungenLeistungenArtField = Value
End Set
End Property
Public Property LizenzgebuehrenKz() As String
Get
Return Me.lizenzgebuehrenKzField
End Get
Set
Me.lizenzgebuehrenKzField = Value
End Set
End Property
Public Property LizenzgebuehrenUmstand() As String
Get
Return Me.lizenzgebuehrenUmstandField
End Get
Set
Me.lizenzgebuehrenUmstandField = Value
End Set
End Property
Public Property SpezielleVereinbarungKz() As String
Get
Return Me.spezielleVereinbarungKzField
End Get
Set
Me.spezielleVereinbarungKzField = Value
End Set
End Property
Public Property SpezielleVereinbarungUmstand() As String
Get
Return Me.spezielleVereinbarungUmstandField
End Get
Set
Me.spezielleVereinbarungUmstandField = Value
End Set
End Property
Public Property EmpfaengerEORI() As String
Get
Return Me.empfaengerEORIField
End Get
Set
Me.empfaengerEORIField = Value
End Set
End Property
Public Property EmpfaengerNLNR() As String
Get
Return Me.empfaengerNLNRField
End Get
Set
Me.empfaengerNLNRField = Value
End Set
End Property
Public Property EmpfaengerFirmenbezeichnung() As String
Get
Return Me.empfaengerFirmenbezeichnungField
End Get
Set
Me.empfaengerFirmenbezeichnungField = Value
End Set
End Property
Public Property EmpfaengerNationalitaet() As String
Get
Return Me.empfaengerNationalitaetField
End Get
Set
Me.empfaengerNationalitaetField = Value
End Set
End Property
Public Property EmpfaengerStrasseHausNr() As String
Get
Return Me.empfaengerStrasseHausNrField
End Get
Set
Me.empfaengerStrasseHausNrField = Value
End Set
End Property
Public Property EmpfaengerPLZS() As String
Get
Return Me.empfaengerPLZSField
End Get
Set
Me.empfaengerPLZSField = Value
End Set
End Property
Public Property EmpfaengerOrtS() As String
Get
Return Me.empfaengerOrtSField
End Get
Set
Me.empfaengerOrtSField = Value
End Set
End Property
Public Property EmpfaengerOrtsteil() As String
Get
Return Me.empfaengerOrtsteilField
End Get
Set
Me.empfaengerOrtsteilField = Value
End Set
End Property
Public Property DatenuebermittlungEORI() As String
Get
Return Me.datenuebermittlungEORIField
End Get
Set
Me.datenuebermittlungEORIField = Value
End Set
End Property
Public Property ErwerberAndererMitgliedstaatEORI() As String
Get
Return Me.erwerberAndererMitgliedstaatEORIField
End Get
Set
Me.erwerberAndererMitgliedstaatEORIField = Value
End Set
End Property
Public Property ErwerberAndererMitgliedstaatNLNR() As String
Get
Return Me.erwerberAndererMitgliedstaatNLNRField
End Get
Set
Me.erwerberAndererMitgliedstaatNLNRField = Value
End Set
End Property
Public Property ErwerberFirmenbezeichnung() As String
Get
Return Me.erwerberFirmenbezeichnungField
End Get
Set
Me.erwerberFirmenbezeichnungField = Value
End Set
End Property
Public Property ErwerberNationalitaet() As String
Get
Return Me.erwerberNationalitaetField
End Get
Set
Me.erwerberNationalitaetField = Value
End Set
End Property
Public Property ErwerberStrasseHausNr() As String
Get
Return Me.erwerberStrasseHausNrField
End Get
Set
Me.erwerberStrasseHausNrField = Value
End Set
End Property
Public Property ErwerberPLZS() As String
Get
Return Me.erwerberPLZSField
End Get
Set
Me.erwerberPLZSField = Value
End Set
End Property
Public Property ErwerberOrtS() As String
Get
Return Me.erwerberOrtSField
End Get
Set
Me.erwerberOrtSField = Value
End Set
End Property
Public Property ErwerberOrtsteil() As String
Get
Return Me.erwerberOrtsteilField
End Get
Set
Me.erwerberOrtsteilField = Value
End Set
End Property
Public Property ErwerberUStIdNrAndererMitgliedstaat() As String
Get
Return Me.erwerberUStIdNrAndererMitgliedstaatField
End Get
Set
Me.erwerberUStIdNrAndererMitgliedstaatField = Value
End Set
End Property
Public Property VersenderAusfuehrerEORI() As String
Get
Return Me.versenderAusfuehrerEORIField
End Get
Set
Me.versenderAusfuehrerEORIField = Value
End Set
End Property
Public Property VersenderAusfuehrerFirmenbezeichnung() As String
Get
Return Me.versenderAusfuehrerFirmenbezeichnungField
End Get
Set
Me.versenderAusfuehrerFirmenbezeichnungField = Value
End Set
End Property
Public Property VersenderAusfuehrerNationalitaet() As String
Get
Return Me.versenderAusfuehrerNationalitaetField
End Get
Set
Me.versenderAusfuehrerNationalitaetField = Value
End Set
End Property
Public Property VersenderAusfuehrerStrasseHausNr() As String
Get
Return Me.versenderAusfuehrerStrasseHausNrField
End Get
Set
Me.versenderAusfuehrerStrasseHausNrField = Value
End Set
End Property
Public Property VersenderAusfuehrerPLZS() As String
Get
Return Me.versenderAusfuehrerPLZSField
End Get
Set
Me.versenderAusfuehrerPLZSField = Value
End Set
End Property
Public Property VersenderAusfuehrerOrtS() As String
Get
Return Me.versenderAusfuehrerOrtSField
End Get
Set
Me.versenderAusfuehrerOrtSField = Value
End Set
End Property
Public Property VersenderAusfuehrerOrtsteil() As String
Get
Return Me.versenderAusfuehrerOrtsteilField
End Get
Set
Me.versenderAusfuehrerOrtsteilField = Value
End Set
End Property
Public Property Unterlage() As List(Of AnmeldungVBTyp)
Get
Return Me.unterlageField
End Get
Set
Me.unterlageField = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KopfdatenBefundVereinfachteZollanmeldungTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''<summary>
'''Serializes current KopfdatenBefundVereinfachteZollanmeldungTyp object into an XML document
'''</summary>
'''<returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Serializer.Serialize(memoryStream, Me)
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
streamReader = New System.IO.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
'''<summary>
'''Deserializes workflow markup into an KopfdatenBefundVereinfachteZollanmeldungTyp object
'''</summary>
'''<param name="xml">string workflow markup to deserialize</param>
'''<param name="obj">Output KopfdatenBefundVereinfachteZollanmeldungTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KopfdatenBefundVereinfachteZollanmeldungTyp)
Try
obj = Deserialize(xml)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(xml, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String) As KopfdatenBefundVereinfachteZollanmeldungTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfdatenBefundVereinfachteZollanmeldungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''<summary>
'''Serializes current KopfdatenBefundVereinfachteZollanmeldungTyp object into file
'''</summary>
'''<param name="fileName">full path of outupt xml file</param>
'''<param name="exception">output Exception value if failed</param>
'''<returns>true if can serialize and save into file; otherwise, false</returns>
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 System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''<summary>
'''Deserializes xml markup from file into an KopfdatenBefundVereinfachteZollanmeldungTyp object
'''</summary>
'''<param name="fileName">string xml file to load and deserialize</param>
'''<param name="obj">Output KopfdatenBefundVereinfachteZollanmeldungTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KopfdatenBefundVereinfachteZollanmeldungTyp)
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 KopfdatenBefundVereinfachteZollanmeldungTyp) 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 KopfdatenBefundVereinfachteZollanmeldungTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
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 Region
End Class
Partial Public Class TransaktionFreierVerkehrTyp
Private iOPartnerField As String
Private iODivision1Field As String
Private iODivision2Field As String
Private iODivision3Field As String
Private iOReferenzField As String
Private iODatumZeitField As Date
Private versionField As String
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Property IOPartner() As String
Get
Return Me.iOPartnerField
End Get
Set
Me.iOPartnerField = Value
End Set
End Property
Public Property IODivision1() As String
Get
Return Me.iODivision1Field
End Get
Set
Me.iODivision1Field = Value
End Set
End Property
Public Property IODivision2() As String
Get
Return Me.iODivision2Field
End Get
Set
Me.iODivision2Field = Value
End Set
End Property
Public Property IODivision3() As String
Get
Return Me.iODivision3Field
End Get
Set
Me.iODivision3Field = Value
End Set
End Property
Public Property IOReferenz() As String
Get
Return Me.iOReferenzField
End Get
Set
Me.iOReferenzField = Value
End Set
End Property
Public Property IODatumZeit() As Date
Get
Return Me.iODatumZeitField
End Get
Set
Me.iODatumZeitField = Value
End Set
End Property
Public Property Version() As String
Get
Return Me.versionField
End Get
Set
Me.versionField = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TransaktionFreierVerkehrTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''<summary>
'''Serializes current TransaktionFreierVerkehrTyp object into an XML document
'''</summary>
'''<returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Serializer.Serialize(memoryStream, Me)
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
streamReader = New System.IO.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
'''<summary>
'''Deserializes workflow markup into an TransaktionFreierVerkehrTyp object
'''</summary>
'''<param name="xml">string workflow markup to deserialize</param>
'''<param name="obj">Output TransaktionFreierVerkehrTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransaktionFreierVerkehrTyp)
Try
obj = Deserialize(xml)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(xml, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String) As TransaktionFreierVerkehrTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''<summary>
'''Serializes current TransaktionFreierVerkehrTyp object into file
'''</summary>
'''<param name="fileName">full path of outupt xml file</param>
'''<param name="exception">output Exception value if failed</param>
'''<returns>true if can serialize and save into file; otherwise, false</returns>
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 System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''<summary>
'''Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object
'''</summary>
'''<param name="fileName">string xml file to load and deserialize</param>
'''<param name="obj">Output TransaktionFreierVerkehrTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransaktionFreierVerkehrTyp)
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 TransaktionFreierVerkehrTyp) 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 TransaktionFreierVerkehrTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
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 Region
End Class
<System.Xml.Serialization.XmlIncludeAttribute(GetType(BefundVereinfachteZollanmeldungVBTyp))>
Partial Public Class DatenaustauschFreierVerkehrTyp
Private transaktionField As TransaktionFreierVerkehrTyp
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
Public Sub New()
MyBase.New
Me.transaktionField = New TransaktionFreierVerkehrTyp()
End Sub
Public Property Transaktion() As TransaktionFreierVerkehrTyp
Get
Return Me.transaktionField
End Get
Set
Me.transaktionField = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DatenaustauschFreierVerkehrTyp))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
'''<summary>
'''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document
'''</summary>
'''<returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Serializer.Serialize(memoryStream, Me)
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
streamReader = New System.IO.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
'''<summary>
'''Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object
'''</summary>
'''<param name="xml">string workflow markup to deserialize</param>
'''<param name="obj">Output DatenaustauschFreierVerkehrTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DatenaustauschFreierVerkehrTyp)
Try
obj = Deserialize(xml)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(xml, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal xml As String) As DatenaustauschFreierVerkehrTyp
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(xml)
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
'''<summary>
'''Serializes current DatenaustauschFreierVerkehrTyp object into file
'''</summary>
'''<param name="fileName">full path of outupt xml file</param>
'''<param name="exception">output Exception value if failed</param>
'''<returns>true if can serialize and save into file; otherwise, false</returns>
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 System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
'''<summary>
'''Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object
'''</summary>
'''<param name="fileName">string xml file to load and deserialize</param>
'''<param name="obj">Output DatenaustauschFreierVerkehrTyp object</param>
'''<param name="exception">output Exception value if deserialize failed</param>
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DatenaustauschFreierVerkehrTyp)
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 DatenaustauschFreierVerkehrTyp) 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 DatenaustauschFreierVerkehrTyp
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
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 Region
End Class
End Namespace