diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_010.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_010.designer.vb new file mode 100644 index 0000000..75c3a85 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_010.designer.vb @@ -0,0 +1,6864 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) +'' Abgabenbescheid_010ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' +'' ------------------------------------------------------------------------------ +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 Abgabenbescheid_010 + + Partial Public Class AbgabenbescheidEinfuhrTAXTyp + Inherits DatenaustauschFreierVerkehrTyp + + Private einzelAbgabenbescheidField As EinzelAbgabenbescheidTyp + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.einzelAbgabenbescheidField = New EinzelAbgabenbescheidTyp() + End Sub + + Public Property EinzelAbgabenbescheid() As EinzelAbgabenbescheidTyp + Get + Return Me.einzelAbgabenbescheidField + End Get + Set + Me.einzelAbgabenbescheidField = 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(AbgabenbescheidEinfuhrTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current AbgabenbescheidEinfuhrTAXTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an AbgabenbescheidEinfuhrTAXTyp object + ''' + '''string workflow markup to deserialize + '''Output AbgabenbescheidEinfuhrTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp) + 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 AbgabenbescheidEinfuhrTAXTyp) 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 AbgabenbescheidEinfuhrTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbgabenbescheidEinfuhrTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current AbgabenbescheidEinfuhrTAXTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an AbgabenbescheidEinfuhrTAXTyp object + ''' + '''string xml file to load and deserialize + '''Output AbgabenbescheidEinfuhrTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp) + 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 AbgabenbescheidEinfuhrTAXTyp) 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 AbgabenbescheidEinfuhrTAXTyp + 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 EinzelAbgabenbescheidTyp + + Private objektIdentifizierungField As ObjektIdentifizierungTAXTyp + + Private kopfDatenField As KopfDatenEinfuhrbescheidTyp + + Private positionField As List(Of PositionAbgabenbescheidEinfuhrTyp) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.positionField = New List(Of PositionAbgabenbescheidEinfuhrTyp)() + Me.kopfDatenField = New KopfDatenEinfuhrbescheidTyp() + Me.objektIdentifizierungField = New ObjektIdentifizierungTAXTyp() + End Sub + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXTyp + Get + Return Me.objektIdentifizierungField + End Get + Set + Me.objektIdentifizierungField = Value + End Set + End Property + + Public Property KopfDaten() As KopfDatenEinfuhrbescheidTyp + Get + Return Me.kopfDatenField + End Get + Set + Me.kopfDatenField = Value + End Set + End Property + + Public Property Position() As List(Of PositionAbgabenbescheidEinfuhrTyp) + 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(EinzelAbgabenbescheidTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current EinzelAbgabenbescheidTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an EinzelAbgabenbescheidTyp object + ''' + '''string workflow markup to deserialize + '''Output EinzelAbgabenbescheidTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenbescheidTyp) + 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 EinzelAbgabenbescheidTyp) 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 EinzelAbgabenbescheidTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelAbgabenbescheidTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current EinzelAbgabenbescheidTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an EinzelAbgabenbescheidTyp object + ''' + '''string xml file to load and deserialize + '''Output EinzelAbgabenbescheidTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenbescheidTyp) + 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 EinzelAbgabenbescheidTyp) 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 EinzelAbgabenbescheidTyp + 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 ObjektIdentifizierungTAXTyp + + Private objektNameField As String + + Private objektAliasField As String + + Private eDIFACTNachrichtenNrField As String + + Private zeitpunktEingangField As Date + + 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 ObjektAlias() As String + Get + Return Me.objektAliasField + End Get + Set + Me.objektAliasField = 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 + + 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(ObjektIdentifizierungTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current ObjektIdentifizierungTAXTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an ObjektIdentifizierungTAXTyp object + ''' + '''string workflow markup to deserialize + '''Output ObjektIdentifizierungTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXTyp) + 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 ObjektIdentifizierungTAXTyp) 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 ObjektIdentifizierungTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current ObjektIdentifizierungTAXTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an ObjektIdentifizierungTAXTyp object + ''' + '''string xml file to load and deserialize + '''Output ObjektIdentifizierungTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXTyp) + 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 ObjektIdentifizierungTAXTyp) 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 ObjektIdentifizierungTAXTyp + 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 EinzelAbgabenSatzTAXTyp + + Private lfdNrAbgabensatzField As List(Of String) + + Private abgabensatzField As List(Of Decimal) + + Private bemessungsmassstabField As List(Of String) + + Private gehaltsangabenArtField As List(Of String) + + Private gehaltsangabenGradProzentField As List(Of Decimal) + + Private bemessungsgrundlageKzField As List(Of String) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.bemessungsgrundlageKzField = New List(Of String)() + Me.gehaltsangabenGradProzentField = New List(Of Decimal)() + Me.gehaltsangabenArtField = New List(Of String)() + Me.bemessungsmassstabField = New List(Of String)() + Me.abgabensatzField = New List(Of Decimal)() + Me.lfdNrAbgabensatzField = New List(Of String)() + End Sub + + Public Property LfdNrAbgabensatz() As List(Of String) + Get + Return Me.lfdNrAbgabensatzField + End Get + Set + Me.lfdNrAbgabensatzField = Value + End Set + End Property + + Public Property Abgabensatz() As List(Of Decimal) + Get + Return Me.abgabensatzField + End Get + Set + Me.abgabensatzField = Value + End Set + End Property + + Public Property Bemessungsmassstab() As List(Of String) + Get + Return Me.bemessungsmassstabField + End Get + Set + Me.bemessungsmassstabField = Value + End Set + End Property + + Public Property GehaltsangabenArt() As List(Of String) + Get + Return Me.gehaltsangabenArtField + End Get + Set + Me.gehaltsangabenArtField = Value + End Set + End Property + + Public Property GehaltsangabenGradProzent() As List(Of Decimal) + Get + Return Me.gehaltsangabenGradProzentField + End Get + Set + Me.gehaltsangabenGradProzentField = Value + End Set + End Property + + Public Property BemessungsgrundlageKz() As List(Of String) + Get + Return Me.bemessungsgrundlageKzField + End Get + Set + Me.bemessungsgrundlageKzField = 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(EinzelAbgabenSatzTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current EinzelAbgabenSatzTAXTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an EinzelAbgabenSatzTAXTyp object + ''' + '''string workflow markup to deserialize + '''Output EinzelAbgabenSatzTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenSatzTAXTyp) + 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 EinzelAbgabenSatzTAXTyp) 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 EinzelAbgabenSatzTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelAbgabenSatzTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current EinzelAbgabenSatzTAXTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an EinzelAbgabenSatzTAXTyp object + ''' + '''string xml file to load and deserialize + '''Output EinzelAbgabenSatzTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenSatzTAXTyp) + 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 EinzelAbgabenSatzTAXTyp) 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 EinzelAbgabenSatzTAXTyp + 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 AbgabengruppeTAXTyp + + Private abgabengruppeField As String + + Private abgabeArtField As String + + Private berechnungshinweisField As String + + Private errechneterAbgabenbetragField As Decimal + + Private errechneterAbgabenbetragFieldSpecified As Boolean + + Private abgabenbetragField As Decimal + + Private abgabenbetragFieldSpecified As Boolean + + Private abgabensatzKontNrField As String + + Private verbrauchssteuerCodeField As String + + Private verbrauchssteuerMengeField As Decimal + + Private verbrauchssteuerMengeFieldSpecified As Boolean + + Private verbrauchssteuerMasseinheitField As String + + Private verbrauchssteuerQualifikatorField As String + + Private verbrauchssteuerGradProzentField As Decimal + + Private verbrauchssteuerGradProzentFieldSpecified As Boolean + + Private verbrauchssteuerWertField As Decimal + + Private verbrauchssteuerWertFieldSpecified As Boolean + + Private einzelAbgabenSatzField As List(Of EinzelAbgabenSatzTAXTyp) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.einzelAbgabenSatzField = New List(Of EinzelAbgabenSatzTAXTyp)() + End Sub + + Public Property Abgabengruppe() As String + Get + Return Me.abgabengruppeField + End Get + Set + Me.abgabengruppeField = Value + End Set + End Property + + Public Property AbgabeArt() As String + Get + Return Me.abgabeArtField + End Get + Set + Me.abgabeArtField = Value + End Set + End Property + + Public Property Berechnungshinweis() As String + Get + Return Me.berechnungshinweisField + End Get + Set + Me.berechnungshinweisField = Value + End Set + End Property + + Public Property ErrechneterAbgabenbetrag() As Decimal + Get + Return Me.errechneterAbgabenbetragField + End Get + Set + Me.errechneterAbgabenbetragField = Value + End Set + End Property + + + Public Property ErrechneterAbgabenbetragSpecified() As Boolean + Get + Return Me.errechneterAbgabenbetragFieldSpecified + End Get + Set + Me.errechneterAbgabenbetragFieldSpecified = Value + End Set + End Property + + Public Property Abgabenbetrag() As Decimal + Get + Return Me.abgabenbetragField + End Get + Set + Me.abgabenbetragField = Value + End Set + End Property + + + Public Property AbgabenbetragSpecified() As Boolean + Get + Return Me.abgabenbetragFieldSpecified + End Get + Set + Me.abgabenbetragFieldSpecified = Value + End Set + End Property + + Public Property AbgabensatzKontNr() As String + Get + Return Me.abgabensatzKontNrField + End Get + Set + Me.abgabensatzKontNrField = Value + End Set + End Property + + Public Property VerbrauchssteuerCode() As String + Get + Return Me.verbrauchssteuerCodeField + End Get + Set + Me.verbrauchssteuerCodeField = Value + End Set + End Property + + Public Property VerbrauchssteuerMenge() As Decimal + Get + Return Me.verbrauchssteuerMengeField + End Get + Set + Me.verbrauchssteuerMengeField = Value + End Set + End Property + + + Public Property VerbrauchssteuerMengeSpecified() As Boolean + Get + Return Me.verbrauchssteuerMengeFieldSpecified + End Get + Set + Me.verbrauchssteuerMengeFieldSpecified = Value + End Set + End Property + + Public Property VerbrauchssteuerMasseinheit() As String + Get + Return Me.verbrauchssteuerMasseinheitField + End Get + Set + Me.verbrauchssteuerMasseinheitField = Value + End Set + End Property + + Public Property VerbrauchssteuerQualifikator() As String + Get + Return Me.verbrauchssteuerQualifikatorField + End Get + Set + Me.verbrauchssteuerQualifikatorField = Value + End Set + End Property + + Public Property VerbrauchssteuerGradProzent() As Decimal + Get + Return Me.verbrauchssteuerGradProzentField + End Get + Set + Me.verbrauchssteuerGradProzentField = Value + End Set + End Property + + + Public Property VerbrauchssteuerGradProzentSpecified() As Boolean + Get + Return Me.verbrauchssteuerGradProzentFieldSpecified + End Get + Set + Me.verbrauchssteuerGradProzentFieldSpecified = Value + End Set + End Property + + Public Property VerbrauchssteuerWert() As Decimal + Get + Return Me.verbrauchssteuerWertField + End Get + Set + Me.verbrauchssteuerWertField = Value + End Set + End Property + + + Public Property VerbrauchssteuerWertSpecified() As Boolean + Get + Return Me.verbrauchssteuerWertFieldSpecified + End Get + Set + Me.verbrauchssteuerWertFieldSpecified = Value + End Set + End Property + + Public Property EinzelAbgabenSatz() As List(Of EinzelAbgabenSatzTAXTyp) + Get + Return Me.einzelAbgabenSatzField + End Get + Set + Me.einzelAbgabenSatzField = 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(AbgabengruppeTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current AbgabengruppeTAXTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an AbgabengruppeTAXTyp object + ''' + '''string workflow markup to deserialize + '''Output AbgabengruppeTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabengruppeTAXTyp) + 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 AbgabengruppeTAXTyp) 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 AbgabengruppeTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbgabengruppeTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current AbgabengruppeTAXTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an AbgabengruppeTAXTyp object + ''' + '''string xml file to load and deserialize + '''Output AbgabengruppeTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabengruppeTAXTyp) + 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 AbgabengruppeTAXTyp) 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 AbgabengruppeTAXTyp + 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 PauschalierungTAXTyp + + Private warenkategorieField As String + + Private kzPauschalierterAbgabensatzField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Warenkategorie() As String + Get + Return Me.warenkategorieField + End Get + Set + Me.warenkategorieField = Value + End Set + End Property + + Public Property KzPauschalierterAbgabensatz() As String + Get + Return Me.kzPauschalierterAbgabensatzField + End Get + Set + Me.kzPauschalierterAbgabensatzField = 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(PauschalierungTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current PauschalierungTAXTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an PauschalierungTAXTyp object + ''' + '''string workflow markup to deserialize + '''Output PauschalierungTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PauschalierungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PauschalierungTAXTyp) + 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 PauschalierungTAXTyp) 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 PauschalierungTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PauschalierungTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current PauschalierungTAXTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an PauschalierungTAXTyp object + ''' + '''string xml file to load and deserialize + '''Output PauschalierungTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PauschalierungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PauschalierungTAXTyp) + 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 PauschalierungTAXTyp) 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 PauschalierungTAXTyp + 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 AbweichendeFestsetzungTAXTyp + + Private feldnameField As String + + Private qualifikatorField As String + + Private qualifikatorInhaltField As String + + Private artAbweichendeFestsetzungField As String + + Private festgesetztVonField As String + + Private festgesetztAufField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Feldname() As String + Get + Return Me.feldnameField + End Get + Set + Me.feldnameField = Value + End Set + End Property + + Public Property Qualifikator() As String + Get + Return Me.qualifikatorField + End Get + Set + Me.qualifikatorField = 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 ArtAbweichendeFestsetzung() As String + Get + Return Me.artAbweichendeFestsetzungField + End Get + Set + Me.artAbweichendeFestsetzungField = Value + End Set + End Property + + Public Property FestgesetztVon() As String + Get + Return Me.festgesetztVonField + End Get + Set + Me.festgesetztVonField = Value + End Set + End Property + + Public Property FestgesetztAuf() As String + Get + Return Me.festgesetztAufField + End Get + Set + Me.festgesetztAufField = 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(AbweichendeFestsetzungTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current AbweichendeFestsetzungTAXTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an AbweichendeFestsetzungTAXTyp object + ''' + '''string workflow markup to deserialize + '''Output AbweichendeFestsetzungTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbweichendeFestsetzungTAXTyp) + 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 AbweichendeFestsetzungTAXTyp) 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 AbweichendeFestsetzungTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbweichendeFestsetzungTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current AbweichendeFestsetzungTAXTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an AbweichendeFestsetzungTAXTyp object + ''' + '''string xml file to load and deserialize + '''Output AbweichendeFestsetzungTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbweichendeFestsetzungTAXTyp) + 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 AbweichendeFestsetzungTAXTyp) 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 AbweichendeFestsetzungTAXTyp + 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 KontingentAngerechnetWarenMengeTAXTyp + + 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(KontingentAngerechnetWarenMengeTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current KontingentAngerechnetWarenMengeTAXTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an KontingentAngerechnetWarenMengeTAXTyp object + ''' + '''string workflow markup to deserialize + '''Output KontingentAngerechnetWarenMengeTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp) + 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 KontingentAngerechnetWarenMengeTAXTyp) 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 KontingentAngerechnetWarenMengeTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KontingentAngerechnetWarenMengeTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current KontingentAngerechnetWarenMengeTAXTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an KontingentAngerechnetWarenMengeTAXTyp object + ''' + '''string xml file to load and deserialize + '''Output KontingentAngerechnetWarenMengeTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp) + 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 KontingentAngerechnetWarenMengeTAXTyp) 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 KontingentAngerechnetWarenMengeTAXTyp + 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 KontingentAngerechnetTAXTyp + + Private kontNrAngerechnetField As String + + Private zollwertAngerechnetField As Decimal + + Private zollwertAngerechnetFieldSpecified As Boolean + + Private eUStKostenAngerechnetField As Decimal + + Private eUStKostenAngerechnetFieldSpecified As Boolean + + Private beguenstMengeAngerechnetField As Decimal + + Private beguenstMengeAngerechnetFieldSpecified As Boolean + + Private masseinhBegMengeAngField As String + + Private qualifBegMengeAngField As String + + Private warenMengeField As List(Of KontingentAngerechnetWarenMengeTAXTyp) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.warenMengeField = New List(Of KontingentAngerechnetWarenMengeTAXTyp)() + End Sub + + Public Property KontNrAngerechnet() As String + Get + Return Me.kontNrAngerechnetField + End Get + Set + Me.kontNrAngerechnetField = Value + End Set + End Property + + Public Property ZollwertAngerechnet() As Decimal + Get + Return Me.zollwertAngerechnetField + End Get + Set + Me.zollwertAngerechnetField = Value + End Set + End Property + + + Public Property ZollwertAngerechnetSpecified() As Boolean + Get + Return Me.zollwertAngerechnetFieldSpecified + End Get + Set + Me.zollwertAngerechnetFieldSpecified = Value + End Set + End Property + + Public Property EUStKostenAngerechnet() As Decimal + Get + Return Me.eUStKostenAngerechnetField + End Get + Set + Me.eUStKostenAngerechnetField = Value + End Set + End Property + + + Public Property EUStKostenAngerechnetSpecified() As Boolean + Get + Return Me.eUStKostenAngerechnetFieldSpecified + End Get + Set + Me.eUStKostenAngerechnetFieldSpecified = Value + End Set + End Property + + Public Property BeguenstMengeAngerechnet() As Decimal + Get + Return Me.beguenstMengeAngerechnetField + End Get + Set + Me.beguenstMengeAngerechnetField = Value + End Set + End Property + + + Public Property BeguenstMengeAngerechnetSpecified() As Boolean + Get + Return Me.beguenstMengeAngerechnetFieldSpecified + End Get + Set + Me.beguenstMengeAngerechnetFieldSpecified = Value + End Set + End Property + + Public Property MasseinhBegMengeAng() As String + Get + Return Me.masseinhBegMengeAngField + End Get + Set + Me.masseinhBegMengeAngField = Value + End Set + End Property + + Public Property QualifBegMengeAng() As String + Get + Return Me.qualifBegMengeAngField + End Get + Set + Me.qualifBegMengeAngField = Value + End Set + End Property + + Public Property WarenMenge() As List(Of KontingentAngerechnetWarenMengeTAXTyp) + Get + Return Me.warenMengeField + End Get + Set + Me.warenMengeField = 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(KontingentAngerechnetTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current KontingentAngerechnetTAXTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an KontingentAngerechnetTAXTyp object + ''' + '''string workflow markup to deserialize + '''Output KontingentAngerechnetTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetTAXTyp) + 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 KontingentAngerechnetTAXTyp) 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 KontingentAngerechnetTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KontingentAngerechnetTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current KontingentAngerechnetTAXTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an KontingentAngerechnetTAXTyp object + ''' + '''string xml file to load and deserialize + '''Output KontingentAngerechnetTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetTAXTyp) + 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 KontingentAngerechnetTAXTyp) 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 KontingentAngerechnetTAXTyp + 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 SonderfalleingabeTAXTyp + + Private sonderabgabenGruppeField As String + + Private anwendungsartField As String + + Private satzBetragFaktorField As Decimal + + Private satzBetragFaktorFieldSpecified As Boolean + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property SonderabgabenGruppe() As String + Get + Return Me.sonderabgabenGruppeField + End Get + Set + Me.sonderabgabenGruppeField = 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 + + + 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(SonderfalleingabeTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current SonderfalleingabeTAXTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an SonderfalleingabeTAXTyp object + ''' + '''string workflow markup to deserialize + '''Output SonderfalleingabeTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderfalleingabeTAXTyp) + 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 SonderfalleingabeTAXTyp) 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 SonderfalleingabeTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), SonderfalleingabeTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current SonderfalleingabeTAXTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an SonderfalleingabeTAXTyp object + ''' + '''string xml file to load and deserialize + '''Output SonderfalleingabeTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderfalleingabeTAXTyp) + 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 SonderfalleingabeTAXTyp) 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 SonderfalleingabeTAXTyp + 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 EZAAVVeredelungserzeugnisTyp + + Private warenbezeichnungField As String + + Private ausbeuteartField As String + + Private ausbeutesatzField As String + + Private kNCodeField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Warenbezeichnung() As String + Get + Return Me.warenbezeichnungField + End Get + Set + Me.warenbezeichnungField = Value + End Set + End Property + + Public Property Ausbeuteart() As String + Get + Return Me.ausbeuteartField + End Get + Set + Me.ausbeuteartField = Value + End Set + End Property + + Public Property Ausbeutesatz() As String + Get + Return Me.ausbeutesatzField + End Get + Set + Me.ausbeutesatzField = Value + End Set + End Property + + Public Property KNCode() As String + Get + Return Me.kNCodeField + End Get + Set + Me.kNCodeField = 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(EZAAVVeredelungserzeugnisTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current EZAAVVeredelungserzeugnisTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an EZAAVVeredelungserzeugnisTyp object + ''' + '''string workflow markup to deserialize + '''Output EZAAVVeredelungserzeugnisTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp) + 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 EZAAVVeredelungserzeugnisTyp) 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 EZAAVVeredelungserzeugnisTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EZAAVVeredelungserzeugnisTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current EZAAVVeredelungserzeugnisTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an EZAAVVeredelungserzeugnisTyp object + ''' + '''string xml file to load and deserialize + '''Output EZAAVVeredelungserzeugnisTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp) + 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 EZAAVVeredelungserzeugnisTyp) 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 EZAAVVeredelungserzeugnisTyp + 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 EZAAVAngabenPosTyp + + Private aVWirtschaftlicheVoraussetzungenField As String + + Private aVVeredelungserzeugnisField As List(Of EZAAVVeredelungserzeugnisTyp) + + Private aVNaemlichkeitsmittelField As String + + Private aVErlaeuterungNaemlichkeitField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.aVVeredelungserzeugnisField = New List(Of EZAAVVeredelungserzeugnisTyp)() + End Sub + + Public Property AVWirtschaftlicheVoraussetzungen() As String + Get + Return Me.aVWirtschaftlicheVoraussetzungenField + End Get + Set + Me.aVWirtschaftlicheVoraussetzungenField = Value + End Set + End Property + + Public Property AVVeredelungserzeugnis() As List(Of EZAAVVeredelungserzeugnisTyp) + Get + Return Me.aVVeredelungserzeugnisField + End Get + Set + Me.aVVeredelungserzeugnisField = Value + End Set + End Property + + Public Property AVNaemlichkeitsmittel() As String + Get + Return Me.aVNaemlichkeitsmittelField + End Get + Set + Me.aVNaemlichkeitsmittelField = Value + End Set + End Property + + Public Property AVErlaeuterungNaemlichkeit() As String + Get + Return Me.aVErlaeuterungNaemlichkeitField + End Get + Set + Me.aVErlaeuterungNaemlichkeitField = 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(EZAAVAngabenPosTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current EZAAVAngabenPosTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an EZAAVAngabenPosTyp object + ''' + '''string workflow markup to deserialize + '''Output EZAAVAngabenPosTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenPosTyp) + 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 EZAAVAngabenPosTyp) 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 EZAAVAngabenPosTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EZAAVAngabenPosTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current EZAAVAngabenPosTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an EZAAVAngabenPosTyp object + ''' + '''string xml file to load and deserialize + '''Output EZAAVAngabenPosTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenPosTyp) + 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 EZAAVAngabenPosTyp) 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 EZAAVAngabenPosTyp + 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 AngemeldeteUnterlageTAXTyp + + Private unterlageArtField As String + + Private unterlageBereichField As String + + Private unterlageNrField As String + + Private anerkennungKzField As String + + Private abschreibungKzField As String + + Private einbehaltenKzField As String + + Private periodischeVorlageKzField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property UnterlageArt() As String + Get + Return Me.unterlageArtField + End Get + Set + Me.unterlageArtField = Value + End Set + End Property + + Public Property UnterlageBereich() As String + Get + Return Me.unterlageBereichField + End Get + Set + Me.unterlageBereichField = Value + End Set + End Property + + Public Property UnterlageNr() As String + Get + Return Me.unterlageNrField + End Get + Set + Me.unterlageNrField = Value + End Set + End Property + + Public Property AnerkennungKz() As String + Get + Return Me.anerkennungKzField + End Get + Set + Me.anerkennungKzField = Value + End Set + End Property + + Public Property AbschreibungKz() As String + Get + Return Me.abschreibungKzField + End Get + Set + Me.abschreibungKzField = Value + End Set + End Property + + Public Property EinbehaltenKz() As String + Get + Return Me.einbehaltenKzField + End Get + Set + Me.einbehaltenKzField = Value + End Set + End Property + + Public Property PeriodischeVorlageKz() As String + Get + Return Me.periodischeVorlageKzField + End Get + Set + Me.periodischeVorlageKzField = 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(AngemeldeteUnterlageTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current AngemeldeteUnterlageTAXTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an AngemeldeteUnterlageTAXTyp object + ''' + '''string workflow markup to deserialize + '''Output AngemeldeteUnterlageTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AngemeldeteUnterlageTAXTyp) + 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 AngemeldeteUnterlageTAXTyp) 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 AngemeldeteUnterlageTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AngemeldeteUnterlageTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current AngemeldeteUnterlageTAXTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an AngemeldeteUnterlageTAXTyp object + ''' + '''string xml file to load and deserialize + '''Output AngemeldeteUnterlageTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AngemeldeteUnterlageTAXTyp) + 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 AngemeldeteUnterlageTAXTyp) 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 AngemeldeteUnterlageTAXTyp + 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 KursAbzugHinzuTAXTyp + + Private artAbHinzuField As String + + Private angewandterKursField As Decimal + + Private angewandterKursFieldSpecified As Boolean + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ArtAbHinzu() As String + Get + Return Me.artAbHinzuField + End Get + Set + Me.artAbHinzuField = Value + End Set + End Property + + Public Property AngewandterKurs() As Decimal + Get + Return Me.angewandterKursField + End Get + Set + Me.angewandterKursField = Value + End Set + End Property + + + Public Property AngewandterKursSpecified() As Boolean + Get + Return Me.angewandterKursFieldSpecified + End Get + Set + Me.angewandterKursFieldSpecified = 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(KursAbzugHinzuTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current KursAbzugHinzuTAXTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an KursAbzugHinzuTAXTyp object + ''' + '''string workflow markup to deserialize + '''Output KursAbzugHinzuTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KursAbzugHinzuTAXTyp) + 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 KursAbzugHinzuTAXTyp) 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 KursAbzugHinzuTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KursAbzugHinzuTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current KursAbzugHinzuTAXTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an KursAbzugHinzuTAXTyp object + ''' + '''string xml file to load and deserialize + '''Output KursAbzugHinzuTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KursAbzugHinzuTAXTyp) + 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 KursAbzugHinzuTAXTyp) 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 KursAbzugHinzuTAXTyp + 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 PositionAbgabenbescheidEinfuhrTyp + + Private positionsNrField As String + + Private erledigungKzField As String + + Private warenNummerEZTField As String + + Private warenNummerZusatzCodeField As List(Of String) + + Private warenBezeichnungField As String + + Private beschauMitteilungField As String + + Private erledigungMitteilungField As String + + Private ablehnungAenderungField As String + + Private weitererNachweisField As String + + Private gewaehrteBeguenstigungField As String + + Private anordnungKzField As String + + Private eUStWertField As Decimal + + Private eUStWertFieldSpecified As Boolean + + Private kostenFuerEUStField As Decimal + + Private kostenFuerEUStFieldSpecified As Boolean + + Private zollWertField As Decimal + + Private zollWertFieldSpecified As Boolean + + Private annahmeAenderungField As String + + Private sicherheitsLeistungBetragField As Decimal + + Private sicherheitsLeistungBetragFieldSpecified As Boolean + + Private registrierNrvZAAZField As String + + Private positionsNrInvZAAZField As String + + Private annahmeKzField As String + + Private annahmeDatumField As Date + + Private annahmeDatumFieldSpecified As Boolean + + Private ueberlassungDatumField As Date + + Private ueberlassungDatumFieldSpecified As Boolean + + Private lagerfristField As Date + + Private lagerfristFieldSpecified As Boolean + + Private wiederAusfuhrFristField As Date + + Private wiederAusfuhrFristFieldSpecified As Boolean + + Private fristWeitererNachweisField As Date + + Private fristWeitererNachweisFieldSpecified As Boolean + + Private befundField As String + + Private dV1AbweichendFestgesetztKzField As String + + Private sonderfalleingabeKzField As String + + Private angewandterKursNettopreisField As Decimal + + Private angewandterKursNettopreisFieldSpecified As Boolean + + Private angewandterKursMittelbZahlungenField As Decimal + + Private angewandterKursMittelbZahlungenFieldSpecified As Boolean + + Private abzugHinzurechnungenField As List(Of KursAbzugHinzuTAXTyp) + + Private luftFrachtGesamtProzentsatzField As String + + Private luftFrachtGesamtAngewandterKursField As Decimal + + Private luftFrachtGesamtAngewandterKursFieldSpecified As Boolean + + Private angemeldeteUnterlageField As List(Of AngemeldeteUnterlageTAXTyp) + + Private eZAAVAngabenPosField As EZAAVAngabenPosTyp + + Private sonderabgabenGruppeField As List(Of SonderfalleingabeTAXTyp) + + Private kontNrAngewandtField As List(Of String) + + Private kontingentAngerechnetField As List(Of KontingentAngerechnetTAXTyp) + + Private abweichendeFestsetzungField As List(Of AbweichendeFestsetzungTAXTyp) + + Private pauschalierungField As PauschalierungTAXTyp + + Private abgabenField As List(Of AbgabengruppeTAXTyp) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.abgabenField = New List(Of AbgabengruppeTAXTyp)() + Me.pauschalierungField = New PauschalierungTAXTyp() + Me.abweichendeFestsetzungField = New List(Of AbweichendeFestsetzungTAXTyp)() + Me.kontingentAngerechnetField = New List(Of KontingentAngerechnetTAXTyp)() + Me.kontNrAngewandtField = New List(Of String)() + Me.sonderabgabenGruppeField = New List(Of SonderfalleingabeTAXTyp)() + Me.eZAAVAngabenPosField = New EZAAVAngabenPosTyp() + Me.angemeldeteUnterlageField = New List(Of AngemeldeteUnterlageTAXTyp)() + Me.abzugHinzurechnungenField = New List(Of KursAbzugHinzuTAXTyp)() + Me.warenNummerZusatzCodeField = New List(Of String)() + End Sub + + Public Property PositionsNr() As String + Get + Return Me.positionsNrField + End Get + Set + Me.positionsNrField = Value + End Set + End Property + + Public Property ErledigungKz() As String + Get + Return Me.erledigungKzField + End Get + Set + Me.erledigungKzField = 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 WarenBezeichnung() As String + Get + Return Me.warenBezeichnungField + End Get + Set + Me.warenBezeichnungField = Value + End Set + End Property + + Public Property BeschauMitteilung() As String + Get + Return Me.beschauMitteilungField + End Get + Set + Me.beschauMitteilungField = Value + End Set + End Property + + Public Property ErledigungMitteilung() As String + Get + Return Me.erledigungMitteilungField + End Get + Set + Me.erledigungMitteilungField = Value + End Set + End Property + + Public Property AblehnungAenderung() As String + Get + Return Me.ablehnungAenderungField + End Get + Set + Me.ablehnungAenderungField = 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 GewaehrteBeguenstigung() As String + Get + Return Me.gewaehrteBeguenstigungField + End Get + Set + Me.gewaehrteBeguenstigungField = Value + End Set + End Property + + Public Property AnordnungKz() As String + Get + Return Me.anordnungKzField + End Get + Set + Me.anordnungKzField = Value + End Set + End Property + + Public Property EUStWert() As Decimal + Get + Return Me.eUStWertField + End Get + Set + Me.eUStWertField = Value + End Set + End Property + + + Public Property EUStWertSpecified() As Boolean + Get + Return Me.eUStWertFieldSpecified + End Get + Set + Me.eUStWertFieldSpecified = Value + End Set + End Property + + Public Property KostenFuerEUSt() As Decimal + Get + Return Me.kostenFuerEUStField + End Get + Set + Me.kostenFuerEUStField = Value + End Set + End Property + + + Public Property KostenFuerEUStSpecified() As Boolean + Get + Return Me.kostenFuerEUStFieldSpecified + End Get + Set + Me.kostenFuerEUStFieldSpecified = Value + End Set + End Property + + Public Property ZollWert() As Decimal + Get + Return Me.zollWertField + End Get + Set + Me.zollWertField = Value + End Set + End Property + + + Public Property ZollWertSpecified() As Boolean + Get + Return Me.zollWertFieldSpecified + End Get + Set + Me.zollWertFieldSpecified = Value + End Set + End Property + + Public Property AnnahmeAenderung() As String + Get + Return Me.annahmeAenderungField + End Get + Set + Me.annahmeAenderungField = Value + End Set + End Property + + Public Property SicherheitsLeistungBetrag() As Decimal + Get + Return Me.sicherheitsLeistungBetragField + End Get + Set + Me.sicherheitsLeistungBetragField = Value + End Set + End Property + + + Public Property SicherheitsLeistungBetragSpecified() As Boolean + Get + Return Me.sicherheitsLeistungBetragFieldSpecified + End Get + Set + Me.sicherheitsLeistungBetragFieldSpecified = Value + End Set + End Property + + Public Property RegistrierNrvZAAZ() As String + Get + Return Me.registrierNrvZAAZField + End Get + Set + Me.registrierNrvZAAZField = Value + End Set + End Property + + Public Property PositionsNrInvZAAZ() As String + Get + Return Me.positionsNrInvZAAZField + End Get + Set + Me.positionsNrInvZAAZField = Value + End Set + End Property + + Public Property AnnahmeKz() As String + Get + Return Me.annahmeKzField + End Get + Set + Me.annahmeKzField = Value + End Set + End Property + + Public Property AnnahmeDatum() As Date + Get + Return Me.annahmeDatumField + End Get + Set + Me.annahmeDatumField = Value + End Set + End Property + + + Public Property AnnahmeDatumSpecified() As Boolean + Get + Return Me.annahmeDatumFieldSpecified + End Get + Set + Me.annahmeDatumFieldSpecified = Value + End Set + End Property + + Public Property UeberlassungDatum() As Date + Get + Return Me.ueberlassungDatumField + End Get + Set + Me.ueberlassungDatumField = Value + End Set + End Property + + + Public Property UeberlassungDatumSpecified() As Boolean + Get + Return Me.ueberlassungDatumFieldSpecified + End Get + Set + Me.ueberlassungDatumFieldSpecified = Value + End Set + End Property + + Public Property Lagerfrist() As Date + Get + Return Me.lagerfristField + End Get + Set + Me.lagerfristField = Value + End Set + End Property + + + Public Property LagerfristSpecified() As Boolean + Get + Return Me.lagerfristFieldSpecified + End Get + Set + Me.lagerfristFieldSpecified = Value + End Set + End Property + + Public Property WiederAusfuhrFrist() As Date + Get + Return Me.wiederAusfuhrFristField + End Get + Set + Me.wiederAusfuhrFristField = Value + End Set + End Property + + + Public Property WiederAusfuhrFristSpecified() As Boolean + Get + Return Me.wiederAusfuhrFristFieldSpecified + End Get + Set + Me.wiederAusfuhrFristFieldSpecified = Value + End Set + End Property + + Public Property FristWeitererNachweis() As Date + Get + Return Me.fristWeitererNachweisField + End Get + Set + Me.fristWeitererNachweisField = Value + End Set + End Property + + + Public Property FristWeitererNachweisSpecified() As Boolean + Get + Return Me.fristWeitererNachweisFieldSpecified + End Get + Set + Me.fristWeitererNachweisFieldSpecified = 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 DV1AbweichendFestgesetztKz() As String + Get + Return Me.dV1AbweichendFestgesetztKzField + End Get + Set + Me.dV1AbweichendFestgesetztKzField = Value + End Set + End Property + + Public Property SonderfalleingabeKz() As String + Get + Return Me.sonderfalleingabeKzField + End Get + Set + Me.sonderfalleingabeKzField = Value + End Set + End Property + + Public Property AngewandterKursNettopreis() As Decimal + Get + Return Me.angewandterKursNettopreisField + End Get + Set + Me.angewandterKursNettopreisField = Value + End Set + End Property + + + Public Property AngewandterKursNettopreisSpecified() As Boolean + Get + Return Me.angewandterKursNettopreisFieldSpecified + End Get + Set + Me.angewandterKursNettopreisFieldSpecified = Value + End Set + End Property + + Public Property AngewandterKursMittelbZahlungen() As Decimal + Get + Return Me.angewandterKursMittelbZahlungenField + End Get + Set + Me.angewandterKursMittelbZahlungenField = Value + End Set + End Property + + + Public Property AngewandterKursMittelbZahlungenSpecified() As Boolean + Get + Return Me.angewandterKursMittelbZahlungenFieldSpecified + End Get + Set + Me.angewandterKursMittelbZahlungenFieldSpecified = Value + End Set + End Property + + Public Property AbzugHinzurechnungen() As List(Of KursAbzugHinzuTAXTyp) + Get + Return Me.abzugHinzurechnungenField + End Get + Set + Me.abzugHinzurechnungenField = Value + End Set + End Property + + Public Property LuftFrachtGesamtProzentsatz() As String + Get + Return Me.luftFrachtGesamtProzentsatzField + End Get + Set + Me.luftFrachtGesamtProzentsatzField = Value + End Set + End Property + + Public Property LuftFrachtGesamtAngewandterKurs() As Decimal + Get + Return Me.luftFrachtGesamtAngewandterKursField + End Get + Set + Me.luftFrachtGesamtAngewandterKursField = Value + End Set + End Property + + + Public Property LuftFrachtGesamtAngewandterKursSpecified() As Boolean + Get + Return Me.luftFrachtGesamtAngewandterKursFieldSpecified + End Get + Set + Me.luftFrachtGesamtAngewandterKursFieldSpecified = Value + End Set + End Property + + Public Property AngemeldeteUnterlage() As List(Of AngemeldeteUnterlageTAXTyp) + Get + Return Me.angemeldeteUnterlageField + End Get + Set + Me.angemeldeteUnterlageField = Value + End Set + End Property + + Public Property EZAAVAngabenPos() As EZAAVAngabenPosTyp + Get + Return Me.eZAAVAngabenPosField + End Get + Set + Me.eZAAVAngabenPosField = Value + End Set + End Property + + Public Property SonderabgabenGruppe() As List(Of SonderfalleingabeTAXTyp) + Get + Return Me.sonderabgabenGruppeField + End Get + Set + Me.sonderabgabenGruppeField = Value + End Set + End Property + + Public Property KontNrAngewandt() As List(Of String) + Get + Return Me.kontNrAngewandtField + End Get + Set + Me.kontNrAngewandtField = Value + End Set + End Property + + Public Property KontingentAngerechnet() As List(Of KontingentAngerechnetTAXTyp) + Get + Return Me.kontingentAngerechnetField + End Get + Set + Me.kontingentAngerechnetField = Value + End Set + End Property + + Public Property AbweichendeFestsetzung() As List(Of AbweichendeFestsetzungTAXTyp) + Get + Return Me.abweichendeFestsetzungField + End Get + Set + Me.abweichendeFestsetzungField = Value + End Set + End Property + + Public Property Pauschalierung() As PauschalierungTAXTyp + Get + Return Me.pauschalierungField + End Get + Set + Me.pauschalierungField = Value + End Set + End Property + + Public Property Abgaben() As List(Of AbgabengruppeTAXTyp) + Get + Return Me.abgabenField + End Get + Set + Me.abgabenField = 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(PositionAbgabenbescheidEinfuhrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current PositionAbgabenbescheidEinfuhrTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an PositionAbgabenbescheidEinfuhrTyp object + ''' + '''string workflow markup to deserialize + '''Output PositionAbgabenbescheidEinfuhrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp) + 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 PositionAbgabenbescheidEinfuhrTyp) 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 PositionAbgabenbescheidEinfuhrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PositionAbgabenbescheidEinfuhrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current PositionAbgabenbescheidEinfuhrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an PositionAbgabenbescheidEinfuhrTyp object + ''' + '''string xml file to load and deserialize + '''Output PositionAbgabenbescheidEinfuhrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp) + 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 PositionAbgabenbescheidEinfuhrTyp) 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 PositionAbgabenbescheidEinfuhrTyp + 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 EZAAVAngabenKopfWeitererVeredelungsortTyp + + Private strasseField As String + + Private landField As String + + Private pLZField As String + + Private ortField As String + + Private ortsteilField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Strasse() As String + Get + Return Me.strasseField + End Get + Set + Me.strasseField = Value + End Set + End Property + + Public Property Land() As String + Get + Return Me.landField + End Get + Set + Me.landField = Value + End Set + End Property + + Public Property PLZ() As String + Get + Return Me.pLZField + End Get + Set + Me.pLZField = Value + End Set + End Property + + Public Property Ort() As String + Get + Return Me.ortField + End Get + Set + Me.ortField = Value + End Set + End Property + + Public Property Ortsteil() As String + Get + Return Me.ortsteilField + End Get + Set + Me.ortsteilField = 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(EZAAVAngabenKopfWeitererVeredelungsortTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current EZAAVAngabenKopfWeitererVeredelungsortTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' + '''string workflow markup to deserialize + '''Output EZAAVAngabenKopfWeitererVeredelungsortTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp) + 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 EZAAVAngabenKopfWeitererVeredelungsortTyp) 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 EZAAVAngabenKopfWeitererVeredelungsortTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EZAAVAngabenKopfWeitererVeredelungsortTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current EZAAVAngabenKopfWeitererVeredelungsortTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' + '''string xml file to load and deserialize + '''Output EZAAVAngabenKopfWeitererVeredelungsortTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp) + 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 EZAAVAngabenKopfWeitererVeredelungsortTyp) 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 EZAAVAngabenKopfWeitererVeredelungsortTyp + 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 EZAAVAngabenKopfTyp + + Private kzBemessungEinfuhrabgabenbetragField As String + + Private kzAbrechnungField As String + + Private kzVereinfBefoerderungField As String + + Private zusaetzlicheAngabenField As String + + Private kzVerzichtSicherheitField As String + + Private erlaeuterungenZurSicherheitField As String + + Private betragDerSicherheitField As Decimal + + Private betragDerSicherheitFieldSpecified As Boolean + + Private deutschesUeHZAField As String + + Private einzelheitenGeplantVeredelungsvorgangField As String + + Private hauptbuchhaltungStrasseField As String + + Private hauptbuchhaltungLandField As String + + Private hauptbuchhaltungPLZField As String + + Private hauptbuchhaltungOrtField As String + + Private hauptbuchhaltungOrtsteilField As String + + Private veredelungStrasseField As String + + Private veredelungLandField As String + + Private veredelungPLZField As String + + Private veredelungOrtField As String + + Private veredelungOrtsteilField As String + + Private weitererVeredelungsortField As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp) + + Private zollstelleErledigungField As List(Of String) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.zollstelleErledigungField = New List(Of String)() + Me.weitererVeredelungsortField = New List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)() + End Sub + + Public Property KzBemessungEinfuhrabgabenbetrag() As String + Get + Return Me.kzBemessungEinfuhrabgabenbetragField + End Get + Set + Me.kzBemessungEinfuhrabgabenbetragField = Value + End Set + End Property + + Public Property KzAbrechnung() As String + Get + Return Me.kzAbrechnungField + End Get + Set + Me.kzAbrechnungField = Value + End Set + End Property + + Public Property KzVereinfBefoerderung() As String + Get + Return Me.kzVereinfBefoerderungField + End Get + Set + Me.kzVereinfBefoerderungField = Value + End Set + End Property + + Public Property ZusaetzlicheAngaben() As String + Get + Return Me.zusaetzlicheAngabenField + End Get + Set + Me.zusaetzlicheAngabenField = Value + End Set + End Property + + Public Property KzVerzichtSicherheit() As String + Get + Return Me.kzVerzichtSicherheitField + End Get + Set + Me.kzVerzichtSicherheitField = Value + End Set + End Property + + Public Property ErlaeuterungenZurSicherheit() As String + Get + Return Me.erlaeuterungenZurSicherheitField + End Get + Set + Me.erlaeuterungenZurSicherheitField = Value + End Set + End Property + + Public Property BetragDerSicherheit() As Decimal + Get + Return Me.betragDerSicherheitField + End Get + Set + Me.betragDerSicherheitField = Value + End Set + End Property + + + Public Property BetragDerSicherheitSpecified() As Boolean + Get + Return Me.betragDerSicherheitFieldSpecified + End Get + Set + Me.betragDerSicherheitFieldSpecified = Value + End Set + End Property + + Public Property DeutschesUeHZA() As String + Get + Return Me.deutschesUeHZAField + End Get + Set + Me.deutschesUeHZAField = Value + End Set + End Property + + Public Property EinzelheitenGeplantVeredelungsvorgang() As String + Get + Return Me.einzelheitenGeplantVeredelungsvorgangField + End Get + Set + Me.einzelheitenGeplantVeredelungsvorgangField = Value + End Set + End Property + + Public Property HauptbuchhaltungStrasse() As String + Get + Return Me.hauptbuchhaltungStrasseField + End Get + Set + Me.hauptbuchhaltungStrasseField = Value + End Set + End Property + + Public Property HauptbuchhaltungLand() As String + Get + Return Me.hauptbuchhaltungLandField + End Get + Set + Me.hauptbuchhaltungLandField = Value + End Set + End Property + + Public Property HauptbuchhaltungPLZ() As String + Get + Return Me.hauptbuchhaltungPLZField + End Get + Set + Me.hauptbuchhaltungPLZField = Value + End Set + End Property + + Public Property HauptbuchhaltungOrt() As String + Get + Return Me.hauptbuchhaltungOrtField + End Get + Set + Me.hauptbuchhaltungOrtField = Value + End Set + End Property + + Public Property HauptbuchhaltungOrtsteil() As String + Get + Return Me.hauptbuchhaltungOrtsteilField + End Get + Set + Me.hauptbuchhaltungOrtsteilField = Value + End Set + End Property + + Public Property VeredelungStrasse() As String + Get + Return Me.veredelungStrasseField + End Get + Set + Me.veredelungStrasseField = Value + End Set + End Property + + Public Property VeredelungLand() As String + Get + Return Me.veredelungLandField + End Get + Set + Me.veredelungLandField = Value + End Set + End Property + + Public Property VeredelungPLZ() As String + Get + Return Me.veredelungPLZField + End Get + Set + Me.veredelungPLZField = Value + End Set + End Property + + Public Property VeredelungOrt() As String + Get + Return Me.veredelungOrtField + End Get + Set + Me.veredelungOrtField = Value + End Set + End Property + + Public Property VeredelungOrtsteil() As String + Get + Return Me.veredelungOrtsteilField + End Get + Set + Me.veredelungOrtsteilField = Value + End Set + End Property + + Public Property WeitererVeredelungsort() As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp) + Get + Return Me.weitererVeredelungsortField + End Get + Set + Me.weitererVeredelungsortField = Value + End Set + End Property + + Public Property ZollstelleErledigung() As List(Of String) + Get + Return Me.zollstelleErledigungField + End Get + Set + Me.zollstelleErledigungField = 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(EZAAVAngabenKopfTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current EZAAVAngabenKopfTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an EZAAVAngabenKopfTyp object + ''' + '''string workflow markup to deserialize + '''Output EZAAVAngabenKopfTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenKopfTyp) + 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 EZAAVAngabenKopfTyp) 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 EZAAVAngabenKopfTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EZAAVAngabenKopfTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current EZAAVAngabenKopfTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an EZAAVAngabenKopfTyp object + ''' + '''string xml file to load and deserialize + '''Output EZAAVAngabenKopfTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenKopfTyp) + 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 EZAAVAngabenKopfTyp) 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 EZAAVAngabenKopfTyp + 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 SicherheitTAXTyp + + Private einzelbetragUnbareSicherheitField As Decimal + + Private einzelbetragUnbareSicherheitFieldSpecified As Boolean + + Private artUnbareSicherheitsleistungField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property EinzelbetragUnbareSicherheit() As Decimal + Get + Return Me.einzelbetragUnbareSicherheitField + End Get + Set + Me.einzelbetragUnbareSicherheitField = Value + End Set + End Property + + + Public Property EinzelbetragUnbareSicherheitSpecified() As Boolean + Get + Return Me.einzelbetragUnbareSicherheitFieldSpecified + End Get + Set + Me.einzelbetragUnbareSicherheitFieldSpecified = Value + End Set + End Property + + Public Property ArtUnbareSicherheitsleistung() As String + Get + Return Me.artUnbareSicherheitsleistungField + End Get + Set + Me.artUnbareSicherheitsleistungField = 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(SicherheitTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current SicherheitTAXTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an SicherheitTAXTyp object + ''' + '''string workflow markup to deserialize + '''Output SicherheitTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitTAXTyp) + 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 SicherheitTAXTyp) 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 SicherheitTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), SicherheitTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current SicherheitTAXTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an SicherheitTAXTyp object + ''' + '''string xml file to load and deserialize + '''Output SicherheitTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitTAXTyp) + 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 SicherheitTAXTyp) 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 SicherheitTAXTyp + 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 AbgabenNachArtKopfTAXTyp + + Private abgabeArtField As String + + Private abgabenbetragField As Decimal + + Private abgabenbetragFieldSpecified As Boolean + + Private zahlungsartField As String + + Private aufschubnehmerNameField As String + + Private aufschubnehmerTINField As String + + Private artAufschubAntragField As String + + Private kennBuchstabenAufschubField As String + + Private aufschubkontoNrField As String + + Private faelligkeitField As Date + + Private faelligkeitFieldSpecified As Boolean + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property AbgabeArt() As String + Get + Return Me.abgabeArtField + End Get + Set + Me.abgabeArtField = Value + End Set + End Property + + Public Property Abgabenbetrag() As Decimal + Get + Return Me.abgabenbetragField + End Get + Set + Me.abgabenbetragField = Value + End Set + End Property + + + Public Property AbgabenbetragSpecified() As Boolean + Get + Return Me.abgabenbetragFieldSpecified + End Get + Set + Me.abgabenbetragFieldSpecified = Value + End Set + End Property + + Public Property Zahlungsart() As String + Get + Return Me.zahlungsartField + End Get + Set + Me.zahlungsartField = Value + End Set + End Property + + Public Property AufschubnehmerName() As String + Get + Return Me.aufschubnehmerNameField + End Get + Set + Me.aufschubnehmerNameField = Value + End Set + End Property + + Public Property AufschubnehmerTIN() As String + Get + Return Me.aufschubnehmerTINField + End Get + Set + Me.aufschubnehmerTINField = Value + End Set + End Property + + Public Property ArtAufschubAntrag() As String + Get + Return Me.artAufschubAntragField + End Get + Set + Me.artAufschubAntragField = Value + End Set + End Property + + Public Property KennBuchstabenAufschub() As String + Get + Return Me.kennBuchstabenAufschubField + End Get + Set + Me.kennBuchstabenAufschubField = Value + End Set + End Property + + Public Property AufschubkontoNr() As String + Get + Return Me.aufschubkontoNrField + End Get + Set + Me.aufschubkontoNrField = Value + End Set + End Property + + Public Property Faelligkeit() As Date + Get + Return Me.faelligkeitField + End Get + Set + Me.faelligkeitField = Value + End Set + End Property + + + Public Property FaelligkeitSpecified() As Boolean + Get + Return Me.faelligkeitFieldSpecified + End Get + Set + Me.faelligkeitFieldSpecified = 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(AbgabenNachArtKopfTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current AbgabenNachArtKopfTAXTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an AbgabenNachArtKopfTAXTyp object + ''' + '''string workflow markup to deserialize + '''Output AbgabenNachArtKopfTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenNachArtKopfTAXTyp) + 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 AbgabenNachArtKopfTAXTyp) 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 AbgabenNachArtKopfTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbgabenNachArtKopfTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current AbgabenNachArtKopfTAXTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an AbgabenNachArtKopfTAXTyp object + ''' + '''string xml file to load and deserialize + '''Output AbgabenNachArtKopfTAXTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenNachArtKopfTAXTyp) + 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 AbgabenNachArtKopfTAXTyp) 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 AbgabenNachArtKopfTAXTyp + 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 KopfDatenEinfuhrbescheidTyp + + Private artAnmeldungField As String + + Private erledigungKopfKzField As String + + Private waehrungField As String + + Private gesamtabgabenBetragField As Decimal + + Private gesamtabgabenBetragFieldSpecified As Boolean + + Private abgabenbetragZuZahlenField As Decimal + + Private abgabenbetragZuZahlenFieldSpecified As Boolean + + Private abgabenbetragZuErstattenField As Decimal + + Private abgabenbetragZuErstattenFieldSpecified As Boolean + + Private vertretungsverhaeltnisField As String + + Private zahlungsaufforderungArtAufschubField As String + + Private zahlungsaufforderungArtAbgabenField As String + + Private zahlungsaufforderungArtSicherheitField As String + + Private kleinbetragKzField As String + + Private kleinbetragRechtsbehelfField As String + + Private gesamtschuldnerschaftKzField As String + + Private eingangszollstelleGeaendertKzField As String + + Private aVbewilligtKzField As String + + Private benutzererstelltKzField As String + + Private eUStKzField As String + + Private registriernummerField As String + + Private registrierdatumField As Date + + Private registrierdatumFieldSpecified As Boolean + + Private nizzaRegistrierKzField As String + + Private nizzaRegistrierKzSicherheitField As String + + Private abgabenNachArtField As List(Of AbgabenNachArtKopfTAXTyp) + + Private gesamtsicherheitssummeField As Decimal + + Private gesamtsicherheitssummeFieldSpecified As Boolean + + Private errechneteSicherheitsSummeField As Decimal + + Private errechneteSicherheitsSummeFieldSpecified As Boolean + + Private unbarSicherheitsbetraegeField As Decimal + + Private unbarSicherheitsbetraegeFieldSpecified As Boolean + + Private barSicherheitsbetraegeField As Decimal + + Private barSicherheitsbetraegeFieldSpecified As Boolean + + Private freizugebenSicherheitField As Decimal + + Private freizugebenSicherheitFieldSpecified As Boolean + + Private auszuzahlenSicherheitField As Decimal + + Private auszuzahlenSicherheitFieldSpecified As Boolean + + Private einbehaltenSicherheitField As Decimal + + Private einbehaltenSicherheitFieldSpecified As Boolean + + Private sicherheitsleistungFormField As String + + Private sicherheitsleistungsVerzichtField As String + + Private auszahlungsArtField As String + + Private unbareSicherheitenField As List(Of SicherheitTAXTyp) + + Private bescheidendeDienststelleNrField As String + + Private bescheidendeDienststelleNameField As String + + Private bescheidendeDienststelleStrasseHausNrField As String + + Private bescheidendeDienststelleOrtSField As String + + Private bescheidendeDienststellePLZSField As String + + Private bearbeiterField As String + + Private bescheidendeDienststelleTelefonNrField As String + + Private rechtsbehelfHauptzollamtField As String + + Private rechtsbehelfHZAEmailAdresseField As String + + Private rechtsbehelfHZADEmailAdresseField As String + + Private rechtsbehelfHauptzollamtStrHausNrField As String + + Private rechtsbehelfHauptzollamtPLZSField As String + + Private rechtsbehelfHauptzollamtOrtSField As String + + Private rechtsbehelfHauptzollamtOrtsteilField As String + + Private rechtsbehelfHauptzollamtPostfachField As String + + Private rechtsbehelfHauptzollamtPLZPField As String + + Private rechtsbehelfHauptzollamtOrtPField As String + + Private zollzahlstelleField As String + + Private zollzahlstelleKreditinstitutField As String + + Private zollzahlstelleStrasseHausNrField As String + + Private zollzahlstellePLZSField As String + + Private zollzahlstelleOrtSField As String + + Private zollzahlstellePostfachField As String + + Private zollzahlstellePLZPField As String + + Private zollzahlstelleOrtPField As String + + Private zollzahlstelleIBANField As String + + Private zollzahlstelleBICField As String + + Private anmelderEORIField As String + + Private anmelderNLNRField As String + + Private vorsteuerabzugKzField As String + + Private anmelderNameField As String + + Private anmelderNationalitaetField As String + + Private anmelderStrasseHausNrField As String + + Private anmelderPLZSField As String + + Private anmelderOrtSField As String + + Private anmelderOrtsteilField As String + + Private vertreterEORIField As String + + Private vertreterNLNRField As String + + Private vertreterNameField As String + + Private vertreterNationalitaetField As String + + Private vertreterStrasseHausNrField As String + + Private vertreterPLZSField As String + + Private vertreterOrtSField As String + + Private vertreterOrtsteilField 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 empfaengerEORIField As String + + Private empfaengerNLNRField As String + + Private empfaengerNationalitaetField As String + + Private empfaengerNameField As String + + Private empfaengerStrasseHausNrField As String + + Private empfaengerPLZSField As String + + Private empfaengerOrtSField As String + + Private empfaengerOrtsteilField As String + + Private zahlungsEmpfaengerEORIField As String + + Private zahlungsEmpfaengerNLNRField As String + + Private zahlungsEmpfaengerKreditinstitutField As String + + Private zahlungsEmpfaengerNameField As String + + Private zahlungsEmpfaengerNationalitaetField As String + + Private zahlungsEmpfaengerStrasseHausNrField As String + + Private zahlungsEmpfaengerPLZSField As String + + Private zahlungsEmpfaengerOrtSField As String + + Private zahlungsEmpfaengerOrtsteilField As String + + Private zahlungsEmpfaengerIBANField As String + + Private zahlungsEmpfaengerBICField As String + + Private erstellungsDatumBefundField As Date + + Private erstellungsDatumBefundFieldSpecified As Boolean + + Private erfassungsdatumField As Date + + Private erfassungsdatumFieldSpecified As Boolean + + Private barzahlungFaelligkeitField As Date + + Private barzahlungFaelligkeitFieldSpecified As Boolean + + Private sicherheitsleistungFaelligkeitField As Date + + Private sicherheitsleistungFaelligkeitFieldSpecified As Boolean + + Private abrechnungszeitraumBeginnField As Date + + Private abrechnungszeitraumBeginnFieldSpecified As Boolean + + Private abrechnungszeitraumEndeField As Date + + Private abrechnungszeitraumEndeFieldSpecified As Boolean + + Private zollbefundField As String + + Private eZAAVAngabenKopfField As EZAAVAngabenKopfTyp + + Private lieferbedingungCodeField As String + + Private lieferbedingungTextField As String + + Private lieferbedingungOrtField As String + + Private lieferbedingungSchluesselField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.eZAAVAngabenKopfField = New EZAAVAngabenKopfTyp() + Me.unbareSicherheitenField = New List(Of SicherheitTAXTyp)() + Me.abgabenNachArtField = New List(Of AbgabenNachArtKopfTAXTyp)() + End Sub + + Public Property ArtAnmeldung() As String + Get + Return Me.artAnmeldungField + End Get + Set + Me.artAnmeldungField = Value + End Set + End Property + + Public Property ErledigungKopfKz() As String + Get + Return Me.erledigungKopfKzField + End Get + Set + Me.erledigungKopfKzField = 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 GesamtabgabenBetrag() As Decimal + Get + Return Me.gesamtabgabenBetragField + End Get + Set + Me.gesamtabgabenBetragField = Value + End Set + End Property + + + Public Property GesamtabgabenBetragSpecified() As Boolean + Get + Return Me.gesamtabgabenBetragFieldSpecified + End Get + Set + Me.gesamtabgabenBetragFieldSpecified = Value + End Set + End Property + + Public Property AbgabenbetragZuZahlen() As Decimal + Get + Return Me.abgabenbetragZuZahlenField + End Get + Set + Me.abgabenbetragZuZahlenField = Value + End Set + End Property + + + Public Property AbgabenbetragZuZahlenSpecified() As Boolean + Get + Return Me.abgabenbetragZuZahlenFieldSpecified + End Get + Set + Me.abgabenbetragZuZahlenFieldSpecified = Value + End Set + End Property + + Public Property AbgabenbetragZuErstatten() As Decimal + Get + Return Me.abgabenbetragZuErstattenField + End Get + Set + Me.abgabenbetragZuErstattenField = Value + End Set + End Property + + + Public Property AbgabenbetragZuErstattenSpecified() As Boolean + Get + Return Me.abgabenbetragZuErstattenFieldSpecified + End Get + Set + Me.abgabenbetragZuErstattenFieldSpecified = 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 ZahlungsaufforderungArtAufschub() As String + Get + Return Me.zahlungsaufforderungArtAufschubField + End Get + Set + Me.zahlungsaufforderungArtAufschubField = Value + End Set + End Property + + Public Property ZahlungsaufforderungArtAbgaben() As String + Get + Return Me.zahlungsaufforderungArtAbgabenField + End Get + Set + Me.zahlungsaufforderungArtAbgabenField = Value + End Set + End Property + + Public Property ZahlungsaufforderungArtSicherheit() As String + Get + Return Me.zahlungsaufforderungArtSicherheitField + End Get + Set + Me.zahlungsaufforderungArtSicherheitField = Value + End Set + End Property + + Public Property KleinbetragKz() As String + Get + Return Me.kleinbetragKzField + End Get + Set + Me.kleinbetragKzField = Value + End Set + End Property + + Public Property KleinbetragRechtsbehelf() As String + Get + Return Me.kleinbetragRechtsbehelfField + End Get + Set + Me.kleinbetragRechtsbehelfField = Value + End Set + End Property + + Public Property GesamtschuldnerschaftKz() As String + Get + Return Me.gesamtschuldnerschaftKzField + End Get + Set + Me.gesamtschuldnerschaftKzField = 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 AVbewilligtKz() As String + Get + Return Me.aVbewilligtKzField + End Get + Set + Me.aVbewilligtKzField = Value + End Set + End Property + + Public Property BenutzererstelltKz() As String + Get + Return Me.benutzererstelltKzField + End Get + Set + Me.benutzererstelltKzField = Value + End Set + End Property + + Public Property EUStKz() As String + Get + Return Me.eUStKzField + End Get + Set + Me.eUStKzField = 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 + + + Public Property RegistrierdatumSpecified() As Boolean + Get + Return Me.registrierdatumFieldSpecified + End Get + Set + Me.registrierdatumFieldSpecified = Value + End Set + End Property + + Public Property NizzaRegistrierKz() As String + Get + Return Me.nizzaRegistrierKzField + End Get + Set + Me.nizzaRegistrierKzField = Value + End Set + End Property + + Public Property NizzaRegistrierKzSicherheit() As String + Get + Return Me.nizzaRegistrierKzSicherheitField + End Get + Set + Me.nizzaRegistrierKzSicherheitField = Value + End Set + End Property + + Public Property AbgabenNachArt() As List(Of AbgabenNachArtKopfTAXTyp) + Get + Return Me.abgabenNachArtField + End Get + Set + Me.abgabenNachArtField = Value + End Set + End Property + + Public Property Gesamtsicherheitssumme() As Decimal + Get + Return Me.gesamtsicherheitssummeField + End Get + Set + Me.gesamtsicherheitssummeField = Value + End Set + End Property + + + Public Property GesamtsicherheitssummeSpecified() As Boolean + Get + Return Me.gesamtsicherheitssummeFieldSpecified + End Get + Set + Me.gesamtsicherheitssummeFieldSpecified = Value + End Set + End Property + + Public Property ErrechneteSicherheitsSumme() As Decimal + Get + Return Me.errechneteSicherheitsSummeField + End Get + Set + Me.errechneteSicherheitsSummeField = Value + End Set + End Property + + + Public Property ErrechneteSicherheitsSummeSpecified() As Boolean + Get + Return Me.errechneteSicherheitsSummeFieldSpecified + End Get + Set + Me.errechneteSicherheitsSummeFieldSpecified = Value + End Set + End Property + + Public Property UnbarSicherheitsbetraege() As Decimal + Get + Return Me.unbarSicherheitsbetraegeField + End Get + Set + Me.unbarSicherheitsbetraegeField = Value + End Set + End Property + + + Public Property UnbarSicherheitsbetraegeSpecified() As Boolean + Get + Return Me.unbarSicherheitsbetraegeFieldSpecified + End Get + Set + Me.unbarSicherheitsbetraegeFieldSpecified = Value + End Set + End Property + + Public Property BarSicherheitsbetraege() As Decimal + Get + Return Me.barSicherheitsbetraegeField + End Get + Set + Me.barSicherheitsbetraegeField = Value + End Set + End Property + + + Public Property BarSicherheitsbetraegeSpecified() As Boolean + Get + Return Me.barSicherheitsbetraegeFieldSpecified + End Get + Set + Me.barSicherheitsbetraegeFieldSpecified = Value + End Set + End Property + + Public Property FreizugebenSicherheit() As Decimal + Get + Return Me.freizugebenSicherheitField + End Get + Set + Me.freizugebenSicherheitField = Value + End Set + End Property + + + Public Property FreizugebenSicherheitSpecified() As Boolean + Get + Return Me.freizugebenSicherheitFieldSpecified + End Get + Set + Me.freizugebenSicherheitFieldSpecified = Value + End Set + End Property + + Public Property AuszuzahlenSicherheit() As Decimal + Get + Return Me.auszuzahlenSicherheitField + End Get + Set + Me.auszuzahlenSicherheitField = Value + End Set + End Property + + + Public Property AuszuzahlenSicherheitSpecified() As Boolean + Get + Return Me.auszuzahlenSicherheitFieldSpecified + End Get + Set + Me.auszuzahlenSicherheitFieldSpecified = Value + End Set + End Property + + Public Property EinbehaltenSicherheit() As Decimal + Get + Return Me.einbehaltenSicherheitField + End Get + Set + Me.einbehaltenSicherheitField = Value + End Set + End Property + + + Public Property EinbehaltenSicherheitSpecified() As Boolean + Get + Return Me.einbehaltenSicherheitFieldSpecified + End Get + Set + Me.einbehaltenSicherheitFieldSpecified = Value + End Set + End Property + + Public Property SicherheitsleistungForm() As String + Get + Return Me.sicherheitsleistungFormField + End Get + Set + Me.sicherheitsleistungFormField = Value + End Set + End Property + + Public Property SicherheitsleistungsVerzicht() As String + Get + Return Me.sicherheitsleistungsVerzichtField + End Get + Set + Me.sicherheitsleistungsVerzichtField = Value + End Set + End Property + + Public Property AuszahlungsArt() As String + Get + Return Me.auszahlungsArtField + End Get + Set + Me.auszahlungsArtField = Value + End Set + End Property + + Public Property UnbareSicherheiten() As List(Of SicherheitTAXTyp) + Get + Return Me.unbareSicherheitenField + End Get + Set + Me.unbareSicherheitenField = Value + End Set + End Property + + Public Property BescheidendeDienststelleNr() As String + Get + Return Me.bescheidendeDienststelleNrField + End Get + Set + Me.bescheidendeDienststelleNrField = Value + End Set + End Property + + Public Property BescheidendeDienststelleName() As String + Get + Return Me.bescheidendeDienststelleNameField + End Get + Set + Me.bescheidendeDienststelleNameField = Value + End Set + End Property + + Public Property BescheidendeDienststelleStrasseHausNr() As String + Get + Return Me.bescheidendeDienststelleStrasseHausNrField + End Get + Set + Me.bescheidendeDienststelleStrasseHausNrField = Value + End Set + End Property + + Public Property BescheidendeDienststelleOrtS() As String + Get + Return Me.bescheidendeDienststelleOrtSField + End Get + Set + Me.bescheidendeDienststelleOrtSField = Value + End Set + End Property + + Public Property BescheidendeDienststellePLZS() As String + Get + Return Me.bescheidendeDienststellePLZSField + End Get + Set + Me.bescheidendeDienststellePLZSField = 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 BescheidendeDienststelleTelefonNr() As String + Get + Return Me.bescheidendeDienststelleTelefonNrField + End Get + Set + Me.bescheidendeDienststelleTelefonNrField = Value + End Set + End Property + + Public Property RechtsbehelfHauptzollamt() As String + Get + Return Me.rechtsbehelfHauptzollamtField + End Get + Set + Me.rechtsbehelfHauptzollamtField = Value + End Set + End Property + + Public Property RechtsbehelfHZAEmailAdresse() As String + Get + Return Me.rechtsbehelfHZAEmailAdresseField + End Get + Set + Me.rechtsbehelfHZAEmailAdresseField = Value + End Set + End Property + + Public Property RechtsbehelfHZADEmailAdresse() As String + Get + Return Me.rechtsbehelfHZADEmailAdresseField + End Get + Set + Me.rechtsbehelfHZADEmailAdresseField = Value + End Set + End Property + + Public Property RechtsbehelfHauptzollamtStrHausNr() As String + Get + Return Me.rechtsbehelfHauptzollamtStrHausNrField + End Get + Set + Me.rechtsbehelfHauptzollamtStrHausNrField = Value + End Set + End Property + + Public Property RechtsbehelfHauptzollamtPLZS() As String + Get + Return Me.rechtsbehelfHauptzollamtPLZSField + End Get + Set + Me.rechtsbehelfHauptzollamtPLZSField = Value + End Set + End Property + + Public Property RechtsbehelfHauptzollamtOrtS() As String + Get + Return Me.rechtsbehelfHauptzollamtOrtSField + End Get + Set + Me.rechtsbehelfHauptzollamtOrtSField = Value + End Set + End Property + + Public Property RechtsbehelfHauptzollamtOrtsteil() As String + Get + Return Me.rechtsbehelfHauptzollamtOrtsteilField + End Get + Set + Me.rechtsbehelfHauptzollamtOrtsteilField = Value + End Set + End Property + + Public Property RechtsbehelfHauptzollamtPostfach() As String + Get + Return Me.rechtsbehelfHauptzollamtPostfachField + End Get + Set + Me.rechtsbehelfHauptzollamtPostfachField = Value + End Set + End Property + + Public Property RechtsbehelfHauptzollamtPLZP() As String + Get + Return Me.rechtsbehelfHauptzollamtPLZPField + End Get + Set + Me.rechtsbehelfHauptzollamtPLZPField = Value + End Set + End Property + + Public Property RechtsbehelfHauptzollamtOrtP() As String + Get + Return Me.rechtsbehelfHauptzollamtOrtPField + End Get + Set + Me.rechtsbehelfHauptzollamtOrtPField = Value + End Set + End Property + + Public Property Zollzahlstelle() As String + Get + Return Me.zollzahlstelleField + End Get + Set + Me.zollzahlstelleField = Value + End Set + End Property + + Public Property ZollzahlstelleKreditinstitut() As String + Get + Return Me.zollzahlstelleKreditinstitutField + End Get + Set + Me.zollzahlstelleKreditinstitutField = Value + End Set + End Property + + Public Property ZollzahlstelleStrasseHausNr() As String + Get + Return Me.zollzahlstelleStrasseHausNrField + End Get + Set + Me.zollzahlstelleStrasseHausNrField = Value + End Set + End Property + + Public Property ZollzahlstellePLZS() As String + Get + Return Me.zollzahlstellePLZSField + End Get + Set + Me.zollzahlstellePLZSField = Value + End Set + End Property + + Public Property ZollzahlstelleOrtS() As String + Get + Return Me.zollzahlstelleOrtSField + End Get + Set + Me.zollzahlstelleOrtSField = Value + End Set + End Property + + Public Property ZollzahlstellePostfach() As String + Get + Return Me.zollzahlstellePostfachField + End Get + Set + Me.zollzahlstellePostfachField = Value + End Set + End Property + + Public Property ZollzahlstellePLZP() As String + Get + Return Me.zollzahlstellePLZPField + End Get + Set + Me.zollzahlstellePLZPField = Value + End Set + End Property + + Public Property ZollzahlstelleOrtP() As String + Get + Return Me.zollzahlstelleOrtPField + End Get + Set + Me.zollzahlstelleOrtPField = Value + End Set + End Property + + Public Property ZollzahlstelleIBAN() As String + Get + Return Me.zollzahlstelleIBANField + End Get + Set + Me.zollzahlstelleIBANField = Value + End Set + End Property + + Public Property ZollzahlstelleBIC() As String + Get + Return Me.zollzahlstelleBICField + End Get + Set + Me.zollzahlstelleBICField = 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 VorsteuerabzugKz() As String + Get + Return Me.vorsteuerabzugKzField + End Get + Set + Me.vorsteuerabzugKzField = Value + End Set + End Property + + Public Property AnmelderName() As String + Get + Return Me.anmelderNameField + End Get + Set + Me.anmelderNameField = 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 AnmelderStrasseHausNr() As String + Get + Return Me.anmelderStrasseHausNrField + End Get + Set + Me.anmelderStrasseHausNrField = 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 AnmelderOrtS() As String + Get + Return Me.anmelderOrtSField + End Get + Set + Me.anmelderOrtSField = 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 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 VertreterName() As String + Get + Return Me.vertreterNameField + End Get + Set + Me.vertreterNameField = 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 VertreterStrasseHausNr() As String + Get + Return Me.vertreterStrasseHausNrField + End Get + Set + Me.vertreterStrasseHausNrField = 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 VertreterOrtS() As String + Get + Return Me.vertreterOrtSField + End Get + Set + Me.vertreterOrtSField = 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 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 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 EmpfaengerNationalitaet() As String + Get + Return Me.empfaengerNationalitaetField + End Get + Set + Me.empfaengerNationalitaetField = Value + End Set + End Property + + Public Property EmpfaengerName() As String + Get + Return Me.empfaengerNameField + End Get + Set + Me.empfaengerNameField = 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 ZahlungsEmpfaengerEORI() As String + Get + Return Me.zahlungsEmpfaengerEORIField + End Get + Set + Me.zahlungsEmpfaengerEORIField = Value + End Set + End Property + + Public Property ZahlungsEmpfaengerNLNR() As String + Get + Return Me.zahlungsEmpfaengerNLNRField + End Get + Set + Me.zahlungsEmpfaengerNLNRField = Value + End Set + End Property + + Public Property ZahlungsEmpfaengerKreditinstitut() As String + Get + Return Me.zahlungsEmpfaengerKreditinstitutField + End Get + Set + Me.zahlungsEmpfaengerKreditinstitutField = Value + End Set + End Property + + Public Property ZahlungsEmpfaengerName() As String + Get + Return Me.zahlungsEmpfaengerNameField + End Get + Set + Me.zahlungsEmpfaengerNameField = Value + End Set + End Property + + Public Property ZahlungsEmpfaengerNationalitaet() As String + Get + Return Me.zahlungsEmpfaengerNationalitaetField + End Get + Set + Me.zahlungsEmpfaengerNationalitaetField = Value + End Set + End Property + + Public Property ZahlungsEmpfaengerStrasseHausNr() As String + Get + Return Me.zahlungsEmpfaengerStrasseHausNrField + End Get + Set + Me.zahlungsEmpfaengerStrasseHausNrField = Value + End Set + End Property + + Public Property ZahlungsEmpfaengerPLZS() As String + Get + Return Me.zahlungsEmpfaengerPLZSField + End Get + Set + Me.zahlungsEmpfaengerPLZSField = Value + End Set + End Property + + Public Property ZahlungsEmpfaengerOrtS() As String + Get + Return Me.zahlungsEmpfaengerOrtSField + End Get + Set + Me.zahlungsEmpfaengerOrtSField = Value + End Set + End Property + + Public Property ZahlungsEmpfaengerOrtsteil() As String + Get + Return Me.zahlungsEmpfaengerOrtsteilField + End Get + Set + Me.zahlungsEmpfaengerOrtsteilField = Value + End Set + End Property + + Public Property ZahlungsEmpfaengerIBAN() As String + Get + Return Me.zahlungsEmpfaengerIBANField + End Get + Set + Me.zahlungsEmpfaengerIBANField = Value + End Set + End Property + + Public Property ZahlungsEmpfaengerBIC() As String + Get + Return Me.zahlungsEmpfaengerBICField + End Get + Set + Me.zahlungsEmpfaengerBICField = Value + End Set + End Property + + Public Property ErstellungsDatumBefund() As Date + Get + Return Me.erstellungsDatumBefundField + End Get + Set + Me.erstellungsDatumBefundField = Value + End Set + End Property + + + Public Property ErstellungsDatumBefundSpecified() As Boolean + Get + Return Me.erstellungsDatumBefundFieldSpecified + End Get + Set + Me.erstellungsDatumBefundFieldSpecified = Value + End Set + End Property + + Public Property Erfassungsdatum() As Date + Get + Return Me.erfassungsdatumField + End Get + Set + Me.erfassungsdatumField = Value + End Set + End Property + + + Public Property ErfassungsdatumSpecified() As Boolean + Get + Return Me.erfassungsdatumFieldSpecified + End Get + Set + Me.erfassungsdatumFieldSpecified = Value + End Set + End Property + + Public Property BarzahlungFaelligkeit() As Date + Get + Return Me.barzahlungFaelligkeitField + End Get + Set + Me.barzahlungFaelligkeitField = Value + End Set + End Property + + + Public Property BarzahlungFaelligkeitSpecified() As Boolean + Get + Return Me.barzahlungFaelligkeitFieldSpecified + End Get + Set + Me.barzahlungFaelligkeitFieldSpecified = Value + End Set + End Property + + Public Property SicherheitsleistungFaelligkeit() As Date + Get + Return Me.sicherheitsleistungFaelligkeitField + End Get + Set + Me.sicherheitsleistungFaelligkeitField = Value + End Set + End Property + + + Public Property SicherheitsleistungFaelligkeitSpecified() As Boolean + Get + Return Me.sicherheitsleistungFaelligkeitFieldSpecified + End Get + Set + Me.sicherheitsleistungFaelligkeitFieldSpecified = Value + End Set + End Property + + Public Property AbrechnungszeitraumBeginn() As Date + Get + Return Me.abrechnungszeitraumBeginnField + End Get + Set + Me.abrechnungszeitraumBeginnField = Value + End Set + End Property + + + Public Property AbrechnungszeitraumBeginnSpecified() As Boolean + Get + Return Me.abrechnungszeitraumBeginnFieldSpecified + End Get + Set + Me.abrechnungszeitraumBeginnFieldSpecified = Value + End Set + End Property + + Public Property AbrechnungszeitraumEnde() As Date + Get + Return Me.abrechnungszeitraumEndeField + End Get + Set + Me.abrechnungszeitraumEndeField = Value + End Set + End Property + + + Public Property AbrechnungszeitraumEndeSpecified() As Boolean + Get + Return Me.abrechnungszeitraumEndeFieldSpecified + End Get + Set + Me.abrechnungszeitraumEndeFieldSpecified = Value + End Set + End Property + + Public Property Zollbefund() As String + Get + Return Me.zollbefundField + End Get + Set + Me.zollbefundField = Value + End Set + End Property + + Public Property EZAAVAngabenKopf() As EZAAVAngabenKopfTyp + Get + Return Me.eZAAVAngabenKopfField + End Get + Set + Me.eZAAVAngabenKopfField = Value + End Set + End Property + + Public Property LieferbedingungCode() As String + Get + Return Me.lieferbedingungCodeField + End Get + Set + Me.lieferbedingungCodeField = 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 + + Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KopfDatenEinfuhrbescheidTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current KopfDatenEinfuhrbescheidTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an KopfDatenEinfuhrbescheidTyp object + ''' + '''string workflow markup to deserialize + '''Output KopfDatenEinfuhrbescheidTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp) + 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 KopfDatenEinfuhrbescheidTyp) 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 KopfDatenEinfuhrbescheidTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfDatenEinfuhrbescheidTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current KopfDatenEinfuhrbescheidTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an KopfDatenEinfuhrbescheidTyp object + ''' + '''string xml file to load and deserialize + '''Output KopfDatenEinfuhrbescheidTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp) + 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 KopfDatenEinfuhrbescheidTyp) 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 KopfDatenEinfuhrbescheidTyp + 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" + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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" + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_010.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_010.xsd new file mode 100644 index 0000000..37ffae1 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_010.xsd @@ -0,0 +1,579 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_005.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_005.designer.vb new file mode 100644 index 0000000..91130ca --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_005.designer.vb @@ -0,0 +1,1998 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) +'' AbschliessendeFestsetzung_005ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' +'' ------------------------------------------------------------------------------ +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 AbschliessendeFestsetzung_005 + + Partial Public Class AbschliessendeFestsetzungTAXATyp + Inherits DatenaustauschFreierVerkehrTyp + + Private einzelAbschliessendeFestsetzungField As EinzelAbschliessendeFestsetzungTyp + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.einzelAbschliessendeFestsetzungField = New EinzelAbschliessendeFestsetzungTyp() + End Sub + + Public Property EinzelAbschliessendeFestsetzung() As EinzelAbschliessendeFestsetzungTyp + Get + Return Me.einzelAbschliessendeFestsetzungField + End Get + Set + Me.einzelAbschliessendeFestsetzungField = 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(AbschliessendeFestsetzungTAXATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current AbschliessendeFestsetzungTAXATyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an AbschliessendeFestsetzungTAXATyp object + ''' + '''string workflow markup to deserialize + '''Output AbschliessendeFestsetzungTAXATyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbschliessendeFestsetzungTAXATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbschliessendeFestsetzungTAXATyp) + 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 AbschliessendeFestsetzungTAXATyp) 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 AbschliessendeFestsetzungTAXATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbschliessendeFestsetzungTAXATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current AbschliessendeFestsetzungTAXATyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an AbschliessendeFestsetzungTAXATyp object + ''' + '''string xml file to load and deserialize + '''Output AbschliessendeFestsetzungTAXATyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbschliessendeFestsetzungTAXATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbschliessendeFestsetzungTAXATyp) + 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 AbschliessendeFestsetzungTAXATyp) 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 AbschliessendeFestsetzungTAXATyp + 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 EinzelAbschliessendeFestsetzungTyp + + Private objektIdentifizierungField As ObjektIdentifizierungTAXATyp + + Private kopfDatenField As KopfDatenAbschliessendeFestsetzungTyp + + Private positionField As List(Of PositionAbschliessendeFestsetzungTyp) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.positionField = New List(Of PositionAbschliessendeFestsetzungTyp)() + Me.kopfDatenField = New KopfDatenAbschliessendeFestsetzungTyp() + Me.objektIdentifizierungField = New ObjektIdentifizierungTAXATyp() + End Sub + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXATyp + Get + Return Me.objektIdentifizierungField + End Get + Set + Me.objektIdentifizierungField = Value + End Set + End Property + + Public Property KopfDaten() As KopfDatenAbschliessendeFestsetzungTyp + Get + Return Me.kopfDatenField + End Get + Set + Me.kopfDatenField = Value + End Set + End Property + + Public Property Position() As List(Of PositionAbschliessendeFestsetzungTyp) + 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(EinzelAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current EinzelAbschliessendeFestsetzungTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an EinzelAbschliessendeFestsetzungTyp object + ''' + '''string workflow markup to deserialize + '''Output EinzelAbschliessendeFestsetzungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbschliessendeFestsetzungTyp) + 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 EinzelAbschliessendeFestsetzungTyp) 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 EinzelAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current EinzelAbschliessendeFestsetzungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an EinzelAbschliessendeFestsetzungTyp object + ''' + '''string xml file to load and deserialize + '''Output EinzelAbschliessendeFestsetzungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbschliessendeFestsetzungTyp) + 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 EinzelAbschliessendeFestsetzungTyp) 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 EinzelAbschliessendeFestsetzungTyp + 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 ObjektIdentifizierungTAXATyp + + Private objektNameField As String + + Private objektAliasField As String + + Private eDIFACTNachrichtenNrField As String + + Private zeitpunktEingangField As Date + + 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 ObjektAlias() As String + Get + Return Me.objektAliasField + End Get + Set + Me.objektAliasField = 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 + + 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(ObjektIdentifizierungTAXATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current ObjektIdentifizierungTAXATyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an ObjektIdentifizierungTAXATyp object + ''' + '''string workflow markup to deserialize + '''Output ObjektIdentifizierungTAXATyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungTAXATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXATyp) + 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 ObjektIdentifizierungTAXATyp) 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 ObjektIdentifizierungTAXATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungTAXATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current ObjektIdentifizierungTAXATyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an ObjektIdentifizierungTAXATyp object + ''' + '''string xml file to load and deserialize + '''Output ObjektIdentifizierungTAXATyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXATyp) + 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 ObjektIdentifizierungTAXATyp) 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 ObjektIdentifizierungTAXATyp + 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 PositionAbschliessendeFestsetzungTyp + + Private positionsnummerField As String + + Private freigabeSicherheitenKzField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Positionsnummer() As String + Get + Return Me.positionsnummerField + End Get + Set + Me.positionsnummerField = Value + End Set + End Property + + Public Property FreigabeSicherheitenKz() As String + Get + Return Me.freigabeSicherheitenKzField + End Get + Set + Me.freigabeSicherheitenKzField = 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(PositionAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current PositionAbschliessendeFestsetzungTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an PositionAbschliessendeFestsetzungTyp object + ''' + '''string workflow markup to deserialize + '''Output PositionAbschliessendeFestsetzungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbschliessendeFestsetzungTyp) + 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 PositionAbschliessendeFestsetzungTyp) 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 PositionAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PositionAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current PositionAbschliessendeFestsetzungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an PositionAbschliessendeFestsetzungTyp object + ''' + '''string xml file to load and deserialize + '''Output PositionAbschliessendeFestsetzungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbschliessendeFestsetzungTyp) + 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 PositionAbschliessendeFestsetzungTyp) 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 PositionAbschliessendeFestsetzungTyp + 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 KopfDatenAbschliessendeFestsetzungTyp + + Private waehrungKzField As String + + Private rechtsbehelfKzField As String + + Private gesamtschuldnerschaftKzField As String + + Private umsatzsteuerIDNrField As String + + Private registrierNrField As String + + Private nIZZARegistrierKzField As String + + Private freizugebeneSicherheitEURField As Decimal + + Private freizugebeneSicherheitEURFieldSpecified As Boolean + + Private auszahlungArtField As String + + Private freigegebeneSicherheitGesamtField As Decimal + + Private freigegebeneSicherheitGesamtFieldSpecified As Boolean + + Private freigabeSicherheitKzField As String + + Private freigabeSicherheitArtField As String + + Private sonstigeMitteilungField As String + + Private bearbeiterField As String + + Private rechtsbehelfHZABezeichungField As String + + Private rechtsbehelfHZAEmailAdresseField As String + + Private rechtsbehelfHZADEmailAdresseField As String + + Private rechtsbehelfHZAStrasseHausNrField As String + + Private rechtsbehelfHZAPLZSField As String + + Private rechtsbehelfHZAOrtSField As String + + Private rechtsbehelfHZAOrtsteilField As String + + Private rechtsbehelfHZAPostfachField As String + + Private rechtsbehelfHZAPLZPField As String + + Private rechtsbehelfHZAOrtPField As String + + Private rechnungEORIField As String + + Private rechnungNLNRField As String + + Private rechnungNationalitaetField As String + + Private rechnungNameFirmenbezeichnungField As String + + Private rechnungStrasseHausNrField As String + + Private rechnungPLZSField As String + + Private rechnungOrtSField As String + + Private rechnungOrtsteilField As String + + Private zahlungsempfaengerFreigegebeneSicherheitenEORIField As String + + Private zahlungsempfaengerFreigegebeneSicherheitenNLNRField As String + + Private zahlungsempfaengerKreditinstitutField As String + + Private zahlungsempfaengerFreigegebeneSicherheitenNameField As String + + Private zahlungsempfaengerNationalitaetField As String + + Private zahlungsempfaengerStrasseHausNrField As String + + Private zahlungsempfaengerPLZSField As String + + Private zahlungsempfaengerOrtSField As String + + Private zahlungsempfaengerOrtsteilField As String + + Private zahlungsempfaengerIBANField As String + + Private zahlungsempfaengerBICField As String + + Private bescheideempfaengerEORIField As String + + Private bescheideempfaengerNLNRField As String + + Private bescheideempfaengerKreditinstitutField As String + + Private bescheideempfaengerNameField As String + + Private bescheideempfaengerNationalitaetField As String + + Private bescheideempfaengerStrasseHausNrField As String + + Private bescheideempfaengerPLZSField As String + + Private bescheideempfaengerOrtSField As String + + Private bescheideempfaengerOrtsteilField As String + + Private bescheideempfaengerIBANField As String + + Private bescheideempfaengerBICField As String + + Private abgabenschuldnerEORIField As String + + Private abgabenschuldnerNLNRField As String + + Private abgabenschuldnerNameField As String + + Private abgabenschuldnerNationalitaetField As String + + Private abgabenschuldnerStrasseHausNrField As String + + Private abgabenschuldnerPLZSField As String + + Private abgabenschuldnerOrtSField As String + + Private abgabenschuldnerOrtsteilField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property WaehrungKz() As String + Get + Return Me.waehrungKzField + End Get + Set + Me.waehrungKzField = Value + End Set + End Property + + Public Property RechtsbehelfKz() As String + Get + Return Me.rechtsbehelfKzField + End Get + Set + Me.rechtsbehelfKzField = Value + End Set + End Property + + Public Property GesamtschuldnerschaftKz() As String + Get + Return Me.gesamtschuldnerschaftKzField + End Get + Set + Me.gesamtschuldnerschaftKzField = Value + End Set + End Property + + Public Property UmsatzsteuerIDNr() As String + Get + Return Me.umsatzsteuerIDNrField + End Get + Set + Me.umsatzsteuerIDNrField = Value + End Set + End Property + + Public Property RegistrierNr() As String + Get + Return Me.registrierNrField + End Get + Set + Me.registrierNrField = Value + End Set + End Property + + Public Property NIZZARegistrierKz() As String + Get + Return Me.nIZZARegistrierKzField + End Get + Set + Me.nIZZARegistrierKzField = Value + End Set + End Property + + Public Property FreizugebeneSicherheitEUR() As Decimal + Get + Return Me.freizugebeneSicherheitEURField + End Get + Set + Me.freizugebeneSicherheitEURField = Value + End Set + End Property + + + Public Property FreizugebeneSicherheitEURSpecified() As Boolean + Get + Return Me.freizugebeneSicherheitEURFieldSpecified + End Get + Set + Me.freizugebeneSicherheitEURFieldSpecified = Value + End Set + End Property + + Public Property AuszahlungArt() As String + Get + Return Me.auszahlungArtField + End Get + Set + Me.auszahlungArtField = Value + End Set + End Property + + Public Property FreigegebeneSicherheitGesamt() As Decimal + Get + Return Me.freigegebeneSicherheitGesamtField + End Get + Set + Me.freigegebeneSicherheitGesamtField = Value + End Set + End Property + + + Public Property FreigegebeneSicherheitGesamtSpecified() As Boolean + Get + Return Me.freigegebeneSicherheitGesamtFieldSpecified + End Get + Set + Me.freigegebeneSicherheitGesamtFieldSpecified = Value + End Set + End Property + + Public Property FreigabeSicherheitKz() As String + Get + Return Me.freigabeSicherheitKzField + End Get + Set + Me.freigabeSicherheitKzField = Value + End Set + End Property + + Public Property FreigabeSicherheitArt() As String + Get + Return Me.freigabeSicherheitArtField + End Get + Set + Me.freigabeSicherheitArtField = Value + End Set + End Property + + Public Property SonstigeMitteilung() As String + Get + Return Me.sonstigeMitteilungField + End Get + Set + Me.sonstigeMitteilungField = 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 RechtsbehelfHZABezeichung() As String + Get + Return Me.rechtsbehelfHZABezeichungField + End Get + Set + Me.rechtsbehelfHZABezeichungField = Value + End Set + End Property + + Public Property RechtsbehelfHZAEmailAdresse() As String + Get + Return Me.rechtsbehelfHZAEmailAdresseField + End Get + Set + Me.rechtsbehelfHZAEmailAdresseField = Value + End Set + End Property + + Public Property RechtsbehelfHZADEmailAdresse() As String + Get + Return Me.rechtsbehelfHZADEmailAdresseField + End Get + Set + Me.rechtsbehelfHZADEmailAdresseField = Value + End Set + End Property + + Public Property RechtsbehelfHZAStrasseHausNr() As String + Get + Return Me.rechtsbehelfHZAStrasseHausNrField + End Get + Set + Me.rechtsbehelfHZAStrasseHausNrField = Value + End Set + End Property + + Public Property RechtsbehelfHZAPLZS() As String + Get + Return Me.rechtsbehelfHZAPLZSField + End Get + Set + Me.rechtsbehelfHZAPLZSField = Value + End Set + End Property + + Public Property RechtsbehelfHZAOrtS() As String + Get + Return Me.rechtsbehelfHZAOrtSField + End Get + Set + Me.rechtsbehelfHZAOrtSField = Value + End Set + End Property + + Public Property RechtsbehelfHZAOrtsteil() As String + Get + Return Me.rechtsbehelfHZAOrtsteilField + End Get + Set + Me.rechtsbehelfHZAOrtsteilField = Value + End Set + End Property + + Public Property RechtsbehelfHZAPostfach() As String + Get + Return Me.rechtsbehelfHZAPostfachField + End Get + Set + Me.rechtsbehelfHZAPostfachField = Value + End Set + End Property + + Public Property RechtsbehelfHZAPLZP() As String + Get + Return Me.rechtsbehelfHZAPLZPField + End Get + Set + Me.rechtsbehelfHZAPLZPField = Value + End Set + End Property + + Public Property RechtsbehelfHZAOrtP() As String + Get + Return Me.rechtsbehelfHZAOrtPField + End Get + Set + Me.rechtsbehelfHZAOrtPField = Value + End Set + End Property + + Public Property RechnungEORI() As String + Get + Return Me.rechnungEORIField + End Get + Set + Me.rechnungEORIField = Value + End Set + End Property + + Public Property RechnungNLNR() As String + Get + Return Me.rechnungNLNRField + End Get + Set + Me.rechnungNLNRField = Value + End Set + End Property + + Public Property RechnungNationalitaet() As String + Get + Return Me.rechnungNationalitaetField + End Get + Set + Me.rechnungNationalitaetField = Value + End Set + End Property + + Public Property RechnungNameFirmenbezeichnung() As String + Get + Return Me.rechnungNameFirmenbezeichnungField + End Get + Set + Me.rechnungNameFirmenbezeichnungField = Value + End Set + End Property + + Public Property RechnungStrasseHausNr() As String + Get + Return Me.rechnungStrasseHausNrField + End Get + Set + Me.rechnungStrasseHausNrField = Value + End Set + End Property + + Public Property RechnungPLZS() As String + Get + Return Me.rechnungPLZSField + End Get + Set + Me.rechnungPLZSField = Value + End Set + End Property + + Public Property RechnungOrtS() As String + Get + Return Me.rechnungOrtSField + End Get + Set + Me.rechnungOrtSField = Value + End Set + End Property + + Public Property RechnungOrtsteil() As String + Get + Return Me.rechnungOrtsteilField + End Get + Set + Me.rechnungOrtsteilField = Value + End Set + End Property + + Public Property ZahlungsempfaengerFreigegebeneSicherheitenEORI() As String + Get + Return Me.zahlungsempfaengerFreigegebeneSicherheitenEORIField + End Get + Set + Me.zahlungsempfaengerFreigegebeneSicherheitenEORIField = Value + End Set + End Property + + Public Property ZahlungsempfaengerFreigegebeneSicherheitenNLNR() As String + Get + Return Me.zahlungsempfaengerFreigegebeneSicherheitenNLNRField + End Get + Set + Me.zahlungsempfaengerFreigegebeneSicherheitenNLNRField = Value + End Set + End Property + + Public Property ZahlungsempfaengerKreditinstitut() As String + Get + Return Me.zahlungsempfaengerKreditinstitutField + End Get + Set + Me.zahlungsempfaengerKreditinstitutField = Value + End Set + End Property + + Public Property ZahlungsempfaengerFreigegebeneSicherheitenName() As String + Get + Return Me.zahlungsempfaengerFreigegebeneSicherheitenNameField + End Get + Set + Me.zahlungsempfaengerFreigegebeneSicherheitenNameField = Value + End Set + End Property + + Public Property ZahlungsempfaengerNationalitaet() As String + Get + Return Me.zahlungsempfaengerNationalitaetField + End Get + Set + Me.zahlungsempfaengerNationalitaetField = Value + End Set + End Property + + Public Property ZahlungsempfaengerStrasseHausNr() As String + Get + Return Me.zahlungsempfaengerStrasseHausNrField + End Get + Set + Me.zahlungsempfaengerStrasseHausNrField = Value + End Set + End Property + + Public Property ZahlungsempfaengerPLZS() As String + Get + Return Me.zahlungsempfaengerPLZSField + End Get + Set + Me.zahlungsempfaengerPLZSField = Value + End Set + End Property + + Public Property ZahlungsempfaengerOrtS() As String + Get + Return Me.zahlungsempfaengerOrtSField + End Get + Set + Me.zahlungsempfaengerOrtSField = Value + End Set + End Property + + Public Property ZahlungsempfaengerOrtsteil() As String + Get + Return Me.zahlungsempfaengerOrtsteilField + End Get + Set + Me.zahlungsempfaengerOrtsteilField = Value + End Set + End Property + + Public Property ZahlungsempfaengerIBAN() As String + Get + Return Me.zahlungsempfaengerIBANField + End Get + Set + Me.zahlungsempfaengerIBANField = Value + End Set + End Property + + Public Property ZahlungsempfaengerBIC() As String + Get + Return Me.zahlungsempfaengerBICField + End Get + Set + Me.zahlungsempfaengerBICField = Value + End Set + End Property + + Public Property BescheideempfaengerEORI() As String + Get + Return Me.bescheideempfaengerEORIField + End Get + Set + Me.bescheideempfaengerEORIField = Value + End Set + End Property + + Public Property BescheideempfaengerNLNR() As String + Get + Return Me.bescheideempfaengerNLNRField + End Get + Set + Me.bescheideempfaengerNLNRField = Value + End Set + End Property + + Public Property BescheideempfaengerKreditinstitut() As String + Get + Return Me.bescheideempfaengerKreditinstitutField + End Get + Set + Me.bescheideempfaengerKreditinstitutField = Value + End Set + End Property + + Public Property BescheideempfaengerName() As String + Get + Return Me.bescheideempfaengerNameField + End Get + Set + Me.bescheideempfaengerNameField = Value + End Set + End Property + + Public Property BescheideempfaengerNationalitaet() As String + Get + Return Me.bescheideempfaengerNationalitaetField + End Get + Set + Me.bescheideempfaengerNationalitaetField = Value + End Set + End Property + + Public Property BescheideempfaengerStrasseHausNr() As String + Get + Return Me.bescheideempfaengerStrasseHausNrField + End Get + Set + Me.bescheideempfaengerStrasseHausNrField = Value + End Set + End Property + + Public Property BescheideempfaengerPLZS() As String + Get + Return Me.bescheideempfaengerPLZSField + End Get + Set + Me.bescheideempfaengerPLZSField = Value + End Set + End Property + + Public Property BescheideempfaengerOrtS() As String + Get + Return Me.bescheideempfaengerOrtSField + End Get + Set + Me.bescheideempfaengerOrtSField = Value + End Set + End Property + + Public Property BescheideempfaengerOrtsteil() As String + Get + Return Me.bescheideempfaengerOrtsteilField + End Get + Set + Me.bescheideempfaengerOrtsteilField = Value + End Set + End Property + + Public Property BescheideempfaengerIBAN() As String + Get + Return Me.bescheideempfaengerIBANField + End Get + Set + Me.bescheideempfaengerIBANField = Value + End Set + End Property + + Public Property BescheideempfaengerBIC() As String + Get + Return Me.bescheideempfaengerBICField + End Get + Set + Me.bescheideempfaengerBICField = Value + End Set + End Property + + Public Property AbgabenschuldnerEORI() As String + Get + Return Me.abgabenschuldnerEORIField + End Get + Set + Me.abgabenschuldnerEORIField = Value + End Set + End Property + + Public Property AbgabenschuldnerNLNR() As String + Get + Return Me.abgabenschuldnerNLNRField + End Get + Set + Me.abgabenschuldnerNLNRField = Value + End Set + End Property + + Public Property AbgabenschuldnerName() As String + Get + Return Me.abgabenschuldnerNameField + End Get + Set + Me.abgabenschuldnerNameField = Value + End Set + End Property + + Public Property AbgabenschuldnerNationalitaet() As String + Get + Return Me.abgabenschuldnerNationalitaetField + End Get + Set + Me.abgabenschuldnerNationalitaetField = Value + End Set + End Property + + Public Property AbgabenschuldnerStrasseHausNr() As String + Get + Return Me.abgabenschuldnerStrasseHausNrField + End Get + Set + Me.abgabenschuldnerStrasseHausNrField = Value + End Set + End Property + + Public Property AbgabenschuldnerPLZS() As String + Get + Return Me.abgabenschuldnerPLZSField + End Get + Set + Me.abgabenschuldnerPLZSField = Value + End Set + End Property + + Public Property AbgabenschuldnerOrtS() As String + Get + Return Me.abgabenschuldnerOrtSField + End Get + Set + Me.abgabenschuldnerOrtSField = Value + End Set + End Property + + Public Property AbgabenschuldnerOrtsteil() As String + Get + Return Me.abgabenschuldnerOrtsteilField + End Get + Set + Me.abgabenschuldnerOrtsteilField = 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(KopfDatenAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current KopfDatenAbschliessendeFestsetzungTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an KopfDatenAbschliessendeFestsetzungTyp object + ''' + '''string workflow markup to deserialize + '''Output KopfDatenAbschliessendeFestsetzungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenAbschliessendeFestsetzungTyp) + 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 KopfDatenAbschliessendeFestsetzungTyp) 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 KopfDatenAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfDatenAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current KopfDatenAbschliessendeFestsetzungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an KopfDatenAbschliessendeFestsetzungTyp object + ''' + '''string xml file to load and deserialize + '''Output KopfDatenAbschliessendeFestsetzungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenAbschliessendeFestsetzungTyp) + 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 KopfDatenAbschliessendeFestsetzungTyp) 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 KopfDatenAbschliessendeFestsetzungTyp + 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" + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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" + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_005.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_005.xsd new file mode 100644 index 0000000..964745a --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_005.xsd @@ -0,0 +1,233 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_008.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_008.designer.vb new file mode 100644 index 0000000..8fb03c1 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_008.designer.vb @@ -0,0 +1,5849 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) +'' BefundVereinfachteZollanmeldung_008ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' +'' ------------------------------------------------------------------------------ +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" + ''' + '''Serializes current BefundVereinfachteZollanmeldungVBTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an BefundVereinfachteZollanmeldungVBTyp object + ''' + '''string workflow markup to deserialize + '''Output BefundVereinfachteZollanmeldungVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current BefundVereinfachteZollanmeldungVBTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an BefundVereinfachteZollanmeldungVBTyp object + ''' + '''string xml file to load and deserialize + '''Output BefundVereinfachteZollanmeldungVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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" + ''' + '''Serializes current EinzelBefundVereinfachteZollanmeldungTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an EinzelBefundVereinfachteZollanmeldungTyp object + ''' + '''string workflow markup to deserialize + '''Output EinzelBefundVereinfachteZollanmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current EinzelBefundVereinfachteZollanmeldungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an EinzelBefundVereinfachteZollanmeldungTyp object + ''' + '''string xml file to load and deserialize + '''Output EinzelBefundVereinfachteZollanmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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" + ''' + '''Serializes current ObjektIdentifizierungVBTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an ObjektIdentifizierungVBTyp object + ''' + '''string workflow markup to deserialize + '''Output ObjektIdentifizierungVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current ObjektIdentifizierungVBTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an ObjektIdentifizierungVBTyp object + ''' + '''string xml file to load and deserialize + '''Output ObjektIdentifizierungVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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" + ''' + '''Serializes current SonderabgabenVBTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an SonderabgabenVBTyp object + ''' + '''string workflow markup to deserialize + '''Output SonderabgabenVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current SonderabgabenVBTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an SonderabgabenVBTyp object + ''' + '''string xml file to load and deserialize + '''Output SonderabgabenVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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" + ''' + '''Serializes current MinderungVBTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an MinderungVBTyp object + ''' + '''string workflow markup to deserialize + '''Output MinderungVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current MinderungVBTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an MinderungVBTyp object + ''' + '''string xml file to load and deserialize + '''Output MinderungVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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 + + + 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 + + + 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" + ''' + '''Serializes current VerbrauchsteuerVBTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an VerbrauchsteuerVBTyp object + ''' + '''string workflow markup to deserialize + '''Output VerbrauchsteuerVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current VerbrauchsteuerVBTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an VerbrauchsteuerVBTyp object + ''' + '''string xml file to load and deserialize + '''Output VerbrauchsteuerVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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" + ''' + '''Serializes current GehaltsangabenVBTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an GehaltsangabenVBTyp object + ''' + '''string workflow markup to deserialize + '''Output GehaltsangabenVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current GehaltsangabenVBTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an GehaltsangabenVBTyp object + ''' + '''string xml file to load and deserialize + '''Output GehaltsangabenVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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" + ''' + '''Serializes current PreisWertangabeVBTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an PreisWertangabeVBTyp object + ''' + '''string workflow markup to deserialize + '''Output PreisWertangabeVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current PreisWertangabeVBTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an PreisWertangabeVBTyp object + ''' + '''string xml file to load and deserialize + '''Output PreisWertangabeVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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" + ''' + '''Serializes current WarenMengeVBTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an WarenMengeVBTyp object + ''' + '''string workflow markup to deserialize + '''Output WarenMengeVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current WarenMengeVBTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an WarenMengeVBTyp object + ''' + '''string xml file to load and deserialize + '''Output WarenMengeVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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 + + + 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 + + + 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 + + + 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" + ''' + '''Serializes current AbzugHinzurechnungenVBTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an AbzugHinzurechnungenVBTyp object + ''' + '''string workflow markup to deserialize + '''Output AbzugHinzurechnungenVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current AbzugHinzurechnungenVBTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an AbzugHinzurechnungenVBTyp object + ''' + '''string xml file to load and deserialize + '''Output AbzugHinzurechnungenVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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" + ''' + '''Serializes current AbweichungVBTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an AbweichungVBTyp object + ''' + '''string workflow markup to deserialize + '''Output AbweichungVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current AbweichungVBTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an AbweichungVBTyp object + ''' + '''string xml file to load and deserialize + '''Output AbweichungVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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 + + + 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" + ''' + '''Serializes current UnterlageVBTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an UnterlageVBTyp object + ''' + '''string workflow markup to deserialize + '''Output UnterlageVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current UnterlageVBTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an UnterlageVBTyp object + ''' + '''string xml file to load and deserialize + '''Output UnterlageVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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 + + + 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 + + + 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 + + + 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 + + + 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 + + + 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 + + + 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 + + + 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 + + + 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 + + + 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 + + + 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 + + + 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 + + + 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 + + + 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 + + + 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 + + + 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" + ''' + '''Serializes current PositionBefundVereinfachteZollanmeldungTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an PositionBefundVereinfachteZollanmeldungTyp object + ''' + '''string workflow markup to deserialize + '''Output PositionBefundVereinfachteZollanmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current PositionBefundVereinfachteZollanmeldungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an PositionBefundVereinfachteZollanmeldungTyp object + ''' + '''string xml file to load and deserialize + '''Output PositionBefundVereinfachteZollanmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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" + ''' + '''Serializes current AnmeldungVBTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an AnmeldungVBTyp object + ''' + '''string workflow markup to deserialize + '''Output AnmeldungVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current AnmeldungVBTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an AnmeldungVBTyp object + ''' + '''string xml file to load and deserialize + '''Output AnmeldungVBTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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 + + + 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 + + + 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" + ''' + '''Serializes current KopfdatenBefundVereinfachteZollanmeldungTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' + '''string workflow markup to deserialize + '''Output KopfdatenBefundVereinfachteZollanmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current KopfdatenBefundVereinfachteZollanmeldungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' + '''string xml file to load and deserialize + '''Output KopfdatenBefundVereinfachteZollanmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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" + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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" + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_008.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_008.xsd new file mode 100644 index 0000000..2f86477 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_008.xsd @@ -0,0 +1,534 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_004.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_004.designer.vb new file mode 100644 index 0000000..5d46a72 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_004.designer.vb @@ -0,0 +1,1476 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) +'' EntscheidungAnmeldung_004ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' +'' ------------------------------------------------------------------------------ +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 EntscheidungAnmeldung_004 + + Partial Public Class EntscheidungAnmeldungRLTyp + Inherits DatenaustauschFreierVerkehrTyp + + Private einzelEntscheidungAnmeldungField As EinzelEntscheidungAnmeldungTyp + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.einzelEntscheidungAnmeldungField = New EinzelEntscheidungAnmeldungTyp() + End Sub + + Public Property EinzelEntscheidungAnmeldung() As EinzelEntscheidungAnmeldungTyp + Get + Return Me.einzelEntscheidungAnmeldungField + End Get + Set + Me.einzelEntscheidungAnmeldungField = 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(EntscheidungAnmeldungRLTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current EntscheidungAnmeldungRLTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an EntscheidungAnmeldungRLTyp object + ''' + '''string workflow markup to deserialize + '''Output EntscheidungAnmeldungRLTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EntscheidungAnmeldungRLTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EntscheidungAnmeldungRLTyp) + 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 EntscheidungAnmeldungRLTyp) 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 EntscheidungAnmeldungRLTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EntscheidungAnmeldungRLTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current EntscheidungAnmeldungRLTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an EntscheidungAnmeldungRLTyp object + ''' + '''string xml file to load and deserialize + '''Output EntscheidungAnmeldungRLTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EntscheidungAnmeldungRLTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EntscheidungAnmeldungRLTyp) + 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 EntscheidungAnmeldungRLTyp) 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 EntscheidungAnmeldungRLTyp + 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 EinzelEntscheidungAnmeldungTyp + + Private objektIdentifizierungField As ObjektIdentifizierungRLTyp + + Private kopfDatenField As KopfDatenEntscheidungAnmeldungTyp + + Private positionField As List(Of PositionEntscheidungAnmeldungTyp) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.positionField = New List(Of PositionEntscheidungAnmeldungTyp)() + Me.kopfDatenField = New KopfDatenEntscheidungAnmeldungTyp() + Me.objektIdentifizierungField = New ObjektIdentifizierungRLTyp() + End Sub + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungRLTyp + Get + Return Me.objektIdentifizierungField + End Get + Set + Me.objektIdentifizierungField = Value + End Set + End Property + + Public Property KopfDaten() As KopfDatenEntscheidungAnmeldungTyp + Get + Return Me.kopfDatenField + End Get + Set + Me.kopfDatenField = Value + End Set + End Property + + Public Property Position() As List(Of PositionEntscheidungAnmeldungTyp) + 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(EinzelEntscheidungAnmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current EinzelEntscheidungAnmeldungTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an EinzelEntscheidungAnmeldungTyp object + ''' + '''string workflow markup to deserialize + '''Output EinzelEntscheidungAnmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEntscheidungAnmeldungTyp) + 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 EinzelEntscheidungAnmeldungTyp) 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 EinzelEntscheidungAnmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelEntscheidungAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current EinzelEntscheidungAnmeldungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an EinzelEntscheidungAnmeldungTyp object + ''' + '''string xml file to load and deserialize + '''Output EinzelEntscheidungAnmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEntscheidungAnmeldungTyp) + 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 EinzelEntscheidungAnmeldungTyp) 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 EinzelEntscheidungAnmeldungTyp + 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 ObjektIdentifizierungRLTyp + + Private objektNameField As String + + Private objektAliasField As String + + Private eDIFACTNachrichtenNrField As String + + Private zeitpunktEingangField As Date + + 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 ObjektAlias() As String + Get + Return Me.objektAliasField + End Get + Set + Me.objektAliasField = 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 + + 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(ObjektIdentifizierungRLTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current ObjektIdentifizierungRLTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an ObjektIdentifizierungRLTyp object + ''' + '''string workflow markup to deserialize + '''Output ObjektIdentifizierungRLTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungRLTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungRLTyp) + 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 ObjektIdentifizierungRLTyp) 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 ObjektIdentifizierungRLTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungRLTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current ObjektIdentifizierungRLTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an ObjektIdentifizierungRLTyp object + ''' + '''string xml file to load and deserialize + '''Output ObjektIdentifizierungRLTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungRLTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungRLTyp) + 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 ObjektIdentifizierungRLTyp) 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 ObjektIdentifizierungRLTyp + 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 PositionEntscheidungAnmeldungTyp + + Private positionsnummerField As String + + Private annahmeKzField As String + + Private annahmeDatumField As Date + + Private annahmeDatumFieldSpecified As Boolean + + Private ueberlassungKzField As String + + Private ueberlassungDatumField As Date + + Private ueberlassungDatumFieldSpecified As Boolean + + Private ueberlassungUhrzeitField As Date + + Private ueberlassungUhrzeitFieldSpecified As Boolean + + Private mitteilungTeilnehmerBeschauField As String + + Private rueckgabeKzField As String + + Private anordnungKzField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Positionsnummer() As String + Get + Return Me.positionsnummerField + End Get + Set + Me.positionsnummerField = Value + End Set + End Property + + Public Property AnnahmeKz() As String + Get + Return Me.annahmeKzField + End Get + Set + Me.annahmeKzField = Value + End Set + End Property + + Public Property AnnahmeDatum() As Date + Get + Return Me.annahmeDatumField + End Get + Set + Me.annahmeDatumField = Value + End Set + End Property + + + Public Property AnnahmeDatumSpecified() As Boolean + Get + Return Me.annahmeDatumFieldSpecified + End Get + Set + Me.annahmeDatumFieldSpecified = Value + End Set + End Property + + Public Property UeberlassungKz() As String + Get + Return Me.ueberlassungKzField + End Get + Set + Me.ueberlassungKzField = Value + End Set + End Property + + Public Property UeberlassungDatum() As Date + Get + Return Me.ueberlassungDatumField + End Get + Set + Me.ueberlassungDatumField = Value + End Set + End Property + + + Public Property UeberlassungDatumSpecified() As Boolean + Get + Return Me.ueberlassungDatumFieldSpecified + End Get + Set + Me.ueberlassungDatumFieldSpecified = Value + End Set + End Property + + Public Property UeberlassungUhrzeit() As Date + Get + Return Me.ueberlassungUhrzeitField + End Get + Set + Me.ueberlassungUhrzeitField = Value + End Set + End Property + + + Public Property UeberlassungUhrzeitSpecified() As Boolean + Get + Return Me.ueberlassungUhrzeitFieldSpecified + End Get + Set + Me.ueberlassungUhrzeitFieldSpecified = Value + End Set + End Property + + Public Property MitteilungTeilnehmerBeschau() As String + Get + Return Me.mitteilungTeilnehmerBeschauField + End Get + Set + Me.mitteilungTeilnehmerBeschauField = Value + End Set + End Property + + Public Property RueckgabeKz() As String + Get + Return Me.rueckgabeKzField + End Get + Set + Me.rueckgabeKzField = Value + End Set + End Property + + Public Property AnordnungKz() As String + Get + Return Me.anordnungKzField + End Get + Set + Me.anordnungKzField = 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(PositionEntscheidungAnmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current PositionEntscheidungAnmeldungTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an PositionEntscheidungAnmeldungTyp object + ''' + '''string workflow markup to deserialize + '''Output PositionEntscheidungAnmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionEntscheidungAnmeldungTyp) + 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 PositionEntscheidungAnmeldungTyp) 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 PositionEntscheidungAnmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PositionEntscheidungAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current PositionEntscheidungAnmeldungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an PositionEntscheidungAnmeldungTyp object + ''' + '''string xml file to load and deserialize + '''Output PositionEntscheidungAnmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionEntscheidungAnmeldungTyp) + 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 PositionEntscheidungAnmeldungTyp) 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 PositionEntscheidungAnmeldungTyp + 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 KopfDatenEntscheidungAnmeldungTyp + + Private registriernummerField As String + + Private mitteilungTeilnehmerGestellungsmodalitaetenField As String + + Private bearbeiterZollField As String + + Private arbeitsnummerVorzeitigeAnmeldungField As String + + Private containernummerField As List(Of String) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.containernummerField = New List(Of String)() + End Sub + + Public Property Registriernummer() As String + Get + Return Me.registriernummerField + End Get + Set + Me.registriernummerField = Value + End Set + End Property + + Public Property MitteilungTeilnehmerGestellungsmodalitaeten() As String + Get + Return Me.mitteilungTeilnehmerGestellungsmodalitaetenField + End Get + Set + Me.mitteilungTeilnehmerGestellungsmodalitaetenField = Value + End Set + End Property + + Public Property BearbeiterZoll() As String + Get + Return Me.bearbeiterZollField + End Get + Set + Me.bearbeiterZollField = Value + End Set + End Property + + Public Property ArbeitsnummerVorzeitigeAnmeldung() As String + Get + Return Me.arbeitsnummerVorzeitigeAnmeldungField + End Get + Set + Me.arbeitsnummerVorzeitigeAnmeldungField = Value + End Set + End Property + + Public Property Containernummer() As List(Of String) + Get + Return Me.containernummerField + End Get + Set + Me.containernummerField = 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(KopfDatenEntscheidungAnmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current KopfDatenEntscheidungAnmeldungTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an KopfDatenEntscheidungAnmeldungTyp object + ''' + '''string workflow markup to deserialize + '''Output KopfDatenEntscheidungAnmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEntscheidungAnmeldungTyp) + 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 KopfDatenEntscheidungAnmeldungTyp) 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 KopfDatenEntscheidungAnmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfDatenEntscheidungAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current KopfDatenEntscheidungAnmeldungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an KopfDatenEntscheidungAnmeldungTyp object + ''' + '''string xml file to load and deserialize + '''Output KopfDatenEntscheidungAnmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEntscheidungAnmeldungTyp) + 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 KopfDatenEntscheidungAnmeldungTyp) 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 KopfDatenEntscheidungAnmeldungTyp + 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" + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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" + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_004.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_004.xsd new file mode 100644 index 0000000..55041c2 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_004.xsd @@ -0,0 +1,113 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2022.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2022.designer.vb new file mode 100644 index 0000000..ee612ef --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2022.designer.vb @@ -0,0 +1,8731 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) +'' FreierVerkehrAktVeredelUmwandlung_004ListVisualBasicFalseFalseFalseFalseFalseFalseTrueTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileTrueTrueTrueFalseFalseFalseDefaultUTF8FalseTrue +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace FreierVerkehrAktVeredelUmwandlung_004 + + + Partial Public Class FreierVerkehrAktVeredelUmwandlungAVUVTyp + Inherits DatenaustauschFreierVerkehrTyp + + Private einzelAnmeldungField As List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.einzelAnmeldungField = New List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp)() + End Sub + + + Public Overridable Property EinzelAnmeldung() As List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + Get + Return Me.einzelAnmeldungField + End Get + Set + Me.einzelAnmeldungField = 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(FreierVerkehrAktVeredelUmwandlungAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FreierVerkehrAktVeredelUmwandlungAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an FreierVerkehrAktVeredelUmwandlungAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output FreierVerkehrAktVeredelUmwandlungAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FreierVerkehrAktVeredelUmwandlungAVUVTyp) + 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 FreierVerkehrAktVeredelUmwandlungAVUVTyp) 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 FreierVerkehrAktVeredelUmwandlungAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FreierVerkehrAktVeredelUmwandlungAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FreierVerkehrAktVeredelUmwandlungAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an FreierVerkehrAktVeredelUmwandlungAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output FreierVerkehrAktVeredelUmwandlungAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FreierVerkehrAktVeredelUmwandlungAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FreierVerkehrAktVeredelUmwandlungAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FreierVerkehrAktVeredelUmwandlungAVUVTyp + 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, encoding) + 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp + + Private objektIdentifizierungField As ObjektIdentifizierungAVUVTyp + + Private kopfDatenField As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + + Private warenPositionField As List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.warenPositionField = New List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp)() + Me.kopfDatenField = New KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp() + Me.objektIdentifizierungField = New ObjektIdentifizierungAVUVTyp() + End Sub + + + Public Overridable Property ObjektIdentifizierung() As ObjektIdentifizierungAVUVTyp + Get + Return Me.objektIdentifizierungField + End Get + Set + Me.objektIdentifizierungField = Value + End Set + End Property + + + Public Overridable Property KopfDaten() As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + Get + Return Me.kopfDatenField + End Get + Set + Me.kopfDatenField = Value + End Set + End Property + + + Public Overridable Property WarenPosition() As List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp) + Get + Return Me.warenPositionField + End Get + Set + Me.warenPositionField = 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(EinzelEinfuhrUnvollstaendigeAnmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current EinzelEinfuhrUnvollstaendigeAnmeldungTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + '''string workflow markup to deserialize + '''Output EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp) 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current EinzelEinfuhrUnvollstaendigeAnmeldungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + '''string xml file to load and deserialize + '''Output EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelEinfuhrUnvollstaendigeAnmeldungTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As EinzelEinfuhrUnvollstaendigeAnmeldungTyp + 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, encoding) + 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 ObjektIdentifizierungAVUVTyp + + Private objektNameField As String + + Private objektAliasField As String + + Private anmeldungArtField As String + + Private objektQuittungField As String + + Private bezugsnummerVorblendungField As String + + Private userVorblendungField As String + + Private kopieVonField As String + + Private objektAktionField As List(Of String) + + Private compliancePruefungField As String + + Private bearbeiterField As String + + Private anfBemerkungStatusanzeigeField As String + + Private absenderSystemNameField As String + + Private shipmentReferenzField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.objektAktionField = New List(Of String)() + End Sub + + + Public Overridable Property ObjektName() As String + Get + Return Me.objektNameField + End Get + Set + Me.objektNameField = Value + End Set + End Property + + + Public Overridable Property ObjektAlias() As String + Get + Return Me.objektAliasField + End Get + Set + Me.objektAliasField = Value + End Set + End Property + + + Public Overridable Property AnmeldungArt() As String + Get + Return Me.anmeldungArtField + End Get + Set + Me.anmeldungArtField = Value + End Set + End Property + + + Public Overridable Property ObjektQuittung() As String + Get + Return Me.objektQuittungField + End Get + Set + Me.objektQuittungField = Value + End Set + End Property + + + Public Overridable Property BezugsnummerVorblendung() As String + Get + Return Me.bezugsnummerVorblendungField + End Get + Set + Me.bezugsnummerVorblendungField = Value + End Set + End Property + + + Public Overridable Property UserVorblendung() As String + Get + Return Me.userVorblendungField + End Get + Set + Me.userVorblendungField = Value + End Set + End Property + + + Public Overridable Property KopieVon() As String + Get + Return Me.kopieVonField + End Get + Set + Me.kopieVonField = Value + End Set + End Property + + + Public Overridable Property ObjektAktion() As List(Of String) + Get + Return Me.objektAktionField + End Get + Set + Me.objektAktionField = Value + End Set + End Property + + + Public Overridable Property CompliancePruefung() As String + Get + Return Me.compliancePruefungField + End Get + Set + Me.compliancePruefungField = Value + End Set + End Property + + + Public Overridable Property Bearbeiter() As String + Get + Return Me.bearbeiterField + End Get + Set + Me.bearbeiterField = Value + End Set + End Property + + + Public Overridable Property AnfBemerkungStatusanzeige() As String + Get + Return Me.anfBemerkungStatusanzeigeField + End Get + Set + Me.anfBemerkungStatusanzeigeField = Value + End Set + End Property + + + Public Overridable Property AbsenderSystemName() As String + Get + Return Me.absenderSystemNameField + End Get + Set + Me.absenderSystemNameField = Value + End Set + End Property + + + Public Overridable 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(ObjektIdentifizierungAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current ObjektIdentifizierungAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an ObjektIdentifizierungAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output ObjektIdentifizierungAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungAVUVTyp) + 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 ObjektIdentifizierungAVUVTyp) 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 ObjektIdentifizierungAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current ObjektIdentifizierungAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an ObjektIdentifizierungAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output ObjektIdentifizierungAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As ObjektIdentifizierungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As ObjektIdentifizierungAVUVTyp + 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, encoding) + 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 AussenhandelsstatistikAVUVTyp + + Private verkehrszweigInlandField As String + + Private verkehrszweigGrenzeField As String + + Private versendungslandField As String + + Private bestimmungsbundeslandField As String + + Private bestimmungslandField As String + + Private befoerderungsmittelGrenzeStaatszugehoerigkeitCodeField As String + + Private befoerderungsmittelGrenzeArtField As String + + Private befoerderungsmittelBeschreibungField As String + + Private artGeschaeftField As String + + Private statistikstatusField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property VerkehrszweigInland() As String + Get + Return Me.verkehrszweigInlandField + End Get + Set + Me.verkehrszweigInlandField = Value + End Set + End Property + + + Public Overridable Property VerkehrszweigGrenze() As String + Get + Return Me.verkehrszweigGrenzeField + End Get + Set + Me.verkehrszweigGrenzeField = Value + End Set + End Property + + + Public Overridable Property Versendungsland() As String + Get + Return Me.versendungslandField + End Get + Set + Me.versendungslandField = Value + End Set + End Property + + + Public Overridable Property Bestimmungsbundesland() As String + Get + Return Me.bestimmungsbundeslandField + End Get + Set + Me.bestimmungsbundeslandField = Value + End Set + End Property + + + Public Overridable Property Bestimmungsland() As String + Get + Return Me.bestimmungslandField + End Get + Set + Me.bestimmungslandField = Value + End Set + End Property + + + Public Overridable Property BefoerderungsmittelGrenzeStaatszugehoerigkeitCode() As String + Get + Return Me.befoerderungsmittelGrenzeStaatszugehoerigkeitCodeField + End Get + Set + Me.befoerderungsmittelGrenzeStaatszugehoerigkeitCodeField = Value + End Set + End Property + + + Public Overridable Property BefoerderungsmittelGrenzeArt() As String + Get + Return Me.befoerderungsmittelGrenzeArtField + End Get + Set + Me.befoerderungsmittelGrenzeArtField = Value + End Set + End Property + + + Public Overridable Property BefoerderungsmittelBeschreibung() As String + Get + Return Me.befoerderungsmittelBeschreibungField + End Get + Set + Me.befoerderungsmittelBeschreibungField = Value + End Set + End Property + + + Public Overridable Property ArtGeschaeft() As String + Get + Return Me.artGeschaeftField + End Get + Set + Me.artGeschaeftField = Value + End Set + End Property + + + Public Overridable Property Statistikstatus() As String + Get + Return Me.statistikstatusField + End Get + Set + Me.statistikstatusField = 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(AussenhandelsstatistikAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current AussenhandelsstatistikAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an AussenhandelsstatistikAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output AussenhandelsstatistikAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AussenhandelsstatistikAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AussenhandelsstatistikAVUVTyp) + 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 AussenhandelsstatistikAVUVTyp) 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 AussenhandelsstatistikAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AussenhandelsstatistikAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current AussenhandelsstatistikAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an AussenhandelsstatistikAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output AussenhandelsstatistikAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AussenhandelsstatistikAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AussenhandelsstatistikAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AussenhandelsstatistikAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AussenhandelsstatistikAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AussenhandelsstatistikAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AussenhandelsstatistikAVUVTyp + 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, encoding) + 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 AbzugHinzurechnungAVUVTyp + + Private artCodeField As String + + Private beschreibungAndereZahlungenField As String + + Private betragField As String + + Private waehrungField As String + + Private kursVereinbartKzField As String + + Private kursDatumField As Date + + Private kursDatumFieldSpecified As Boolean + + Private prozentsatzField As String + + Private betragInEURField As String + + Private iATAKursKzField As String + + Private frachtkostenBerechnungsgrundlageField As String + + Private kursAuslandswaehrungField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property ArtCode() As String + Get + Return Me.artCodeField + End Get + Set + Me.artCodeField = Value + End Set + End Property + + + Public Overridable Property BeschreibungAndereZahlungen() As String + Get + Return Me.beschreibungAndereZahlungenField + End Get + Set + Me.beschreibungAndereZahlungenField = Value + End Set + End Property + + + Public Overridable Property Betrag() As String + Get + Return Me.betragField + End Get + Set + Me.betragField = Value + End Set + End Property + + + Public Overridable Property Waehrung() As String + Get + Return Me.waehrungField + End Get + Set + Me.waehrungField = Value + End Set + End Property + + + Public Overridable Property KursVereinbartKz() As String + Get + Return Me.kursVereinbartKzField + End Get + Set + Me.kursVereinbartKzField = Value + End Set + End Property + + + Public Overridable Property KursDatum() As Date + Get + Return Me.kursDatumField + End Get + Set + Me.kursDatumField = Value + End Set + End Property + + + Public Overridable Property KursDatumSpecified() As Boolean + Get + Return Me.kursDatumFieldSpecified + End Get + Set + Me.kursDatumFieldSpecified = Value + End Set + End Property + + + Public Overridable Property Prozentsatz() As String + Get + Return Me.prozentsatzField + End Get + Set + Me.prozentsatzField = Value + End Set + End Property + + + Public Overridable Property BetragInEUR() As String + Get + Return Me.betragInEURField + End Get + Set + Me.betragInEURField = Value + End Set + End Property + + + Public Overridable Property IATAKursKz() As String + Get + Return Me.iATAKursKzField + End Get + Set + Me.iATAKursKzField = Value + End Set + End Property + + + Public Overridable Property FrachtkostenBerechnungsgrundlage() As String + Get + Return Me.frachtkostenBerechnungsgrundlageField + End Get + Set + Me.frachtkostenBerechnungsgrundlageField = Value + End Set + End Property + + + Public Overridable Property KursAuslandswaehrung() As String + Get + Return Me.kursAuslandswaehrungField + End Get + Set + Me.kursAuslandswaehrungField = 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(AbzugHinzurechnungAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current AbzugHinzurechnungAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an AbzugHinzurechnungAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output AbzugHinzurechnungAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbzugHinzurechnungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbzugHinzurechnungAVUVTyp) + 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 AbzugHinzurechnungAVUVTyp) 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 AbzugHinzurechnungAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbzugHinzurechnungAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current AbzugHinzurechnungAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an AbzugHinzurechnungAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output AbzugHinzurechnungAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AbzugHinzurechnungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbzugHinzurechnungAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbzugHinzurechnungAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AbzugHinzurechnungAVUVTyp + 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, encoding) + 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 BesondereWertangabeAVUVTyp + + Private wertField As String + + Private preisartCodeField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property Wert() As String + Get + Return Me.wertField + End Get + Set + Me.wertField = Value + End Set + End Property + + + Public Overridable Property PreisartCode() As String + Get + Return Me.preisartCodeField + End Get + Set + Me.preisartCodeField = 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(BesondereWertangabeAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current BesondereWertangabeAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an BesondereWertangabeAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output BesondereWertangabeAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As BesondereWertangabeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereWertangabeAVUVTyp) + 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 BesondereWertangabeAVUVTyp) 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 BesondereWertangabeAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), BesondereWertangabeAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current BesondereWertangabeAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an BesondereWertangabeAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output BesondereWertangabeAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As BesondereWertangabeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereWertangabeAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BesondereWertangabeAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BesondereWertangabeAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BesondereWertangabeAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As BesondereWertangabeAVUVTyp + 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, encoding) + 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 UnterlageVZPositionAVUVTyp + + Private bereichField As String + + Private artField As String + + Private nummerField As String + + Private datumAusstellungField As Date + + Private datumAusstellungFieldSpecified As Boolean + + Private vorlageKzField As String + + Private abschreibungsMengeField As String + + Private abschreibungsMengeMasseinheitField As String + + Private abschreibungsMengeMasseinheitQualifierField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property Bereich() As String + Get + Return Me.bereichField + End Get + Set + Me.bereichField = Value + End Set + End Property + + + Public Overridable Property Art() As String + Get + Return Me.artField + End Get + Set + Me.artField = Value + End Set + End Property + + + Public Overridable Property Nummer() As String + Get + Return Me.nummerField + End Get + Set + Me.nummerField = Value + End Set + End Property + + + Public Overridable Property DatumAusstellung() As Date + Get + Return Me.datumAusstellungField + End Get + Set + Me.datumAusstellungField = Value + End Set + End Property + + + Public Overridable Property DatumAusstellungSpecified() As Boolean + Get + Return Me.datumAusstellungFieldSpecified + End Get + Set + Me.datumAusstellungFieldSpecified = Value + End Set + End Property + + + Public Overridable Property VorlageKz() As String + Get + Return Me.vorlageKzField + End Get + Set + Me.vorlageKzField = Value + End Set + End Property + + + Public Overridable Property AbschreibungsMenge() As String + Get + Return Me.abschreibungsMengeField + End Get + Set + Me.abschreibungsMengeField = Value + End Set + End Property + + + Public Overridable Property AbschreibungsMengeMasseinheit() As String + Get + Return Me.abschreibungsMengeMasseinheitField + End Get + Set + Me.abschreibungsMengeMasseinheitField = Value + End Set + End Property + + + Public Overridable Property AbschreibungsMengeMasseinheitQualifier() As String + Get + Return Me.abschreibungsMengeMasseinheitQualifierField + End Get + Set + Me.abschreibungsMengeMasseinheitQualifierField = 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(UnterlageVZPositionAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current UnterlageVZPositionAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an UnterlageVZPositionAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output UnterlageVZPositionAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As UnterlageVZPositionAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageVZPositionAVUVTyp) + 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 UnterlageVZPositionAVUVTyp) 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 UnterlageVZPositionAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), UnterlageVZPositionAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current UnterlageVZPositionAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an UnterlageVZPositionAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output UnterlageVZPositionAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As UnterlageVZPositionAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageVZPositionAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVZPositionAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVZPositionAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UnterlageVZPositionAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As UnterlageVZPositionAVUVTyp + 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, encoding) + 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 SonderfalldatenAVUVTyp + + Private sonderabgabenGruppeCodeField As String + + Private anwendungArtField As String + + Private satzBetragFaktorField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property SonderabgabenGruppeCode() As String + Get + Return Me.sonderabgabenGruppeCodeField + End Get + Set + Me.sonderabgabenGruppeCodeField = Value + End Set + End Property + + + Public Overridable Property AnwendungArt() As String + Get + Return Me.anwendungArtField + End Get + Set + Me.anwendungArtField = Value + End Set + End Property + + + Public Overridable Property SatzBetragFaktor() As String + Get + Return Me.satzBetragFaktorField + End Get + Set + Me.satzBetragFaktorField = 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(SonderfalldatenAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current SonderfalldatenAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an SonderfalldatenAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output SonderfalldatenAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SonderfalldatenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderfalldatenAVUVTyp) + 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 SonderfalldatenAVUVTyp) 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 SonderfalldatenAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), SonderfalldatenAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current SonderfalldatenAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an SonderfalldatenAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output SonderfalldatenAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As SonderfalldatenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderfalldatenAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalldatenAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalldatenAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SonderfalldatenAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As SonderfalldatenAVUVTyp + 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, encoding) + 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 AbgabenminderungAVUVTyp + + Private abgabengruppeCodeField As String + + Private minderungsbetragField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property AbgabengruppeCode() As String + Get + Return Me.abgabengruppeCodeField + End Get + Set + Me.abgabengruppeCodeField = Value + End Set + End Property + + + Public Overridable Property Minderungsbetrag() As String + Get + Return Me.minderungsbetragField + End Get + Set + Me.minderungsbetragField = 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(AbgabenminderungAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current AbgabenminderungAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an AbgabenminderungAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output AbgabenminderungAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabenminderungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenminderungAVUVTyp) + 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 AbgabenminderungAVUVTyp) 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 AbgabenminderungAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbgabenminderungAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current AbgabenminderungAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an AbgabenminderungAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output AbgabenminderungAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AbgabenminderungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenminderungAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenminderungAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenminderungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbgabenminderungAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AbgabenminderungAVUVTyp + 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, encoding) + 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 VerbrauchssteuerAVUVTyp + + Private verbrauchsteuerCodeField As String + + Private verbrauchssteuerMengeField As String + + Private verbrauchssteuerMasseinheitCodeField As String + + Private verbrauchssteuerMasseinheitQualifierField As String + + Private gradProzentField As String + + Private verbrauchssteuerWertBasisField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property VerbrauchsteuerCode() As String + Get + Return Me.verbrauchsteuerCodeField + End Get + Set + Me.verbrauchsteuerCodeField = Value + End Set + End Property + + + Public Overridable Property VerbrauchssteuerMenge() As String + Get + Return Me.verbrauchssteuerMengeField + End Get + Set + Me.verbrauchssteuerMengeField = Value + End Set + End Property + + + Public Overridable Property VerbrauchssteuerMasseinheitCode() As String + Get + Return Me.verbrauchssteuerMasseinheitCodeField + End Get + Set + Me.verbrauchssteuerMasseinheitCodeField = Value + End Set + End Property + + + Public Overridable Property VerbrauchssteuerMasseinheitQualifier() As String + Get + Return Me.verbrauchssteuerMasseinheitQualifierField + End Get + Set + Me.verbrauchssteuerMasseinheitQualifierField = Value + End Set + End Property + + + Public Overridable Property GradProzent() As String + Get + Return Me.gradProzentField + End Get + Set + Me.gradProzentField = Value + End Set + End Property + + + Public Overridable Property VerbrauchssteuerWertBasis() As String + Get + Return Me.verbrauchssteuerWertBasisField + End Get + Set + Me.verbrauchssteuerWertBasisField = 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(VerbrauchssteuerAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current VerbrauchssteuerAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an VerbrauchssteuerAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output VerbrauchssteuerAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As VerbrauchssteuerAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbrauchssteuerAVUVTyp) + 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 VerbrauchssteuerAVUVTyp) 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 VerbrauchssteuerAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), VerbrauchssteuerAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current VerbrauchssteuerAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an VerbrauchssteuerAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output VerbrauchssteuerAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As VerbrauchssteuerAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbrauchssteuerAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchssteuerAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchssteuerAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerbrauchssteuerAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As VerbrauchssteuerAVUVTyp + 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, encoding) + 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 BeguenstigungsMengeAVUVTyp + + Private mengeField As String + + Private masseinheitCodeField As String + + Private masseinheitQualifierField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property Menge() As String + Get + Return Me.mengeField + End Get + Set + Me.mengeField = Value + End Set + End Property + + + Public Overridable Property MasseinheitCode() As String + Get + Return Me.masseinheitCodeField + End Get + Set + Me.masseinheitCodeField = Value + End Set + End Property + + + Public Overridable Property MasseinheitQualifier() As String + Get + Return Me.masseinheitQualifierField + End Get + Set + Me.masseinheitQualifierField = 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(BeguenstigungsMengeAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current BeguenstigungsMengeAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an BeguenstigungsMengeAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output BeguenstigungsMengeAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As BeguenstigungsMengeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeguenstigungsMengeAVUVTyp) + 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 BeguenstigungsMengeAVUVTyp) 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 BeguenstigungsMengeAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), BeguenstigungsMengeAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current BeguenstigungsMengeAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an BeguenstigungsMengeAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output BeguenstigungsMengeAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As BeguenstigungsMengeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeguenstigungsMengeAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeguenstigungsMengeAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeguenstigungsMengeAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BeguenstigungsMengeAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As BeguenstigungsMengeAVUVTyp + 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, encoding) + 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 GehaltsangabenAVUVTyp + + Private artCodeField As String + + Private gradProzentField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property ArtCode() As String + Get + Return Me.artCodeField + End Get + Set + Me.artCodeField = Value + End Set + End Property + + + Public Overridable Property GradProzent() As String + Get + Return Me.gradProzentField + End Get + Set + Me.gradProzentField = 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(GehaltsangabenAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current GehaltsangabenAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an GehaltsangabenAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output GehaltsangabenAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As GehaltsangabenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GehaltsangabenAVUVTyp) + 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 GehaltsangabenAVUVTyp) 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 GehaltsangabenAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), GehaltsangabenAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current GehaltsangabenAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an GehaltsangabenAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output GehaltsangabenAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As GehaltsangabenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GehaltsangabenAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GehaltsangabenAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As GehaltsangabenAVUVTyp + 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, encoding) + 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 AVVeredelungserzeugnisTyp + + Private warenbezeichnungField As String + + Private ausbeuteartField As String + + Private ausbeutesatzField As String + + Private kNCodeField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property Warenbezeichnung() As String + Get + Return Me.warenbezeichnungField + End Get + Set + Me.warenbezeichnungField = Value + End Set + End Property + + + Public Overridable Property Ausbeuteart() As String + Get + Return Me.ausbeuteartField + End Get + Set + Me.ausbeuteartField = Value + End Set + End Property + + + Public Overridable Property Ausbeutesatz() As String + Get + Return Me.ausbeutesatzField + End Get + Set + Me.ausbeutesatzField = Value + End Set + End Property + + + Public Overridable Property KNCode() As String + Get + Return Me.kNCodeField + End Get + Set + Me.kNCodeField = 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(AVVeredelungserzeugnisTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current AVVeredelungserzeugnisTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an AVVeredelungserzeugnisTyp object + ''' + '''string workflow markup to deserialize + '''Output AVVeredelungserzeugnisTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AVVeredelungserzeugnisTyp) + 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 AVVeredelungserzeugnisTyp) 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 AVVeredelungserzeugnisTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AVVeredelungserzeugnisTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current AVVeredelungserzeugnisTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an AVVeredelungserzeugnisTyp object + ''' + '''string xml file to load and deserialize + '''Output AVVeredelungserzeugnisTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AVVeredelungserzeugnisTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVVeredelungserzeugnisTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AVVeredelungserzeugnisTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AVVeredelungserzeugnisTyp + 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, encoding) + 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 WarenMengeAVUVTyp + + Private mengeField As String + + Private masseinheitField As String + + Private qualifierField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property Menge() As String + Get + Return Me.mengeField + End Get + Set + Me.mengeField = Value + End Set + End Property + + + Public Overridable Property Masseinheit() As String + Get + Return Me.masseinheitField + End Get + Set + Me.masseinheitField = Value + End Set + End Property + + + Public Overridable 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(WarenMengeAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current WarenMengeAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an WarenMengeAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output WarenMengeAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As WarenMengeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenMengeAVUVTyp) + 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 WarenMengeAVUVTyp) 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 WarenMengeAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), WarenMengeAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current WarenMengeAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an WarenMengeAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output WarenMengeAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As WarenMengeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenMengeAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As WarenMengeAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As WarenMengeAVUVTyp + 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, encoding) + 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp + + Private positionsnummerField As String + + Private artikelNummerField As String + + Private warenNummerEZTField As String + + Private warenNummerZusatzCodeField As List(Of String) + + Private warenNummerZusatz1Field As String + + Private warenNummerZusatz2Field As String + + Private warenBezeichnungField As String + + Private verfahrenscodeVorangegangenesVerfahrenField As String + + Private abgabensteuerungKzField As String + + Private eUCodeField As List(Of String) + + Private ursprungslandCodeField As String + + Private praeferenzursprungslandField As String + + Private rohmasseField As String + + Private eigenmasseField As String + + Private aHStatMengeField As String + + Private aHStatMengeMasseinheitField As String + + Private aHStatMengeQualifierField As String + + Private kostenEUStField As String + + Private aHStatWertField As String + + Private packstueckAnzahlField As String + + Private packstueckArtField As String + + Private packstueckZeichenField As String + + Private warenMengeField As List(Of WarenMengeAVUVTyp) + + Private warenMengeZollField As String + + Private warenMengeZollMasseinheitField As String + + Private warenMengeZollMasseinheitQualifierField As String + + Private beguenstigungBeantragtCodeField As String + + Private kontingentnummerField As List(Of String) + + Private positionsZusatzField As String + + Private aHStatWertManuellKZField As String + + Private artikelpreisField As String + + Private ortVerbringensField As String + + Private abflughafenIATACodeField As String + + Private warenmengeAVUVZugangField As String + + Private warenmengeAVUVZugangMasseinheitField As String + + Private warenmengeAVUVZugangMasseinheitQualifierField As String + + Private warenmengeAgrarzollField As String + + Private warenmengeAgrarzollMasseinheitField As String + + Private warenmengeAgrarzollMasseinheitQualifierField As String + + Private sachbereichField As String + + Private bedingungCodeField As String + + Private veredelungWertsteigerungField As String + + Private tabakSteuerzeichenIDField As String + + Private aVWirtschaftlicheVoraussetzungenField As String + + Private aVNaemlichkeitsmittelField As String + + Private aVErlaeuterungNaemlichkeitField As String + + Private aVVeredelungserzeugnisField As List(Of AVVeredelungserzeugnisTyp) + + Private gehaltsangabenField As List(Of GehaltsangabenAVUVTyp) + + Private beguenstigungsmengeField As BeguenstigungsMengeAVUVTyp + + Private verbrauchssteuerField As List(Of VerbrauchssteuerAVUVTyp) + + Private abgabenminderungField As List(Of AbgabenminderungAVUVTyp) + + Private sonderfalldatenField As List(Of SonderfalldatenAVUVTyp) + + Private unterlageField As List(Of UnterlageVZPositionAVUVTyp) + + Private besondereWertangabeField As List(Of BesondereWertangabeAVUVTyp) + + Private vZAStatusField As String + + Private eGZStatusField As String + + Private dV1StatusField As String + + Private anmeldeArtField As String + + Private befundDatumField As Date + + Private befundDatumFieldSpecified As Boolean + + Private anmelderAdressCodeEORIField As String + + Private anmelderAdressCodeZollnummerField As String + + Private zollverfahrenField As String + + Private abrechnungszollstelleCodeField As String + + Private sachbereichCodeField As String + + Private registriernummervZAField As String + + Private anmeldeVerfahrenField As String + + Private bewilligungsnummerField As String + + Private bewilligungsnummerEndverwenderEGZDurchDritteField As String + + Private zollwertField As String + + Private luftfrachtkostenGesamtField As String + + Private iATAKursKzField As String + + Private luftfrachtkostenGesamtWaehrungField As String + + Private kursVereinbartKzField As String + + Private kursBetragVereinbartField As String + + Private kursDatumField As Date + + Private kursDatumFieldSpecified As Boolean + + Private abzugHinzurechnungField As List(Of AbzugHinzurechnungAVUVTyp) + + Private aussenhandelsstatistikField As AussenhandelsstatistikAVUVTyp + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.aussenhandelsstatistikField = New AussenhandelsstatistikAVUVTyp() + Me.abzugHinzurechnungField = New List(Of AbzugHinzurechnungAVUVTyp)() + Me.besondereWertangabeField = New List(Of BesondereWertangabeAVUVTyp)() + Me.unterlageField = New List(Of UnterlageVZPositionAVUVTyp)() + Me.sonderfalldatenField = New List(Of SonderfalldatenAVUVTyp)() + Me.abgabenminderungField = New List(Of AbgabenminderungAVUVTyp)() + Me.verbrauchssteuerField = New List(Of VerbrauchssteuerAVUVTyp)() + Me.beguenstigungsmengeField = New BeguenstigungsMengeAVUVTyp() + Me.gehaltsangabenField = New List(Of GehaltsangabenAVUVTyp)() + Me.aVVeredelungserzeugnisField = New List(Of AVVeredelungserzeugnisTyp)() + Me.kontingentnummerField = New List(Of String)() + Me.warenMengeField = New List(Of WarenMengeAVUVTyp)() + Me.eUCodeField = New List(Of String)() + Me.warenNummerZusatzCodeField = New List(Of String)() + End Sub + + + Public Overridable Property Positionsnummer() As String + Get + Return Me.positionsnummerField + End Get + Set + Me.positionsnummerField = Value + End Set + End Property + + + Public Overridable Property ArtikelNummer() As String + Get + Return Me.artikelNummerField + End Get + Set + Me.artikelNummerField = Value + End Set + End Property + + + Public Overridable Property WarenNummerEZT() As String + Get + Return Me.warenNummerEZTField + End Get + Set + Me.warenNummerEZTField = Value + End Set + End Property + + + Public Overridable Property WarenNummerZusatzCode() As List(Of String) + Get + Return Me.warenNummerZusatzCodeField + End Get + Set + Me.warenNummerZusatzCodeField = Value + End Set + End Property + + + Public Overridable Property WarenNummerZusatz1() As String + Get + Return Me.warenNummerZusatz1Field + End Get + Set + Me.warenNummerZusatz1Field = Value + End Set + End Property + + + Public Overridable Property WarenNummerZusatz2() As String + Get + Return Me.warenNummerZusatz2Field + End Get + Set + Me.warenNummerZusatz2Field = Value + End Set + End Property + + + Public Overridable Property WarenBezeichnung() As String + Get + Return Me.warenBezeichnungField + End Get + Set + Me.warenBezeichnungField = Value + End Set + End Property + + + Public Overridable Property VerfahrenscodeVorangegangenesVerfahren() As String + Get + Return Me.verfahrenscodeVorangegangenesVerfahrenField + End Get + Set + Me.verfahrenscodeVorangegangenesVerfahrenField = Value + End Set + End Property + + + Public Overridable Property AbgabensteuerungKz() As String + Get + Return Me.abgabensteuerungKzField + End Get + Set + Me.abgabensteuerungKzField = Value + End Set + End Property + + + Public Overridable Property EUCode() As List(Of String) + Get + Return Me.eUCodeField + End Get + Set + Me.eUCodeField = Value + End Set + End Property + + + Public Overridable Property UrsprungslandCode() As String + Get + Return Me.ursprungslandCodeField + End Get + Set + Me.ursprungslandCodeField = Value + End Set + End Property + + + Public Overridable Property Praeferenzursprungsland() As String + Get + Return Me.praeferenzursprungslandField + End Get + Set + Me.praeferenzursprungslandField = Value + End Set + End Property + + + Public Overridable Property Rohmasse() As String + Get + Return Me.rohmasseField + End Get + Set + Me.rohmasseField = Value + End Set + End Property + + + Public Overridable Property Eigenmasse() As String + Get + Return Me.eigenmasseField + End Get + Set + Me.eigenmasseField = Value + End Set + End Property + + + Public Overridable Property AHStatMenge() As String + Get + Return Me.aHStatMengeField + End Get + Set + Me.aHStatMengeField = Value + End Set + End Property + + + Public Overridable Property AHStatMengeMasseinheit() As String + Get + Return Me.aHStatMengeMasseinheitField + End Get + Set + Me.aHStatMengeMasseinheitField = Value + End Set + End Property + + + Public Overridable Property AHStatMengeQualifier() As String + Get + Return Me.aHStatMengeQualifierField + End Get + Set + Me.aHStatMengeQualifierField = Value + End Set + End Property + + + Public Overridable Property KostenEUSt() As String + Get + Return Me.kostenEUStField + End Get + Set + Me.kostenEUStField = Value + End Set + End Property + + + Public Overridable Property AHStatWert() As String + Get + Return Me.aHStatWertField + End Get + Set + Me.aHStatWertField = Value + End Set + End Property + + + Public Overridable Property PackstueckAnzahl() As String + Get + Return Me.packstueckAnzahlField + End Get + Set + Me.packstueckAnzahlField = Value + End Set + End Property + + + Public Overridable Property PackstueckArt() As String + Get + Return Me.packstueckArtField + End Get + Set + Me.packstueckArtField = Value + End Set + End Property + + + Public Overridable Property PackstueckZeichen() As String + Get + Return Me.packstueckZeichenField + End Get + Set + Me.packstueckZeichenField = Value + End Set + End Property + + + Public Overridable Property WarenMenge() As List(Of WarenMengeAVUVTyp) + Get + Return Me.warenMengeField + End Get + Set + Me.warenMengeField = Value + End Set + End Property + + + Public Overridable Property WarenMengeZoll() As String + Get + Return Me.warenMengeZollField + End Get + Set + Me.warenMengeZollField = Value + End Set + End Property + + + Public Overridable Property WarenMengeZollMasseinheit() As String + Get + Return Me.warenMengeZollMasseinheitField + End Get + Set + Me.warenMengeZollMasseinheitField = Value + End Set + End Property + + + Public Overridable Property WarenMengeZollMasseinheitQualifier() As String + Get + Return Me.warenMengeZollMasseinheitQualifierField + End Get + Set + Me.warenMengeZollMasseinheitQualifierField = Value + End Set + End Property + + + Public Overridable Property BeguenstigungBeantragtCode() As String + Get + Return Me.beguenstigungBeantragtCodeField + End Get + Set + Me.beguenstigungBeantragtCodeField = Value + End Set + End Property + + + Public Overridable Property Kontingentnummer() As List(Of String) + Get + Return Me.kontingentnummerField + End Get + Set + Me.kontingentnummerField = Value + End Set + End Property + + + Public Overridable Property PositionsZusatz() As String + Get + Return Me.positionsZusatzField + End Get + Set + Me.positionsZusatzField = Value + End Set + End Property + + + Public Overridable Property AHStatWertManuellKZ() As String + Get + Return Me.aHStatWertManuellKZField + End Get + Set + Me.aHStatWertManuellKZField = Value + End Set + End Property + + + Public Overridable Property Artikelpreis() As String + Get + Return Me.artikelpreisField + End Get + Set + Me.artikelpreisField = Value + End Set + End Property + + + Public Overridable Property OrtVerbringens() As String + Get + Return Me.ortVerbringensField + End Get + Set + Me.ortVerbringensField = Value + End Set + End Property + + + Public Overridable Property AbflughafenIATACode() As String + Get + Return Me.abflughafenIATACodeField + End Get + Set + Me.abflughafenIATACodeField = Value + End Set + End Property + + + Public Overridable Property WarenmengeAVUVZugang() As String + Get + Return Me.warenmengeAVUVZugangField + End Get + Set + Me.warenmengeAVUVZugangField = Value + End Set + End Property + + + Public Overridable Property WarenmengeAVUVZugangMasseinheit() As String + Get + Return Me.warenmengeAVUVZugangMasseinheitField + End Get + Set + Me.warenmengeAVUVZugangMasseinheitField = Value + End Set + End Property + + + Public Overridable Property WarenmengeAVUVZugangMasseinheitQualifier() As String + Get + Return Me.warenmengeAVUVZugangMasseinheitQualifierField + End Get + Set + Me.warenmengeAVUVZugangMasseinheitQualifierField = Value + End Set + End Property + + + Public Overridable Property WarenmengeAgrarzoll() As String + Get + Return Me.warenmengeAgrarzollField + End Get + Set + Me.warenmengeAgrarzollField = Value + End Set + End Property + + + Public Overridable Property WarenmengeAgrarzollMasseinheit() As String + Get + Return Me.warenmengeAgrarzollMasseinheitField + End Get + Set + Me.warenmengeAgrarzollMasseinheitField = Value + End Set + End Property + + + Public Overridable Property WarenmengeAgrarzollMasseinheitQualifier() As String + Get + Return Me.warenmengeAgrarzollMasseinheitQualifierField + End Get + Set + Me.warenmengeAgrarzollMasseinheitQualifierField = Value + End Set + End Property + + + Public Overridable Property Sachbereich() As String + Get + Return Me.sachbereichField + End Get + Set + Me.sachbereichField = Value + End Set + End Property + + + Public Overridable Property BedingungCode() As String + Get + Return Me.bedingungCodeField + End Get + Set + Me.bedingungCodeField = Value + End Set + End Property + + + Public Overridable Property VeredelungWertsteigerung() As String + Get + Return Me.veredelungWertsteigerungField + End Get + Set + Me.veredelungWertsteigerungField = Value + End Set + End Property + + + Public Overridable Property TabakSteuerzeichenID() As String + Get + Return Me.tabakSteuerzeichenIDField + End Get + Set + Me.tabakSteuerzeichenIDField = Value + End Set + End Property + + + Public Overridable Property AVWirtschaftlicheVoraussetzungen() As String + Get + Return Me.aVWirtschaftlicheVoraussetzungenField + End Get + Set + Me.aVWirtschaftlicheVoraussetzungenField = Value + End Set + End Property + + + Public Overridable Property AVNaemlichkeitsmittel() As String + Get + Return Me.aVNaemlichkeitsmittelField + End Get + Set + Me.aVNaemlichkeitsmittelField = Value + End Set + End Property + + + Public Overridable Property AVErlaeuterungNaemlichkeit() As String + Get + Return Me.aVErlaeuterungNaemlichkeitField + End Get + Set + Me.aVErlaeuterungNaemlichkeitField = Value + End Set + End Property + + + Public Overridable Property AVVeredelungserzeugnis() As List(Of AVVeredelungserzeugnisTyp) + Get + Return Me.aVVeredelungserzeugnisField + End Get + Set + Me.aVVeredelungserzeugnisField = Value + End Set + End Property + + + Public Overridable Property Gehaltsangaben() As List(Of GehaltsangabenAVUVTyp) + Get + Return Me.gehaltsangabenField + End Get + Set + Me.gehaltsangabenField = Value + End Set + End Property + + + Public Overridable Property Beguenstigungsmenge() As BeguenstigungsMengeAVUVTyp + Get + Return Me.beguenstigungsmengeField + End Get + Set + Me.beguenstigungsmengeField = Value + End Set + End Property + + + Public Overridable Property Verbrauchssteuer() As List(Of VerbrauchssteuerAVUVTyp) + Get + Return Me.verbrauchssteuerField + End Get + Set + Me.verbrauchssteuerField = Value + End Set + End Property + + + Public Overridable Property Abgabenminderung() As List(Of AbgabenminderungAVUVTyp) + Get + Return Me.abgabenminderungField + End Get + Set + Me.abgabenminderungField = Value + End Set + End Property + + + Public Overridable Property Sonderfalldaten() As List(Of SonderfalldatenAVUVTyp) + Get + Return Me.sonderfalldatenField + End Get + Set + Me.sonderfalldatenField = Value + End Set + End Property + + + Public Overridable Property Unterlage() As List(Of UnterlageVZPositionAVUVTyp) + Get + Return Me.unterlageField + End Get + Set + Me.unterlageField = Value + End Set + End Property + + + Public Overridable Property BesondereWertangabe() As List(Of BesondereWertangabeAVUVTyp) + Get + Return Me.besondereWertangabeField + End Get + Set + Me.besondereWertangabeField = Value + End Set + End Property + + + Public Overridable Property VZAStatus() As String + Get + Return Me.vZAStatusField + End Get + Set + Me.vZAStatusField = Value + End Set + End Property + + + Public Overridable Property EGZStatus() As String + Get + Return Me.eGZStatusField + End Get + Set + Me.eGZStatusField = Value + End Set + End Property + + + Public Overridable Property DV1Status() As String + Get + Return Me.dV1StatusField + End Get + Set + Me.dV1StatusField = Value + End Set + End Property + + + Public Overridable Property AnmeldeArt() As String + Get + Return Me.anmeldeArtField + End Get + Set + Me.anmeldeArtField = Value + End Set + End Property + + + Public Overridable Property BefundDatum() As Date + Get + Return Me.befundDatumField + End Get + Set + Me.befundDatumField = Value + End Set + End Property + + + Public Overridable Property BefundDatumSpecified() As Boolean + Get + Return Me.befundDatumFieldSpecified + End Get + Set + Me.befundDatumFieldSpecified = Value + End Set + End Property + + + Public Overridable Property AnmelderAdressCodeEORI() As String + Get + Return Me.anmelderAdressCodeEORIField + End Get + Set + Me.anmelderAdressCodeEORIField = Value + End Set + End Property + + + Public Overridable Property AnmelderAdressCodeZollnummer() As String + Get + Return Me.anmelderAdressCodeZollnummerField + End Get + Set + Me.anmelderAdressCodeZollnummerField = Value + End Set + End Property + + + Public Overridable Property Zollverfahren() As String + Get + Return Me.zollverfahrenField + End Get + Set + Me.zollverfahrenField = Value + End Set + End Property + + + Public Overridable Property AbrechnungszollstelleCode() As String + Get + Return Me.abrechnungszollstelleCodeField + End Get + Set + Me.abrechnungszollstelleCodeField = Value + End Set + End Property + + + Public Overridable Property SachbereichCode() As String + Get + Return Me.sachbereichCodeField + End Get + Set + Me.sachbereichCodeField = Value + End Set + End Property + + + Public Overridable Property RegistriernummervZA() As String + Get + Return Me.registriernummervZAField + End Get + Set + Me.registriernummervZAField = Value + End Set + End Property + + + Public Overridable Property AnmeldeVerfahren() As String + Get + Return Me.anmeldeVerfahrenField + End Get + Set + Me.anmeldeVerfahrenField = Value + End Set + End Property + + + Public Overridable Property Bewilligungsnummer() As String + Get + Return Me.bewilligungsnummerField + End Get + Set + Me.bewilligungsnummerField = Value + End Set + End Property + + + Public Overridable Property BewilligungsnummerEndverwenderEGZDurchDritte() As String + Get + Return Me.bewilligungsnummerEndverwenderEGZDurchDritteField + End Get + Set + Me.bewilligungsnummerEndverwenderEGZDurchDritteField = Value + End Set + End Property + + + Public Overridable Property Zollwert() As String + Get + Return Me.zollwertField + End Get + Set + Me.zollwertField = Value + End Set + End Property + + + Public Overridable Property LuftfrachtkostenGesamt() As String + Get + Return Me.luftfrachtkostenGesamtField + End Get + Set + Me.luftfrachtkostenGesamtField = Value + End Set + End Property + + + Public Overridable Property IATAKursKz() As String + Get + Return Me.iATAKursKzField + End Get + Set + Me.iATAKursKzField = Value + End Set + End Property + + + Public Overridable Property LuftfrachtkostenGesamtWaehrung() As String + Get + Return Me.luftfrachtkostenGesamtWaehrungField + End Get + Set + Me.luftfrachtkostenGesamtWaehrungField = Value + End Set + End Property + + + Public Overridable Property KursVereinbartKz() As String + Get + Return Me.kursVereinbartKzField + End Get + Set + Me.kursVereinbartKzField = Value + End Set + End Property + + + Public Overridable Property KursBetragVereinbart() As String + Get + Return Me.kursBetragVereinbartField + End Get + Set + Me.kursBetragVereinbartField = Value + End Set + End Property + + + Public Overridable Property KursDatum() As Date + Get + Return Me.kursDatumField + End Get + Set + Me.kursDatumField = Value + End Set + End Property + + + Public Overridable Property KursDatumSpecified() As Boolean + Get + Return Me.kursDatumFieldSpecified + End Get + Set + Me.kursDatumFieldSpecified = Value + End Set + End Property + + + Public Overridable Property AbzugHinzurechnung() As List(Of AbzugHinzurechnungAVUVTyp) + Get + Return Me.abzugHinzurechnungField + End Get + Set + Me.abzugHinzurechnungField = Value + End Set + End Property + + + Public Overridable Property Aussenhandelsstatistik() As AussenhandelsstatistikAVUVTyp + Get + Return Me.aussenhandelsstatistikField + End Get + Set + Me.aussenhandelsstatistikField = 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(PositionEinfuhrUnvollstaendigeAnmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current PositionEinfuhrUnvollstaendigeAnmeldungTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an PositionEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + '''string workflow markup to deserialize + '''Output PositionEinfuhrUnvollstaendigeAnmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionEinfuhrUnvollstaendigeAnmeldungTyp) + 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp) 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PositionEinfuhrUnvollstaendigeAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current PositionEinfuhrUnvollstaendigeAnmeldungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an PositionEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + '''string xml file to load and deserialize + '''Output PositionEinfuhrUnvollstaendigeAnmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionEinfuhrUnvollstaendigeAnmeldungTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionEinfuhrUnvollstaendigeAnmeldungTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As PositionEinfuhrUnvollstaendigeAnmeldungTyp + 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, encoding) + 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 AdressenVzImportAVUVTyp + + Private adressTypField As String + + Private adressCodeField As String + + Private teilnehmerEORIField As String + + Private teilnehmerNLNRField As String + + Private zollNrField As String + + Private nameFirmaField As String + + Private strasseHausNrField As String + + Private ortsteilField As String + + Private landCodeField As String + + Private pLZSField As String + + Private ortSField As String + + Private uStIDAnmelderField As String + + Private finanzamtIDAnmelderField As String + + Private sitzEinfuehrerField As String + + Private bewilligungsnummerField As String + + Private bewilligungFachVerfahrenField As String + + Private bewilligungsnummerEndverwenderField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property AdressTyp() As String + Get + Return Me.adressTypField + End Get + Set + Me.adressTypField = Value + End Set + End Property + + + Public Overridable Property AdressCode() As String + Get + Return Me.adressCodeField + End Get + Set + Me.adressCodeField = Value + End Set + End Property + + + Public Overridable Property TeilnehmerEORI() As String + Get + Return Me.teilnehmerEORIField + End Get + Set + Me.teilnehmerEORIField = Value + End Set + End Property + + + Public Overridable Property TeilnehmerNLNR() As String + Get + Return Me.teilnehmerNLNRField + End Get + Set + Me.teilnehmerNLNRField = Value + End Set + End Property + + + Public Overridable Property ZollNr() As String + Get + Return Me.zollNrField + End Get + Set + Me.zollNrField = Value + End Set + End Property + + + Public Overridable Property NameFirma() As String + Get + Return Me.nameFirmaField + End Get + Set + Me.nameFirmaField = Value + End Set + End Property + + + Public Overridable Property StrasseHausNr() As String + Get + Return Me.strasseHausNrField + End Get + Set + Me.strasseHausNrField = Value + End Set + End Property + + + Public Overridable Property Ortsteil() As String + Get + Return Me.ortsteilField + End Get + Set + Me.ortsteilField = Value + End Set + End Property + + + Public Overridable Property LandCode() As String + Get + Return Me.landCodeField + End Get + Set + Me.landCodeField = Value + End Set + End Property + + + Public Overridable Property PLZS() As String + Get + Return Me.pLZSField + End Get + Set + Me.pLZSField = Value + End Set + End Property + + + Public Overridable Property OrtS() As String + Get + Return Me.ortSField + End Get + Set + Me.ortSField = Value + End Set + End Property + + + Public Overridable Property UStIDAnmelder() As String + Get + Return Me.uStIDAnmelderField + End Get + Set + Me.uStIDAnmelderField = Value + End Set + End Property + + + Public Overridable Property FinanzamtIDAnmelder() As String + Get + Return Me.finanzamtIDAnmelderField + End Get + Set + Me.finanzamtIDAnmelderField = Value + End Set + End Property + + + Public Overridable Property SitzEinfuehrer() As String + Get + Return Me.sitzEinfuehrerField + End Get + Set + Me.sitzEinfuehrerField = Value + End Set + End Property + + + Public Overridable Property Bewilligungsnummer() As String + Get + Return Me.bewilligungsnummerField + End Get + Set + Me.bewilligungsnummerField = Value + End Set + End Property + + + Public Overridable Property BewilligungFachVerfahren() As String + Get + Return Me.bewilligungFachVerfahrenField + End Get + Set + Me.bewilligungFachVerfahrenField = Value + End Set + End Property + + + Public Overridable Property BewilligungsnummerEndverwender() As String + Get + Return Me.bewilligungsnummerEndverwenderField + End Get + Set + Me.bewilligungsnummerEndverwenderField = 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(AdressenVzImportAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current AdressenVzImportAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an AdressenVzImportAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output AdressenVzImportAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AdressenVzImportAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdressenVzImportAVUVTyp) + 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 AdressenVzImportAVUVTyp) 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 AdressenVzImportAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AdressenVzImportAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current AdressenVzImportAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an AdressenVzImportAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output AdressenVzImportAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AdressenVzImportAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdressenVzImportAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdressenVzImportAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdressenVzImportAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AdressenVzImportAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AdressenVzImportAVUVTyp + 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, encoding) + 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 ZusaetzlicheSteuerlicheVerweiseTyp + + Private kennnummerField As String + + Private steuerbeteiligterTINField As String + + Private nameField As String + + Private strasseUndHausnummerField As String + + Private landField As String + + Private pLZField As String + + Private ortField As String + + Private ortsteilField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property Kennnummer() As String + Get + Return Me.kennnummerField + End Get + Set + Me.kennnummerField = Value + End Set + End Property + + + Public Overridable Property SteuerbeteiligterTIN() As String + Get + Return Me.steuerbeteiligterTINField + End Get + Set + Me.steuerbeteiligterTINField = Value + End Set + End Property + + + Public Overridable Property Name() As String + Get + Return Me.nameField + End Get + Set + Me.nameField = Value + End Set + End Property + + + Public Overridable Property StrasseUndHausnummer() As String + Get + Return Me.strasseUndHausnummerField + End Get + Set + Me.strasseUndHausnummerField = Value + End Set + End Property + + + Public Overridable Property Land() As String + Get + Return Me.landField + End Get + Set + Me.landField = Value + End Set + End Property + + + Public Overridable Property PLZ() As String + Get + Return Me.pLZField + End Get + Set + Me.pLZField = Value + End Set + End Property + + + Public Overridable Property Ort() As String + Get + Return Me.ortField + End Get + Set + Me.ortField = Value + End Set + End Property + + + Public Overridable Property Ortsteil() As String + Get + Return Me.ortsteilField + End Get + Set + Me.ortsteilField = 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(ZusaetzlicheSteuerlicheVerweiseTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current ZusaetzlicheSteuerlicheVerweiseTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an ZusaetzlicheSteuerlicheVerweiseTyp object + ''' + '''string workflow markup to deserialize + '''Output ZusaetzlicheSteuerlicheVerweiseTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ZusaetzlicheSteuerlicheVerweiseTyp) + 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 ZusaetzlicheSteuerlicheVerweiseTyp) 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 ZusaetzlicheSteuerlicheVerweiseTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ZusaetzlicheSteuerlicheVerweiseTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current ZusaetzlicheSteuerlicheVerweiseTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an ZusaetzlicheSteuerlicheVerweiseTyp object + ''' + '''string xml file to load and deserialize + '''Output ZusaetzlicheSteuerlicheVerweiseTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ZusaetzlicheSteuerlicheVerweiseTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ZusaetzlicheSteuerlicheVerweiseTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As ZusaetzlicheSteuerlicheVerweiseTyp + 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, encoding) + 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 AVBuchhaltVeredelungTyp + + Private strasseField As String + + Private landField As String + + Private pLZField As String + + Private ortField As String + + Private ortsteilField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property Strasse() As String + Get + Return Me.strasseField + End Get + Set + Me.strasseField = Value + End Set + End Property + + + Public Overridable Property Land() As String + Get + Return Me.landField + End Get + Set + Me.landField = Value + End Set + End Property + + + Public Overridable Property PLZ() As String + Get + Return Me.pLZField + End Get + Set + Me.pLZField = Value + End Set + End Property + + + Public Overridable Property Ort() As String + Get + Return Me.ortField + End Get + Set + Me.ortField = Value + End Set + End Property + + + Public Overridable Property Ortsteil() As String + Get + Return Me.ortsteilField + End Get + Set + Me.ortsteilField = 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(AVBuchhaltVeredelungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current AVBuchhaltVeredelungTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an AVBuchhaltVeredelungTyp object + ''' + '''string workflow markup to deserialize + '''Output AVBuchhaltVeredelungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AVBuchhaltVeredelungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AVBuchhaltVeredelungTyp) + 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 AVBuchhaltVeredelungTyp) 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 AVBuchhaltVeredelungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AVBuchhaltVeredelungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current AVBuchhaltVeredelungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an AVBuchhaltVeredelungTyp object + ''' + '''string xml file to load and deserialize + '''Output AVBuchhaltVeredelungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AVBuchhaltVeredelungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AVBuchhaltVeredelungTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVBuchhaltVeredelungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVBuchhaltVeredelungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AVBuchhaltVeredelungTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AVBuchhaltVeredelungTyp + 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, encoding) + 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 BEAnteilZLAVUVPositionAVUVTyp + + Private registriernummerZugangField As String + + Private positionZugangField As String + + Private artikelcodeATZLField As String + + Private eigentuemerATZLField As String + + Private chargennummerATZLField As String + + Private ursprungslandATZLField As String + + Private atlasKzField As String + + Private warennummerField As String + + Private ueblicheBehandlungKzField As String + + Private handelsmengeField As String + + Private masseinheitHandelsmengeField As String + + Private qualifikatorHandelsmengeField As String + + Private abgangsmengeField As String + + Private masseinheitAbgangsmengeField As String + + Private qualifikatorAbgangsmengeField As String + + Private positionszusatzField As String + + Private warenbezogeneAngabenField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property RegistriernummerZugang() As String + Get + Return Me.registriernummerZugangField + End Get + Set + Me.registriernummerZugangField = Value + End Set + End Property + + + Public Overridable Property PositionZugang() As String + Get + Return Me.positionZugangField + End Get + Set + Me.positionZugangField = Value + End Set + End Property + + + Public Overridable Property ArtikelcodeATZL() As String + Get + Return Me.artikelcodeATZLField + End Get + Set + Me.artikelcodeATZLField = Value + End Set + End Property + + + Public Overridable Property EigentuemerATZL() As String + Get + Return Me.eigentuemerATZLField + End Get + Set + Me.eigentuemerATZLField = Value + End Set + End Property + + + Public Overridable Property ChargennummerATZL() As String + Get + Return Me.chargennummerATZLField + End Get + Set + Me.chargennummerATZLField = Value + End Set + End Property + + + Public Overridable Property UrsprungslandATZL() As String + Get + Return Me.ursprungslandATZLField + End Get + Set + Me.ursprungslandATZLField = Value + End Set + End Property + + + Public Overridable Property AtlasKz() As String + Get + Return Me.atlasKzField + End Get + Set + Me.atlasKzField = Value + End Set + End Property + + + Public Overridable Property Warennummer() As String + Get + Return Me.warennummerField + End Get + Set + Me.warennummerField = Value + End Set + End Property + + + Public Overridable Property UeblicheBehandlungKz() As String + Get + Return Me.ueblicheBehandlungKzField + End Get + Set + Me.ueblicheBehandlungKzField = Value + End Set + End Property + + + Public Overridable Property Handelsmenge() As String + Get + Return Me.handelsmengeField + End Get + Set + Me.handelsmengeField = Value + End Set + End Property + + + Public Overridable Property MasseinheitHandelsmenge() As String + Get + Return Me.masseinheitHandelsmengeField + End Get + Set + Me.masseinheitHandelsmengeField = Value + End Set + End Property + + + Public Overridable Property QualifikatorHandelsmenge() As String + Get + Return Me.qualifikatorHandelsmengeField + End Get + Set + Me.qualifikatorHandelsmengeField = Value + End Set + End Property + + + Public Overridable Property Abgangsmenge() As String + Get + Return Me.abgangsmengeField + End Get + Set + Me.abgangsmengeField = Value + End Set + End Property + + + Public Overridable Property MasseinheitAbgangsmenge() As String + Get + Return Me.masseinheitAbgangsmengeField + End Get + Set + Me.masseinheitAbgangsmengeField = Value + End Set + End Property + + + Public Overridable Property QualifikatorAbgangsmenge() As String + Get + Return Me.qualifikatorAbgangsmengeField + End Get + Set + Me.qualifikatorAbgangsmengeField = Value + End Set + End Property + + + Public Overridable Property Positionszusatz() As String + Get + Return Me.positionszusatzField + End Get + Set + Me.positionszusatzField = Value + End Set + End Property + + + Public Overridable Property WarenbezogeneAngaben() As String + Get + Return Me.warenbezogeneAngabenField + End Get + Set + Me.warenbezogeneAngabenField = 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(BEAnteilZLAVUVPositionAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current BEAnteilZLAVUVPositionAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an BEAnteilZLAVUVPositionAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output BEAnteilZLAVUVPositionAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BEAnteilZLAVUVPositionAVUVTyp) + 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 BEAnteilZLAVUVPositionAVUVTyp) 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 BEAnteilZLAVUVPositionAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), BEAnteilZLAVUVPositionAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current BEAnteilZLAVUVPositionAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an BEAnteilZLAVUVPositionAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output BEAnteilZLAVUVPositionAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BEAnteilZLAVUVPositionAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BEAnteilZLAVUVPositionAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As BEAnteilZLAVUVPositionAVUVTyp + 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, encoding) + 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 SumABeendigungsAnteilAVUVTyp + + Private sumARegistriernummerField As String + + Private sumAPosNrField As String + + Private beendigungsPackstueckzahlField As String + + Private artIdentifikationField As String + + Private verwahrerEORIField As String + + Private zollNummerVerwahrerField As String + + Private spezifOrdnungsbegriffArtField As String + + Private spezifOrdnungsbegriffField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property SumARegistriernummer() As String + Get + Return Me.sumARegistriernummerField + End Get + Set + Me.sumARegistriernummerField = Value + End Set + End Property + + + Public Overridable Property SumAPosNr() As String + Get + Return Me.sumAPosNrField + End Get + Set + Me.sumAPosNrField = Value + End Set + End Property + + + Public Overridable Property BeendigungsPackstueckzahl() As String + Get + Return Me.beendigungsPackstueckzahlField + End Get + Set + Me.beendigungsPackstueckzahlField = Value + End Set + End Property + + + Public Overridable Property ArtIdentifikation() As String + Get + Return Me.artIdentifikationField + End Get + Set + Me.artIdentifikationField = Value + End Set + End Property + + + Public Overridable Property VerwahrerEORI() As String + Get + Return Me.verwahrerEORIField + End Get + Set + Me.verwahrerEORIField = Value + End Set + End Property + + + Public Overridable Property ZollNummerVerwahrer() As String + Get + Return Me.zollNummerVerwahrerField + End Get + Set + Me.zollNummerVerwahrerField = Value + End Set + End Property + + + Public Overridable Property SpezifOrdnungsbegriffArt() As String + Get + Return Me.spezifOrdnungsbegriffArtField + End Get + Set + Me.spezifOrdnungsbegriffArtField = Value + End Set + End Property + + + Public Overridable Property SpezifOrdnungsbegriff() As String + Get + Return Me.spezifOrdnungsbegriffField + End Get + Set + Me.spezifOrdnungsbegriffField = 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(SumABeendigungsAnteilAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current SumABeendigungsAnteilAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an SumABeendigungsAnteilAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output SumABeendigungsAnteilAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SumABeendigungsAnteilAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumABeendigungsAnteilAVUVTyp) + 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 SumABeendigungsAnteilAVUVTyp) 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 SumABeendigungsAnteilAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), SumABeendigungsAnteilAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current SumABeendigungsAnteilAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an SumABeendigungsAnteilAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output SumABeendigungsAnteilAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As SumABeendigungsAnteilAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumABeendigungsAnteilAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SumABeendigungsAnteilAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SumABeendigungsAnteilAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SumABeendigungsAnteilAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As SumABeendigungsAnteilAVUVTyp + 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, encoding) + 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 AufschubAVUVTyp + + Private aufschubartField As String + + Private artAufschubantragField As String + + Private aufschubnehmerEORIField As String + + Private kennbuchstabenAufschubField As String + + Private zollnummerAufschubnehmerField As String + + Private kontoBewHZAField As String + + Private kontoNrField As String + + Private aufschubBINField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property Aufschubart() As String + Get + Return Me.aufschubartField + End Get + Set + Me.aufschubartField = Value + End Set + End Property + + + Public Overridable Property ArtAufschubantrag() As String + Get + Return Me.artAufschubantragField + End Get + Set + Me.artAufschubantragField = Value + End Set + End Property + + + Public Overridable Property AufschubnehmerEORI() As String + Get + Return Me.aufschubnehmerEORIField + End Get + Set + Me.aufschubnehmerEORIField = Value + End Set + End Property + + + Public Overridable Property KennbuchstabenAufschub() As String + Get + Return Me.kennbuchstabenAufschubField + End Get + Set + Me.kennbuchstabenAufschubField = Value + End Set + End Property + + + Public Overridable Property ZollnummerAufschubnehmer() As String + Get + Return Me.zollnummerAufschubnehmerField + End Get + Set + Me.zollnummerAufschubnehmerField = Value + End Set + End Property + + + Public Overridable Property KontoBewHZA() As String + Get + Return Me.kontoBewHZAField + End Get + Set + Me.kontoBewHZAField = Value + End Set + End Property + + + Public Overridable Property KontoNr() As String + Get + Return Me.kontoNrField + End Get + Set + Me.kontoNrField = Value + End Set + End Property + + + Public Overridable Property AufschubBIN() As String + Get + Return Me.aufschubBINField + End Get + Set + Me.aufschubBINField = 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(AufschubAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current AufschubAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an AufschubAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output AufschubAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AufschubAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AufschubAVUVTyp) + 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 AufschubAVUVTyp) 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 AufschubAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AufschubAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current AufschubAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an AufschubAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output AufschubAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AufschubAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AufschubAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AufschubAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AufschubAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AufschubAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AufschubAVUVTyp + 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, encoding) + 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 UnterlageVzKopfAVUVTyp + + 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 Overridable Property Bereich() As String + Get + Return Me.bereichField + End Get + Set + Me.bereichField = Value + End Set + End Property + + + Public Overridable Property Art() As String + Get + Return Me.artField + End Get + Set + Me.artField = Value + End Set + End Property + + + Public Overridable Property Nummer() As String + Get + Return Me.nummerField + End Get + Set + Me.nummerField = Value + End Set + End Property + + + Public Overridable Property DatumAusstellung() As Date + Get + Return Me.datumAusstellungField + End Get + Set + Me.datumAusstellungField = Value + End Set + End Property + + + Public Overridable 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(UnterlageVzKopfAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current UnterlageVzKopfAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an UnterlageVzKopfAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output UnterlageVzKopfAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As UnterlageVzKopfAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageVzKopfAVUVTyp) + 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 UnterlageVzKopfAVUVTyp) 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 UnterlageVzKopfAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), UnterlageVzKopfAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current UnterlageVzKopfAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an UnterlageVzKopfAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output UnterlageVzKopfAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As UnterlageVzKopfAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageVzKopfAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVzKopfAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVzKopfAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UnterlageVzKopfAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As UnterlageVzKopfAVUVTyp + 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, encoding) + 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 DV1KostenverteilungAVUVTyp + + Private kostenartField As String + + Private kostenField As String + + Private kostenWaehrungField As String + + Private wechselkursArtField As String + + Private wechselkursField As String + + Private wechselkursDatumField As Date + + Private wechselkursDatumFieldSpecified As Boolean + + Private verteilungsartField As String + + Private minimalbetragField As String + + Private rabattProzentField As String + + Private skontoProzentField As String + + Private bemerkungenField As String + + Private versicherungBerechnenKzField As String + + Private prozentualerAnteilField As String + + Private imaginaererProfitField As String + + Private andereZahlungField As String + + Private summeRechnungManuellField As String + + Private summeFrachtManuellField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property Kostenart() As String + Get + Return Me.kostenartField + End Get + Set + Me.kostenartField = Value + End Set + End Property + + + Public Overridable Property Kosten() As String + Get + Return Me.kostenField + End Get + Set + Me.kostenField = Value + End Set + End Property + + + Public Overridable Property KostenWaehrung() As String + Get + Return Me.kostenWaehrungField + End Get + Set + Me.kostenWaehrungField = Value + End Set + End Property + + + Public Overridable Property WechselkursArt() As String + Get + Return Me.wechselkursArtField + End Get + Set + Me.wechselkursArtField = Value + End Set + End Property + + + Public Overridable Property Wechselkurs() As String + Get + Return Me.wechselkursField + End Get + Set + Me.wechselkursField = Value + End Set + End Property + + + Public Overridable Property WechselkursDatum() As Date + Get + Return Me.wechselkursDatumField + End Get + Set + Me.wechselkursDatumField = Value + End Set + End Property + + + Public Overridable Property WechselkursDatumSpecified() As Boolean + Get + Return Me.wechselkursDatumFieldSpecified + End Get + Set + Me.wechselkursDatumFieldSpecified = Value + End Set + End Property + + + Public Overridable Property Verteilungsart() As String + Get + Return Me.verteilungsartField + End Get + Set + Me.verteilungsartField = Value + End Set + End Property + + + Public Overridable Property Minimalbetrag() As String + Get + Return Me.minimalbetragField + End Get + Set + Me.minimalbetragField = Value + End Set + End Property + + + Public Overridable Property RabattProzent() As String + Get + Return Me.rabattProzentField + End Get + Set + Me.rabattProzentField = Value + End Set + End Property + + + Public Overridable Property SkontoProzent() As String + Get + Return Me.skontoProzentField + End Get + Set + Me.skontoProzentField = Value + End Set + End Property + + + Public Overridable Property Bemerkungen() As String + Get + Return Me.bemerkungenField + End Get + Set + Me.bemerkungenField = Value + End Set + End Property + + + Public Overridable Property VersicherungBerechnenKz() As String + Get + Return Me.versicherungBerechnenKzField + End Get + Set + Me.versicherungBerechnenKzField = Value + End Set + End Property + + + Public Overridable Property ProzentualerAnteil() As String + Get + Return Me.prozentualerAnteilField + End Get + Set + Me.prozentualerAnteilField = Value + End Set + End Property + + + Public Overridable Property ImaginaererProfit() As String + Get + Return Me.imaginaererProfitField + End Get + Set + Me.imaginaererProfitField = Value + End Set + End Property + + + Public Overridable Property AndereZahlung() As String + Get + Return Me.andereZahlungField + End Get + Set + Me.andereZahlungField = Value + End Set + End Property + + + Public Overridable Property SummeRechnungManuell() As String + Get + Return Me.summeRechnungManuellField + End Get + Set + Me.summeRechnungManuellField = Value + End Set + End Property + + + Public Overridable Property SummeFrachtManuell() As String + Get + Return Me.summeFrachtManuellField + End Get + Set + Me.summeFrachtManuellField = 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(DV1KostenverteilungAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current DV1KostenverteilungAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an DV1KostenverteilungAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output DV1KostenverteilungAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DV1KostenverteilungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DV1KostenverteilungAVUVTyp) + 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 DV1KostenverteilungAVUVTyp) 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 DV1KostenverteilungAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), DV1KostenverteilungAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current DV1KostenverteilungAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an DV1KostenverteilungAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output DV1KostenverteilungAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As DV1KostenverteilungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DV1KostenverteilungAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + 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 DV1KostenverteilungAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DV1KostenverteilungAVUVTyp) 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 DV1KostenverteilungAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As DV1KostenverteilungAVUVTyp + 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, encoding) + 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 DV1AngabenAVUVTyp + + Private dV1KzField 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 iATAAbflughafenField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + + Public Overridable Property DV1Kz() As String + Get + Return Me.dV1KzField + End Get + Set + Me.dV1KzField = Value + End Set + End Property + + + Public Overridable Property Vertretungsverhaeltnis() As String + Get + Return Me.vertretungsverhaeltnisField + End Get + Set + Me.vertretungsverhaeltnisField = Value + End Set + End Property + + + Public Overridable Property FruehereEntscheidungen() As String + Get + Return Me.fruehereEntscheidungenField + End Get + Set + Me.fruehereEntscheidungenField = Value + End Set + End Property + + + Public Overridable Property Verbundenheit() As String + Get + Return Me.verbundenheitField + End Get + Set + Me.verbundenheitField = Value + End Set + End Property + + + Public Overridable Property VerbundenheitEinzelheiten() As String + Get + Return Me.verbundenheitEinzelheitenField + End Get + Set + Me.verbundenheitEinzelheitenField = Value + End Set + End Property + + + Public Overridable Property EinschraenkungenKz() As String + Get + Return Me.einschraenkungenKzField + End Get + Set + Me.einschraenkungenKzField = Value + End Set + End Property + + + Public Overridable Property BedingungenLeistungenKz() As String + Get + Return Me.bedingungenLeistungenKzField + End Get + Set + Me.bedingungenLeistungenKzField = Value + End Set + End Property + + + Public Overridable Property BedingungenLeistungenArt() As String + Get + Return Me.bedingungenLeistungenArtField + End Get + Set + Me.bedingungenLeistungenArtField = Value + End Set + End Property + + + Public Overridable Property LizenzgebuehrenKz() As String + Get + Return Me.lizenzgebuehrenKzField + End Get + Set + Me.lizenzgebuehrenKzField = Value + End Set + End Property + + + Public Overridable Property LizenzgebuehrenUmstand() As String + Get + Return Me.lizenzgebuehrenUmstandField + End Get + Set + Me.lizenzgebuehrenUmstandField = Value + End Set + End Property + + + Public Overridable Property SpezielleVereinbarungKz() As String + Get + Return Me.spezielleVereinbarungKzField + End Get + Set + Me.spezielleVereinbarungKzField = Value + End Set + End Property + + + Public Overridable Property SpezielleVereinbarungUmstand() As String + Get + Return Me.spezielleVereinbarungUmstandField + End Get + Set + Me.spezielleVereinbarungUmstandField = Value + End Set + End Property + + + Public Overridable Property IATAAbflughafen() As String + Get + Return Me.iATAAbflughafenField + End Get + Set + Me.iATAAbflughafenField = 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(DV1AngabenAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current DV1AngabenAVUVTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an DV1AngabenAVUVTyp object + ''' + '''string workflow markup to deserialize + '''Output DV1AngabenAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DV1AngabenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DV1AngabenAVUVTyp) + 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 DV1AngabenAVUVTyp) 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 DV1AngabenAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), DV1AngabenAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current DV1AngabenAVUVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an DV1AngabenAVUVTyp object + ''' + '''string xml file to load and deserialize + '''Output DV1AngabenAVUVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As DV1AngabenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DV1AngabenAVUVTyp) + Try + obj = LoadFromFile(fileName, encoding) + 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 DV1AngabenAVUVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DV1AngabenAVUVTyp) 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 DV1AngabenAVUVTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As DV1AngabenAVUVTyp + 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, encoding) + 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + + Private adressierteZollstelleField As String + + Private anmelderIstEmpfaengerField As String + + Private vertretungsverhaeltnisCodeField As String + + Private vorsteuerabzugField As String + + Private nameAnmeldenderBearbeiterField As String + + Private telefonnummerAnmeldenderBearbeiterField As String + + Private stellungAnmeldenderBearbeiterField As String + + Private emailAdresseAnmeldenderBearbeiterField As String + + Private fiskalvertretungKzField As String + + Private zusammenfassendeMeldungKzStdKtoField As String + + Private zusammenfassendeMeldungMelderktoField As String + + Private intrastatKzStdKtoField As String + + Private intrastatMelderktoField As String + + Private ausstellungsortField As String + + Private zollrechtlicherStatusField As String + + Private gesamtRohMasseField As String + + Private verfahrenBeantragtCodeField As String + + Private verkehrszweigInlandField As String + + Private verkehrszweigGrenzeField As String + + Private versendungslandCodeField As String + + Private bestimmungsbundeslandField As String + + Private bestimmungslandField As String + + Private kennzeichenNameBefoerderungsmittelAnkunftField As String + + Private befoerderungsmittelGrenzeStaatszugehoerigkeitCodeField As String + + Private befoerderungsmittelGrenzeArtField As String + + Private befoerderungsmittelGrenzeField As String + + Private lieferbedingungCodeField As String + + Private lieferbedingungTextField As String + + Private lieferbedingungSchluesselField As String + + Private lieferbedingungOrtField As String + + Private vorpapierArtCodeField As String + + Private vorpapierNrField As String + + Private artGeschaeftCodeField As String + + Private statistikStatusField As String + + Private warenortField As String + + Private rechnungspreisField As String + + Private rechnungswaehrungField As String + + Private dV1AngabenField As DV1AngabenAVUVTyp + + Private dV1KostenverteilungField As List(Of DV1KostenverteilungAVUVTyp) + + Private unterlageField As List(Of UnterlageVzKopfAVUVTyp) + + Private zusatzAngabenAnmeldungField As String + + Private kzAutoBestaetigungField As String + + Private anschreibungDatumField As Date + + Private anschreibungDatumFieldSpecified As Boolean + + Private vereinfachterBewilligungsantragKzAVField As String + + Private eingangszollstelleField As String + + Private zahlungsartField As String + + Private aufschubField As List(Of AufschubAVUVTyp) + + Private sumABeendigungsAnteilField As List(Of SumABeendigungsAnteilAVUVTyp) + + Private containerNrField As List(Of String) + + Private beendigungsAnteilArtCodeField As String + + Private bewilligungsIDZLAVUVField As String + + Private bezugsnummerBEAnteilZLField As String + + Private bEAnteilZLAVUVField As List(Of BEAnteilZLAVUVPositionAVUVTyp) + + Private kzVereinfBewillAntrgBEAnteilAVField As String + + Private deutschesUeHZAbeiAVField As String + + Private erledigungsfristAVField As String + + Private bemEinfuhrabgKzField As String + + Private zusatzAngabenAVField As String + + Private einzelheitenVeredelungField As String + + Private aVBuchhaltVeredelungField As List(Of AVBuchhaltVeredelungTyp) + + Private aVErledZollstelleField As List(Of String) + + Private zusaetzlicheSteuerlicheVerweiseField As List(Of ZusaetzlicheSteuerlicheVerweiseTyp) + + Private adressenField As List(Of AdressenVzImportAVUVTyp) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.adressenField = New List(Of AdressenVzImportAVUVTyp)() + Me.zusaetzlicheSteuerlicheVerweiseField = New List(Of ZusaetzlicheSteuerlicheVerweiseTyp)() + Me.aVErledZollstelleField = New List(Of String)() + Me.aVBuchhaltVeredelungField = New List(Of AVBuchhaltVeredelungTyp)() + Me.bEAnteilZLAVUVField = New List(Of BEAnteilZLAVUVPositionAVUVTyp)() + Me.containerNrField = New List(Of String)() + Me.sumABeendigungsAnteilField = New List(Of SumABeendigungsAnteilAVUVTyp)() + Me.aufschubField = New List(Of AufschubAVUVTyp)() + Me.unterlageField = New List(Of UnterlageVzKopfAVUVTyp)() + Me.dV1KostenverteilungField = New List(Of DV1KostenverteilungAVUVTyp)() + Me.dV1AngabenField = New DV1AngabenAVUVTyp() + End Sub + + + Public Overridable Property AdressierteZollstelle() As String + Get + Return Me.adressierteZollstelleField + End Get + Set + Me.adressierteZollstelleField = Value + End Set + End Property + + + Public Overridable Property AnmelderIstEmpfaenger() As String + Get + Return Me.anmelderIstEmpfaengerField + End Get + Set + Me.anmelderIstEmpfaengerField = Value + End Set + End Property + + + Public Overridable Property VertretungsverhaeltnisCode() As String + Get + Return Me.vertretungsverhaeltnisCodeField + End Get + Set + Me.vertretungsverhaeltnisCodeField = Value + End Set + End Property + + + Public Overridable Property Vorsteuerabzug() As String + Get + Return Me.vorsteuerabzugField + End Get + Set + Me.vorsteuerabzugField = Value + End Set + End Property + + + Public Overridable Property NameAnmeldenderBearbeiter() As String + Get + Return Me.nameAnmeldenderBearbeiterField + End Get + Set + Me.nameAnmeldenderBearbeiterField = Value + End Set + End Property + + + Public Overridable Property TelefonnummerAnmeldenderBearbeiter() As String + Get + Return Me.telefonnummerAnmeldenderBearbeiterField + End Get + Set + Me.telefonnummerAnmeldenderBearbeiterField = Value + End Set + End Property + + + Public Overridable Property StellungAnmeldenderBearbeiter() As String + Get + Return Me.stellungAnmeldenderBearbeiterField + End Get + Set + Me.stellungAnmeldenderBearbeiterField = Value + End Set + End Property + + + Public Overridable Property EmailAdresseAnmeldenderBearbeiter() As String + Get + Return Me.emailAdresseAnmeldenderBearbeiterField + End Get + Set + Me.emailAdresseAnmeldenderBearbeiterField = Value + End Set + End Property + + + Public Overridable Property FiskalvertretungKz() As String + Get + Return Me.fiskalvertretungKzField + End Get + Set + Me.fiskalvertretungKzField = Value + End Set + End Property + + + Public Overridable Property ZusammenfassendeMeldungKzStdKto() As String + Get + Return Me.zusammenfassendeMeldungKzStdKtoField + End Get + Set + Me.zusammenfassendeMeldungKzStdKtoField = Value + End Set + End Property + + + Public Overridable Property ZusammenfassendeMeldungMelderkto() As String + Get + Return Me.zusammenfassendeMeldungMelderktoField + End Get + Set + Me.zusammenfassendeMeldungMelderktoField = Value + End Set + End Property + + + Public Overridable Property IntrastatKzStdKto() As String + Get + Return Me.intrastatKzStdKtoField + End Get + Set + Me.intrastatKzStdKtoField = Value + End Set + End Property + + + Public Overridable Property IntrastatMelderkto() As String + Get + Return Me.intrastatMelderktoField + End Get + Set + Me.intrastatMelderktoField = Value + End Set + End Property + + + Public Overridable Property Ausstellungsort() As String + Get + Return Me.ausstellungsortField + End Get + Set + Me.ausstellungsortField = Value + End Set + End Property + + + Public Overridable Property ZollrechtlicherStatus() As String + Get + Return Me.zollrechtlicherStatusField + End Get + Set + Me.zollrechtlicherStatusField = Value + End Set + End Property + + + Public Overridable Property GesamtRohMasse() As String + Get + Return Me.gesamtRohMasseField + End Get + Set + Me.gesamtRohMasseField = Value + End Set + End Property + + + Public Overridable Property VerfahrenBeantragtCode() As String + Get + Return Me.verfahrenBeantragtCodeField + End Get + Set + Me.verfahrenBeantragtCodeField = Value + End Set + End Property + + + Public Overridable Property VerkehrszweigInland() As String + Get + Return Me.verkehrszweigInlandField + End Get + Set + Me.verkehrszweigInlandField = Value + End Set + End Property + + + Public Overridable Property VerkehrszweigGrenze() As String + Get + Return Me.verkehrszweigGrenzeField + End Get + Set + Me.verkehrszweigGrenzeField = Value + End Set + End Property + + + Public Overridable Property VersendungslandCode() As String + Get + Return Me.versendungslandCodeField + End Get + Set + Me.versendungslandCodeField = Value + End Set + End Property + + + Public Overridable Property Bestimmungsbundesland() As String + Get + Return Me.bestimmungsbundeslandField + End Get + Set + Me.bestimmungsbundeslandField = Value + End Set + End Property + + + Public Overridable Property Bestimmungsland() As String + Get + Return Me.bestimmungslandField + End Get + Set + Me.bestimmungslandField = Value + End Set + End Property + + + Public Overridable Property KennzeichenNameBefoerderungsmittelAnkunft() As String + Get + Return Me.kennzeichenNameBefoerderungsmittelAnkunftField + End Get + Set + Me.kennzeichenNameBefoerderungsmittelAnkunftField = Value + End Set + End Property + + + Public Overridable Property BefoerderungsmittelGrenzeStaatszugehoerigkeitCode() As String + Get + Return Me.befoerderungsmittelGrenzeStaatszugehoerigkeitCodeField + End Get + Set + Me.befoerderungsmittelGrenzeStaatszugehoerigkeitCodeField = Value + End Set + End Property + + + Public Overridable Property BefoerderungsmittelGrenzeArt() As String + Get + Return Me.befoerderungsmittelGrenzeArtField + End Get + Set + Me.befoerderungsmittelGrenzeArtField = Value + End Set + End Property + + + Public Overridable Property BefoerderungsmittelGrenze() As String + Get + Return Me.befoerderungsmittelGrenzeField + End Get + Set + Me.befoerderungsmittelGrenzeField = Value + End Set + End Property + + + Public Overridable Property LieferbedingungCode() As String + Get + Return Me.lieferbedingungCodeField + End Get + Set + Me.lieferbedingungCodeField = Value + End Set + End Property + + + Public Overridable Property LieferbedingungText() As String + Get + Return Me.lieferbedingungTextField + End Get + Set + Me.lieferbedingungTextField = Value + End Set + End Property + + + Public Overridable Property LieferbedingungSchluessel() As String + Get + Return Me.lieferbedingungSchluesselField + End Get + Set + Me.lieferbedingungSchluesselField = Value + End Set + End Property + + + Public Overridable Property LieferbedingungOrt() As String + Get + Return Me.lieferbedingungOrtField + End Get + Set + Me.lieferbedingungOrtField = Value + End Set + End Property + + + Public Overridable Property VorpapierArtCode() As String + Get + Return Me.vorpapierArtCodeField + End Get + Set + Me.vorpapierArtCodeField = Value + End Set + End Property + + + Public Overridable Property VorpapierNr() As String + Get + Return Me.vorpapierNrField + End Get + Set + Me.vorpapierNrField = Value + End Set + End Property + + + Public Overridable Property ArtGeschaeftCode() As String + Get + Return Me.artGeschaeftCodeField + End Get + Set + Me.artGeschaeftCodeField = Value + End Set + End Property + + + Public Overridable Property StatistikStatus() As String + Get + Return Me.statistikStatusField + End Get + Set + Me.statistikStatusField = Value + End Set + End Property + + + Public Overridable Property Warenort() As String + Get + Return Me.warenortField + End Get + Set + Me.warenortField = Value + End Set + End Property + + + Public Overridable Property Rechnungspreis() As String + Get + Return Me.rechnungspreisField + End Get + Set + Me.rechnungspreisField = Value + End Set + End Property + + + Public Overridable Property Rechnungswaehrung() As String + Get + Return Me.rechnungswaehrungField + End Get + Set + Me.rechnungswaehrungField = Value + End Set + End Property + + + Public Overridable Property DV1Angaben() As DV1AngabenAVUVTyp + Get + Return Me.dV1AngabenField + End Get + Set + Me.dV1AngabenField = Value + End Set + End Property + + + Public Overridable Property DV1Kostenverteilung() As List(Of DV1KostenverteilungAVUVTyp) + Get + Return Me.dV1KostenverteilungField + End Get + Set + Me.dV1KostenverteilungField = Value + End Set + End Property + + + Public Overridable Property Unterlage() As List(Of UnterlageVzKopfAVUVTyp) + Get + Return Me.unterlageField + End Get + Set + Me.unterlageField = Value + End Set + End Property + + + Public Overridable Property ZusatzAngabenAnmeldung() As String + Get + Return Me.zusatzAngabenAnmeldungField + End Get + Set + Me.zusatzAngabenAnmeldungField = Value + End Set + End Property + + + Public Overridable Property KzAutoBestaetigung() As String + Get + Return Me.kzAutoBestaetigungField + End Get + Set + Me.kzAutoBestaetigungField = Value + End Set + End Property + + + Public Overridable Property AnschreibungDatum() As Date + Get + Return Me.anschreibungDatumField + End Get + Set + Me.anschreibungDatumField = Value + End Set + End Property + + + Public Overridable Property AnschreibungDatumSpecified() As Boolean + Get + Return Me.anschreibungDatumFieldSpecified + End Get + Set + Me.anschreibungDatumFieldSpecified = Value + End Set + End Property + + + Public Overridable Property VereinfachterBewilligungsantragKzAV() As String + Get + Return Me.vereinfachterBewilligungsantragKzAVField + End Get + Set + Me.vereinfachterBewilligungsantragKzAVField = Value + End Set + End Property + + + Public Overridable Property Eingangszollstelle() As String + Get + Return Me.eingangszollstelleField + End Get + Set + Me.eingangszollstelleField = Value + End Set + End Property + + + Public Overridable Property Zahlungsart() As String + Get + Return Me.zahlungsartField + End Get + Set + Me.zahlungsartField = Value + End Set + End Property + + + Public Overridable Property Aufschub() As List(Of AufschubAVUVTyp) + Get + Return Me.aufschubField + End Get + Set + Me.aufschubField = Value + End Set + End Property + + + Public Overridable Property SumABeendigungsAnteil() As List(Of SumABeendigungsAnteilAVUVTyp) + Get + Return Me.sumABeendigungsAnteilField + End Get + Set + Me.sumABeendigungsAnteilField = Value + End Set + End Property + + + Public Overridable Property ContainerNr() As List(Of String) + Get + Return Me.containerNrField + End Get + Set + Me.containerNrField = Value + End Set + End Property + + + Public Overridable Property BeendigungsAnteilArtCode() As String + Get + Return Me.beendigungsAnteilArtCodeField + End Get + Set + Me.beendigungsAnteilArtCodeField = Value + End Set + End Property + + + Public Overridable Property BewilligungsIDZLAVUV() As String + Get + Return Me.bewilligungsIDZLAVUVField + End Get + Set + Me.bewilligungsIDZLAVUVField = Value + End Set + End Property + + + Public Overridable Property BezugsnummerBEAnteilZL() As String + Get + Return Me.bezugsnummerBEAnteilZLField + End Get + Set + Me.bezugsnummerBEAnteilZLField = Value + End Set + End Property + + + Public Overridable Property BEAnteilZLAVUV() As List(Of BEAnteilZLAVUVPositionAVUVTyp) + Get + Return Me.bEAnteilZLAVUVField + End Get + Set + Me.bEAnteilZLAVUVField = Value + End Set + End Property + + + Public Overridable Property KzVereinfBewillAntrgBEAnteilAV() As String + Get + Return Me.kzVereinfBewillAntrgBEAnteilAVField + End Get + Set + Me.kzVereinfBewillAntrgBEAnteilAVField = Value + End Set + End Property + + + Public Overridable Property DeutschesUeHZAbeiAV() As String + Get + Return Me.deutschesUeHZAbeiAVField + End Get + Set + Me.deutschesUeHZAbeiAVField = Value + End Set + End Property + + + Public Overridable Property ErledigungsfristAV() As String + Get + Return Me.erledigungsfristAVField + End Get + Set + Me.erledigungsfristAVField = Value + End Set + End Property + + + Public Overridable Property BemEinfuhrabgKz() As String + Get + Return Me.bemEinfuhrabgKzField + End Get + Set + Me.bemEinfuhrabgKzField = Value + End Set + End Property + + + Public Overridable Property ZusatzAngabenAV() As String + Get + Return Me.zusatzAngabenAVField + End Get + Set + Me.zusatzAngabenAVField = Value + End Set + End Property + + + Public Overridable Property EinzelheitenVeredelung() As String + Get + Return Me.einzelheitenVeredelungField + End Get + Set + Me.einzelheitenVeredelungField = Value + End Set + End Property + + + Public Overridable Property AVBuchhaltVeredelung() As List(Of AVBuchhaltVeredelungTyp) + Get + Return Me.aVBuchhaltVeredelungField + End Get + Set + Me.aVBuchhaltVeredelungField = Value + End Set + End Property + + + Public Overridable Property AVErledZollstelle() As List(Of String) + Get + Return Me.aVErledZollstelleField + End Get + Set + Me.aVErledZollstelleField = Value + End Set + End Property + + + Public Overridable Property ZusaetzlicheSteuerlicheVerweise() As List(Of ZusaetzlicheSteuerlicheVerweiseTyp) + Get + Return Me.zusaetzlicheSteuerlicheVerweiseField + End Get + Set + Me.zusaetzlicheSteuerlicheVerweiseField = Value + End Set + End Property + + + Public Overridable Property Adressen() As List(Of AdressenVzImportAVUVTyp) + Get + Return Me.adressenField + End Get + Set + Me.adressenField = 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(KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + '''string workflow markup to deserialize + '''Output KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) + 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + '''string xml file to load and deserialize + '''Output KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) + Try + obj = LoadFromFile(fileName, encoding) + 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + 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, encoding) + 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 Overridable Property IOPartner() As String + Get + Return Me.iOPartnerField + End Get + Set + Me.iOPartnerField = Value + End Set + End Property + + + Public Overridable Property IODivision1() As String + Get + Return Me.iODivision1Field + End Get + Set + Me.iODivision1Field = Value + End Set + End Property + + + Public Overridable Property IODivision2() As String + Get + Return Me.iODivision2Field + End Get + Set + Me.iODivision2Field = Value + End Set + End Property + + + Public Overridable Property IODivision3() As String + Get + Return Me.iODivision3Field + End Get + Set + Me.iODivision3Field = Value + End Set + End Property + + + Public Overridable Property IOReferenz() As String + Get + Return Me.iOReferenzField + End Get + Set + Me.iOReferenzField = Value + End Set + End Property + + + Public Overridable Property IODatumZeit() As Date + Get + Return Me.iODatumZeitField + End Get + Set + Me.iODatumZeitField = Value + End Set + End Property + + + Public Overridable 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" + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName, encoding) + 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, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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, encoding) + 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 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 Overridable 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" + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document + ''' + '''string XML value + Public Overridable Overloads Function Serialize(ByVal encoding As System.Text.Encoding) As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, 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 + + Public Overridable Overloads Function Serialize() As String + Return Serialize(Encoding.UTF8) + End Function + + ''' + '''Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName, encoding) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, Encoding.UTF8, exception) + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, Encoding.UTF8) + End Sub + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, Encoding.UTF8) + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + '''Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = LoadFromFile(fileName, encoding) + 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, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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, encoding) + 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 diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2022.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2022.xsd new file mode 100644 index 0000000..e4acc6a --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2022.xsd @@ -0,0 +1,674 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/_old_FreierVerkehrAktVeredelUmwandlung_004.Designer.vb similarity index 99% rename from DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb rename to DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/_old_FreierVerkehrAktVeredelUmwandlung_004.Designer.vb index 456a80e..ed22319 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/_old_FreierVerkehrAktVeredelUmwandlung_004.Designer.vb @@ -15,7 +15,7 @@ Imports System.Text Imports System.Xml Imports System.Collections.Generic -Namespace FreierVerkehrAktVeredelUmwandlung_004 +Namespace _old_FreierVerkehrAktVeredelUmwandlung_004 +'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) +'' FCFCDFListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' +'' ------------------------------------------------------------------------------ +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 FCFCDF + + Partial Public Class FCFCDF + + Private metaDataField As FCFCDFMetaData + + Private headerField As FCFCDFHeader + + Private declarantField As FCFCDFDeclarant + + Private representativeField As FCFCDFRepresentative + + Private principalField As FCFCDFPrincipal + + Private contactPersonField As FCFCDFContactPerson + + Private dutyDefermentApprovalField As List(Of FCFCDFDutyDefermentApproval) + + Private borderTransportMeansField As FCFCDFBorderTransportMeans + + Private arrivalTransportMeansField As FCFCDFArrivalTransportMeans + + Private previousAdministrativeReferencesField As FCFCDFPreviousAdministrativeReferences + + Private summaryDeclarationField As FCFCDFSummaryDeclaration + + Private customsWarehouseField As FCFCDFCustomsWarehouse + + Private inwardProcessingField As FCFCDFInwardProcessing + + Private bodyField As FCFCDFBody + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.bodyField = New FCFCDFBody() + Me.inwardProcessingField = New FCFCDFInwardProcessing() + Me.customsWarehouseField = New FCFCDFCustomsWarehouse() + Me.summaryDeclarationField = New FCFCDFSummaryDeclaration() + Me.previousAdministrativeReferencesField = New FCFCDFPreviousAdministrativeReferences() + Me.arrivalTransportMeansField = New FCFCDFArrivalTransportMeans() + Me.borderTransportMeansField = New FCFCDFBorderTransportMeans() + Me.dutyDefermentApprovalField = New List(Of FCFCDFDutyDefermentApproval)() + Me.contactPersonField = New FCFCDFContactPerson() + Me.principalField = New FCFCDFPrincipal() + Me.representativeField = New FCFCDFRepresentative() + Me.declarantField = New FCFCDFDeclarant() + Me.headerField = New FCFCDFHeader() + Me.metaDataField = New FCFCDFMetaData() + End Sub + + Public Property MetaData() As FCFCDFMetaData + Get + Return Me.metaDataField + End Get + Set + Me.metaDataField = Value + End Set + End Property + + Public Property Header() As FCFCDFHeader + Get + Return Me.headerField + End Get + Set + Me.headerField = Value + End Set + End Property + + Public Property Declarant() As FCFCDFDeclarant + Get + Return Me.declarantField + End Get + Set + Me.declarantField = Value + End Set + End Property + + Public Property Representative() As FCFCDFRepresentative + Get + Return Me.representativeField + End Get + Set + Me.representativeField = Value + End Set + End Property + + Public Property Principal() As FCFCDFPrincipal + Get + Return Me.principalField + End Get + Set + Me.principalField = Value + End Set + End Property + + Public Property ContactPerson() As FCFCDFContactPerson + Get + Return Me.contactPersonField + End Get + Set + Me.contactPersonField = Value + End Set + End Property + + Public Property DutyDefermentApproval() As List(Of FCFCDFDutyDefermentApproval) + Get + Return Me.dutyDefermentApprovalField + End Get + Set + Me.dutyDefermentApprovalField = Value + End Set + End Property + + Public Property BorderTransportMeans() As FCFCDFBorderTransportMeans + Get + Return Me.borderTransportMeansField + End Get + Set + Me.borderTransportMeansField = Value + End Set + End Property + + Public Property ArrivalTransportMeans() As FCFCDFArrivalTransportMeans + Get + Return Me.arrivalTransportMeansField + End Get + Set + Me.arrivalTransportMeansField = Value + End Set + End Property + + Public Property PreviousAdministrativeReferences() As FCFCDFPreviousAdministrativeReferences + Get + Return Me.previousAdministrativeReferencesField + End Get + Set + Me.previousAdministrativeReferencesField = Value + End Set + End Property + + Public Property SummaryDeclaration() As FCFCDFSummaryDeclaration + Get + Return Me.summaryDeclarationField + End Get + Set + Me.summaryDeclarationField = Value + End Set + End Property + + Public Property CustomsWarehouse() As FCFCDFCustomsWarehouse + Get + Return Me.customsWarehouseField + End Get + Set + Me.customsWarehouseField = Value + End Set + End Property + + Public Property InwardProcessing() As FCFCDFInwardProcessing + Get + Return Me.inwardProcessingField + End Get + Set + Me.inwardProcessingField = Value + End Set + End Property + + Public Property Body() As FCFCDFBody + Get + Return Me.bodyField + End Get + Set + Me.bodyField = 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(FCFCDF)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDF object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDF object + ''' + '''string workflow markup to deserialize + '''Output FCFCDF object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDF, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDF) + 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 FCFCDF) 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 FCFCDF + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDF) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDF object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDF object + ''' + '''string xml file to load and deserialize + '''Output FCFCDF object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDF, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDF) + 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 FCFCDF) 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 FCFCDF + 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 FCFCDFMetaData + + Private preparationField As FCFCDFMetaDataPreparation + + Private interchangeControlReferenceField As String + + Private messageReferenceNumberField As String + + Private messageIdentifierField As String + + Private messageGroupField As FCFCDFMetaDataMessageGroup + + Private testIndicatorField As FCFCDFMetaDataTestIndicator + + Private testIndicatorFieldSpecified As Boolean + + Private messageTypeField As FCFCDFMetaDataMessageType + + Private interchangeSenderField As FCFCDFMetaDataInterchangeSender + + Private interchangeRecipientField As FCFCDFMetaDataInterchangeRecipient + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.interchangeRecipientField = New FCFCDFMetaDataInterchangeRecipient() + Me.interchangeSenderField = New FCFCDFMetaDataInterchangeSender() + Me.preparationField = New FCFCDFMetaDataPreparation() + End Sub + + Public Property Preparation() As FCFCDFMetaDataPreparation + Get + Return Me.preparationField + End Get + Set + Me.preparationField = Value + End Set + End Property + + Public Property InterchangeControlReference() As String + Get + Return Me.interchangeControlReferenceField + End Get + Set + Me.interchangeControlReferenceField = Value + End Set + End Property + + Public Property MessageReferenceNumber() As String + Get + Return Me.messageReferenceNumberField + End Get + Set + Me.messageReferenceNumberField = Value + End Set + End Property + + Public Property MessageIdentifier() As String + Get + Return Me.messageIdentifierField + End Get + Set + Me.messageIdentifierField = Value + End Set + End Property + + Public Property MessageGroup() As FCFCDFMetaDataMessageGroup + Get + Return Me.messageGroupField + End Get + Set + Me.messageGroupField = Value + End Set + End Property + + Public Property TestIndicator() As FCFCDFMetaDataTestIndicator + Get + Return Me.testIndicatorField + End Get + Set + Me.testIndicatorField = Value + End Set + End Property + + + Public Property TestIndicatorSpecified() As Boolean + Get + Return Me.testIndicatorFieldSpecified + End Get + Set + Me.testIndicatorFieldSpecified = Value + End Set + End Property + + Public Property MessageType() As FCFCDFMetaDataMessageType + Get + Return Me.messageTypeField + End Get + Set + Me.messageTypeField = Value + End Set + End Property + + Public Property InterchangeSender() As FCFCDFMetaDataInterchangeSender + Get + Return Me.interchangeSenderField + End Get + Set + Me.interchangeSenderField = Value + End Set + End Property + + Public Property InterchangeRecipient() As FCFCDFMetaDataInterchangeRecipient + Get + Return Me.interchangeRecipientField + End Get + Set + Me.interchangeRecipientField = 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(FCFCDFMetaData)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFMetaData object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFMetaData object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFMetaData object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFMetaData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFMetaData) + 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 FCFCDFMetaData) 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 FCFCDFMetaData + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFMetaData) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFMetaData object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFMetaData object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFMetaData object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFMetaData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFMetaData) + 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 FCFCDFMetaData) 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 FCFCDFMetaData + 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 FCFCDFMetaDataPreparation + + Private dateField As Date + + Private timeField As Date + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property [Date]() As Date + Get + Return Me.dateField + End Get + Set + Me.dateField = Value + End Set + End Property + + Public Property Time() As Date + Get + Return Me.timeField + End Get + Set + Me.timeField = 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(FCFCDFMetaDataPreparation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFMetaDataPreparation object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFMetaDataPreparation object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFMetaDataPreparation object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFMetaDataPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFMetaDataPreparation) + 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 FCFCDFMetaDataPreparation) 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 FCFCDFMetaDataPreparation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFMetaDataPreparation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFMetaDataPreparation object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFMetaDataPreparation object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFMetaDataPreparation object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFMetaDataPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFMetaDataPreparation) + 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 FCFCDFMetaDataPreparation) 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 FCFCDFMetaDataPreparation + 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 + + Public Enum FCFCDFMetaDataMessageGroup + + ''' + ZBE + + ''' + ZBV + End Enum + + Public Enum FCFCDFMetaDataTestIndicator + + ''' + + Item1 + End Enum + + Public Enum FCFCDFMetaDataMessageType + + ''' + FCFCDF + End Enum + + Partial Public Class FCFCDFMetaDataInterchangeSender + + Private identificationField As FCFCDFMetaDataInterchangeSenderIdentification + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.identificationField = New FCFCDFMetaDataInterchangeSenderIdentification() + End Sub + + Public Property Identification() As FCFCDFMetaDataInterchangeSenderIdentification + Get + Return Me.identificationField + End Get + Set + Me.identificationField = 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(FCFCDFMetaDataInterchangeSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFMetaDataInterchangeSender object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFMetaDataInterchangeSender object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFMetaDataInterchangeSender object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFMetaDataInterchangeSender) + 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 FCFCDFMetaDataInterchangeSender) 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 FCFCDFMetaDataInterchangeSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFMetaDataInterchangeSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFMetaDataInterchangeSender object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFMetaDataInterchangeSender object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFMetaDataInterchangeSender object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFMetaDataInterchangeSender) + 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 FCFCDFMetaDataInterchangeSender) 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 FCFCDFMetaDataInterchangeSender + 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 FCFCDFMetaDataInterchangeSenderIdentification + + Private referenceNumberField As String + + Private subsidiaryNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = Value + End Set + End Property + + Public Property SubsidiaryNumber() As String + Get + Return Me.subsidiaryNumberField + End Get + Set + Me.subsidiaryNumberField = 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(FCFCDFMetaDataInterchangeSenderIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFMetaDataInterchangeSenderIdentification object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFMetaDataInterchangeSenderIdentification object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFMetaDataInterchangeSenderIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFMetaDataInterchangeSenderIdentification) + 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 FCFCDFMetaDataInterchangeSenderIdentification) 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 FCFCDFMetaDataInterchangeSenderIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFMetaDataInterchangeSenderIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFMetaDataInterchangeSenderIdentification object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFMetaDataInterchangeSenderIdentification object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFMetaDataInterchangeSenderIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFMetaDataInterchangeSenderIdentification) + 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 FCFCDFMetaDataInterchangeSenderIdentification) 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 FCFCDFMetaDataInterchangeSenderIdentification + 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 FCFCDFMetaDataInterchangeRecipient + + Private identificationField As FCFCDFMetaDataInterchangeRecipientIdentification + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.identificationField = New FCFCDFMetaDataInterchangeRecipientIdentification() + End Sub + + Public Property Identification() As FCFCDFMetaDataInterchangeRecipientIdentification + Get + Return Me.identificationField + End Get + Set + Me.identificationField = 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(FCFCDFMetaDataInterchangeRecipient)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFMetaDataInterchangeRecipient object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFMetaDataInterchangeRecipient object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFMetaDataInterchangeRecipient object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFMetaDataInterchangeRecipient) + 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 FCFCDFMetaDataInterchangeRecipient) 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 FCFCDFMetaDataInterchangeRecipient + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFMetaDataInterchangeRecipient) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFMetaDataInterchangeRecipient object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFMetaDataInterchangeRecipient object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFMetaDataInterchangeRecipient object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFMetaDataInterchangeRecipient) + 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 FCFCDFMetaDataInterchangeRecipient) 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 FCFCDFMetaDataInterchangeRecipient + 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 FCFCDFMetaDataInterchangeRecipientIdentification + + Private referenceNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = 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(FCFCDFMetaDataInterchangeRecipientIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFMetaDataInterchangeRecipientIdentification object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFMetaDataInterchangeRecipientIdentification object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFMetaDataInterchangeRecipientIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFMetaDataInterchangeRecipientIdentification) + 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 FCFCDFMetaDataInterchangeRecipientIdentification) 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 FCFCDFMetaDataInterchangeRecipientIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFMetaDataInterchangeRecipientIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFMetaDataInterchangeRecipientIdentification object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFMetaDataInterchangeRecipientIdentification object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFMetaDataInterchangeRecipientIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFMetaDataInterchangeRecipientIdentification) + 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 FCFCDFMetaDataInterchangeRecipientIdentification) 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 FCFCDFMetaDataInterchangeRecipientIdentification + 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 FCFCDFHeader + + Private messageVersionField As String + + Private messageCreationDateField As Date + + Private lRNField As String + + Private declarationField As FCFCDFHeaderDeclaration + + Private prematureInputFlagField As String + + Private goodsItemQuantityField As String + + Private customsGoodsStatusField As String + + Private declarantIsConsigneeFlagField As String + + Private customsAuthorisationField As FCFCDFHeaderCustomsAuthorisation + + Private inputTaxDeductionFlagField As String + + Private goodsLocationField As String + + Private departureCountryField As String + + Private paymentMethodField As FCFCDFHeaderPaymentMethod + + Private currencyCodeField As FCFCDFHeaderCurrencyCode + + Private additionalInformationField As String + + Private taxOfficeField As String + + Private representativeRelationshipFlagField As String + + Private declarationPlaceField As String + + Private authorisationNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.customsAuthorisationField = New FCFCDFHeaderCustomsAuthorisation() + Me.declarationField = New FCFCDFHeaderDeclaration() + End Sub + + Public Property MessageVersion() As String + Get + Return Me.messageVersionField + End Get + Set + Me.messageVersionField = Value + End Set + End Property + + Public Property MessageCreationDate() As Date + Get + Return Me.messageCreationDateField + End Get + Set + Me.messageCreationDateField = Value + End Set + End Property + + Public Property LRN() As String + Get + Return Me.lRNField + End Get + Set + Me.lRNField = Value + End Set + End Property + + Public Property Declaration() As FCFCDFHeaderDeclaration + Get + Return Me.declarationField + End Get + Set + Me.declarationField = Value + End Set + End Property + + Public Property PrematureInputFlag() As String + Get + Return Me.prematureInputFlagField + End Get + Set + Me.prematureInputFlagField = Value + End Set + End Property + + Public Property GoodsItemQuantity() As String + Get + Return Me.goodsItemQuantityField + End Get + Set + Me.goodsItemQuantityField = Value + End Set + End Property + + Public Property CustomsGoodsStatus() As String + Get + Return Me.customsGoodsStatusField + End Get + Set + Me.customsGoodsStatusField = Value + End Set + End Property + + Public Property DeclarantIsConsigneeFlag() As String + Get + Return Me.declarantIsConsigneeFlagField + End Get + Set + Me.declarantIsConsigneeFlagField = Value + End Set + End Property + + Public Property CustomsAuthorisation() As FCFCDFHeaderCustomsAuthorisation + Get + Return Me.customsAuthorisationField + End Get + Set + Me.customsAuthorisationField = Value + End Set + End Property + + Public Property InputTaxDeductionFlag() As String + Get + Return Me.inputTaxDeductionFlagField + End Get + Set + Me.inputTaxDeductionFlagField = Value + End Set + End Property + + Public Property GoodsLocation() As String + Get + Return Me.goodsLocationField + End Get + Set + Me.goodsLocationField = Value + End Set + End Property + + Public Property DepartureCountry() As String + Get + Return Me.departureCountryField + End Get + Set + Me.departureCountryField = Value + End Set + End Property + + Public Property PaymentMethod() As FCFCDFHeaderPaymentMethod + Get + Return Me.paymentMethodField + End Get + Set + Me.paymentMethodField = Value + End Set + End Property + + Public Property CurrencyCode() As FCFCDFHeaderCurrencyCode + Get + Return Me.currencyCodeField + End Get + Set + Me.currencyCodeField = Value + End Set + End Property + + Public Property AdditionalInformation() As String + Get + Return Me.additionalInformationField + End Get + Set + Me.additionalInformationField = Value + End Set + End Property + + Public Property TaxOffice() As String + Get + Return Me.taxOfficeField + End Get + Set + Me.taxOfficeField = Value + End Set + End Property + + Public Property RepresentativeRelationshipFlag() As String + Get + Return Me.representativeRelationshipFlagField + End Get + Set + Me.representativeRelationshipFlagField = Value + End Set + End Property + + Public Property DeclarationPlace() As String + Get + Return Me.declarationPlaceField + End Get + Set + Me.declarationPlaceField = Value + End Set + End Property + + Public Property AuthorisationNumber() As String + Get + Return Me.authorisationNumberField + End Get + Set + Me.authorisationNumberField = 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(FCFCDFHeader)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFHeader object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFHeader object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFHeader object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFHeader) + 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 FCFCDFHeader) 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 FCFCDFHeader + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFHeader) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFHeader object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFHeader object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFHeader object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFHeader) + 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 FCFCDFHeader) 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 FCFCDFHeader + 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 FCFCDFHeaderDeclaration + + Private kindField As FCFCDFHeaderDeclarationKind + + Private typeField As FCFCDFHeaderDeclarationType + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Kind() As FCFCDFHeaderDeclarationKind + Get + Return Me.kindField + End Get + Set + Me.kindField = Value + End Set + End Property + + Public Property Type() As FCFCDFHeaderDeclarationType + Get + Return Me.typeField + End Get + Set + Me.typeField = 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(FCFCDFHeaderDeclaration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFHeaderDeclaration object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFHeaderDeclaration object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFHeaderDeclaration object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFHeaderDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFHeaderDeclaration) + 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 FCFCDFHeaderDeclaration) 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 FCFCDFHeaderDeclaration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFHeaderDeclaration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFHeaderDeclaration object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFHeaderDeclaration object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFHeaderDeclaration object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFHeaderDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFHeaderDeclaration) + 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 FCFCDFHeaderDeclaration) 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 FCFCDFHeaderDeclaration + 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 + + Public Enum FCFCDFHeaderDeclarationKind + + ''' + A + + ''' + B + + ''' + D + + ''' + E + End Enum + + Public Enum FCFCDFHeaderDeclarationType + + ''' + EZA + End Enum + + Partial Public Class FCFCDFHeaderCustomsAuthorisation + + Private endUseField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property EndUse() As String + Get + Return Me.endUseField + End Get + Set + Me.endUseField = 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(FCFCDFHeaderCustomsAuthorisation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFHeaderCustomsAuthorisation object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFHeaderCustomsAuthorisation object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFHeaderCustomsAuthorisation object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFHeaderCustomsAuthorisation) + 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 FCFCDFHeaderCustomsAuthorisation) 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 FCFCDFHeaderCustomsAuthorisation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFHeaderCustomsAuthorisation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFHeaderCustomsAuthorisation object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFHeaderCustomsAuthorisation object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFHeaderCustomsAuthorisation object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFHeaderCustomsAuthorisation) + 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 FCFCDFHeaderCustomsAuthorisation) 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 FCFCDFHeaderCustomsAuthorisation + 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 + + Public Enum FCFCDFHeaderPaymentMethod + + ''' + A + + ''' + C + + ''' + D + + ''' + E + + ''' + F + + ''' + G + End Enum + + Public Enum FCFCDFHeaderCurrencyCode + + ''' + EUR + End Enum + + Partial Public Class FCFCDFDeclarant + + Private identificationField As FCFCDFDeclarantIdentification + + Private nameField As String + + Private addressField As FCFCDFDeclarantAddress + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.addressField = New FCFCDFDeclarantAddress() + Me.identificationField = New FCFCDFDeclarantIdentification() + End Sub + + Public Property Identification() As FCFCDFDeclarantIdentification + Get + Return Me.identificationField + End Get + Set + Me.identificationField = Value + End Set + End Property + + Public Property Name() As String + Get + Return Me.nameField + End Get + Set + Me.nameField = Value + End Set + End Property + + Public Property Address() As FCFCDFDeclarantAddress + Get + Return Me.addressField + End Get + Set + Me.addressField = 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(FCFCDFDeclarant)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFDeclarant object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFDeclarant object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFDeclarant object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFDeclarant) + 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 FCFCDFDeclarant) 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 FCFCDFDeclarant + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFDeclarant) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFDeclarant object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFDeclarant object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFDeclarant object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFDeclarant) + 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 FCFCDFDeclarant) 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 FCFCDFDeclarant + 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 FCFCDFDeclarantIdentification + + Private referenceNumberField As String + + Private subsidiaryNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = Value + End Set + End Property + + Public Property SubsidiaryNumber() As String + Get + Return Me.subsidiaryNumberField + End Get + Set + Me.subsidiaryNumberField = 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(FCFCDFDeclarantIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFDeclarantIdentification object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFDeclarantIdentification object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFDeclarantIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFDeclarantIdentification) + 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 FCFCDFDeclarantIdentification) 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 FCFCDFDeclarantIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFDeclarantIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFDeclarantIdentification object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFDeclarantIdentification object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFDeclarantIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFDeclarantIdentification) + 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 FCFCDFDeclarantIdentification) 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 FCFCDFDeclarantIdentification + 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 FCFCDFDeclarantAddress + + Private lineField As String + + Private countryField As String + + Private postcodeField As String + + Private cityField As String + + Private districtField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Line() As String + Get + Return Me.lineField + End Get + Set + Me.lineField = Value + End Set + End Property + + Public Property Country() As String + Get + Return Me.countryField + End Get + Set + Me.countryField = Value + End Set + End Property + + Public Property Postcode() As String + Get + Return Me.postcodeField + End Get + Set + Me.postcodeField = Value + End Set + End Property + + Public Property City() As String + Get + Return Me.cityField + End Get + Set + Me.cityField = Value + End Set + End Property + + Public Property District() As String + Get + Return Me.districtField + End Get + Set + Me.districtField = 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(FCFCDFDeclarantAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFDeclarantAddress object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFDeclarantAddress object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFDeclarantAddress object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFDeclarantAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFDeclarantAddress) + 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 FCFCDFDeclarantAddress) 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 FCFCDFDeclarantAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFDeclarantAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFDeclarantAddress object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFDeclarantAddress object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFDeclarantAddress object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFDeclarantAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFDeclarantAddress) + 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 FCFCDFDeclarantAddress) 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 FCFCDFDeclarantAddress + 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 FCFCDFRepresentative + + Private identificationField As FCFCDFRepresentativeIdentification + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.identificationField = New FCFCDFRepresentativeIdentification() + End Sub + + Public Property Identification() As FCFCDFRepresentativeIdentification + Get + Return Me.identificationField + End Get + Set + Me.identificationField = 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(FCFCDFRepresentative)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFRepresentative object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFRepresentative object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFRepresentative object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFRepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFRepresentative) + 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 FCFCDFRepresentative) 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 FCFCDFRepresentative + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFRepresentative) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFRepresentative object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFRepresentative object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFRepresentative object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFRepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFRepresentative) + 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 FCFCDFRepresentative) 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 FCFCDFRepresentative + 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 FCFCDFRepresentativeIdentification + + Private referenceNumberField As String + + Private subsidiaryNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = Value + End Set + End Property + + Public Property SubsidiaryNumber() As String + Get + Return Me.subsidiaryNumberField + End Get + Set + Me.subsidiaryNumberField = 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(FCFCDFRepresentativeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFRepresentativeIdentification object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFRepresentativeIdentification object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFRepresentativeIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFRepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFRepresentativeIdentification) + 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 FCFCDFRepresentativeIdentification) 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 FCFCDFRepresentativeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFRepresentativeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFRepresentativeIdentification object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFRepresentativeIdentification object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFRepresentativeIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFRepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFRepresentativeIdentification) + 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 FCFCDFRepresentativeIdentification) 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 FCFCDFRepresentativeIdentification + 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 FCFCDFPrincipal + + Private identificationField As FCFCDFPrincipalIdentification + + Private nameField As String + + Private addressField As FCFCDFPrincipalAddress + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.addressField = New FCFCDFPrincipalAddress() + Me.identificationField = New FCFCDFPrincipalIdentification() + End Sub + + Public Property Identification() As FCFCDFPrincipalIdentification + Get + Return Me.identificationField + End Get + Set + Me.identificationField = Value + End Set + End Property + + Public Property Name() As String + Get + Return Me.nameField + End Get + Set + Me.nameField = Value + End Set + End Property + + Public Property Address() As FCFCDFPrincipalAddress + Get + Return Me.addressField + End Get + Set + Me.addressField = 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(FCFCDFPrincipal)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFPrincipal object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFPrincipal object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFPrincipal object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFPrincipal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFPrincipal) + 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 FCFCDFPrincipal) 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 FCFCDFPrincipal + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFPrincipal) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFPrincipal object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFPrincipal object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFPrincipal object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFPrincipal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFPrincipal) + 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 FCFCDFPrincipal) 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 FCFCDFPrincipal + 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 FCFCDFPrincipalIdentification + + Private referenceNumberField As String + + Private subsidiaryNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = Value + End Set + End Property + + Public Property SubsidiaryNumber() As String + Get + Return Me.subsidiaryNumberField + End Get + Set + Me.subsidiaryNumberField = 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(FCFCDFPrincipalIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFPrincipalIdentification object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFPrincipalIdentification object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFPrincipalIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFPrincipalIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFPrincipalIdentification) + 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 FCFCDFPrincipalIdentification) 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 FCFCDFPrincipalIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFPrincipalIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFPrincipalIdentification object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFPrincipalIdentification object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFPrincipalIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFPrincipalIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFPrincipalIdentification) + 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 FCFCDFPrincipalIdentification) 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 FCFCDFPrincipalIdentification + 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 FCFCDFPrincipalAddress + + Private lineField As String + + Private countryField As String + + Private postcodeField As String + + Private cityField As String + + Private districtField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Line() As String + Get + Return Me.lineField + End Get + Set + Me.lineField = Value + End Set + End Property + + Public Property Country() As String + Get + Return Me.countryField + End Get + Set + Me.countryField = Value + End Set + End Property + + Public Property Postcode() As String + Get + Return Me.postcodeField + End Get + Set + Me.postcodeField = Value + End Set + End Property + + Public Property City() As String + Get + Return Me.cityField + End Get + Set + Me.cityField = Value + End Set + End Property + + Public Property District() As String + Get + Return Me.districtField + End Get + Set + Me.districtField = 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(FCFCDFPrincipalAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFPrincipalAddress object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFPrincipalAddress object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFPrincipalAddress object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFPrincipalAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFPrincipalAddress) + 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 FCFCDFPrincipalAddress) 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 FCFCDFPrincipalAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFPrincipalAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFPrincipalAddress object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFPrincipalAddress object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFPrincipalAddress object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFPrincipalAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFPrincipalAddress) + 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 FCFCDFPrincipalAddress) 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 FCFCDFPrincipalAddress + 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 FCFCDFContactPerson + + Private nameField As String + + Private positionField As String + + Private phoneNumberField As String + + Private mailAddressField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Name() As String + Get + Return Me.nameField + End Get + Set + Me.nameField = Value + End Set + End Property + + Public Property Position() As String + Get + Return Me.positionField + End Get + Set + Me.positionField = Value + End Set + End Property + + Public Property PhoneNumber() As String + Get + Return Me.phoneNumberField + End Get + Set + Me.phoneNumberField = Value + End Set + End Property + + Public Property MailAddress() As String + Get + Return Me.mailAddressField + End Get + Set + Me.mailAddressField = 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(FCFCDFContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFContactPerson object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFContactPerson object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFContactPerson object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFContactPerson) + 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 FCFCDFContactPerson) 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 FCFCDFContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFContactPerson object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFContactPerson object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFContactPerson object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFContactPerson) + 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 FCFCDFContactPerson) 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 FCFCDFContactPerson + 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 FCFCDFDutyDefermentApproval + + Private typeField As String + + Private applicationTypeField As String + + Private accountPrefixField As String + + Private accountNumberField As String + + Private authorisationNumberField As String + + Private dutyDefermentApplicantField As FCFCDFDutyDefermentApprovalDutyDefermentApplicant + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.dutyDefermentApplicantField = New FCFCDFDutyDefermentApprovalDutyDefermentApplicant() + End Sub + + Public Property Type() As String + Get + Return Me.typeField + End Get + Set + Me.typeField = Value + End Set + End Property + + Public Property ApplicationType() As String + Get + Return Me.applicationTypeField + End Get + Set + Me.applicationTypeField = Value + End Set + End Property + + Public Property AccountPrefix() As String + Get + Return Me.accountPrefixField + End Get + Set + Me.accountPrefixField = Value + End Set + End Property + + Public Property AccountNumber() As String + Get + Return Me.accountNumberField + End Get + Set + Me.accountNumberField = Value + End Set + End Property + + Public Property AuthorisationNumber() As String + Get + Return Me.authorisationNumberField + End Get + Set + Me.authorisationNumberField = Value + End Set + End Property + + Public Property DutyDefermentApplicant() As FCFCDFDutyDefermentApprovalDutyDefermentApplicant + Get + Return Me.dutyDefermentApplicantField + End Get + Set + Me.dutyDefermentApplicantField = 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(FCFCDFDutyDefermentApproval)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFDutyDefermentApproval object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFDutyDefermentApproval object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFDutyDefermentApproval object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFDutyDefermentApproval, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFDutyDefermentApproval) + 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 FCFCDFDutyDefermentApproval) 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 FCFCDFDutyDefermentApproval + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFDutyDefermentApproval) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFDutyDefermentApproval object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFDutyDefermentApproval object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFDutyDefermentApproval object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFDutyDefermentApproval, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFDutyDefermentApproval) + 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 FCFCDFDutyDefermentApproval) 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 FCFCDFDutyDefermentApproval + 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 FCFCDFDutyDefermentApprovalDutyDefermentApplicant + + Private identificationField As FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.identificationField = New FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification() + End Sub + + Public Property Identification() As FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification + Get + Return Me.identificationField + End Get + Set + Me.identificationField = 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(FCFCDFDutyDefermentApprovalDutyDefermentApplicant)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFDutyDefermentApprovalDutyDefermentApplicant object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFDutyDefermentApprovalDutyDefermentApplicant object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFDutyDefermentApprovalDutyDefermentApplicant object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFDutyDefermentApprovalDutyDefermentApplicant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFDutyDefermentApprovalDutyDefermentApplicant) + 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 FCFCDFDutyDefermentApprovalDutyDefermentApplicant) 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 FCFCDFDutyDefermentApprovalDutyDefermentApplicant + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFDutyDefermentApprovalDutyDefermentApplicant) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFDutyDefermentApprovalDutyDefermentApplicant object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFDutyDefermentApprovalDutyDefermentApplicant object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFDutyDefermentApprovalDutyDefermentApplicant object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFDutyDefermentApprovalDutyDefermentApplicant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFDutyDefermentApprovalDutyDefermentApplicant) + 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 FCFCDFDutyDefermentApprovalDutyDefermentApplicant) 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 FCFCDFDutyDefermentApprovalDutyDefermentApplicant + 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 FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification + + Private referenceNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = 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(FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification) + 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 FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification) 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 FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification) + 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 FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification) 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 FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification + 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 FCFCDFBorderTransportMeans + + Private modeField As String + + Private typeField As String + + Private informationField As String + + Private nationalityField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Mode() As String + Get + Return Me.modeField + End Get + Set + Me.modeField = Value + End Set + End Property + + Public Property Type() As String + Get + Return Me.typeField + End Get + Set + Me.typeField = Value + End Set + End Property + + Public Property Information() As String + Get + Return Me.informationField + End Get + Set + Me.informationField = Value + End Set + End Property + + Public Property Nationality() As String + Get + Return Me.nationalityField + End Get + Set + Me.nationalityField = 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(FCFCDFBorderTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBorderTransportMeans object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBorderTransportMeans object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBorderTransportMeans object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBorderTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBorderTransportMeans) + 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 FCFCDFBorderTransportMeans) 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 FCFCDFBorderTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBorderTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBorderTransportMeans object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBorderTransportMeans object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBorderTransportMeans object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBorderTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBorderTransportMeans) + 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 FCFCDFBorderTransportMeans) 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 FCFCDFBorderTransportMeans + 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 FCFCDFArrivalTransportMeans + + Private identityField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Identity() As String + Get + Return Me.identityField + End Get + Set + Me.identityField = 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(FCFCDFArrivalTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFArrivalTransportMeans object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFArrivalTransportMeans object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFArrivalTransportMeans object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFArrivalTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFArrivalTransportMeans) + 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 FCFCDFArrivalTransportMeans) 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 FCFCDFArrivalTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFArrivalTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFArrivalTransportMeans object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFArrivalTransportMeans object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFArrivalTransportMeans object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFArrivalTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFArrivalTransportMeans) + 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 FCFCDFArrivalTransportMeans) 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 FCFCDFArrivalTransportMeans + 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 FCFCDFPreviousAdministrativeReferences + + Private typeField As String + + Private previousAdministrativeReferenceField As FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.previousAdministrativeReferenceField = New FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference() + End Sub + + Public Property Type() As String + Get + Return Me.typeField + End Get + Set + Me.typeField = Value + End Set + End Property + + Public Property PreviousAdministrativeReference() As FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference + Get + Return Me.previousAdministrativeReferenceField + End Get + Set + Me.previousAdministrativeReferenceField = 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(FCFCDFPreviousAdministrativeReferences)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFPreviousAdministrativeReferences object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFPreviousAdministrativeReferences object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFPreviousAdministrativeReferences object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFPreviousAdministrativeReferences, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFPreviousAdministrativeReferences) + 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 FCFCDFPreviousAdministrativeReferences) 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 FCFCDFPreviousAdministrativeReferences + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFPreviousAdministrativeReferences) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFPreviousAdministrativeReferences object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFPreviousAdministrativeReferences object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFPreviousAdministrativeReferences object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFPreviousAdministrativeReferences, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFPreviousAdministrativeReferences) + 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 FCFCDFPreviousAdministrativeReferences) 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 FCFCDFPreviousAdministrativeReferences + 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 FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference + + Private referenceNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = 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(FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference) + 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 FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference) 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 FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference) + 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 FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference) 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 FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference + 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 FCFCDFSummaryDeclaration + + Private identificationIndicatorField As FCFCDFSummaryDeclarationIdentificationIndicator + + Private goodsItemField As List(Of FCFCDFSummaryDeclarationGoodsItem) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.goodsItemField = New List(Of FCFCDFSummaryDeclarationGoodsItem)() + End Sub + + Public Property IdentificationIndicator() As FCFCDFSummaryDeclarationIdentificationIndicator + Get + Return Me.identificationIndicatorField + End Get + Set + Me.identificationIndicatorField = Value + End Set + End Property + + Public Property GoodsItem() As List(Of FCFCDFSummaryDeclarationGoodsItem) + Get + Return Me.goodsItemField + End Get + Set + Me.goodsItemField = 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(FCFCDFSummaryDeclaration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFSummaryDeclaration object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFSummaryDeclaration object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFSummaryDeclaration object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFSummaryDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFSummaryDeclaration) + 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 FCFCDFSummaryDeclaration) 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 FCFCDFSummaryDeclaration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFSummaryDeclaration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFSummaryDeclaration object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFSummaryDeclaration object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFSummaryDeclaration object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFSummaryDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFSummaryDeclaration) + 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 FCFCDFSummaryDeclaration) 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 FCFCDFSummaryDeclaration + 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 + + Public Enum FCFCDFSummaryDeclarationIdentificationIndicator + + ''' + AWB + + ''' + REG + End Enum + + Partial Public Class FCFCDFSummaryDeclarationGoodsItem + + Private quantityField As String + + Private identificationByKeyField As FCFCDFSummaryDeclarationGoodsItemIdentificationByKey + + Private identificationByRegistrationField As FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.identificationByRegistrationField = New FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration() + Me.identificationByKeyField = New FCFCDFSummaryDeclarationGoodsItemIdentificationByKey() + End Sub + + Public Property Quantity() As String + Get + Return Me.quantityField + End Get + Set + Me.quantityField = Value + End Set + End Property + + Public Property IdentificationByKey() As FCFCDFSummaryDeclarationGoodsItemIdentificationByKey + Get + Return Me.identificationByKeyField + End Get + Set + Me.identificationByKeyField = Value + End Set + End Property + + Public Property IdentificationByRegistration() As FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration + Get + Return Me.identificationByRegistrationField + End Get + Set + Me.identificationByRegistrationField = 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(FCFCDFSummaryDeclarationGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFSummaryDeclarationGoodsItem object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFSummaryDeclarationGoodsItem object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFSummaryDeclarationGoodsItem object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItem) + 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 FCFCDFSummaryDeclarationGoodsItem) 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 FCFCDFSummaryDeclarationGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFSummaryDeclarationGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFSummaryDeclarationGoodsItem object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFSummaryDeclarationGoodsItem object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFSummaryDeclarationGoodsItem object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItem) + 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 FCFCDFSummaryDeclarationGoodsItem) 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 FCFCDFSummaryDeclarationGoodsItem + 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByKey + + Private kindField As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyKind + + Private numberField As String + + Private custodianField As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.custodianField = New FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian() + End Sub + + Public Property Kind() As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyKind + Get + Return Me.kindField + End Get + Set + Me.kindField = Value + End Set + End Property + + Public Property Number() As String + Get + Return Me.numberField + End Get + Set + Me.numberField = Value + End Set + End Property + + Public Property Custodian() As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Get + Return Me.custodianField + End Get + Set + Me.custodianField = 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(FCFCDFSummaryDeclarationGoodsItemIdentificationByKey)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFSummaryDeclarationGoodsItemIdentificationByKey object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFSummaryDeclarationGoodsItemIdentificationByKey object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFSummaryDeclarationGoodsItemIdentificationByKey object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKey, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItemIdentificationByKey) + 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByKey) 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByKey + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFSummaryDeclarationGoodsItemIdentificationByKey) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFSummaryDeclarationGoodsItemIdentificationByKey object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFSummaryDeclarationGoodsItemIdentificationByKey object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFSummaryDeclarationGoodsItemIdentificationByKey object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKey, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItemIdentificationByKey) + 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByKey) 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByKey + 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 + + Public Enum FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyKind + + ''' + AWB + + ''' + ULD + End Enum + + Partial Public Class FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian + + Private identificationField As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.identificationField = New FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification() + End Sub + + Public Property Identification() As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Get + Return Me.identificationField + End Get + Set + Me.identificationField = 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(FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian) 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian) 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian + 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + + Private referenceNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = 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(FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration + + Private mRNField As String + + Private referencedRegistrationNumberField As String + + Private referencedSequenceNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property MRN() As String + Get + Return Me.mRNField + End Get + Set + Me.mRNField = Value + End Set + End Property + + Public Property ReferencedRegistrationNumber() As String + Get + Return Me.referencedRegistrationNumberField + End Get + Set + Me.referencedRegistrationNumberField = Value + End Set + End Property + + Public Property ReferencedSequenceNumber() As String + Get + Return Me.referencedSequenceNumberField + End Get + Set + Me.referencedSequenceNumberField = 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(FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration) + 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration) 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration) + 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration) 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 FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration + 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 FCFCDFCustomsWarehouse + + Private lRNField As String + + Private sequenceNumberField As FCFCDFCustomsWarehouseSequenceNumber + + Private goodsItemQuantityField As String + + Private customsAuthorisationField As FCFCDFCustomsWarehouseCustomsAuthorisation + + Private goodsItemField As List(Of FCFCDFCustomsWarehouseGoodsItem) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.goodsItemField = New List(Of FCFCDFCustomsWarehouseGoodsItem)() + Me.customsAuthorisationField = New FCFCDFCustomsWarehouseCustomsAuthorisation() + End Sub + + Public Property LRN() As String + Get + Return Me.lRNField + End Get + Set + Me.lRNField = Value + End Set + End Property + + Public Property SequenceNumber() As FCFCDFCustomsWarehouseSequenceNumber + Get + Return Me.sequenceNumberField + End Get + Set + Me.sequenceNumberField = Value + End Set + End Property + + Public Property GoodsItemQuantity() As String + Get + Return Me.goodsItemQuantityField + End Get + Set + Me.goodsItemQuantityField = Value + End Set + End Property + + Public Property CustomsAuthorisation() As FCFCDFCustomsWarehouseCustomsAuthorisation + Get + Return Me.customsAuthorisationField + End Get + Set + Me.customsAuthorisationField = Value + End Set + End Property + + Public Property GoodsItem() As List(Of FCFCDFCustomsWarehouseGoodsItem) + Get + Return Me.goodsItemField + End Get + Set + Me.goodsItemField = 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(FCFCDFCustomsWarehouse)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFCustomsWarehouse object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFCustomsWarehouse object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFCustomsWarehouse object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFCustomsWarehouse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFCustomsWarehouse) + 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 FCFCDFCustomsWarehouse) 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 FCFCDFCustomsWarehouse + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFCustomsWarehouse) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFCustomsWarehouse object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFCustomsWarehouse object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFCustomsWarehouse object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFCustomsWarehouse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFCustomsWarehouse) + 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 FCFCDFCustomsWarehouse) 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 FCFCDFCustomsWarehouse + 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 + + Public Enum FCFCDFCustomsWarehouseSequenceNumber + + ''' + + Item1 + End Enum + + Partial Public Class FCFCDFCustomsWarehouseCustomsAuthorisation + + Private warehouseOwnerField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property WarehouseOwner() As String + Get + Return Me.warehouseOwnerField + End Get + Set + Me.warehouseOwnerField = 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(FCFCDFCustomsWarehouseCustomsAuthorisation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFCustomsWarehouseCustomsAuthorisation object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFCustomsWarehouseCustomsAuthorisation object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFCustomsWarehouseCustomsAuthorisation object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFCustomsWarehouseCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFCustomsWarehouseCustomsAuthorisation) + 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 FCFCDFCustomsWarehouseCustomsAuthorisation) 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 FCFCDFCustomsWarehouseCustomsAuthorisation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFCustomsWarehouseCustomsAuthorisation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFCustomsWarehouseCustomsAuthorisation object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFCustomsWarehouseCustomsAuthorisation object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFCustomsWarehouseCustomsAuthorisation object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFCustomsWarehouseCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFCustomsWarehouseCustomsAuthorisation) + 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 FCFCDFCustomsWarehouseCustomsAuthorisation) 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 FCFCDFCustomsWarehouseCustomsAuthorisation + 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 FCFCDFCustomsWarehouseGoodsItem + + Private sequenceNumberField As String + + Private mRNField As String + + Private referencedRegistrationNumberField As String + + Private referencedSequenceNumberField As String + + Private accessViaAtlasFlagField As String + + Private commodityCodeField As String + + Private usualProcessingFlagField As String + + Private complementField As String + + Private commercialAmountField As FCFCDFCustomsWarehouseGoodsItemCommercialAmount + + Private debitAmountField As FCFCDFCustomsWarehouseGoodsItemDebitAmount + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.debitAmountField = New FCFCDFCustomsWarehouseGoodsItemDebitAmount() + Me.commercialAmountField = New FCFCDFCustomsWarehouseGoodsItemCommercialAmount() + End Sub + + Public Property SequenceNumber() As String + Get + Return Me.sequenceNumberField + End Get + Set + Me.sequenceNumberField = Value + End Set + End Property + + Public Property MRN() As String + Get + Return Me.mRNField + End Get + Set + Me.mRNField = Value + End Set + End Property + + Public Property ReferencedRegistrationNumber() As String + Get + Return Me.referencedRegistrationNumberField + End Get + Set + Me.referencedRegistrationNumberField = Value + End Set + End Property + + Public Property ReferencedSequenceNumber() As String + Get + Return Me.referencedSequenceNumberField + End Get + Set + Me.referencedSequenceNumberField = Value + End Set + End Property + + Public Property AccessViaAtlasFlag() As String + Get + Return Me.accessViaAtlasFlagField + End Get + Set + Me.accessViaAtlasFlagField = Value + End Set + End Property + + Public Property CommodityCode() As String + Get + Return Me.commodityCodeField + End Get + Set + Me.commodityCodeField = Value + End Set + End Property + + Public Property UsualProcessingFlag() As String + Get + Return Me.usualProcessingFlagField + End Get + Set + Me.usualProcessingFlagField = Value + End Set + End Property + + Public Property Complement() As String + Get + Return Me.complementField + End Get + Set + Me.complementField = Value + End Set + End Property + + Public Property CommercialAmount() As FCFCDFCustomsWarehouseGoodsItemCommercialAmount + Get + Return Me.commercialAmountField + End Get + Set + Me.commercialAmountField = Value + End Set + End Property + + Public Property DebitAmount() As FCFCDFCustomsWarehouseGoodsItemDebitAmount + Get + Return Me.debitAmountField + End Get + Set + Me.debitAmountField = 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(FCFCDFCustomsWarehouseGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFCustomsWarehouseGoodsItem object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFCustomsWarehouseGoodsItem object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFCustomsWarehouseGoodsItem object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFCustomsWarehouseGoodsItem) + 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 FCFCDFCustomsWarehouseGoodsItem) 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 FCFCDFCustomsWarehouseGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFCustomsWarehouseGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFCustomsWarehouseGoodsItem object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFCustomsWarehouseGoodsItem object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFCustomsWarehouseGoodsItem object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFCustomsWarehouseGoodsItem) + 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 FCFCDFCustomsWarehouseGoodsItem) 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 FCFCDFCustomsWarehouseGoodsItem + 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 FCFCDFCustomsWarehouseGoodsItemCommercialAmount + + Private quantityField As Decimal + + Private measurementUnitField As String + + Private qualifierField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Quantity() As Decimal + Get + Return Me.quantityField + End Get + Set + Me.quantityField = Value + End Set + End Property + + Public Property MeasurementUnit() As String + Get + Return Me.measurementUnitField + End Get + Set + Me.measurementUnitField = 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(FCFCDFCustomsWarehouseGoodsItemCommercialAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFCustomsWarehouseGoodsItemCommercialAmount object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFCustomsWarehouseGoodsItemCommercialAmount object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFCustomsWarehouseGoodsItemCommercialAmount object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFCustomsWarehouseGoodsItemCommercialAmount) + 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 FCFCDFCustomsWarehouseGoodsItemCommercialAmount) 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 FCFCDFCustomsWarehouseGoodsItemCommercialAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFCustomsWarehouseGoodsItemCommercialAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFCustomsWarehouseGoodsItemCommercialAmount object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFCustomsWarehouseGoodsItemCommercialAmount object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFCustomsWarehouseGoodsItemCommercialAmount object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFCustomsWarehouseGoodsItemCommercialAmount) + 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 FCFCDFCustomsWarehouseGoodsItemCommercialAmount) 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 FCFCDFCustomsWarehouseGoodsItemCommercialAmount + 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 FCFCDFCustomsWarehouseGoodsItemDebitAmount + + Private quantityField As Decimal + + Private measurementUnitField As String + + Private qualifierField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Quantity() As Decimal + Get + Return Me.quantityField + End Get + Set + Me.quantityField = Value + End Set + End Property + + Public Property MeasurementUnit() As String + Get + Return Me.measurementUnitField + End Get + Set + Me.measurementUnitField = 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(FCFCDFCustomsWarehouseGoodsItemDebitAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFCustomsWarehouseGoodsItemDebitAmount object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFCustomsWarehouseGoodsItemDebitAmount object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFCustomsWarehouseGoodsItemDebitAmount object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFCustomsWarehouseGoodsItemDebitAmount) + 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 FCFCDFCustomsWarehouseGoodsItemDebitAmount) 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 FCFCDFCustomsWarehouseGoodsItemDebitAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFCustomsWarehouseGoodsItemDebitAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFCustomsWarehouseGoodsItemDebitAmount object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFCustomsWarehouseGoodsItemDebitAmount object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFCustomsWarehouseGoodsItemDebitAmount object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFCustomsWarehouseGoodsItemDebitAmount) + 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 FCFCDFCustomsWarehouseGoodsItemDebitAmount) 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 FCFCDFCustomsWarehouseGoodsItemDebitAmount + 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 FCFCDFInwardProcessing + + Private sequenceNumberField As FCFCDFInwardProcessingSequenceNumber + + Private goodsItemQuantityField As String + + Private customsAuthorisationField As FCFCDFInwardProcessingCustomsAuthorisation + + Private simplifiedGrantAuthorisationFlagField As String + + Private monitoringCustomsOfficeField As FCFCDFInwardProcessingMonitoringCustomsOffice + + Private goodsItemField As List(Of FCFCDFInwardProcessingGoodsItem) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.goodsItemField = New List(Of FCFCDFInwardProcessingGoodsItem)() + Me.monitoringCustomsOfficeField = New FCFCDFInwardProcessingMonitoringCustomsOffice() + Me.customsAuthorisationField = New FCFCDFInwardProcessingCustomsAuthorisation() + End Sub + + Public Property SequenceNumber() As FCFCDFInwardProcessingSequenceNumber + Get + Return Me.sequenceNumberField + End Get + Set + Me.sequenceNumberField = Value + End Set + End Property + + Public Property GoodsItemQuantity() As String + Get + Return Me.goodsItemQuantityField + End Get + Set + Me.goodsItemQuantityField = Value + End Set + End Property + + Public Property CustomsAuthorisation() As FCFCDFInwardProcessingCustomsAuthorisation + Get + Return Me.customsAuthorisationField + End Get + Set + Me.customsAuthorisationField = Value + End Set + End Property + + Public Property SimplifiedGrantAuthorisationFlag() As String + Get + Return Me.simplifiedGrantAuthorisationFlagField + End Get + Set + Me.simplifiedGrantAuthorisationFlagField = Value + End Set + End Property + + Public Property MonitoringCustomsOffice() As FCFCDFInwardProcessingMonitoringCustomsOffice + Get + Return Me.monitoringCustomsOfficeField + End Get + Set + Me.monitoringCustomsOfficeField = Value + End Set + End Property + + Public Property GoodsItem() As List(Of FCFCDFInwardProcessingGoodsItem) + Get + Return Me.goodsItemField + End Get + Set + Me.goodsItemField = 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(FCFCDFInwardProcessing)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFInwardProcessing object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFInwardProcessing object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFInwardProcessing object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFInwardProcessing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFInwardProcessing) + 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 FCFCDFInwardProcessing) 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 FCFCDFInwardProcessing + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFInwardProcessing) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFInwardProcessing object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFInwardProcessing object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFInwardProcessing object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFInwardProcessing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFInwardProcessing) + 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 FCFCDFInwardProcessing) 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 FCFCDFInwardProcessing + 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 + + Public Enum FCFCDFInwardProcessingSequenceNumber + + ''' + + Item1 + End Enum + + Partial Public Class FCFCDFInwardProcessingCustomsAuthorisation + + Private processingOwnerField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ProcessingOwner() As String + Get + Return Me.processingOwnerField + End Get + Set + Me.processingOwnerField = 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(FCFCDFInwardProcessingCustomsAuthorisation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFInwardProcessingCustomsAuthorisation object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFInwardProcessingCustomsAuthorisation object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFInwardProcessingCustomsAuthorisation object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFInwardProcessingCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFInwardProcessingCustomsAuthorisation) + 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 FCFCDFInwardProcessingCustomsAuthorisation) 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 FCFCDFInwardProcessingCustomsAuthorisation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFInwardProcessingCustomsAuthorisation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFInwardProcessingCustomsAuthorisation object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFInwardProcessingCustomsAuthorisation object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFInwardProcessingCustomsAuthorisation object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFInwardProcessingCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFInwardProcessingCustomsAuthorisation) + 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 FCFCDFInwardProcessingCustomsAuthorisation) 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 FCFCDFInwardProcessingCustomsAuthorisation + 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 FCFCDFInwardProcessingMonitoringCustomsOffice + + Private identificationField As FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.identificationField = New FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification() + End Sub + + Public Property Identification() As FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification + Get + Return Me.identificationField + End Get + Set + Me.identificationField = 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(FCFCDFInwardProcessingMonitoringCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFInwardProcessingMonitoringCustomsOffice object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFInwardProcessingMonitoringCustomsOffice object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFInwardProcessingMonitoringCustomsOffice object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFInwardProcessingMonitoringCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFInwardProcessingMonitoringCustomsOffice) + 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 FCFCDFInwardProcessingMonitoringCustomsOffice) 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 FCFCDFInwardProcessingMonitoringCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFInwardProcessingMonitoringCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFInwardProcessingMonitoringCustomsOffice object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFInwardProcessingMonitoringCustomsOffice object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFInwardProcessingMonitoringCustomsOffice object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFInwardProcessingMonitoringCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFInwardProcessingMonitoringCustomsOffice) + 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 FCFCDFInwardProcessingMonitoringCustomsOffice) 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 FCFCDFInwardProcessingMonitoringCustomsOffice + 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 FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification + + Private referenceNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = 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(FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification) + 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 FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification) 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 FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification) + 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 FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification) 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 FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification + 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 FCFCDFInwardProcessingGoodsItem + + Private sequenceNumberField As String + + Private mRNField As String + + Private referencedRegistrationNumberField As String + + Private referencedSequenceNumberField As String + + Private accessViaAtlasFlagField As String + + Private goodsRelatedInformationField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property SequenceNumber() As String + Get + Return Me.sequenceNumberField + End Get + Set + Me.sequenceNumberField = Value + End Set + End Property + + Public Property MRN() As String + Get + Return Me.mRNField + End Get + Set + Me.mRNField = Value + End Set + End Property + + Public Property ReferencedRegistrationNumber() As String + Get + Return Me.referencedRegistrationNumberField + End Get + Set + Me.referencedRegistrationNumberField = Value + End Set + End Property + + Public Property ReferencedSequenceNumber() As String + Get + Return Me.referencedSequenceNumberField + End Get + Set + Me.referencedSequenceNumberField = Value + End Set + End Property + + Public Property AccessViaAtlasFlag() As String + Get + Return Me.accessViaAtlasFlagField + End Get + Set + Me.accessViaAtlasFlagField = Value + End Set + End Property + + Public Property GoodsRelatedInformation() As String + Get + Return Me.goodsRelatedInformationField + End Get + Set + Me.goodsRelatedInformationField = 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(FCFCDFInwardProcessingGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFInwardProcessingGoodsItem object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFInwardProcessingGoodsItem object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFInwardProcessingGoodsItem object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFInwardProcessingGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFInwardProcessingGoodsItem) + 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 FCFCDFInwardProcessingGoodsItem) 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 FCFCDFInwardProcessingGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFInwardProcessingGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFInwardProcessingGoodsItem object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFInwardProcessingGoodsItem object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFInwardProcessingGoodsItem object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFInwardProcessingGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFInwardProcessingGoodsItem) + 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 FCFCDFInwardProcessingGoodsItem) 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 FCFCDFInwardProcessingGoodsItem + 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 FCFCDFBody + + Private customsValueFlagField As String + + Private consignorField As FCFCDFBodyConsignor + + Private consigneeField As FCFCDFBodyConsignee + + Private additionalDutyReferencesField As List(Of FCFCDFBodyAdditionalDutyReferences) + + Private containersField As FCFCDFBodyContainers + + Private deliveryTermsField As FCFCDFBodyDeliveryTerms + + Private paymentTransactionField As FCFCDFBodyPaymentTransaction + + Private foreignTradeStatisticsField As FCFCDFBodyForeignTradeStatistics + + Private customsValueField As FCFCDFBodyCustomsValue + + Private documentField As List(Of FCFCDFBodyDocument) + + Private goodsItemField As List(Of FCFCDFBodyGoodsItem) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.goodsItemField = New List(Of FCFCDFBodyGoodsItem)() + Me.documentField = New List(Of FCFCDFBodyDocument)() + Me.customsValueField = New FCFCDFBodyCustomsValue() + Me.foreignTradeStatisticsField = New FCFCDFBodyForeignTradeStatistics() + Me.paymentTransactionField = New FCFCDFBodyPaymentTransaction() + Me.deliveryTermsField = New FCFCDFBodyDeliveryTerms() + Me.containersField = New FCFCDFBodyContainers() + Me.additionalDutyReferencesField = New List(Of FCFCDFBodyAdditionalDutyReferences)() + Me.consigneeField = New FCFCDFBodyConsignee() + Me.consignorField = New FCFCDFBodyConsignor() + End Sub + + Public Property CustomsValueFlag() As String + Get + Return Me.customsValueFlagField + End Get + Set + Me.customsValueFlagField = Value + End Set + End Property + + Public Property Consignor() As FCFCDFBodyConsignor + Get + Return Me.consignorField + End Get + Set + Me.consignorField = Value + End Set + End Property + + Public Property Consignee() As FCFCDFBodyConsignee + Get + Return Me.consigneeField + End Get + Set + Me.consigneeField = Value + End Set + End Property + + Public Property AdditionalDutyReferences() As List(Of FCFCDFBodyAdditionalDutyReferences) + Get + Return Me.additionalDutyReferencesField + End Get + Set + Me.additionalDutyReferencesField = Value + End Set + End Property + + Public Property Containers() As FCFCDFBodyContainers + Get + Return Me.containersField + End Get + Set + Me.containersField = Value + End Set + End Property + + Public Property DeliveryTerms() As FCFCDFBodyDeliveryTerms + Get + Return Me.deliveryTermsField + End Get + Set + Me.deliveryTermsField = Value + End Set + End Property + + Public Property PaymentTransaction() As FCFCDFBodyPaymentTransaction + Get + Return Me.paymentTransactionField + End Get + Set + Me.paymentTransactionField = Value + End Set + End Property + + Public Property ForeignTradeStatistics() As FCFCDFBodyForeignTradeStatistics + Get + Return Me.foreignTradeStatisticsField + End Get + Set + Me.foreignTradeStatisticsField = Value + End Set + End Property + + Public Property CustomsValue() As FCFCDFBodyCustomsValue + Get + Return Me.customsValueField + End Get + Set + Me.customsValueField = Value + End Set + End Property + + Public Property Document() As List(Of FCFCDFBodyDocument) + Get + Return Me.documentField + End Get + Set + Me.documentField = Value + End Set + End Property + + Public Property GoodsItem() As List(Of FCFCDFBodyGoodsItem) + Get + Return Me.goodsItemField + End Get + Set + Me.goodsItemField = 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(FCFCDFBody)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBody object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBody object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBody object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBody, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBody) + 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 FCFCDFBody) 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 FCFCDFBody + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBody) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBody object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBody object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBody object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBody, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBody) + 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 FCFCDFBody) 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 FCFCDFBody + 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 FCFCDFBodyConsignor + + Private identificationField As FCFCDFBodyConsignorIdentification + + Private nameField As String + + Private addressField As FCFCDFBodyConsignorAddress + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.addressField = New FCFCDFBodyConsignorAddress() + Me.identificationField = New FCFCDFBodyConsignorIdentification() + End Sub + + Public Property Identification() As FCFCDFBodyConsignorIdentification + Get + Return Me.identificationField + End Get + Set + Me.identificationField = Value + End Set + End Property + + Public Property Name() As String + Get + Return Me.nameField + End Get + Set + Me.nameField = Value + End Set + End Property + + Public Property Address() As FCFCDFBodyConsignorAddress + Get + Return Me.addressField + End Get + Set + Me.addressField = 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(FCFCDFBodyConsignor)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyConsignor object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyConsignor object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyConsignor object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyConsignor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyConsignor) + 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 FCFCDFBodyConsignor) 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 FCFCDFBodyConsignor + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyConsignor) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyConsignor object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyConsignor object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyConsignor object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyConsignor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyConsignor) + 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 FCFCDFBodyConsignor) 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 FCFCDFBodyConsignor + 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 FCFCDFBodyConsignorIdentification + + Private referenceNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = 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(FCFCDFBodyConsignorIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyConsignorIdentification object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyConsignorIdentification object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyConsignorIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyConsignorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyConsignorIdentification) + 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 FCFCDFBodyConsignorIdentification) 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 FCFCDFBodyConsignorIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyConsignorIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyConsignorIdentification object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyConsignorIdentification object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyConsignorIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyConsignorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyConsignorIdentification) + 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 FCFCDFBodyConsignorIdentification) 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 FCFCDFBodyConsignorIdentification + 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 FCFCDFBodyConsignorAddress + + Private lineField As String + + Private countryField As String + + Private postcodeField As String + + Private cityField As String + + Private districtField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Line() As String + Get + Return Me.lineField + End Get + Set + Me.lineField = Value + End Set + End Property + + Public Property Country() As String + Get + Return Me.countryField + End Get + Set + Me.countryField = Value + End Set + End Property + + Public Property Postcode() As String + Get + Return Me.postcodeField + End Get + Set + Me.postcodeField = Value + End Set + End Property + + Public Property City() As String + Get + Return Me.cityField + End Get + Set + Me.cityField = Value + End Set + End Property + + Public Property District() As String + Get + Return Me.districtField + End Get + Set + Me.districtField = 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(FCFCDFBodyConsignorAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyConsignorAddress object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyConsignorAddress object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyConsignorAddress object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyConsignorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyConsignorAddress) + 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 FCFCDFBodyConsignorAddress) 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 FCFCDFBodyConsignorAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyConsignorAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyConsignorAddress object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyConsignorAddress object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyConsignorAddress object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyConsignorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyConsignorAddress) + 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 FCFCDFBodyConsignorAddress) 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 FCFCDFBodyConsignorAddress + 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 FCFCDFBodyConsignee + + Private identificationField As FCFCDFBodyConsigneeIdentification + + Private nameField As String + + Private addressField As FCFCDFBodyConsigneeAddress + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.addressField = New FCFCDFBodyConsigneeAddress() + Me.identificationField = New FCFCDFBodyConsigneeIdentification() + End Sub + + Public Property Identification() As FCFCDFBodyConsigneeIdentification + Get + Return Me.identificationField + End Get + Set + Me.identificationField = Value + End Set + End Property + + Public Property Name() As String + Get + Return Me.nameField + End Get + Set + Me.nameField = Value + End Set + End Property + + Public Property Address() As FCFCDFBodyConsigneeAddress + Get + Return Me.addressField + End Get + Set + Me.addressField = 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(FCFCDFBodyConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyConsignee object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyConsignee object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyConsignee object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyConsignee) + 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 FCFCDFBodyConsignee) 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 FCFCDFBodyConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyConsignee object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyConsignee object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyConsignee object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyConsignee) + 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 FCFCDFBodyConsignee) 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 FCFCDFBodyConsignee + 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 FCFCDFBodyConsigneeIdentification + + Private referenceNumberField As String + + Private subsidiaryNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = Value + End Set + End Property + + Public Property SubsidiaryNumber() As String + Get + Return Me.subsidiaryNumberField + End Get + Set + Me.subsidiaryNumberField = 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(FCFCDFBodyConsigneeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyConsigneeIdentification object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyConsigneeIdentification object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyConsigneeIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyConsigneeIdentification) + 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 FCFCDFBodyConsigneeIdentification) 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 FCFCDFBodyConsigneeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyConsigneeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyConsigneeIdentification object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyConsigneeIdentification object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyConsigneeIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyConsigneeIdentification) + 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 FCFCDFBodyConsigneeIdentification) 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 FCFCDFBodyConsigneeIdentification + 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 FCFCDFBodyConsigneeAddress + + Private lineField As String + + Private countryField As String + + Private postcodeField As String + + Private cityField As String + + Private districtField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Line() As String + Get + Return Me.lineField + End Get + Set + Me.lineField = Value + End Set + End Property + + Public Property Country() As String + Get + Return Me.countryField + End Get + Set + Me.countryField = Value + End Set + End Property + + Public Property Postcode() As String + Get + Return Me.postcodeField + End Get + Set + Me.postcodeField = Value + End Set + End Property + + Public Property City() As String + Get + Return Me.cityField + End Get + Set + Me.cityField = Value + End Set + End Property + + Public Property District() As String + Get + Return Me.districtField + End Get + Set + Me.districtField = 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(FCFCDFBodyConsigneeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyConsigneeAddress object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyConsigneeAddress object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyConsigneeAddress object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyConsigneeAddress) + 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 FCFCDFBodyConsigneeAddress) 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 FCFCDFBodyConsigneeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyConsigneeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyConsigneeAddress object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyConsigneeAddress object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyConsigneeAddress object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyConsigneeAddress) + 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 FCFCDFBodyConsigneeAddress) 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 FCFCDFBodyConsigneeAddress + 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 FCFCDFBodyAdditionalDutyReferences + + Private referenceNumberField As String + + Private dutyInterestedPartyField As FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.dutyInterestedPartyField = New FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty() + End Sub + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = Value + End Set + End Property + + Public Property DutyInterestedParty() As FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty + Get + Return Me.dutyInterestedPartyField + End Get + Set + Me.dutyInterestedPartyField = 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(FCFCDFBodyAdditionalDutyReferences)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyAdditionalDutyReferences object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyAdditionalDutyReferences object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyAdditionalDutyReferences object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyAdditionalDutyReferences, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyAdditionalDutyReferences) + 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 FCFCDFBodyAdditionalDutyReferences) 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 FCFCDFBodyAdditionalDutyReferences + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyAdditionalDutyReferences) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyAdditionalDutyReferences object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyAdditionalDutyReferences object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyAdditionalDutyReferences object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyAdditionalDutyReferences, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyAdditionalDutyReferences) + 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 FCFCDFBodyAdditionalDutyReferences) 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 FCFCDFBodyAdditionalDutyReferences + 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 FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty + + Private identificationField As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification + + Private nameField As String + + Private addressField As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.addressField = New FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress() + Me.identificationField = New FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification() + End Sub + + Public Property Identification() As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification + Get + Return Me.identificationField + End Get + Set + Me.identificationField = Value + End Set + End Property + + Public Property Name() As String + Get + Return Me.nameField + End Get + Set + Me.nameField = Value + End Set + End Property + + Public Property Address() As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress + Get + Return Me.addressField + End Get + Set + Me.addressField = 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(FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty) + 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 FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty) 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 FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty) + 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 FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty) 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 FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty + 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 FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification + + Private referenceNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = 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(FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification) + 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 FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification) 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 FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification) + 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 FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification) 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 FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification + 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 FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress + + Private lineField As String + + Private countryField As String + + Private postcodeField As String + + Private cityField As String + + Private districtField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Line() As String + Get + Return Me.lineField + End Get + Set + Me.lineField = Value + End Set + End Property + + Public Property Country() As String + Get + Return Me.countryField + End Get + Set + Me.countryField = Value + End Set + End Property + + Public Property Postcode() As String + Get + Return Me.postcodeField + End Get + Set + Me.postcodeField = Value + End Set + End Property + + Public Property City() As String + Get + Return Me.cityField + End Get + Set + Me.cityField = Value + End Set + End Property + + Public Property District() As String + Get + Return Me.districtField + End Get + Set + Me.districtField = 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(FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress) + 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 FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress) 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 FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress) + 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 FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress) 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 FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress + 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 FCFCDFBodyContainers + + Private containerFlagField As String + + Private containerField As List(Of FCFCDFBodyContainersContainer) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.containerField = New List(Of FCFCDFBodyContainersContainer)() + End Sub + + Public Property ContainerFlag() As String + Get + Return Me.containerFlagField + End Get + Set + Me.containerFlagField = Value + End Set + End Property + + Public Property Container() As List(Of FCFCDFBodyContainersContainer) + Get + Return Me.containerField + End Get + Set + Me.containerField = 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(FCFCDFBodyContainers)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyContainers object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyContainers object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyContainers object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyContainers, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyContainers) + 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 FCFCDFBodyContainers) 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 FCFCDFBodyContainers + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyContainers) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyContainers object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyContainers object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyContainers object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyContainers, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyContainers) + 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 FCFCDFBodyContainers) 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 FCFCDFBodyContainers + 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 FCFCDFBodyContainersContainer + + Private identificationNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property IdentificationNumber() As String + Get + Return Me.identificationNumberField + End Get + Set + Me.identificationNumberField = 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(FCFCDFBodyContainersContainer)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyContainersContainer object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyContainersContainer object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyContainersContainer object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyContainersContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyContainersContainer) + 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 FCFCDFBodyContainersContainer) 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 FCFCDFBodyContainersContainer + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyContainersContainer) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyContainersContainer object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyContainersContainer object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyContainersContainer object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyContainersContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyContainersContainer) + 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 FCFCDFBodyContainersContainer) 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 FCFCDFBodyContainersContainer + 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 FCFCDFBodyDeliveryTerms + + Private codeField As String + + Private descriptionField As String + + Private placeField As String + + Private keyField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Code() As String + Get + Return Me.codeField + End Get + Set + Me.codeField = Value + End Set + End Property + + Public Property Description() As String + Get + Return Me.descriptionField + End Get + Set + Me.descriptionField = Value + End Set + End Property + + Public Property Place() As String + Get + Return Me.placeField + End Get + Set + Me.placeField = Value + End Set + End Property + + Public Property Key() As String + Get + Return Me.keyField + End Get + Set + Me.keyField = 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(FCFCDFBodyDeliveryTerms)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyDeliveryTerms object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyDeliveryTerms object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyDeliveryTerms object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyDeliveryTerms) + 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 FCFCDFBodyDeliveryTerms) 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 FCFCDFBodyDeliveryTerms + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyDeliveryTerms) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyDeliveryTerms object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyDeliveryTerms object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyDeliveryTerms object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyDeliveryTerms) + 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 FCFCDFBodyDeliveryTerms) 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 FCFCDFBodyDeliveryTerms + 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 FCFCDFBodyPaymentTransaction + + Private amountField As Decimal + + Private amountFieldSpecified As Boolean + + Private currencyCodeField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Amount() As Decimal + Get + Return Me.amountField + End Get + Set + Me.amountField = Value + End Set + End Property + + + Public Property AmountSpecified() As Boolean + Get + Return Me.amountFieldSpecified + End Get + Set + Me.amountFieldSpecified = Value + End Set + End Property + + Public Property CurrencyCode() As String + Get + Return Me.currencyCodeField + End Get + Set + Me.currencyCodeField = 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(FCFCDFBodyPaymentTransaction)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyPaymentTransaction object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyPaymentTransaction object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyPaymentTransaction object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyPaymentTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyPaymentTransaction) + 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 FCFCDFBodyPaymentTransaction) 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 FCFCDFBodyPaymentTransaction + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyPaymentTransaction) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyPaymentTransaction object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyPaymentTransaction object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyPaymentTransaction object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyPaymentTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyPaymentTransaction) + 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 FCFCDFBodyPaymentTransaction) 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 FCFCDFBodyPaymentTransaction + 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 FCFCDFBodyForeignTradeStatistics + + Private goodsStatusField As String + + Private transactionTypeField As String + + Private destinationCountryField As String + + Private destinationFederalStateField As String + + Private inlandTransportModeField As String + + Private totalGrossMassMeasureField As Decimal + + Private totalGrossMassMeasureFieldSpecified As Boolean + + Private entryCustomsOfficeField As FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.entryCustomsOfficeField = New FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice() + End Sub + + Public Property GoodsStatus() As String + Get + Return Me.goodsStatusField + End Get + Set + Me.goodsStatusField = Value + End Set + End Property + + Public Property TransactionType() As String + Get + Return Me.transactionTypeField + End Get + Set + Me.transactionTypeField = Value + End Set + End Property + + Public Property DestinationCountry() As String + Get + Return Me.destinationCountryField + End Get + Set + Me.destinationCountryField = Value + End Set + End Property + + Public Property DestinationFederalState() As String + Get + Return Me.destinationFederalStateField + End Get + Set + Me.destinationFederalStateField = Value + End Set + End Property + + Public Property InlandTransportMode() As String + Get + Return Me.inlandTransportModeField + End Get + Set + Me.inlandTransportModeField = Value + End Set + End Property + + Public Property TotalGrossMassMeasure() As Decimal + Get + Return Me.totalGrossMassMeasureField + End Get + Set + Me.totalGrossMassMeasureField = Value + End Set + End Property + + + Public Property TotalGrossMassMeasureSpecified() As Boolean + Get + Return Me.totalGrossMassMeasureFieldSpecified + End Get + Set + Me.totalGrossMassMeasureFieldSpecified = Value + End Set + End Property + + Public Property EntryCustomsOffice() As FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice + Get + Return Me.entryCustomsOfficeField + End Get + Set + Me.entryCustomsOfficeField = 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(FCFCDFBodyForeignTradeStatistics)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyForeignTradeStatistics object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyForeignTradeStatistics object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyForeignTradeStatistics object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyForeignTradeStatistics) + 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 FCFCDFBodyForeignTradeStatistics) 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 FCFCDFBodyForeignTradeStatistics + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyForeignTradeStatistics) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyForeignTradeStatistics object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyForeignTradeStatistics object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyForeignTradeStatistics object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyForeignTradeStatistics) + 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 FCFCDFBodyForeignTradeStatistics) 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 FCFCDFBodyForeignTradeStatistics + 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 FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice + + Private referenceNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = 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(FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice) + 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 FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice) 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 FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice) + 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 FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice) 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 FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice + 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 FCFCDFBodyCustomsValue + + Private formerDecisionsField As String + + Private vendorField As FCFCDFBodyCustomsValueVendor + + Private vendeeField As FCFCDFBodyCustomsValueVendee + + Private affiliationField As FCFCDFBodyCustomsValueAffiliation + + Private restrictionOrConditionField As FCFCDFBodyCustomsValueRestrictionOrCondition + + Private licenseFeeField As FCFCDFBodyCustomsValueLicenseFee + + Private resaleField As FCFCDFBodyCustomsValueResale + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.resaleField = New FCFCDFBodyCustomsValueResale() + Me.licenseFeeField = New FCFCDFBodyCustomsValueLicenseFee() + Me.restrictionOrConditionField = New FCFCDFBodyCustomsValueRestrictionOrCondition() + Me.affiliationField = New FCFCDFBodyCustomsValueAffiliation() + Me.vendeeField = New FCFCDFBodyCustomsValueVendee() + Me.vendorField = New FCFCDFBodyCustomsValueVendor() + End Sub + + Public Property FormerDecisions() As String + Get + Return Me.formerDecisionsField + End Get + Set + Me.formerDecisionsField = Value + End Set + End Property + + Public Property Vendor() As FCFCDFBodyCustomsValueVendor + Get + Return Me.vendorField + End Get + Set + Me.vendorField = Value + End Set + End Property + + Public Property Vendee() As FCFCDFBodyCustomsValueVendee + Get + Return Me.vendeeField + End Get + Set + Me.vendeeField = Value + End Set + End Property + + Public Property Affiliation() As FCFCDFBodyCustomsValueAffiliation + Get + Return Me.affiliationField + End Get + Set + Me.affiliationField = Value + End Set + End Property + + Public Property RestrictionOrCondition() As FCFCDFBodyCustomsValueRestrictionOrCondition + Get + Return Me.restrictionOrConditionField + End Get + Set + Me.restrictionOrConditionField = Value + End Set + End Property + + Public Property LicenseFee() As FCFCDFBodyCustomsValueLicenseFee + Get + Return Me.licenseFeeField + End Get + Set + Me.licenseFeeField = Value + End Set + End Property + + Public Property Resale() As FCFCDFBodyCustomsValueResale + Get + Return Me.resaleField + End Get + Set + Me.resaleField = 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(FCFCDFBodyCustomsValue)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyCustomsValue object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyCustomsValue object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyCustomsValue object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValue, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValue) + 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 FCFCDFBodyCustomsValue) 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 FCFCDFBodyCustomsValue + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyCustomsValue) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyCustomsValue object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyCustomsValue object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyCustomsValue object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValue, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValue) + 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 FCFCDFBodyCustomsValue) 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 FCFCDFBodyCustomsValue + 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 FCFCDFBodyCustomsValueVendor + + Private identificationField As FCFCDFBodyCustomsValueVendorIdentification + + Private nameField As String + + Private addressField As FCFCDFBodyCustomsValueVendorAddress + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.addressField = New FCFCDFBodyCustomsValueVendorAddress() + Me.identificationField = New FCFCDFBodyCustomsValueVendorIdentification() + End Sub + + Public Property Identification() As FCFCDFBodyCustomsValueVendorIdentification + Get + Return Me.identificationField + End Get + Set + Me.identificationField = Value + End Set + End Property + + Public Property Name() As String + Get + Return Me.nameField + End Get + Set + Me.nameField = Value + End Set + End Property + + Public Property Address() As FCFCDFBodyCustomsValueVendorAddress + Get + Return Me.addressField + End Get + Set + Me.addressField = 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(FCFCDFBodyCustomsValueVendor)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyCustomsValueVendor object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyCustomsValueVendor object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyCustomsValueVendor object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueVendor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueVendor) + 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 FCFCDFBodyCustomsValueVendor) 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 FCFCDFBodyCustomsValueVendor + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyCustomsValueVendor) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyCustomsValueVendor object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyCustomsValueVendor object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyCustomsValueVendor object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueVendor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueVendor) + 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 FCFCDFBodyCustomsValueVendor) 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 FCFCDFBodyCustomsValueVendor + 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 FCFCDFBodyCustomsValueVendorIdentification + + Private referenceNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = 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(FCFCDFBodyCustomsValueVendorIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyCustomsValueVendorIdentification object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyCustomsValueVendorIdentification object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyCustomsValueVendorIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueVendorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueVendorIdentification) + 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 FCFCDFBodyCustomsValueVendorIdentification) 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 FCFCDFBodyCustomsValueVendorIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyCustomsValueVendorIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyCustomsValueVendorIdentification object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyCustomsValueVendorIdentification object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyCustomsValueVendorIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueVendorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueVendorIdentification) + 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 FCFCDFBodyCustomsValueVendorIdentification) 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 FCFCDFBodyCustomsValueVendorIdentification + 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 FCFCDFBodyCustomsValueVendorAddress + + Private lineField As String + + Private countryField As String + + Private postcodeField As String + + Private cityField As String + + Private districtField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Line() As String + Get + Return Me.lineField + End Get + Set + Me.lineField = Value + End Set + End Property + + Public Property Country() As String + Get + Return Me.countryField + End Get + Set + Me.countryField = Value + End Set + End Property + + Public Property Postcode() As String + Get + Return Me.postcodeField + End Get + Set + Me.postcodeField = Value + End Set + End Property + + Public Property City() As String + Get + Return Me.cityField + End Get + Set + Me.cityField = Value + End Set + End Property + + Public Property District() As String + Get + Return Me.districtField + End Get + Set + Me.districtField = 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(FCFCDFBodyCustomsValueVendorAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyCustomsValueVendorAddress object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyCustomsValueVendorAddress object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyCustomsValueVendorAddress object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueVendorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueVendorAddress) + 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 FCFCDFBodyCustomsValueVendorAddress) 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 FCFCDFBodyCustomsValueVendorAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyCustomsValueVendorAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyCustomsValueVendorAddress object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyCustomsValueVendorAddress object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyCustomsValueVendorAddress object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueVendorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueVendorAddress) + 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 FCFCDFBodyCustomsValueVendorAddress) 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 FCFCDFBodyCustomsValueVendorAddress + 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 FCFCDFBodyCustomsValueVendee + + Private identificationField As FCFCDFBodyCustomsValueVendeeIdentification + + Private nameField As String + + Private addressField As FCFCDFBodyCustomsValueVendeeAddress + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.addressField = New FCFCDFBodyCustomsValueVendeeAddress() + Me.identificationField = New FCFCDFBodyCustomsValueVendeeIdentification() + End Sub + + Public Property Identification() As FCFCDFBodyCustomsValueVendeeIdentification + Get + Return Me.identificationField + End Get + Set + Me.identificationField = Value + End Set + End Property + + Public Property Name() As String + Get + Return Me.nameField + End Get + Set + Me.nameField = Value + End Set + End Property + + Public Property Address() As FCFCDFBodyCustomsValueVendeeAddress + Get + Return Me.addressField + End Get + Set + Me.addressField = 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(FCFCDFBodyCustomsValueVendee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyCustomsValueVendee object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyCustomsValueVendee object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyCustomsValueVendee object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueVendee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueVendee) + 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 FCFCDFBodyCustomsValueVendee) 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 FCFCDFBodyCustomsValueVendee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyCustomsValueVendee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyCustomsValueVendee object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyCustomsValueVendee object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyCustomsValueVendee object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueVendee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueVendee) + 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 FCFCDFBodyCustomsValueVendee) 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 FCFCDFBodyCustomsValueVendee + 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 FCFCDFBodyCustomsValueVendeeIdentification + + Private referenceNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = 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(FCFCDFBodyCustomsValueVendeeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyCustomsValueVendeeIdentification object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyCustomsValueVendeeIdentification object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyCustomsValueVendeeIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueVendeeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueVendeeIdentification) + 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 FCFCDFBodyCustomsValueVendeeIdentification) 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 FCFCDFBodyCustomsValueVendeeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyCustomsValueVendeeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyCustomsValueVendeeIdentification object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyCustomsValueVendeeIdentification object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyCustomsValueVendeeIdentification object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueVendeeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueVendeeIdentification) + 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 FCFCDFBodyCustomsValueVendeeIdentification) 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 FCFCDFBodyCustomsValueVendeeIdentification + 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 FCFCDFBodyCustomsValueVendeeAddress + + Private lineField As String + + Private countryField As String + + Private postcodeField As String + + Private cityField As String + + Private districtField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Line() As String + Get + Return Me.lineField + End Get + Set + Me.lineField = Value + End Set + End Property + + Public Property Country() As String + Get + Return Me.countryField + End Get + Set + Me.countryField = Value + End Set + End Property + + Public Property Postcode() As String + Get + Return Me.postcodeField + End Get + Set + Me.postcodeField = Value + End Set + End Property + + Public Property City() As String + Get + Return Me.cityField + End Get + Set + Me.cityField = Value + End Set + End Property + + Public Property District() As String + Get + Return Me.districtField + End Get + Set + Me.districtField = 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(FCFCDFBodyCustomsValueVendeeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyCustomsValueVendeeAddress object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyCustomsValueVendeeAddress object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyCustomsValueVendeeAddress object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueVendeeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueVendeeAddress) + 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 FCFCDFBodyCustomsValueVendeeAddress) 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 FCFCDFBodyCustomsValueVendeeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyCustomsValueVendeeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyCustomsValueVendeeAddress object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyCustomsValueVendeeAddress object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyCustomsValueVendeeAddress object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueVendeeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueVendeeAddress) + 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 FCFCDFBodyCustomsValueVendeeAddress) 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 FCFCDFBodyCustomsValueVendeeAddress + 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 FCFCDFBodyCustomsValueAffiliation + + Private typeField As String + + Private descriptionField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Type() As String + Get + Return Me.typeField + End Get + Set + Me.typeField = Value + End Set + End Property + + Public Property Description() As String + Get + Return Me.descriptionField + End Get + Set + Me.descriptionField = 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(FCFCDFBodyCustomsValueAffiliation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyCustomsValueAffiliation object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyCustomsValueAffiliation object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyCustomsValueAffiliation object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueAffiliation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueAffiliation) + 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 FCFCDFBodyCustomsValueAffiliation) 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 FCFCDFBodyCustomsValueAffiliation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyCustomsValueAffiliation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyCustomsValueAffiliation object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyCustomsValueAffiliation object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyCustomsValueAffiliation object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueAffiliation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueAffiliation) + 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 FCFCDFBodyCustomsValueAffiliation) 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 FCFCDFBodyCustomsValueAffiliation + 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 FCFCDFBodyCustomsValueRestrictionOrCondition + + Private restrictionFlagField As String + + Private conditionFlagField As String + + Private descriptionField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property RestrictionFlag() As String + Get + Return Me.restrictionFlagField + End Get + Set + Me.restrictionFlagField = Value + End Set + End Property + + Public Property ConditionFlag() As String + Get + Return Me.conditionFlagField + End Get + Set + Me.conditionFlagField = Value + End Set + End Property + + Public Property Description() As String + Get + Return Me.descriptionField + End Get + Set + Me.descriptionField = 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(FCFCDFBodyCustomsValueRestrictionOrCondition)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyCustomsValueRestrictionOrCondition object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyCustomsValueRestrictionOrCondition object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyCustomsValueRestrictionOrCondition object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueRestrictionOrCondition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueRestrictionOrCondition) + 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 FCFCDFBodyCustomsValueRestrictionOrCondition) 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 FCFCDFBodyCustomsValueRestrictionOrCondition + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyCustomsValueRestrictionOrCondition) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyCustomsValueRestrictionOrCondition object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyCustomsValueRestrictionOrCondition object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyCustomsValueRestrictionOrCondition object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueRestrictionOrCondition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueRestrictionOrCondition) + 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 FCFCDFBodyCustomsValueRestrictionOrCondition) 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 FCFCDFBodyCustomsValueRestrictionOrCondition + 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 FCFCDFBodyCustomsValueLicenseFee + + Private licenseFeeFlagField As String + + Private descriptionField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property LicenseFeeFlag() As String + Get + Return Me.licenseFeeFlagField + End Get + Set + Me.licenseFeeFlagField = Value + End Set + End Property + + Public Property Description() As String + Get + Return Me.descriptionField + End Get + Set + Me.descriptionField = 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(FCFCDFBodyCustomsValueLicenseFee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyCustomsValueLicenseFee object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyCustomsValueLicenseFee object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyCustomsValueLicenseFee object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueLicenseFee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueLicenseFee) + 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 FCFCDFBodyCustomsValueLicenseFee) 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 FCFCDFBodyCustomsValueLicenseFee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyCustomsValueLicenseFee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyCustomsValueLicenseFee object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyCustomsValueLicenseFee object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyCustomsValueLicenseFee object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueLicenseFee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueLicenseFee) + 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 FCFCDFBodyCustomsValueLicenseFee) 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 FCFCDFBodyCustomsValueLicenseFee + 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 FCFCDFBodyCustomsValueResale + + Private resaleFlagField As String + + Private descriptionField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ResaleFlag() As String + Get + Return Me.resaleFlagField + End Get + Set + Me.resaleFlagField = Value + End Set + End Property + + Public Property Description() As String + Get + Return Me.descriptionField + End Get + Set + Me.descriptionField = 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(FCFCDFBodyCustomsValueResale)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyCustomsValueResale object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyCustomsValueResale object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyCustomsValueResale object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueResale, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueResale) + 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 FCFCDFBodyCustomsValueResale) 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 FCFCDFBodyCustomsValueResale + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyCustomsValueResale) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyCustomsValueResale object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyCustomsValueResale object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyCustomsValueResale object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueResale, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyCustomsValueResale) + 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 FCFCDFBodyCustomsValueResale) 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 FCFCDFBodyCustomsValueResale + 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 FCFCDFBodyDocument + + Private divisionField As FCFCDFBodyDocumentDivision + + Private typeField As String + + Private referenceNumberField As String + + Private issuingDateField As Date + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Division() As FCFCDFBodyDocumentDivision + Get + Return Me.divisionField + End Get + Set + Me.divisionField = Value + End Set + End Property + + Public Property Type() As String + Get + Return Me.typeField + End Get + Set + Me.typeField = Value + End Set + End Property + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = Value + End Set + End Property + + Public Property IssuingDate() As Date + Get + Return Me.issuingDateField + End Get + Set + Me.issuingDateField = 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(FCFCDFBodyDocument)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyDocument object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyDocument object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyDocument object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyDocument) + 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 FCFCDFBodyDocument) 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 FCFCDFBodyDocument + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyDocument) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyDocument object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyDocument object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyDocument object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyDocument) + 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 FCFCDFBodyDocument) 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 FCFCDFBodyDocument + 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 + + Public Enum FCFCDFBodyDocumentDivision + + ''' + + Item4 + End Enum + + Partial Public Class FCFCDFBodyGoodsItem + + Private sequenceNumberField As String + + Private procedureField As FCFCDFBodyGoodsItemProcedure + + Private cessionManagementFlagField As String + + Private goodsDescriptionField As String + + Private invoiceAmountField As Decimal + + Private netMassMeasureField As Decimal + + Private tobaccoRevenueStampNumberField As String + + Private originCountryField As String + + Private preferentialOriginCountryField As String + + Private supplementaryInformationField As String + + Private conditionField As String + + Private commodityCodeField As FCFCDFBodyGoodsItemCommodityCode + + Private additionalProcedureField As List(Of FCFCDFBodyGoodsItemAdditionalProcedure) + + Private supplementaryCodesField As List(Of FCFCDFBodyGoodsItemSupplementaryCodes) + + Private packageField As FCFCDFBodyGoodsItemPackage + + Private foreignTradeStatisticsField As FCFCDFBodyGoodsItemForeignTradeStatistics + + Private customsValueField As FCFCDFBodyGoodsItemCustomsValue + + Private assessmentField As FCFCDFBodyGoodsItemAssessment + + Private exciseDutyField As List(Of FCFCDFBodyGoodsItemExciseDuty) + + Private preferentialTreatmentField As FCFCDFBodyGoodsItemPreferentialTreatment + + Private specialCaseField As List(Of FCFCDFBodyGoodsItemSpecialCase) + + Private documentField As List(Of FCFCDFBodyGoodsItemDocument) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.documentField = New List(Of FCFCDFBodyGoodsItemDocument)() + Me.specialCaseField = New List(Of FCFCDFBodyGoodsItemSpecialCase)() + Me.preferentialTreatmentField = New FCFCDFBodyGoodsItemPreferentialTreatment() + Me.exciseDutyField = New List(Of FCFCDFBodyGoodsItemExciseDuty)() + Me.assessmentField = New FCFCDFBodyGoodsItemAssessment() + Me.customsValueField = New FCFCDFBodyGoodsItemCustomsValue() + Me.foreignTradeStatisticsField = New FCFCDFBodyGoodsItemForeignTradeStatistics() + Me.packageField = New FCFCDFBodyGoodsItemPackage() + Me.supplementaryCodesField = New List(Of FCFCDFBodyGoodsItemSupplementaryCodes)() + Me.additionalProcedureField = New List(Of FCFCDFBodyGoodsItemAdditionalProcedure)() + Me.commodityCodeField = New FCFCDFBodyGoodsItemCommodityCode() + Me.procedureField = New FCFCDFBodyGoodsItemProcedure() + End Sub + + Public Property SequenceNumber() As String + Get + Return Me.sequenceNumberField + End Get + Set + Me.sequenceNumberField = Value + End Set + End Property + + Public Property Procedure() As FCFCDFBodyGoodsItemProcedure + Get + Return Me.procedureField + End Get + Set + Me.procedureField = Value + End Set + End Property + + Public Property CessionManagementFlag() As String + Get + Return Me.cessionManagementFlagField + End Get + Set + Me.cessionManagementFlagField = Value + End Set + End Property + + Public Property GoodsDescription() As String + Get + Return Me.goodsDescriptionField + End Get + Set + Me.goodsDescriptionField = Value + End Set + End Property + + Public Property InvoiceAmount() As Decimal + Get + Return Me.invoiceAmountField + End Get + Set + Me.invoiceAmountField = Value + End Set + End Property + + Public Property NetMassMeasure() As Decimal + Get + Return Me.netMassMeasureField + End Get + Set + Me.netMassMeasureField = Value + End Set + End Property + + Public Property TobaccoRevenueStampNumber() As String + Get + Return Me.tobaccoRevenueStampNumberField + End Get + Set + Me.tobaccoRevenueStampNumberField = Value + End Set + End Property + + Public Property OriginCountry() As String + Get + Return Me.originCountryField + End Get + Set + Me.originCountryField = Value + End Set + End Property + + Public Property PreferentialOriginCountry() As String + Get + Return Me.preferentialOriginCountryField + End Get + Set + Me.preferentialOriginCountryField = Value + End Set + End Property + + Public Property SupplementaryInformation() As String + Get + Return Me.supplementaryInformationField + End Get + Set + Me.supplementaryInformationField = Value + End Set + End Property + + Public Property Condition() As String + Get + Return Me.conditionField + End Get + Set + Me.conditionField = Value + End Set + End Property + + Public Property CommodityCode() As FCFCDFBodyGoodsItemCommodityCode + Get + Return Me.commodityCodeField + End Get + Set + Me.commodityCodeField = Value + End Set + End Property + + Public Property AdditionalProcedure() As List(Of FCFCDFBodyGoodsItemAdditionalProcedure) + Get + Return Me.additionalProcedureField + End Get + Set + Me.additionalProcedureField = Value + End Set + End Property + + Public Property SupplementaryCodes() As List(Of FCFCDFBodyGoodsItemSupplementaryCodes) + Get + Return Me.supplementaryCodesField + End Get + Set + Me.supplementaryCodesField = Value + End Set + End Property + + Public Property Package() As FCFCDFBodyGoodsItemPackage + Get + Return Me.packageField + End Get + Set + Me.packageField = Value + End Set + End Property + + Public Property ForeignTradeStatistics() As FCFCDFBodyGoodsItemForeignTradeStatistics + Get + Return Me.foreignTradeStatisticsField + End Get + Set + Me.foreignTradeStatisticsField = Value + End Set + End Property + + Public Property CustomsValue() As FCFCDFBodyGoodsItemCustomsValue + Get + Return Me.customsValueField + End Get + Set + Me.customsValueField = Value + End Set + End Property + + Public Property Assessment() As FCFCDFBodyGoodsItemAssessment + Get + Return Me.assessmentField + End Get + Set + Me.assessmentField = Value + End Set + End Property + + Public Property ExciseDuty() As List(Of FCFCDFBodyGoodsItemExciseDuty) + Get + Return Me.exciseDutyField + End Get + Set + Me.exciseDutyField = Value + End Set + End Property + + Public Property PreferentialTreatment() As FCFCDFBodyGoodsItemPreferentialTreatment + Get + Return Me.preferentialTreatmentField + End Get + Set + Me.preferentialTreatmentField = Value + End Set + End Property + + Public Property SpecialCase() As List(Of FCFCDFBodyGoodsItemSpecialCase) + Get + Return Me.specialCaseField + End Get + Set + Me.specialCaseField = Value + End Set + End Property + + Public Property Document() As List(Of FCFCDFBodyGoodsItemDocument) + Get + Return Me.documentField + End Get + Set + Me.documentField = 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(FCFCDFBodyGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItem object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItem object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItem object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItem) + 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 FCFCDFBodyGoodsItem) 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 FCFCDFBodyGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItem object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItem object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItem object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItem) + 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 FCFCDFBodyGoodsItem) 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 FCFCDFBodyGoodsItem + 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 FCFCDFBodyGoodsItemProcedure + + Private requestedPreviousProcedureField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property RequestedPreviousProcedure() As String + Get + Return Me.requestedPreviousProcedureField + End Get + Set + Me.requestedPreviousProcedureField = 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(FCFCDFBodyGoodsItemProcedure)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemProcedure object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemProcedure object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemProcedure object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemProcedure) + 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 FCFCDFBodyGoodsItemProcedure) 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 FCFCDFBodyGoodsItemProcedure + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemProcedure) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemProcedure object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemProcedure object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemProcedure object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemProcedure) + 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 FCFCDFBodyGoodsItemProcedure) 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 FCFCDFBodyGoodsItemProcedure + 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 FCFCDFBodyGoodsItemCommodityCode + + Private commodityCodeField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property CommodityCode() As String + Get + Return Me.commodityCodeField + End Get + Set + Me.commodityCodeField = 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(FCFCDFBodyGoodsItemCommodityCode)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemCommodityCode object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemCommodityCode object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemCommodityCode object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemCommodityCode) + 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 FCFCDFBodyGoodsItemCommodityCode) 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 FCFCDFBodyGoodsItemCommodityCode + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemCommodityCode) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemCommodityCode object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemCommodityCode object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemCommodityCode object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemCommodityCode) + 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 FCFCDFBodyGoodsItemCommodityCode) 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 FCFCDFBodyGoodsItemCommodityCode + 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 FCFCDFBodyGoodsItemAdditionalProcedure + + Private codeField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Code() As String + Get + Return Me.codeField + End Get + Set + Me.codeField = 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(FCFCDFBodyGoodsItemAdditionalProcedure)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemAdditionalProcedure object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemAdditionalProcedure object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemAdditionalProcedure object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemAdditionalProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemAdditionalProcedure) + 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 FCFCDFBodyGoodsItemAdditionalProcedure) 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 FCFCDFBodyGoodsItemAdditionalProcedure + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemAdditionalProcedure) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemAdditionalProcedure object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemAdditionalProcedure object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemAdditionalProcedure object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemAdditionalProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemAdditionalProcedure) + 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 FCFCDFBodyGoodsItemAdditionalProcedure) 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 FCFCDFBodyGoodsItemAdditionalProcedure + 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 FCFCDFBodyGoodsItemSupplementaryCodes + + Private codeField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Code() As String + Get + Return Me.codeField + End Get + Set + Me.codeField = 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(FCFCDFBodyGoodsItemSupplementaryCodes)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemSupplementaryCodes object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemSupplementaryCodes object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemSupplementaryCodes object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemSupplementaryCodes, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemSupplementaryCodes) + 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 FCFCDFBodyGoodsItemSupplementaryCodes) 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 FCFCDFBodyGoodsItemSupplementaryCodes + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemSupplementaryCodes) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemSupplementaryCodes object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemSupplementaryCodes object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemSupplementaryCodes object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemSupplementaryCodes, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemSupplementaryCodes) + 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 FCFCDFBodyGoodsItemSupplementaryCodes) 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 FCFCDFBodyGoodsItemSupplementaryCodes + 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 FCFCDFBodyGoodsItemPackage + + Private kindField As String + + Private quantityField As String + + Private marksNumbersField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Kind() As String + Get + Return Me.kindField + End Get + Set + Me.kindField = Value + End Set + End Property + + Public Property Quantity() As String + Get + Return Me.quantityField + End Get + Set + Me.quantityField = Value + End Set + End Property + + Public Property MarksNumbers() As String + Get + Return Me.marksNumbersField + End Get + Set + Me.marksNumbersField = 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(FCFCDFBodyGoodsItemPackage)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemPackage object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemPackage object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemPackage object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemPackage) + 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 FCFCDFBodyGoodsItemPackage) 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 FCFCDFBodyGoodsItemPackage + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemPackage) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemPackage object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemPackage object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemPackage object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemPackage) + 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 FCFCDFBodyGoodsItemPackage) 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 FCFCDFBodyGoodsItemPackage + 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 FCFCDFBodyGoodsItemForeignTradeStatistics + + Private quantityField As String + + Private grossMassMeasureField As Decimal + + Private grossMassMeasureFieldSpecified As Boolean + + Private amountField As FCFCDFBodyGoodsItemForeignTradeStatisticsAmount + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.amountField = New FCFCDFBodyGoodsItemForeignTradeStatisticsAmount() + End Sub + + Public Property Quantity() As String + Get + Return Me.quantityField + End Get + Set + Me.quantityField = Value + End Set + End Property + + Public Property GrossMassMeasure() As Decimal + Get + Return Me.grossMassMeasureField + End Get + Set + Me.grossMassMeasureField = Value + End Set + End Property + + + Public Property GrossMassMeasureSpecified() As Boolean + Get + Return Me.grossMassMeasureFieldSpecified + End Get + Set + Me.grossMassMeasureFieldSpecified = Value + End Set + End Property + + Public Property Amount() As FCFCDFBodyGoodsItemForeignTradeStatisticsAmount + Get + Return Me.amountField + End Get + Set + Me.amountField = 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(FCFCDFBodyGoodsItemForeignTradeStatistics)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemForeignTradeStatistics object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemForeignTradeStatistics object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemForeignTradeStatistics object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemForeignTradeStatistics) + 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 FCFCDFBodyGoodsItemForeignTradeStatistics) 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 FCFCDFBodyGoodsItemForeignTradeStatistics + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemForeignTradeStatistics) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemForeignTradeStatistics object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemForeignTradeStatistics object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemForeignTradeStatistics object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemForeignTradeStatistics) + 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 FCFCDFBodyGoodsItemForeignTradeStatistics) 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 FCFCDFBodyGoodsItemForeignTradeStatistics + 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 FCFCDFBodyGoodsItemForeignTradeStatisticsAmount + + Private quantityField As Decimal + + Private measurementUnitField As String + + Private qualifierField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Quantity() As Decimal + Get + Return Me.quantityField + End Get + Set + Me.quantityField = Value + End Set + End Property + + Public Property MeasurementUnit() As String + Get + Return Me.measurementUnitField + End Get + Set + Me.measurementUnitField = 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(FCFCDFBodyGoodsItemForeignTradeStatisticsAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemForeignTradeStatisticsAmount object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemForeignTradeStatisticsAmount object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemForeignTradeStatisticsAmount object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemForeignTradeStatisticsAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemForeignTradeStatisticsAmount) + 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 FCFCDFBodyGoodsItemForeignTradeStatisticsAmount) 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 FCFCDFBodyGoodsItemForeignTradeStatisticsAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemForeignTradeStatisticsAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemForeignTradeStatisticsAmount object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemForeignTradeStatisticsAmount object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemForeignTradeStatisticsAmount object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemForeignTradeStatisticsAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemForeignTradeStatisticsAmount) + 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 FCFCDFBodyGoodsItemForeignTradeStatisticsAmount) 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 FCFCDFBodyGoodsItemForeignTradeStatisticsAmount + 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 FCFCDFBodyGoodsItemCustomsValue + + Private departureAirportField As String + + Private destinationPlaceField As String + + Private additionDeductionDescriptionField As String + + Private netPriceField As FCFCDFBodyGoodsItemCustomsValueNetPrice + + Private indirectPaymentField As FCFCDFBodyGoodsItemCustomsValueIndirectPayment + + Private airFreightCostsField As FCFCDFBodyGoodsItemCustomsValueAirFreightCosts + + Private additionDeductionField As List(Of FCFCDFBodyGoodsItemCustomsValueAdditionDeduction) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.additionDeductionField = New List(Of FCFCDFBodyGoodsItemCustomsValueAdditionDeduction)() + Me.airFreightCostsField = New FCFCDFBodyGoodsItemCustomsValueAirFreightCosts() + Me.indirectPaymentField = New FCFCDFBodyGoodsItemCustomsValueIndirectPayment() + Me.netPriceField = New FCFCDFBodyGoodsItemCustomsValueNetPrice() + End Sub + + Public Property DepartureAirport() As String + Get + Return Me.departureAirportField + End Get + Set + Me.departureAirportField = Value + End Set + End Property + + Public Property DestinationPlace() As String + Get + Return Me.destinationPlaceField + End Get + Set + Me.destinationPlaceField = Value + End Set + End Property + + Public Property AdditionDeductionDescription() As String + Get + Return Me.additionDeductionDescriptionField + End Get + Set + Me.additionDeductionDescriptionField = Value + End Set + End Property + + Public Property NetPrice() As FCFCDFBodyGoodsItemCustomsValueNetPrice + Get + Return Me.netPriceField + End Get + Set + Me.netPriceField = Value + End Set + End Property + + Public Property IndirectPayment() As FCFCDFBodyGoodsItemCustomsValueIndirectPayment + Get + Return Me.indirectPaymentField + End Get + Set + Me.indirectPaymentField = Value + End Set + End Property + + Public Property AirFreightCosts() As FCFCDFBodyGoodsItemCustomsValueAirFreightCosts + Get + Return Me.airFreightCostsField + End Get + Set + Me.airFreightCostsField = Value + End Set + End Property + + Public Property AdditionDeduction() As List(Of FCFCDFBodyGoodsItemCustomsValueAdditionDeduction) + Get + Return Me.additionDeductionField + End Get + Set + Me.additionDeductionField = 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(FCFCDFBodyGoodsItemCustomsValue)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemCustomsValue object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemCustomsValue object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemCustomsValue object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValue, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValue) + 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 FCFCDFBodyGoodsItemCustomsValue) 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 FCFCDFBodyGoodsItemCustomsValue + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemCustomsValue) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemCustomsValue object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemCustomsValue object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemCustomsValue object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValue, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValue) + 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 FCFCDFBodyGoodsItemCustomsValue) 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 FCFCDFBodyGoodsItemCustomsValue + 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 FCFCDFBodyGoodsItemCustomsValueNetPrice + + Private valueField As Decimal + + Private currencyCodeField As String + + Private currencyRateAgreedFlagField As String + + Private currencyRateField As Decimal + + Private currencyRateFieldSpecified As Boolean + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Value() As Decimal + Get + Return Me.valueField + End Get + Set + Me.valueField = Value + End Set + End Property + + Public Property CurrencyCode() As String + Get + Return Me.currencyCodeField + End Get + Set + Me.currencyCodeField = Value + End Set + End Property + + Public Property CurrencyRateAgreedFlag() As String + Get + Return Me.currencyRateAgreedFlagField + End Get + Set + Me.currencyRateAgreedFlagField = Value + End Set + End Property + + Public Property CurrencyRate() As Decimal + Get + Return Me.currencyRateField + End Get + Set + Me.currencyRateField = Value + End Set + End Property + + + Public Property CurrencyRateSpecified() As Boolean + Get + Return Me.currencyRateFieldSpecified + End Get + Set + Me.currencyRateFieldSpecified = 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(FCFCDFBodyGoodsItemCustomsValueNetPrice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemCustomsValueNetPrice object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemCustomsValueNetPrice object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemCustomsValueNetPrice object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueNetPrice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValueNetPrice) + 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 FCFCDFBodyGoodsItemCustomsValueNetPrice) 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 FCFCDFBodyGoodsItemCustomsValueNetPrice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemCustomsValueNetPrice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemCustomsValueNetPrice object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemCustomsValueNetPrice object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemCustomsValueNetPrice object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueNetPrice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValueNetPrice) + 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 FCFCDFBodyGoodsItemCustomsValueNetPrice) 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 FCFCDFBodyGoodsItemCustomsValueNetPrice + 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 FCFCDFBodyGoodsItemCustomsValueIndirectPayment + + Private valueField As Decimal + + Private currencyCodeField As String + + Private currencyRateAgreedFlagField As String + + Private currencyRateField As Decimal + + Private currencyRateFieldSpecified As Boolean + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Value() As Decimal + Get + Return Me.valueField + End Get + Set + Me.valueField = Value + End Set + End Property + + Public Property CurrencyCode() As String + Get + Return Me.currencyCodeField + End Get + Set + Me.currencyCodeField = Value + End Set + End Property + + Public Property CurrencyRateAgreedFlag() As String + Get + Return Me.currencyRateAgreedFlagField + End Get + Set + Me.currencyRateAgreedFlagField = Value + End Set + End Property + + Public Property CurrencyRate() As Decimal + Get + Return Me.currencyRateField + End Get + Set + Me.currencyRateField = Value + End Set + End Property + + + Public Property CurrencyRateSpecified() As Boolean + Get + Return Me.currencyRateFieldSpecified + End Get + Set + Me.currencyRateFieldSpecified = 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(FCFCDFBodyGoodsItemCustomsValueIndirectPayment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemCustomsValueIndirectPayment object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemCustomsValueIndirectPayment object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemCustomsValueIndirectPayment object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueIndirectPayment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValueIndirectPayment) + 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 FCFCDFBodyGoodsItemCustomsValueIndirectPayment) 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 FCFCDFBodyGoodsItemCustomsValueIndirectPayment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemCustomsValueIndirectPayment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemCustomsValueIndirectPayment object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemCustomsValueIndirectPayment object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemCustomsValueIndirectPayment object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueIndirectPayment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValueIndirectPayment) + 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 FCFCDFBodyGoodsItemCustomsValueIndirectPayment) 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 FCFCDFBodyGoodsItemCustomsValueIndirectPayment + 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 FCFCDFBodyGoodsItemCustomsValueAirFreightCosts + + Private valueField As Decimal + + Private currencyCodeField As String + + Private currencyRateIATAField As String + + Private currencyRateAgreedFlagField As String + + Private currencyRateField As Decimal + + Private currencyRateFieldSpecified As Boolean + + Private currencyRateDateField As Date + + Private currencyRateDateFieldSpecified As Boolean + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Value() As Decimal + Get + Return Me.valueField + End Get + Set + Me.valueField = Value + End Set + End Property + + Public Property CurrencyCode() As String + Get + Return Me.currencyCodeField + End Get + Set + Me.currencyCodeField = Value + End Set + End Property + + Public Property CurrencyRateIATA() As String + Get + Return Me.currencyRateIATAField + End Get + Set + Me.currencyRateIATAField = Value + End Set + End Property + + Public Property CurrencyRateAgreedFlag() As String + Get + Return Me.currencyRateAgreedFlagField + End Get + Set + Me.currencyRateAgreedFlagField = Value + End Set + End Property + + Public Property CurrencyRate() As Decimal + Get + Return Me.currencyRateField + End Get + Set + Me.currencyRateField = Value + End Set + End Property + + + Public Property CurrencyRateSpecified() As Boolean + Get + Return Me.currencyRateFieldSpecified + End Get + Set + Me.currencyRateFieldSpecified = Value + End Set + End Property + + Public Property CurrencyRateDate() As Date + Get + Return Me.currencyRateDateField + End Get + Set + Me.currencyRateDateField = Value + End Set + End Property + + + Public Property CurrencyRateDateSpecified() As Boolean + Get + Return Me.currencyRateDateFieldSpecified + End Get + Set + Me.currencyRateDateFieldSpecified = 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(FCFCDFBodyGoodsItemCustomsValueAirFreightCosts)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemCustomsValueAirFreightCosts object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemCustomsValueAirFreightCosts object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemCustomsValueAirFreightCosts object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueAirFreightCosts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValueAirFreightCosts) + 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 FCFCDFBodyGoodsItemCustomsValueAirFreightCosts) 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 FCFCDFBodyGoodsItemCustomsValueAirFreightCosts + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemCustomsValueAirFreightCosts) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemCustomsValueAirFreightCosts object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemCustomsValueAirFreightCosts object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemCustomsValueAirFreightCosts object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueAirFreightCosts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValueAirFreightCosts) + 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 FCFCDFBodyGoodsItemCustomsValueAirFreightCosts) 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 FCFCDFBodyGoodsItemCustomsValueAirFreightCosts + 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 FCFCDFBodyGoodsItemCustomsValueAdditionDeduction + + Private typeField As String + + Private valueField As Decimal + + Private currencyCodeField As String + + Private currencyRateIATAField As String + + Private currencyRateAgreedFlagField As String + + Private currencyRateField As Decimal + + Private currencyRateFieldSpecified As Boolean + + Private currencyRateDateField As Date + + Private currencyRateDateFieldSpecified As Boolean + + Private percentageField As Decimal + + Private percentageFieldSpecified As Boolean + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Type() As String + Get + Return Me.typeField + End Get + Set + Me.typeField = Value + End Set + End Property + + Public Property Value() As Decimal + Get + Return Me.valueField + End Get + Set + Me.valueField = Value + End Set + End Property + + Public Property CurrencyCode() As String + Get + Return Me.currencyCodeField + End Get + Set + Me.currencyCodeField = Value + End Set + End Property + + Public Property CurrencyRateIATA() As String + Get + Return Me.currencyRateIATAField + End Get + Set + Me.currencyRateIATAField = Value + End Set + End Property + + Public Property CurrencyRateAgreedFlag() As String + Get + Return Me.currencyRateAgreedFlagField + End Get + Set + Me.currencyRateAgreedFlagField = Value + End Set + End Property + + Public Property CurrencyRate() As Decimal + Get + Return Me.currencyRateField + End Get + Set + Me.currencyRateField = Value + End Set + End Property + + + Public Property CurrencyRateSpecified() As Boolean + Get + Return Me.currencyRateFieldSpecified + End Get + Set + Me.currencyRateFieldSpecified = Value + End Set + End Property + + Public Property CurrencyRateDate() As Date + Get + Return Me.currencyRateDateField + End Get + Set + Me.currencyRateDateField = Value + End Set + End Property + + + Public Property CurrencyRateDateSpecified() As Boolean + Get + Return Me.currencyRateDateFieldSpecified + End Get + Set + Me.currencyRateDateFieldSpecified = Value + End Set + End Property + + Public Property Percentage() As Decimal + Get + Return Me.percentageField + End Get + Set + Me.percentageField = Value + End Set + End Property + + + Public Property PercentageSpecified() As Boolean + Get + Return Me.percentageFieldSpecified + End Get + Set + Me.percentageFieldSpecified = 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(FCFCDFBodyGoodsItemCustomsValueAdditionDeduction)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemCustomsValueAdditionDeduction object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemCustomsValueAdditionDeduction object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemCustomsValueAdditionDeduction object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueAdditionDeduction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValueAdditionDeduction) + 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 FCFCDFBodyGoodsItemCustomsValueAdditionDeduction) 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 FCFCDFBodyGoodsItemCustomsValueAdditionDeduction + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemCustomsValueAdditionDeduction) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemCustomsValueAdditionDeduction object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemCustomsValueAdditionDeduction object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemCustomsValueAdditionDeduction object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueAdditionDeduction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValueAdditionDeduction) + 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 FCFCDFBodyGoodsItemCustomsValueAdditionDeduction) 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 FCFCDFBodyGoodsItemCustomsValueAdditionDeduction + 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 FCFCDFBodyGoodsItemAssessment + + Private customsValueField As Decimal + + Private customsValueFieldSpecified As Boolean + + Private outwardProcessingFeeField As Decimal + + Private outwardProcessingFeeFieldSpecified As Boolean + + Private taxCostsField As Decimal + + Private taxCostsFieldSpecified As Boolean + + Private amountField As List(Of FCFCDFBodyGoodsItemAssessmentAmount) + + Private specificRateField As List(Of FCFCDFBodyGoodsItemAssessmentSpecificRate) + + Private contentInformationField As List(Of FCFCDFBodyGoodsItemAssessmentContentInformation) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.contentInformationField = New List(Of FCFCDFBodyGoodsItemAssessmentContentInformation)() + Me.specificRateField = New List(Of FCFCDFBodyGoodsItemAssessmentSpecificRate)() + Me.amountField = New List(Of FCFCDFBodyGoodsItemAssessmentAmount)() + End Sub + + Public Property CustomsValue() As Decimal + Get + Return Me.customsValueField + End Get + Set + Me.customsValueField = Value + End Set + End Property + + + Public Property CustomsValueSpecified() As Boolean + Get + Return Me.customsValueFieldSpecified + End Get + Set + Me.customsValueFieldSpecified = Value + End Set + End Property + + Public Property OutwardProcessingFee() As Decimal + Get + Return Me.outwardProcessingFeeField + End Get + Set + Me.outwardProcessingFeeField = Value + End Set + End Property + + + Public Property OutwardProcessingFeeSpecified() As Boolean + Get + Return Me.outwardProcessingFeeFieldSpecified + End Get + Set + Me.outwardProcessingFeeFieldSpecified = Value + End Set + End Property + + Public Property TaxCosts() As Decimal + Get + Return Me.taxCostsField + End Get + Set + Me.taxCostsField = Value + End Set + End Property + + + Public Property TaxCostsSpecified() As Boolean + Get + Return Me.taxCostsFieldSpecified + End Get + Set + Me.taxCostsFieldSpecified = Value + End Set + End Property + + Public Property Amount() As List(Of FCFCDFBodyGoodsItemAssessmentAmount) + Get + Return Me.amountField + End Get + Set + Me.amountField = Value + End Set + End Property + + Public Property SpecificRate() As List(Of FCFCDFBodyGoodsItemAssessmentSpecificRate) + Get + Return Me.specificRateField + End Get + Set + Me.specificRateField = Value + End Set + End Property + + Public Property ContentInformation() As List(Of FCFCDFBodyGoodsItemAssessmentContentInformation) + Get + Return Me.contentInformationField + End Get + Set + Me.contentInformationField = 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(FCFCDFBodyGoodsItemAssessment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemAssessment object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemAssessment object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemAssessment object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemAssessment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemAssessment) + 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 FCFCDFBodyGoodsItemAssessment) 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 FCFCDFBodyGoodsItemAssessment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemAssessment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemAssessment object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemAssessment object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemAssessment object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemAssessment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemAssessment) + 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 FCFCDFBodyGoodsItemAssessment) 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 FCFCDFBodyGoodsItemAssessment + 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 FCFCDFBodyGoodsItemAssessmentAmount + + Private quantityField As Decimal + + Private measurementUnitField As String + + Private qualifierField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Quantity() As Decimal + Get + Return Me.quantityField + End Get + Set + Me.quantityField = Value + End Set + End Property + + Public Property MeasurementUnit() As String + Get + Return Me.measurementUnitField + End Get + Set + Me.measurementUnitField = 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(FCFCDFBodyGoodsItemAssessmentAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemAssessmentAmount object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemAssessmentAmount object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemAssessmentAmount object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemAssessmentAmount) + 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 FCFCDFBodyGoodsItemAssessmentAmount) 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 FCFCDFBodyGoodsItemAssessmentAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemAssessmentAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemAssessmentAmount object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemAssessmentAmount object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemAssessmentAmount object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemAssessmentAmount) + 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 FCFCDFBodyGoodsItemAssessmentAmount) 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 FCFCDFBodyGoodsItemAssessmentAmount + 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 FCFCDFBodyGoodsItemAssessmentSpecificRate + + Private typeField As String + + Private valueField As Decimal + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Type() As String + Get + Return Me.typeField + End Get + Set + Me.typeField = Value + End Set + End Property + + Public Property Value() As Decimal + Get + Return Me.valueField + End Get + Set + Me.valueField = 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(FCFCDFBodyGoodsItemAssessmentSpecificRate)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemAssessmentSpecificRate object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemAssessmentSpecificRate object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemAssessmentSpecificRate object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentSpecificRate, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemAssessmentSpecificRate) + 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 FCFCDFBodyGoodsItemAssessmentSpecificRate) 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 FCFCDFBodyGoodsItemAssessmentSpecificRate + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemAssessmentSpecificRate) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemAssessmentSpecificRate object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemAssessmentSpecificRate object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemAssessmentSpecificRate object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentSpecificRate, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemAssessmentSpecificRate) + 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 FCFCDFBodyGoodsItemAssessmentSpecificRate) 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 FCFCDFBodyGoodsItemAssessmentSpecificRate + 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 FCFCDFBodyGoodsItemAssessmentContentInformation + + Private typeField As String + + Private degreePercentageField As Decimal + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Type() As String + Get + Return Me.typeField + End Get + Set + Me.typeField = Value + End Set + End Property + + Public Property DegreePercentage() As Decimal + Get + Return Me.degreePercentageField + End Get + Set + Me.degreePercentageField = 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(FCFCDFBodyGoodsItemAssessmentContentInformation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemAssessmentContentInformation object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemAssessmentContentInformation object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemAssessmentContentInformation object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentContentInformation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemAssessmentContentInformation) + 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 FCFCDFBodyGoodsItemAssessmentContentInformation) 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 FCFCDFBodyGoodsItemAssessmentContentInformation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemAssessmentContentInformation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemAssessmentContentInformation object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemAssessmentContentInformation object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemAssessmentContentInformation object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentContentInformation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemAssessmentContentInformation) + 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 FCFCDFBodyGoodsItemAssessmentContentInformation) 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 FCFCDFBodyGoodsItemAssessmentContentInformation + 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 FCFCDFBodyGoodsItemExciseDuty + + Private codeField As String + + Private degreePercentageField As Decimal + + Private degreePercentageFieldSpecified As Boolean + + Private valueField As Decimal + + Private valueFieldSpecified As Boolean + + Private amountField As FCFCDFBodyGoodsItemExciseDutyAmount + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.amountField = New FCFCDFBodyGoodsItemExciseDutyAmount() + End Sub + + Public Property Code() As String + Get + Return Me.codeField + End Get + Set + Me.codeField = Value + End Set + End Property + + Public Property DegreePercentage() As Decimal + Get + Return Me.degreePercentageField + End Get + Set + Me.degreePercentageField = Value + End Set + End Property + + + Public Property DegreePercentageSpecified() As Boolean + Get + Return Me.degreePercentageFieldSpecified + End Get + Set + Me.degreePercentageFieldSpecified = Value + End Set + End Property + + Public Property Value() As Decimal + Get + Return Me.valueField + End Get + Set + Me.valueField = Value + End Set + End Property + + + Public Property ValueSpecified() As Boolean + Get + Return Me.valueFieldSpecified + End Get + Set + Me.valueFieldSpecified = Value + End Set + End Property + + Public Property Amount() As FCFCDFBodyGoodsItemExciseDutyAmount + Get + Return Me.amountField + End Get + Set + Me.amountField = 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(FCFCDFBodyGoodsItemExciseDuty)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemExciseDuty object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemExciseDuty object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemExciseDuty object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemExciseDuty, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemExciseDuty) + 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 FCFCDFBodyGoodsItemExciseDuty) 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 FCFCDFBodyGoodsItemExciseDuty + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemExciseDuty) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemExciseDuty object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemExciseDuty object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemExciseDuty object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemExciseDuty, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemExciseDuty) + 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 FCFCDFBodyGoodsItemExciseDuty) 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 FCFCDFBodyGoodsItemExciseDuty + 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 FCFCDFBodyGoodsItemExciseDutyAmount + + Private quantityField As Decimal + + Private measurementUnitField As String + + Private qualifierField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Quantity() As Decimal + Get + Return Me.quantityField + End Get + Set + Me.quantityField = Value + End Set + End Property + + Public Property MeasurementUnit() As String + Get + Return Me.measurementUnitField + End Get + Set + Me.measurementUnitField = 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(FCFCDFBodyGoodsItemExciseDutyAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemExciseDutyAmount object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemExciseDutyAmount object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemExciseDutyAmount object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemExciseDutyAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemExciseDutyAmount) + 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 FCFCDFBodyGoodsItemExciseDutyAmount) 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 FCFCDFBodyGoodsItemExciseDutyAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemExciseDutyAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemExciseDutyAmount object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemExciseDutyAmount object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemExciseDutyAmount object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemExciseDutyAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemExciseDutyAmount) + 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 FCFCDFBodyGoodsItemExciseDutyAmount) 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 FCFCDFBodyGoodsItemExciseDutyAmount + 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 FCFCDFBodyGoodsItemPreferentialTreatment + + Private requestedPreferentialTreatmentField As String + + Private declarationField As FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.declarationField = New FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration() + End Sub + + Public Property RequestedPreferentialTreatment() As String + Get + Return Me.requestedPreferentialTreatmentField + End Get + Set + Me.requestedPreferentialTreatmentField = Value + End Set + End Property + + Public Property Declaration() As FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration + Get + Return Me.declarationField + End Get + Set + Me.declarationField = 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(FCFCDFBodyGoodsItemPreferentialTreatment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemPreferentialTreatment object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemPreferentialTreatment object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemPreferentialTreatment object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemPreferentialTreatment) + 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 FCFCDFBodyGoodsItemPreferentialTreatment) 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 FCFCDFBodyGoodsItemPreferentialTreatment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemPreferentialTreatment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemPreferentialTreatment object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemPreferentialTreatment object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemPreferentialTreatment object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemPreferentialTreatment) + 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 FCFCDFBodyGoodsItemPreferentialTreatment) 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 FCFCDFBodyGoodsItemPreferentialTreatment + 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 FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration + + Private contingentField As List(Of FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent) + + Private preferentialTreatmentQuantityField As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.preferentialTreatmentQuantityField = New FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity() + Me.contingentField = New List(Of FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent)() + End Sub + + Public Property Contingent() As List(Of FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent) + Get + Return Me.contingentField + End Get + Set + Me.contingentField = Value + End Set + End Property + + Public Property PreferentialTreatmentQuantity() As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + Get + Return Me.preferentialTreatmentQuantityField + End Get + Set + Me.preferentialTreatmentQuantityField = 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(FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration) + 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 FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration) 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 FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration) + 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 FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration) 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 FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration + 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 FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent + + Private contingentNumberField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ContingentNumber() As String + Get + Return Me.contingentNumberField + End Get + Set + Me.contingentNumberField = 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(FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent) + 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 FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent) 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 FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent) + 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 FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent) 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 FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent + 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 FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + + Private quantityField As String + + Private measurementUnitField As String + + Private qualifierField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Quantity() As String + Get + Return Me.quantityField + End Get + Set + Me.quantityField = Value + End Set + End Property + + Public Property MeasurementUnit() As String + Get + Return Me.measurementUnitField + End Get + Set + Me.measurementUnitField = 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(FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) + 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 FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) 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 FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) + 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 FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) 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 FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + 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 FCFCDFBodyGoodsItemSpecialCase + + Private groupField As String + + Private applicationTypeField As String + + Private rateOrAmountOrFactorField As Decimal + + Private rateOrAmountOrFactorFieldSpecified As Boolean + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Group() As String + Get + Return Me.groupField + End Get + Set + Me.groupField = Value + End Set + End Property + + Public Property ApplicationType() As String + Get + Return Me.applicationTypeField + End Get + Set + Me.applicationTypeField = Value + End Set + End Property + + Public Property RateOrAmountOrFactor() As Decimal + Get + Return Me.rateOrAmountOrFactorField + End Get + Set + Me.rateOrAmountOrFactorField = Value + End Set + End Property + + + Public Property RateOrAmountOrFactorSpecified() As Boolean + Get + Return Me.rateOrAmountOrFactorFieldSpecified + End Get + Set + Me.rateOrAmountOrFactorFieldSpecified = 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(FCFCDFBodyGoodsItemSpecialCase)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemSpecialCase object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemSpecialCase object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemSpecialCase object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemSpecialCase, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemSpecialCase) + 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 FCFCDFBodyGoodsItemSpecialCase) 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 FCFCDFBodyGoodsItemSpecialCase + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemSpecialCase) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemSpecialCase object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemSpecialCase object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemSpecialCase object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemSpecialCase, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemSpecialCase) + 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 FCFCDFBodyGoodsItemSpecialCase) 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 FCFCDFBodyGoodsItemSpecialCase + 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 FCFCDFBodyGoodsItemDocument + + Private divisionField As String + + Private typeField As String + + Private referenceNumberField As String + + Private issuingDateField As Date + + Private issuingDateFieldSpecified As Boolean + + Private atHandFlagField As String + + Private writeOffField As FCFCDFBodyGoodsItemDocumentWriteOff + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.writeOffField = New FCFCDFBodyGoodsItemDocumentWriteOff() + End Sub + + Public Property Division() As String + Get + Return Me.divisionField + End Get + Set + Me.divisionField = Value + End Set + End Property + + Public Property Type() As String + Get + Return Me.typeField + End Get + Set + Me.typeField = Value + End Set + End Property + + Public Property ReferenceNumber() As String + Get + Return Me.referenceNumberField + End Get + Set + Me.referenceNumberField = Value + End Set + End Property + + Public Property IssuingDate() As Date + Get + Return Me.issuingDateField + End Get + Set + Me.issuingDateField = Value + End Set + End Property + + + Public Property IssuingDateSpecified() As Boolean + Get + Return Me.issuingDateFieldSpecified + End Get + Set + Me.issuingDateFieldSpecified = Value + End Set + End Property + + Public Property AtHandFlag() As String + Get + Return Me.atHandFlagField + End Get + Set + Me.atHandFlagField = Value + End Set + End Property + + Public Property WriteOff() As FCFCDFBodyGoodsItemDocumentWriteOff + Get + Return Me.writeOffField + End Get + Set + Me.writeOffField = 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(FCFCDFBodyGoodsItemDocument)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemDocument object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemDocument object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemDocument object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemDocument) + 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 FCFCDFBodyGoodsItemDocument) 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 FCFCDFBodyGoodsItemDocument + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemDocument) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemDocument object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemDocument object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemDocument object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemDocument) + 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 FCFCDFBodyGoodsItemDocument) 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 FCFCDFBodyGoodsItemDocument + 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 FCFCDFBodyGoodsItemDocumentWriteOff + + Private quantityField As Decimal + + Private measurementUnitField As String + + Private qualifierField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property Quantity() As Decimal + Get + Return Me.quantityField + End Get + Set + Me.quantityField = Value + End Set + End Property + + Public Property MeasurementUnit() As String + Get + Return Me.measurementUnitField + End Get + Set + Me.measurementUnitField = 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(FCFCDFBodyGoodsItemDocumentWriteOff)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current FCFCDFBodyGoodsItemDocumentWriteOff object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an FCFCDFBodyGoodsItemDocumentWriteOff object + ''' + '''string workflow markup to deserialize + '''Output FCFCDFBodyGoodsItemDocumentWriteOff object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemDocumentWriteOff, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemDocumentWriteOff) + 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 FCFCDFBodyGoodsItemDocumentWriteOff) 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 FCFCDFBodyGoodsItemDocumentWriteOff + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), FCFCDFBodyGoodsItemDocumentWriteOff) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current FCFCDFBodyGoodsItemDocumentWriteOff object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an FCFCDFBodyGoodsItemDocumentWriteOff object + ''' + '''string xml file to load and deserialize + '''Output FCFCDFBodyGoodsItemDocumentWriteOff object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemDocumentWriteOff, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDFBodyGoodsItemDocumentWriteOff) + 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 FCFCDFBodyGoodsItemDocumentWriteOff) 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 FCFCDFBodyGoodsItemDocumentWriteOff + 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 diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/FCFCDF.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/FCFCDF.xsd new file mode 100644 index 0000000..a65271d --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/FCFCDF.xsd @@ -0,0 +1,5607 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_004.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_004.designer.vb new file mode 100644 index 0000000..6e06f3c --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_004.designer.vb @@ -0,0 +1,1615 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) +'' MitteilungAbschreibung_004ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' +'' ------------------------------------------------------------------------------ +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 MitteilungAbschreibung_004 + + Partial Public Class MitteilungAbschreibungNOATyp + Inherits DatenaustauschFreierVerkehrTyp + + Private einzelMitteilungAbschreibungField As EinzelMitteilungAbschreibungTyp + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.einzelMitteilungAbschreibungField = New EinzelMitteilungAbschreibungTyp() + End Sub + + Public Property EinzelMitteilungAbschreibung() As EinzelMitteilungAbschreibungTyp + Get + Return Me.einzelMitteilungAbschreibungField + End Get + Set + Me.einzelMitteilungAbschreibungField = 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(MitteilungAbschreibungNOATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current MitteilungAbschreibungNOATyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an MitteilungAbschreibungNOATyp object + ''' + '''string workflow markup to deserialize + '''Output MitteilungAbschreibungNOATyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As MitteilungAbschreibungNOATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, MitteilungAbschreibungNOATyp) + 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 MitteilungAbschreibungNOATyp) 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 MitteilungAbschreibungNOATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), MitteilungAbschreibungNOATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current MitteilungAbschreibungNOATyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an MitteilungAbschreibungNOATyp object + ''' + '''string xml file to load and deserialize + '''Output MitteilungAbschreibungNOATyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MitteilungAbschreibungNOATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, MitteilungAbschreibungNOATyp) + 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 MitteilungAbschreibungNOATyp) 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 MitteilungAbschreibungNOATyp + 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 EinzelMitteilungAbschreibungTyp + + Private objektIdentifizierungField As ObjektIdentifizierungNOATyp + + Private kopfDatenField As KopfDatenMitteilungAbschreibungTyp + + Private positionField As List(Of PositionMitteilungAbschreibungTyp) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.positionField = New List(Of PositionMitteilungAbschreibungTyp)() + Me.kopfDatenField = New KopfDatenMitteilungAbschreibungTyp() + Me.objektIdentifizierungField = New ObjektIdentifizierungNOATyp() + End Sub + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungNOATyp + Get + Return Me.objektIdentifizierungField + End Get + Set + Me.objektIdentifizierungField = Value + End Set + End Property + + Public Property KopfDaten() As KopfDatenMitteilungAbschreibungTyp + Get + Return Me.kopfDatenField + End Get + Set + Me.kopfDatenField = Value + End Set + End Property + + Public Property Position() As List(Of PositionMitteilungAbschreibungTyp) + 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(EinzelMitteilungAbschreibungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current EinzelMitteilungAbschreibungTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an EinzelMitteilungAbschreibungTyp object + ''' + '''string workflow markup to deserialize + '''Output EinzelMitteilungAbschreibungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelMitteilungAbschreibungTyp) + 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 EinzelMitteilungAbschreibungTyp) 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 EinzelMitteilungAbschreibungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelMitteilungAbschreibungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current EinzelMitteilungAbschreibungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an EinzelMitteilungAbschreibungTyp object + ''' + '''string xml file to load and deserialize + '''Output EinzelMitteilungAbschreibungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelMitteilungAbschreibungTyp) + 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 EinzelMitteilungAbschreibungTyp) 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 EinzelMitteilungAbschreibungTyp + 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 ObjektIdentifizierungNOATyp + + Private objektNameField As String + + Private objektAliasField As String + + Private eDIFACTNachrichtenNrField As String + + Private zeitpunktEingangField As Date + + 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 ObjektAlias() As String + Get + Return Me.objektAliasField + End Get + Set + Me.objektAliasField = 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 + + 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(ObjektIdentifizierungNOATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current ObjektIdentifizierungNOATyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an ObjektIdentifizierungNOATyp object + ''' + '''string workflow markup to deserialize + '''Output ObjektIdentifizierungNOATyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungNOATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungNOATyp) + 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 ObjektIdentifizierungNOATyp) 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 ObjektIdentifizierungNOATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungNOATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current ObjektIdentifizierungNOATyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an ObjektIdentifizierungNOATyp object + ''' + '''string xml file to load and deserialize + '''Output ObjektIdentifizierungNOATyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungNOATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungNOATyp) + 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 ObjektIdentifizierungNOATyp) 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 ObjektIdentifizierungNOATyp + 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 AbschreibungRestmengeWertNOATYp + + Private abschreibungMengeWertField As String + + Private restMengeWertField As String + + Private abschreibungRestMasseinheitField As String + + Private abschreibungRestQualifikatorField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property AbschreibungMengeWert() As String + Get + Return Me.abschreibungMengeWertField + End Get + Set + Me.abschreibungMengeWertField = Value + End Set + End Property + + Public Property RestMengeWert() As String + Get + Return Me.restMengeWertField + End Get + Set + Me.restMengeWertField = Value + End Set + End Property + + Public Property AbschreibungRestMasseinheit() As String + Get + Return Me.abschreibungRestMasseinheitField + End Get + Set + Me.abschreibungRestMasseinheitField = Value + End Set + End Property + + Public Property AbschreibungRestQualifikator() As String + Get + Return Me.abschreibungRestQualifikatorField + End Get + Set + Me.abschreibungRestQualifikatorField = 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(AbschreibungRestmengeWertNOATYp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current AbschreibungRestmengeWertNOATYp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an AbschreibungRestmengeWertNOATYp object + ''' + '''string workflow markup to deserialize + '''Output AbschreibungRestmengeWertNOATYp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbschreibungRestmengeWertNOATYp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbschreibungRestmengeWertNOATYp) + 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 AbschreibungRestmengeWertNOATYp) 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 AbschreibungRestmengeWertNOATYp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbschreibungRestmengeWertNOATYp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current AbschreibungRestmengeWertNOATYp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an AbschreibungRestmengeWertNOATYp object + ''' + '''string xml file to load and deserialize + '''Output AbschreibungRestmengeWertNOATYp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbschreibungRestmengeWertNOATYp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbschreibungRestmengeWertNOATYp) + 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 AbschreibungRestmengeWertNOATYp) 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 AbschreibungRestmengeWertNOATYp + 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 PositionMitteilungAbschreibungTyp + + Private positionsNrField As String + + Private unterlageArtField As String + + Private unterlageNrField As String + + Private abschreibungDatumField As Date + + Private abschreibungDatumFieldSpecified As Boolean + + Private abschreibungUhrzeitField As Date + + Private abschreibungUhrzeitFieldSpecified As Boolean + + Private abschreibungStornierungKzField As String + + Private abschreibungRestmengeWertField As List(Of AbschreibungRestmengeWertNOATYp) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.abschreibungRestmengeWertField = New List(Of AbschreibungRestmengeWertNOATYp)() + End Sub + + Public Property PositionsNr() As String + Get + Return Me.positionsNrField + End Get + Set + Me.positionsNrField = Value + End Set + End Property + + Public Property UnterlageArt() As String + Get + Return Me.unterlageArtField + End Get + Set + Me.unterlageArtField = Value + End Set + End Property + + Public Property UnterlageNr() As String + Get + Return Me.unterlageNrField + End Get + Set + Me.unterlageNrField = Value + End Set + End Property + + Public Property AbschreibungDatum() As Date + Get + Return Me.abschreibungDatumField + End Get + Set + Me.abschreibungDatumField = Value + End Set + End Property + + + Public Property AbschreibungDatumSpecified() As Boolean + Get + Return Me.abschreibungDatumFieldSpecified + End Get + Set + Me.abschreibungDatumFieldSpecified = Value + End Set + End Property + + Public Property AbschreibungUhrzeit() As Date + Get + Return Me.abschreibungUhrzeitField + End Get + Set + Me.abschreibungUhrzeitField = Value + End Set + End Property + + + Public Property AbschreibungUhrzeitSpecified() As Boolean + Get + Return Me.abschreibungUhrzeitFieldSpecified + End Get + Set + Me.abschreibungUhrzeitFieldSpecified = Value + End Set + End Property + + Public Property AbschreibungStornierungKz() As String + Get + Return Me.abschreibungStornierungKzField + End Get + Set + Me.abschreibungStornierungKzField = Value + End Set + End Property + + Public Property AbschreibungRestmengeWert() As List(Of AbschreibungRestmengeWertNOATYp) + Get + Return Me.abschreibungRestmengeWertField + End Get + Set + Me.abschreibungRestmengeWertField = 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(PositionMitteilungAbschreibungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current PositionMitteilungAbschreibungTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an PositionMitteilungAbschreibungTyp object + ''' + '''string workflow markup to deserialize + '''Output PositionMitteilungAbschreibungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionMitteilungAbschreibungTyp) + 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 PositionMitteilungAbschreibungTyp) 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 PositionMitteilungAbschreibungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PositionMitteilungAbschreibungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current PositionMitteilungAbschreibungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an PositionMitteilungAbschreibungTyp object + ''' + '''string xml file to load and deserialize + '''Output PositionMitteilungAbschreibungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionMitteilungAbschreibungTyp) + 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 PositionMitteilungAbschreibungTyp) 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 PositionMitteilungAbschreibungTyp + 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 KopfDatenMitteilungAbschreibungTyp + + Private registrierNrField As String + + Private uebermittlerEORIField As String + + Private uebermittlerNLNRField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property RegistrierNr() As String + Get + Return Me.registrierNrField + End Get + Set + Me.registrierNrField = Value + End Set + End Property + + Public Property UebermittlerEORI() As String + Get + Return Me.uebermittlerEORIField + End Get + Set + Me.uebermittlerEORIField = Value + End Set + End Property + + Public Property UebermittlerNLNR() As String + Get + Return Me.uebermittlerNLNRField + End Get + Set + Me.uebermittlerNLNRField = 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(KopfDatenMitteilungAbschreibungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current KopfDatenMitteilungAbschreibungTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an KopfDatenMitteilungAbschreibungTyp object + ''' + '''string workflow markup to deserialize + '''Output KopfDatenMitteilungAbschreibungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenMitteilungAbschreibungTyp) + 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 KopfDatenMitteilungAbschreibungTyp) 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 KopfDatenMitteilungAbschreibungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfDatenMitteilungAbschreibungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current KopfDatenMitteilungAbschreibungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an KopfDatenMitteilungAbschreibungTyp object + ''' + '''string xml file to load and deserialize + '''Output KopfDatenMitteilungAbschreibungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenMitteilungAbschreibungTyp) + 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 KopfDatenMitteilungAbschreibungTyp) 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 KopfDatenMitteilungAbschreibungTyp + 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" + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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" + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_004.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_004.xsd new file mode 100644 index 0000000..569f394 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_004.xsd @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_004.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_004.designer.vb new file mode 100644 index 0000000..0af8cf5 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_004.designer.vb @@ -0,0 +1,1647 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) +'' NichtAbschliessendeFestsetzung_004ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' +'' ------------------------------------------------------------------------------ +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 NichtAbschliessendeFestsetzung_004 + + Partial Public Class NichtAbschliessendeFestsetzungTAXNTyp + Inherits DatenaustauschFreierVerkehrTyp + + Private einzelNichtAbschliessendeFestsetzungField As EinzelNichtAbschliessendeFestsetzungTyp + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.einzelNichtAbschliessendeFestsetzungField = New EinzelNichtAbschliessendeFestsetzungTyp() + End Sub + + Public Property EinzelNichtAbschliessendeFestsetzung() As EinzelNichtAbschliessendeFestsetzungTyp + Get + Return Me.einzelNichtAbschliessendeFestsetzungField + End Get + Set + Me.einzelNichtAbschliessendeFestsetzungField = 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(NichtAbschliessendeFestsetzungTAXNTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current NichtAbschliessendeFestsetzungTAXNTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an NichtAbschliessendeFestsetzungTAXNTyp object + ''' + '''string workflow markup to deserialize + '''Output NichtAbschliessendeFestsetzungTAXNTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As NichtAbschliessendeFestsetzungTAXNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, NichtAbschliessendeFestsetzungTAXNTyp) + 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 NichtAbschliessendeFestsetzungTAXNTyp) 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 NichtAbschliessendeFestsetzungTAXNTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), NichtAbschliessendeFestsetzungTAXNTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current NichtAbschliessendeFestsetzungTAXNTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an NichtAbschliessendeFestsetzungTAXNTyp object + ''' + '''string xml file to load and deserialize + '''Output NichtAbschliessendeFestsetzungTAXNTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As NichtAbschliessendeFestsetzungTAXNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, NichtAbschliessendeFestsetzungTAXNTyp) + 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 NichtAbschliessendeFestsetzungTAXNTyp) 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 NichtAbschliessendeFestsetzungTAXNTyp + 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 EinzelNichtAbschliessendeFestsetzungTyp + + Private objektIdentifizierungField As ObjektIdentifizierungTAXNyp + + Private kopfDatenField As KopfDatenNichtAbschliessendeFestsetzungTyp + + Private positionField As List(Of PositionNichtAbschliessendeFestsetzungTyp) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.positionField = New List(Of PositionNichtAbschliessendeFestsetzungTyp)() + Me.kopfDatenField = New KopfDatenNichtAbschliessendeFestsetzungTyp() + Me.objektIdentifizierungField = New ObjektIdentifizierungTAXNyp() + End Sub + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXNyp + Get + Return Me.objektIdentifizierungField + End Get + Set + Me.objektIdentifizierungField = Value + End Set + End Property + + Public Property KopfDaten() As KopfDatenNichtAbschliessendeFestsetzungTyp + Get + Return Me.kopfDatenField + End Get + Set + Me.kopfDatenField = Value + End Set + End Property + + Public Property Position() As List(Of PositionNichtAbschliessendeFestsetzungTyp) + 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(EinzelNichtAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current EinzelNichtAbschliessendeFestsetzungTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an EinzelNichtAbschliessendeFestsetzungTyp object + ''' + '''string workflow markup to deserialize + '''Output EinzelNichtAbschliessendeFestsetzungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelNichtAbschliessendeFestsetzungTyp) + 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 EinzelNichtAbschliessendeFestsetzungTyp) 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 EinzelNichtAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelNichtAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current EinzelNichtAbschliessendeFestsetzungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an EinzelNichtAbschliessendeFestsetzungTyp object + ''' + '''string xml file to load and deserialize + '''Output EinzelNichtAbschliessendeFestsetzungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelNichtAbschliessendeFestsetzungTyp) + 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 EinzelNichtAbschliessendeFestsetzungTyp) 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 EinzelNichtAbschliessendeFestsetzungTyp + 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 ObjektIdentifizierungTAXNyp + + Private objektNameField As String + + Private objektAliasField As String + + Private eDIFACTNachrichtenNrField As String + + Private zeitpunktEingangField As Date + + 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 ObjektAlias() As String + Get + Return Me.objektAliasField + End Get + Set + Me.objektAliasField = 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 + + 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(ObjektIdentifizierungTAXNyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current ObjektIdentifizierungTAXNyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an ObjektIdentifizierungTAXNyp object + ''' + '''string workflow markup to deserialize + '''Output ObjektIdentifizierungTAXNyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungTAXNyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXNyp) + 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 ObjektIdentifizierungTAXNyp) 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 ObjektIdentifizierungTAXNyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungTAXNyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current ObjektIdentifizierungTAXNyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an ObjektIdentifizierungTAXNyp object + ''' + '''string xml file to load and deserialize + '''Output ObjektIdentifizierungTAXNyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXNyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXNyp) + 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 ObjektIdentifizierungTAXNyp) 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 ObjektIdentifizierungTAXNyp + 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 UnterlageTAXNTyp + + Private unterlageArtField As String + + Private vorlagefristDatumField As Date + + Private vorlagefristDatumFieldSpecified As Boolean + + Private nachzureichenKzField As String + + Private vorzulegenKzField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property UnterlageArt() As String + Get + Return Me.unterlageArtField + End Get + Set + Me.unterlageArtField = Value + End Set + End Property + + Public Property VorlagefristDatum() As Date + Get + Return Me.vorlagefristDatumField + End Get + Set + Me.vorlagefristDatumField = Value + End Set + End Property + + + Public Property VorlagefristDatumSpecified() As Boolean + Get + Return Me.vorlagefristDatumFieldSpecified + End Get + Set + Me.vorlagefristDatumFieldSpecified = Value + End Set + End Property + + Public Property NachzureichenKz() As String + Get + Return Me.nachzureichenKzField + End Get + Set + Me.nachzureichenKzField = Value + End Set + End Property + + Public Property VorzulegenKz() As String + Get + Return Me.vorzulegenKzField + End Get + Set + Me.vorzulegenKzField = 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(UnterlageTAXNTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current UnterlageTAXNTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an UnterlageTAXNTyp object + ''' + '''string workflow markup to deserialize + '''Output UnterlageTAXNTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As UnterlageTAXNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageTAXNTyp) + 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 UnterlageTAXNTyp) 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 UnterlageTAXNTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), UnterlageTAXNTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current UnterlageTAXNTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an UnterlageTAXNTyp object + ''' + '''string xml file to load and deserialize + '''Output UnterlageTAXNTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageTAXNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageTAXNTyp) + 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 UnterlageTAXNTyp) 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 UnterlageTAXNTyp + 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 PositionNichtAbschliessendeFestsetzungTyp + + Private positionsNrField As String + + Private unterlageField As List(Of UnterlageTAXNTyp) + + Private ermittlungenEinfuhrfaehigkeitKzField As String + + Private ermittlungenZollwertKzField As String + + Private ermittlungenWarenbeschaffenheitKzField As String + + Private ermittlungenAbgabensatzKzField As String + + Private pruefungVorbehaltenField As String + + Private ermittlungenSonstigeKzField As String + + Private kontingentsmeldungKzField As String + + Private vorlaeufigerAntidumpingzollKzField As String + + Private positionVollstaendigKzField As String + + Private berichtigungspflichtigKzField As String + + Private begruendungField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.unterlageField = New List(Of UnterlageTAXNTyp)() + End Sub + + Public Property PositionsNr() As String + Get + Return Me.positionsNrField + End Get + Set + Me.positionsNrField = Value + End Set + End Property + + Public Property Unterlage() As List(Of UnterlageTAXNTyp) + Get + Return Me.unterlageField + End Get + Set + Me.unterlageField = Value + End Set + End Property + + Public Property ErmittlungenEinfuhrfaehigkeitKz() As String + Get + Return Me.ermittlungenEinfuhrfaehigkeitKzField + End Get + Set + Me.ermittlungenEinfuhrfaehigkeitKzField = Value + End Set + End Property + + Public Property ErmittlungenZollwertKz() As String + Get + Return Me.ermittlungenZollwertKzField + End Get + Set + Me.ermittlungenZollwertKzField = Value + End Set + End Property + + Public Property ErmittlungenWarenbeschaffenheitKz() As String + Get + Return Me.ermittlungenWarenbeschaffenheitKzField + End Get + Set + Me.ermittlungenWarenbeschaffenheitKzField = Value + End Set + End Property + + Public Property ErmittlungenAbgabensatzKz() As String + Get + Return Me.ermittlungenAbgabensatzKzField + End Get + Set + Me.ermittlungenAbgabensatzKzField = Value + End Set + End Property + + Public Property PruefungVorbehalten() As String + Get + Return Me.pruefungVorbehaltenField + End Get + Set + Me.pruefungVorbehaltenField = Value + End Set + End Property + + Public Property ErmittlungenSonstigeKz() As String + Get + Return Me.ermittlungenSonstigeKzField + End Get + Set + Me.ermittlungenSonstigeKzField = Value + End Set + End Property + + Public Property KontingentsmeldungKz() As String + Get + Return Me.kontingentsmeldungKzField + End Get + Set + Me.kontingentsmeldungKzField = Value + End Set + End Property + + Public Property VorlaeufigerAntidumpingzollKz() As String + Get + Return Me.vorlaeufigerAntidumpingzollKzField + End Get + Set + Me.vorlaeufigerAntidumpingzollKzField = Value + End Set + End Property + + Public Property PositionVollstaendigKz() As String + Get + Return Me.positionVollstaendigKzField + End Get + Set + Me.positionVollstaendigKzField = Value + End Set + End Property + + Public Property BerichtigungspflichtigKz() As String + Get + Return Me.berichtigungspflichtigKzField + End Get + Set + Me.berichtigungspflichtigKzField = Value + End Set + End Property + + Public Property Begruendung() As String + Get + Return Me.begruendungField + End Get + Set + Me.begruendungField = 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(PositionNichtAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current PositionNichtAbschliessendeFestsetzungTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an PositionNichtAbschliessendeFestsetzungTyp object + ''' + '''string workflow markup to deserialize + '''Output PositionNichtAbschliessendeFestsetzungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionNichtAbschliessendeFestsetzungTyp) + 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 PositionNichtAbschliessendeFestsetzungTyp) 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 PositionNichtAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PositionNichtAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current PositionNichtAbschliessendeFestsetzungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an PositionNichtAbschliessendeFestsetzungTyp object + ''' + '''string xml file to load and deserialize + '''Output PositionNichtAbschliessendeFestsetzungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionNichtAbschliessendeFestsetzungTyp) + 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 PositionNichtAbschliessendeFestsetzungTyp) 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 PositionNichtAbschliessendeFestsetzungTyp + 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 KopfDatenNichtAbschliessendeFestsetzungTyp + + Private registrierNrField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property RegistrierNr() As String + Get + Return Me.registrierNrField + End Get + Set + Me.registrierNrField = 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(KopfDatenNichtAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current KopfDatenNichtAbschliessendeFestsetzungTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' + '''string workflow markup to deserialize + '''Output KopfDatenNichtAbschliessendeFestsetzungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenNichtAbschliessendeFestsetzungTyp) + 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 KopfDatenNichtAbschliessendeFestsetzungTyp) 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 KopfDatenNichtAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfDatenNichtAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current KopfDatenNichtAbschliessendeFestsetzungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' + '''string xml file to load and deserialize + '''Output KopfDatenNichtAbschliessendeFestsetzungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenNichtAbschliessendeFestsetzungTyp) + 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 KopfDatenNichtAbschliessendeFestsetzungTyp) 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 KopfDatenNichtAbschliessendeFestsetzungTyp + 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" + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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" + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_004.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_004.xsd new file mode 100644 index 0000000..7ae765d --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_004.xsd @@ -0,0 +1,122 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_002.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_002.designer.vb new file mode 100644 index 0000000..51990d3 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_002.designer.vb @@ -0,0 +1,1651 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) +'' StornierungBescheid_002ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' +'' ------------------------------------------------------------------------------ +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 StornierungBescheid_002 + + Partial Public Class StornierungBescheidREVTyp + Inherits DatenaustauschFreierVerkehrTyp + + Private einzelStornierungBescheidField As EinzelStornierungBescheidTyp + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.einzelStornierungBescheidField = New EinzelStornierungBescheidTyp() + End Sub + + Public Property EinzelStornierungBescheid() As EinzelStornierungBescheidTyp + Get + Return Me.einzelStornierungBescheidField + End Get + Set + Me.einzelStornierungBescheidField = 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(StornierungBescheidREVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current StornierungBescheidREVTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an StornierungBescheidREVTyp object + ''' + '''string workflow markup to deserialize + '''Output StornierungBescheidREVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As StornierungBescheidREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, StornierungBescheidREVTyp) + 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 StornierungBescheidREVTyp) 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 StornierungBescheidREVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), StornierungBescheidREVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current StornierungBescheidREVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an StornierungBescheidREVTyp object + ''' + '''string xml file to load and deserialize + '''Output StornierungBescheidREVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As StornierungBescheidREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, StornierungBescheidREVTyp) + 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 StornierungBescheidREVTyp) 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 StornierungBescheidREVTyp + 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 EinzelStornierungBescheidTyp + + Private objektIdentifizierungField As ObjektIdentifizierungREVTyp + + Private kopfDatenField As KopfDatenStornierungBescheidTyp + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.kopfDatenField = New KopfDatenStornierungBescheidTyp() + Me.objektIdentifizierungField = New ObjektIdentifizierungREVTyp() + End Sub + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungREVTyp + Get + Return Me.objektIdentifizierungField + End Get + Set + Me.objektIdentifizierungField = Value + End Set + End Property + + Public Property KopfDaten() As KopfDatenStornierungBescheidTyp + Get + Return Me.kopfDatenField + End Get + Set + Me.kopfDatenField = 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(EinzelStornierungBescheidTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current EinzelStornierungBescheidTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an EinzelStornierungBescheidTyp object + ''' + '''string workflow markup to deserialize + '''Output EinzelStornierungBescheidTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelStornierungBescheidTyp) + 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 EinzelStornierungBescheidTyp) 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 EinzelStornierungBescheidTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelStornierungBescheidTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current EinzelStornierungBescheidTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an EinzelStornierungBescheidTyp object + ''' + '''string xml file to load and deserialize + '''Output EinzelStornierungBescheidTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelStornierungBescheidTyp) + 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 EinzelStornierungBescheidTyp) 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 EinzelStornierungBescheidTyp + 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 ObjektIdentifizierungREVTyp + + Private objektNameField As String + + Private objektAliasField As String + + Private eDIFACTNachrichtenNrField As String + + Private zeitpunktEingangField As Date + + 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 ObjektAlias() As String + Get + Return Me.objektAliasField + End Get + Set + Me.objektAliasField = 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 + + 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(ObjektIdentifizierungREVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current ObjektIdentifizierungREVTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an ObjektIdentifizierungREVTyp object + ''' + '''string workflow markup to deserialize + '''Output ObjektIdentifizierungREVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungREVTyp) + 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 ObjektIdentifizierungREVTyp) 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 ObjektIdentifizierungREVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungREVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current ObjektIdentifizierungREVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an ObjektIdentifizierungREVTyp object + ''' + '''string xml file to load and deserialize + '''Output ObjektIdentifizierungREVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungREVTyp) + 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 ObjektIdentifizierungREVTyp) 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 ObjektIdentifizierungREVTyp + 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 AbgabeREVTyp + + Private abgabeArtField As String + + Private abgabeArtAbgabenbetragField As Decimal + + Private abgabeArtAbgabenbetragFieldSpecified As Boolean + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property AbgabeArt() As String + Get + Return Me.abgabeArtField + End Get + Set + Me.abgabeArtField = Value + End Set + End Property + + Public Property AbgabeArtAbgabenbetrag() As Decimal + Get + Return Me.abgabeArtAbgabenbetragField + End Get + Set + Me.abgabeArtAbgabenbetragField = Value + End Set + End Property + + + Public Property AbgabeArtAbgabenbetragSpecified() As Boolean + Get + Return Me.abgabeArtAbgabenbetragFieldSpecified + End Get + Set + Me.abgabeArtAbgabenbetragFieldSpecified = 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(AbgabeREVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current AbgabeREVTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an AbgabeREVTyp object + ''' + '''string workflow markup to deserialize + '''Output AbgabeREVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabeREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabeREVTyp) + 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 AbgabeREVTyp) 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 AbgabeREVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbgabeREVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current AbgabeREVTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an AbgabeREVTyp object + ''' + '''string xml file to load and deserialize + '''Output AbgabeREVTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabeREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabeREVTyp) + 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 AbgabeREVTyp) 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 AbgabeREVTyp + 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 KopfDatenStornierungBescheidTyp + + Private zollBearbeiterField As String + + Private stornierteRegistrierNrField As String + + Private waehrungKzField As String + + Private registrierNrNeuField As String + + Private stornierungstexteField As String + + Private stornierungGrundField As String + + Private dienststelleBezeichnungField As String + + Private dienststelleTelefonNrField As String + + Private dienststelleStrasseHausNrField As String + + Private dienststellePLZSField As String + + Private dienststelleOrtSField As String + + Private dienststelleOrtsteilField As String + + Private dienststellePostfachField As String + + Private dienststellePLZPField As String + + Private dienststelleOrtPField As String + + Private registrierKzField As String + + Private gesamtbetragField As Decimal + + Private gesamtbetragFieldSpecified As Boolean + + Private abgabeField As List(Of AbgabeREVTyp) + + Private sicherheitsregistrierKzField As String + + Private zuLeistendeBarsicherheitBetragField As Decimal + + Private zuLeistendeBarsicherheitBetragFieldSpecified As Boolean + + Private zollzahlstelleBezeichnungField As String + + Private zollzahlstelleTelefonNrField As String + + Private zollzahlstelleStrasseHausNrField As String + + Private zollzahlstellePLZSField As String + + Private zollzahlstelleOrtSField As String + + Private zollzahlstelleOrtsteilField As String + + Private zollzahlstellePostfachField As String + + Private zollzahlstellePLZPField As String + + Private zollzahlstelleOrtPField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.abgabeField = New List(Of AbgabeREVTyp)() + End Sub + + Public Property ZollBearbeiter() As String + Get + Return Me.zollBearbeiterField + End Get + Set + Me.zollBearbeiterField = Value + End Set + End Property + + Public Property StornierteRegistrierNr() As String + Get + Return Me.stornierteRegistrierNrField + End Get + Set + Me.stornierteRegistrierNrField = Value + End Set + End Property + + Public Property WaehrungKz() As String + Get + Return Me.waehrungKzField + End Get + Set + Me.waehrungKzField = Value + End Set + End Property + + Public Property RegistrierNrNeu() As String + Get + Return Me.registrierNrNeuField + End Get + Set + Me.registrierNrNeuField = Value + End Set + End Property + + Public Property Stornierungstexte() As String + Get + Return Me.stornierungstexteField + End Get + Set + Me.stornierungstexteField = Value + End Set + End Property + + Public Property StornierungGrund() As String + Get + Return Me.stornierungGrundField + End Get + Set + Me.stornierungGrundField = Value + End Set + End Property + + Public Property DienststelleBezeichnung() As String + Get + Return Me.dienststelleBezeichnungField + End Get + Set + Me.dienststelleBezeichnungField = Value + End Set + End Property + + Public Property DienststelleTelefonNr() As String + Get + Return Me.dienststelleTelefonNrField + End Get + Set + Me.dienststelleTelefonNrField = 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 DienststellePLZS() As String + Get + Return Me.dienststellePLZSField + End Get + Set + Me.dienststellePLZSField = 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 DienststelleOrtsteil() As String + Get + Return Me.dienststelleOrtsteilField + End Get + Set + Me.dienststelleOrtsteilField = Value + End Set + End Property + + Public Property DienststellePostfach() As String + Get + Return Me.dienststellePostfachField + End Get + Set + Me.dienststellePostfachField = Value + End Set + End Property + + Public Property DienststellePLZP() As String + Get + Return Me.dienststellePLZPField + End Get + Set + Me.dienststellePLZPField = Value + End Set + End Property + + Public Property DienststelleOrtP() As String + Get + Return Me.dienststelleOrtPField + End Get + Set + Me.dienststelleOrtPField = Value + End Set + End Property + + Public Property RegistrierKz() As String + Get + Return Me.registrierKzField + End Get + Set + Me.registrierKzField = Value + End Set + End Property + + Public Property Gesamtbetrag() As Decimal + Get + Return Me.gesamtbetragField + End Get + Set + Me.gesamtbetragField = Value + End Set + End Property + + + Public Property GesamtbetragSpecified() As Boolean + Get + Return Me.gesamtbetragFieldSpecified + End Get + Set + Me.gesamtbetragFieldSpecified = Value + End Set + End Property + + Public Property Abgabe() As List(Of AbgabeREVTyp) + Get + Return Me.abgabeField + End Get + Set + Me.abgabeField = Value + End Set + End Property + + Public Property SicherheitsregistrierKz() As String + Get + Return Me.sicherheitsregistrierKzField + End Get + Set + Me.sicherheitsregistrierKzField = Value + End Set + End Property + + Public Property ZuLeistendeBarsicherheitBetrag() As Decimal + Get + Return Me.zuLeistendeBarsicherheitBetragField + End Get + Set + Me.zuLeistendeBarsicherheitBetragField = Value + End Set + End Property + + + Public Property ZuLeistendeBarsicherheitBetragSpecified() As Boolean + Get + Return Me.zuLeistendeBarsicherheitBetragFieldSpecified + End Get + Set + Me.zuLeistendeBarsicherheitBetragFieldSpecified = Value + End Set + End Property + + Public Property ZollzahlstelleBezeichnung() As String + Get + Return Me.zollzahlstelleBezeichnungField + End Get + Set + Me.zollzahlstelleBezeichnungField = Value + End Set + End Property + + Public Property ZollzahlstelleTelefonNr() As String + Get + Return Me.zollzahlstelleTelefonNrField + End Get + Set + Me.zollzahlstelleTelefonNrField = Value + End Set + End Property + + Public Property ZollzahlstelleStrasseHausNr() As String + Get + Return Me.zollzahlstelleStrasseHausNrField + End Get + Set + Me.zollzahlstelleStrasseHausNrField = Value + End Set + End Property + + Public Property ZollzahlstellePLZS() As String + Get + Return Me.zollzahlstellePLZSField + End Get + Set + Me.zollzahlstellePLZSField = Value + End Set + End Property + + Public Property ZollzahlstelleOrtS() As String + Get + Return Me.zollzahlstelleOrtSField + End Get + Set + Me.zollzahlstelleOrtSField = Value + End Set + End Property + + Public Property ZollzahlstelleOrtsteil() As String + Get + Return Me.zollzahlstelleOrtsteilField + End Get + Set + Me.zollzahlstelleOrtsteilField = Value + End Set + End Property + + Public Property ZollzahlstellePostfach() As String + Get + Return Me.zollzahlstellePostfachField + End Get + Set + Me.zollzahlstellePostfachField = Value + End Set + End Property + + Public Property ZollzahlstellePLZP() As String + Get + Return Me.zollzahlstellePLZPField + End Get + Set + Me.zollzahlstellePLZPField = Value + End Set + End Property + + Public Property ZollzahlstelleOrtP() As String + Get + Return Me.zollzahlstelleOrtPField + End Get + Set + Me.zollzahlstelleOrtPField = 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(KopfDatenStornierungBescheidTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current KopfDatenStornierungBescheidTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an KopfDatenStornierungBescheidTyp object + ''' + '''string workflow markup to deserialize + '''Output KopfDatenStornierungBescheidTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenStornierungBescheidTyp) + 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 KopfDatenStornierungBescheidTyp) 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 KopfDatenStornierungBescheidTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfDatenStornierungBescheidTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current KopfDatenStornierungBescheidTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an KopfDatenStornierungBescheidTyp object + ''' + '''string xml file to load and deserialize + '''Output KopfDatenStornierungBescheidTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenStornierungBescheidTyp) + 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 KopfDatenStornierungBescheidTyp) 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 KopfDatenStornierungBescheidTyp + 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" + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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" + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_002.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_002.xsd new file mode 100644 index 0000000..413c06c --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_002.xsd @@ -0,0 +1,164 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_004.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_004.designer.vb new file mode 100644 index 0000000..83077c0 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_004.designer.vb @@ -0,0 +1,1603 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) +'' SumAErledigungsinformationVorpapier_004ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' +'' ------------------------------------------------------------------------------ +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 SumAErledigungsinformationVorpapier_004 + + Partial Public Class SumAErledigungsinformationVorpapierSIVRPTyp + Inherits DatenaustauschSumAOutTyp + + Private einzelSumAErledigungsinformationField As EinzelSumAErledigungsinformationVorpapierTyp + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.einzelSumAErledigungsinformationField = New EinzelSumAErledigungsinformationVorpapierTyp() + End Sub + + Public Property EinzelSumAErledigungsinformation() As EinzelSumAErledigungsinformationVorpapierTyp + Get + Return Me.einzelSumAErledigungsinformationField + End Get + Set + Me.einzelSumAErledigungsinformationField = 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(SumAErledigungsinformationVorpapierSIVRPTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current SumAErledigungsinformationVorpapierSIVRPTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an SumAErledigungsinformationVorpapierSIVRPTyp object + ''' + '''string workflow markup to deserialize + '''Output SumAErledigungsinformationVorpapierSIVRPTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SumAErledigungsinformationVorpapierSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumAErledigungsinformationVorpapierSIVRPTyp) + 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 SumAErledigungsinformationVorpapierSIVRPTyp) 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 SumAErledigungsinformationVorpapierSIVRPTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), SumAErledigungsinformationVorpapierSIVRPTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current SumAErledigungsinformationVorpapierSIVRPTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an SumAErledigungsinformationVorpapierSIVRPTyp object + ''' + '''string xml file to load and deserialize + '''Output SumAErledigungsinformationVorpapierSIVRPTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SumAErledigungsinformationVorpapierSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumAErledigungsinformationVorpapierSIVRPTyp) + 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 SumAErledigungsinformationVorpapierSIVRPTyp) 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 SumAErledigungsinformationVorpapierSIVRPTyp + 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 EinzelSumAErledigungsinformationVorpapierTyp + + Private objektIdentifizierungField As ObjektIdentifizierungSIVRPTyp + + Private kopfDatenField As KopfDatenSumAErledigungsinformationVorpapierTyp + + Private positionField As List(Of PositionSumAErledigungsinformationVorpapierTyp) + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.positionField = New List(Of PositionSumAErledigungsinformationVorpapierTyp)() + Me.kopfDatenField = New KopfDatenSumAErledigungsinformationVorpapierTyp() + Me.objektIdentifizierungField = New ObjektIdentifizierungSIVRPTyp() + End Sub + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungSIVRPTyp + Get + Return Me.objektIdentifizierungField + End Get + Set + Me.objektIdentifizierungField = Value + End Set + End Property + + Public Property KopfDaten() As KopfDatenSumAErledigungsinformationVorpapierTyp + Get + Return Me.kopfDatenField + End Get + Set + Me.kopfDatenField = Value + End Set + End Property + + Public Property Position() As List(Of PositionSumAErledigungsinformationVorpapierTyp) + 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(EinzelSumAErledigungsinformationVorpapierTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current EinzelSumAErledigungsinformationVorpapierTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an EinzelSumAErledigungsinformationVorpapierTyp object + ''' + '''string workflow markup to deserialize + '''Output EinzelSumAErledigungsinformationVorpapierTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelSumAErledigungsinformationVorpapierTyp) + 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 EinzelSumAErledigungsinformationVorpapierTyp) 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 EinzelSumAErledigungsinformationVorpapierTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelSumAErledigungsinformationVorpapierTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current EinzelSumAErledigungsinformationVorpapierTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an EinzelSumAErledigungsinformationVorpapierTyp object + ''' + '''string xml file to load and deserialize + '''Output EinzelSumAErledigungsinformationVorpapierTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelSumAErledigungsinformationVorpapierTyp) + 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 EinzelSumAErledigungsinformationVorpapierTyp) 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 EinzelSumAErledigungsinformationVorpapierTyp + 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 ObjektIdentifizierungSIVRPTyp + + Private objektNameField As String + + Private objektAntragArtField As String + + Private eDIFACTNachrichtennummerField As String + + Private zeitpunktNachrichteneingangField As Date + + Private zeitpunktNachrichteneingangFieldSpecified 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 ObjektAntragArt() As String + Get + Return Me.objektAntragArtField + End Get + Set + Me.objektAntragArtField = Value + End Set + End Property + + Public Property EDIFACTNachrichtennummer() As String + Get + Return Me.eDIFACTNachrichtennummerField + End Get + Set + Me.eDIFACTNachrichtennummerField = Value + End Set + End Property + + Public Property ZeitpunktNachrichteneingang() As Date + Get + Return Me.zeitpunktNachrichteneingangField + End Get + Set + Me.zeitpunktNachrichteneingangField = Value + End Set + End Property + + + Public Property ZeitpunktNachrichteneingangSpecified() As Boolean + Get + Return Me.zeitpunktNachrichteneingangFieldSpecified + End Get + Set + Me.zeitpunktNachrichteneingangFieldSpecified = 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(ObjektIdentifizierungSIVRPTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current ObjektIdentifizierungSIVRPTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an ObjektIdentifizierungSIVRPTyp object + ''' + '''string workflow markup to deserialize + '''Output ObjektIdentifizierungSIVRPTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungSIVRPTyp) + 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 ObjektIdentifizierungSIVRPTyp) 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 ObjektIdentifizierungSIVRPTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungSIVRPTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current ObjektIdentifizierungSIVRPTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an ObjektIdentifizierungSIVRPTyp object + ''' + '''string xml file to load and deserialize + '''Output ObjektIdentifizierungSIVRPTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungSIVRPTyp) + 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 ObjektIdentifizierungSIVRPTyp) 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 ObjektIdentifizierungSIVRPTyp + 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 PositionSumAErledigungsinformationVorpapierTyp + + Private laufendeNummerField As String + + Private iDRegNrSumAField As String + + Private iDRegNrSumAPosField As String + + Private artSpOField As String + + Private spezifischerOrdnungsbegriffField As String + + Private stornierungKzField As String + + Private stueckzahlErledigteField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property LaufendeNummer() As String + Get + Return Me.laufendeNummerField + End Get + Set + Me.laufendeNummerField = Value + End Set + End Property + + Public Property IDRegNrSumA() As String + Get + Return Me.iDRegNrSumAField + End Get + Set + Me.iDRegNrSumAField = Value + End Set + End Property + + Public Property IDRegNrSumAPos() As String + Get + Return Me.iDRegNrSumAPosField + End Get + Set + Me.iDRegNrSumAPosField = Value + End Set + End Property + + Public Property ArtSpO() As String + Get + Return Me.artSpOField + End Get + Set + Me.artSpOField = Value + End Set + End Property + + Public Property SpezifischerOrdnungsbegriff() As String + Get + Return Me.spezifischerOrdnungsbegriffField + End Get + Set + Me.spezifischerOrdnungsbegriffField = Value + End Set + End Property + + Public Property StornierungKz() As String + Get + Return Me.stornierungKzField + End Get + Set + Me.stornierungKzField = Value + End Set + End Property + + Public Property StueckzahlErledigte() As String + Get + Return Me.stueckzahlErledigteField + End Get + Set + Me.stueckzahlErledigteField = 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(PositionSumAErledigungsinformationVorpapierTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current PositionSumAErledigungsinformationVorpapierTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an PositionSumAErledigungsinformationVorpapierTyp object + ''' + '''string workflow markup to deserialize + '''Output PositionSumAErledigungsinformationVorpapierTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSumAErledigungsinformationVorpapierTyp) + 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 PositionSumAErledigungsinformationVorpapierTyp) 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 PositionSumAErledigungsinformationVorpapierTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PositionSumAErledigungsinformationVorpapierTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current PositionSumAErledigungsinformationVorpapierTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an PositionSumAErledigungsinformationVorpapierTyp object + ''' + '''string xml file to load and deserialize + '''Output PositionSumAErledigungsinformationVorpapierTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSumAErledigungsinformationVorpapierTyp) + 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 PositionSumAErledigungsinformationVorpapierTyp) 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 PositionSumAErledigungsinformationVorpapierTyp + 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 VerwahrerSIVRPTyp + + Private teilnehmerEORIField As String + + Private teilnehmerNLNRField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property TeilnehmerEORI() As String + Get + Return Me.teilnehmerEORIField + End Get + Set + Me.teilnehmerEORIField = Value + End Set + End Property + + Public Property TeilnehmerNLNR() As String + Get + Return Me.teilnehmerNLNRField + End Get + Set + Me.teilnehmerNLNRField = 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(VerwahrerSIVRPTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current VerwahrerSIVRPTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an VerwahrerSIVRPTyp object + ''' + '''string workflow markup to deserialize + '''Output VerwahrerSIVRPTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As VerwahrerSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerwahrerSIVRPTyp) + 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 VerwahrerSIVRPTyp) 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 VerwahrerSIVRPTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), VerwahrerSIVRPTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current VerwahrerSIVRPTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an VerwahrerSIVRPTyp object + ''' + '''string xml file to load and deserialize + '''Output VerwahrerSIVRPTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerwahrerSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerwahrerSIVRPTyp) + 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 VerwahrerSIVRPTyp) 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 VerwahrerSIVRPTyp + 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 KopfDatenSumAErledigungsinformationVorpapierTyp + + Private verwahrerField As VerwahrerSIVRPTyp + + Private sonstigeNummerField As String + + Private artErledigungField As String + + Private regNrATLASWeitereNachweiseField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.verwahrerField = New VerwahrerSIVRPTyp() + End Sub + + Public Property Verwahrer() As VerwahrerSIVRPTyp + Get + Return Me.verwahrerField + End Get + Set + Me.verwahrerField = Value + End Set + End Property + + Public Property SonstigeNummer() As String + Get + Return Me.sonstigeNummerField + End Get + Set + Me.sonstigeNummerField = Value + End Set + End Property + + Public Property ArtErledigung() As String + Get + Return Me.artErledigungField + End Get + Set + Me.artErledigungField = Value + End Set + End Property + + Public Property RegNrATLASWeitereNachweise() As String + Get + Return Me.regNrATLASWeitereNachweiseField + End Get + Set + Me.regNrATLASWeitereNachweiseField = 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(KopfDatenSumAErledigungsinformationVorpapierTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current KopfDatenSumAErledigungsinformationVorpapierTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an KopfDatenSumAErledigungsinformationVorpapierTyp object + ''' + '''string workflow markup to deserialize + '''Output KopfDatenSumAErledigungsinformationVorpapierTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenSumAErledigungsinformationVorpapierTyp) + 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 KopfDatenSumAErledigungsinformationVorpapierTyp) 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 KopfDatenSumAErledigungsinformationVorpapierTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfDatenSumAErledigungsinformationVorpapierTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current KopfDatenSumAErledigungsinformationVorpapierTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an KopfDatenSumAErledigungsinformationVorpapierTyp object + ''' + '''string xml file to load and deserialize + '''Output KopfDatenSumAErledigungsinformationVorpapierTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenSumAErledigungsinformationVorpapierTyp) + 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 KopfDatenSumAErledigungsinformationVorpapierTyp) 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 KopfDatenSumAErledigungsinformationVorpapierTyp + 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 TransaktionSumAOutTyp + + Private identifikationField As String + + 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 Identifikation() As String + Get + Return Me.identifikationField + End Get + Set + Me.identifikationField = Value + End Set + End Property + + 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(TransaktionSumAOutTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current TransaktionSumAOutTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an TransaktionSumAOutTyp object + ''' + '''string workflow markup to deserialize + '''Output TransaktionSumAOutTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionSumAOutTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionSumAOutTyp) + 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 TransaktionSumAOutTyp) 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 TransaktionSumAOutTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TransaktionSumAOutTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current TransaktionSumAOutTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an TransaktionSumAOutTyp object + ''' + '''string xml file to load and deserialize + '''Output TransaktionSumAOutTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionSumAOutTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionSumAOutTyp) + 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 TransaktionSumAOutTyp) 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 TransaktionSumAOutTyp + 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 DatenaustauschSumAOutTyp + + Private transaktionField As TransaktionSumAOutTyp + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.transaktionField = New TransaktionSumAOutTyp() + End Sub + + Public Property Transaktion() As TransaktionSumAOutTyp + 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(DatenaustauschSumAOutTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current DatenaustauschSumAOutTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an DatenaustauschSumAOutTyp object + ''' + '''string workflow markup to deserialize + '''Output DatenaustauschSumAOutTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschSumAOutTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschSumAOutTyp) + 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 DatenaustauschSumAOutTyp) 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 DatenaustauschSumAOutTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), DatenaustauschSumAOutTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current DatenaustauschSumAOutTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an DatenaustauschSumAOutTyp object + ''' + '''string xml file to load and deserialize + '''Output DatenaustauschSumAOutTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschSumAOutTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschSumAOutTyp) + 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 DatenaustauschSumAOutTyp) 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 DatenaustauschSumAOutTyp + 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 diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_004.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_004.xsd new file mode 100644 index 0000000..ddda11e --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_004.xsd @@ -0,0 +1,140 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_002.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_002.designer.vb new file mode 100644 index 0000000..ff4f2cb --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_002.designer.vb @@ -0,0 +1,1262 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) +'' WeitergabeHauptzollamt_002ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' +'' ------------------------------------------------------------------------------ +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 WeitergabeHauptzollamt_002 + + Partial Public Class WeiterleitungTRATyp + Inherits DatenaustauschFreierVerkehrTyp + + Private einzelWeiterleitungField As EinzelWeiterleitungTyp + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.einzelWeiterleitungField = New EinzelWeiterleitungTyp() + End Sub + + Public Property EinzelWeiterleitung() As EinzelWeiterleitungTyp + Get + Return Me.einzelWeiterleitungField + End Get + Set + Me.einzelWeiterleitungField = 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(WeiterleitungTRATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current WeiterleitungTRATyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an WeiterleitungTRATyp object + ''' + '''string workflow markup to deserialize + '''Output WeiterleitungTRATyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As WeiterleitungTRATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WeiterleitungTRATyp) + 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 WeiterleitungTRATyp) 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 WeiterleitungTRATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), WeiterleitungTRATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current WeiterleitungTRATyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an WeiterleitungTRATyp object + ''' + '''string xml file to load and deserialize + '''Output WeiterleitungTRATyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WeiterleitungTRATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WeiterleitungTRATyp) + 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 WeiterleitungTRATyp) 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 WeiterleitungTRATyp + 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 EinzelWeiterleitungTyp + + Private objektIdentifizierungField As ObjektIdentifizierungTRATyp + + Private kopfDatenField As KopfDatenWeiterleitungTyp + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Sub New() + MyBase.New + Me.kopfDatenField = New KopfDatenWeiterleitungTyp() + Me.objektIdentifizierungField = New ObjektIdentifizierungTRATyp() + End Sub + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTRATyp + Get + Return Me.objektIdentifizierungField + End Get + Set + Me.objektIdentifizierungField = Value + End Set + End Property + + Public Property KopfDaten() As KopfDatenWeiterleitungTyp + Get + Return Me.kopfDatenField + End Get + Set + Me.kopfDatenField = 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(EinzelWeiterleitungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current EinzelWeiterleitungTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an EinzelWeiterleitungTyp object + ''' + '''string workflow markup to deserialize + '''Output EinzelWeiterleitungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelWeiterleitungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelWeiterleitungTyp) + 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 EinzelWeiterleitungTyp) 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 EinzelWeiterleitungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelWeiterleitungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current EinzelWeiterleitungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an EinzelWeiterleitungTyp object + ''' + '''string xml file to load and deserialize + '''Output EinzelWeiterleitungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelWeiterleitungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelWeiterleitungTyp) + 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 EinzelWeiterleitungTyp) 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 EinzelWeiterleitungTyp + 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 ObjektIdentifizierungTRATyp + + Private objektNameField As String + + Private objektAliasField As String + + Private eDIFACTNachrichtenNrField As String + + Private zeitpunktEingangField As Date + + 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 ObjektAlias() As String + Get + Return Me.objektAliasField + End Get + Set + Me.objektAliasField = 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 + + 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(ObjektIdentifizierungTRATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current ObjektIdentifizierungTRATyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an ObjektIdentifizierungTRATyp object + ''' + '''string workflow markup to deserialize + '''Output ObjektIdentifizierungTRATyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungTRATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTRATyp) + 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 ObjektIdentifizierungTRATyp) 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 ObjektIdentifizierungTRATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungTRATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current ObjektIdentifizierungTRATyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an ObjektIdentifizierungTRATyp object + ''' + '''string xml file to load and deserialize + '''Output ObjektIdentifizierungTRATyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTRATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTRATyp) + 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 ObjektIdentifizierungTRATyp) 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 ObjektIdentifizierungTRATyp + 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 KopfDatenWeiterleitungTyp + + Private zollBearbeiterField As String + + Private weiterleitungBegruendungField As String + + Private weitergeleiteteZollanmeldungRegistrierNrField As String + + Private weiterleitungDatumField As Date + + Private weiterleitungDatumFieldSpecified As Boolean + + Private dienststellenschluesselField As String + + Private hZABezeichnungField As String + + Private hZAOrtSField As String + + Private hZAPLZSField As String + + Private hZAStrasseHausNrField As String + + Private hZAOrtPField As String + + Private hZAPLZPField As String + + Private hZAPostfachField As String + + Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + + Public Property ZollBearbeiter() As String + Get + Return Me.zollBearbeiterField + End Get + Set + Me.zollBearbeiterField = Value + End Set + End Property + + Public Property WeiterleitungBegruendung() As String + Get + Return Me.weiterleitungBegruendungField + End Get + Set + Me.weiterleitungBegruendungField = Value + End Set + End Property + + Public Property WeitergeleiteteZollanmeldungRegistrierNr() As String + Get + Return Me.weitergeleiteteZollanmeldungRegistrierNrField + End Get + Set + Me.weitergeleiteteZollanmeldungRegistrierNrField = Value + End Set + End Property + + Public Property WeiterleitungDatum() As Date + Get + Return Me.weiterleitungDatumField + End Get + Set + Me.weiterleitungDatumField = Value + End Set + End Property + + + Public Property WeiterleitungDatumSpecified() As Boolean + Get + Return Me.weiterleitungDatumFieldSpecified + End Get + Set + Me.weiterleitungDatumFieldSpecified = 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 HZABezeichnung() As String + Get + Return Me.hZABezeichnungField + End Get + Set + Me.hZABezeichnungField = 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 HZAStrasseHausNr() As String + Get + Return Me.hZAStrasseHausNrField + End Get + Set + Me.hZAStrasseHausNrField = 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 HZAPostfach() As String + Get + Return Me.hZAPostfachField + End Get + Set + Me.hZAPostfachField = 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(KopfDatenWeiterleitungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + '''Serializes current KopfDatenWeiterleitungTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an KopfDatenWeiterleitungTyp object + ''' + '''string workflow markup to deserialize + '''Output KopfDatenWeiterleitungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenWeiterleitungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenWeiterleitungTyp) + 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 KopfDatenWeiterleitungTyp) 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 KopfDatenWeiterleitungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(xml) + Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfDatenWeiterleitungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + ''' + '''Serializes current KopfDatenWeiterleitungTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an KopfDatenWeiterleitungTyp object + ''' + '''string xml file to load and deserialize + '''Output KopfDatenWeiterleitungTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenWeiterleitungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenWeiterleitungTyp) + 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 KopfDatenWeiterleitungTyp) 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 KopfDatenWeiterleitungTyp + 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" + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current TransaktionFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output TransaktionFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + + 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" + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document + ''' + '''string XML value + 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 + + ''' + '''Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + '''string workflow markup to deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 + + ''' + '''Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + '''full path of outupt xml file + '''output Exception value if failed + '''true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As 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 + + ''' + '''Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + '''string xml file to load and deserialize + '''Output DatenaustauschFreierVerkehrTyp object + '''output Exception value if deserialize failed + '''true if this XmlSerializer can deserialize the object; otherwise, false + 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 diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_002.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_002.xsd new file mode 100644 index 0000000..2857d40 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_002.xsd @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj index 8df92d9..d13e0bf 100644 --- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj +++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj @@ -88,22 +88,33 @@ + + + + - + + + + + + + + @@ -194,12 +205,18 @@ Designer + + Designer + Designer Designer + + Designer + Designer @@ -209,15 +226,24 @@ Designer + + Designer + Designer + + Designer + Designer Designer + + Designer + Designer @@ -227,24 +253,42 @@ Designer + + Designer + Designer + + Designer + Designer Designer + + Designer + Designer + + Designer + Designer + + Designer + Designer + + Designer + Designer diff --git a/initATLASAufschubkonten/cGetMsgType.vb b/initATLASAufschubkonten/cGetMsgType.vb index 0f2fcc7..4898903 100644 --- a/initATLASAufschubkonten/cGetMsgType.vb +++ b/initATLASAufschubkonten/cGetMsgType.vb @@ -255,6 +255,33 @@ Public Class cGetMsgType Return False End Function + + + Shared Function isEZA_EntscheidungAnmeldung(doc As XmlDocument, ByRef VERSION As String) As Boolean + If doc.HasChildNodes Then + If doc.GetElementsByTagName("EntscheidungAnmeldung").Count > 0 Then + If doc.GetElementsByTagName("Version").Count > 0 Then + VERSION = doc.GetElementsByTagName("Version")(0).InnerText + End If + Return True + End If + End If + Return False + End Function + + Shared Function isEZA_SumAErledigungsinformationVorpapier(doc As XmlDocument, ByRef VERSION As String) As Boolean + If doc.HasChildNodes Then + If doc.GetElementsByTagName("SumAErledigungsinformationVorpapier").Count > 0 Then + If doc.GetElementsByTagName("Version").Count > 0 Then + VERSION = doc.GetElementsByTagName("Version")(0).InnerText + End If + Return True + End If + End If + Return False + End Function + + Shared Function isEZA_SumAErledigungsinformationVorpapier(doc As XmlDocument) As Boolean If doc.HasChildNodes Then If doc.GetElementsByTagName("SumAErledigungsinformationVorpapier").Count > 0 Then @@ -302,6 +329,17 @@ Public Class cGetMsgType Return False End Function + Shared Function isEZA_StornierungBescheid(doc As XmlDocument, ByRef VERSION As String) As Boolean + If doc.HasChildNodes Then + If doc.GetElementsByTagName("StornierungBescheid").Count > 0 Then + If doc.GetElementsByTagName("Version").Count > 0 Then + VERSION = doc.GetElementsByTagName("Version")(0).InnerText + End If + Return True + End If + End If + Return False + End Function Shared Function isEZA_StornierungBescheid(doc As XmlDocument) As Boolean If doc.HasChildNodes Then If doc.GetElementsByTagName("StornierungBescheid").Count > 0 Then @@ -372,6 +410,22 @@ Public Class cGetMsgType Return False End Function + Shared Function isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF(doc As XmlDocument) As Boolean + If doc.HasChildNodes Then + ' If doc.GetElementsByTagName("DakosyMessageInternal").Count > 0 Then + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + If XmlString.Contains("") Then + + Return True + End If + 'End If + End If + Return False + End Function + Shared Function isAES_DEXPDE(doc As XmlDocument) As Boolean diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 94955a5..b099cb7 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -3,6 +3,7 @@ Imports System.Globalization Imports System.Xml Imports Renci.SshNet Imports System.Net.Mail +Imports GrapeCity.Enterprise.Data.DataEngine.DataProcessing Public Class frmDYNachrichtenVerarbeitung Dim cntDatenEingelesen As Integer = 0 @@ -144,7 +145,7 @@ Public Class frmDYNachrichtenVerarbeitung Return cnt End Function - + @@ -331,7 +332,7 @@ Public Class frmDYNachrichtenVerarbeitung 'EZA: FreierVerkehrAktVeredelUmwandlung NEU XML - If Not found AndAlso cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML(doc) Then + If Not found AndAlso cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML(doc) Then 'FCFCDC Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlungXML(doc) If bezugsNr <> "" Then found = True @@ -344,20 +345,35 @@ Public Class frmDYNachrichtenVerarbeitung found = True End If End If + 'EZA: FreierVerkehrAktVeredelUmwandlung NEU XML + If Not found AndAlso cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF(doc) Then + Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF(doc) + If bezugsNr <> "" Then + found = True + End If + End If 'EZA: EntscheidungAnmeldung - If Not found And cGetMsgType.isEZA_EntscheidungAnmeldung(doc) Then - If readEZA_EntscheidungAnmeldung(d) <> "" Then found = True + If Not found And cGetMsgType.isEZA_EntscheidungAnmeldung(doc, VERSION) Then + Select Case VERSION + Case "004" : If readEZA_EntscheidungAnmeldung_004(d) <> "" Then found = True + Case Else : If readEZA_EntscheidungAnmeldung(d) <> "" Then found = True + End Select + End If 'EZA: SumAErledigungsinformationVorpapier - If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc) Then - If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True + If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc, VERSION) Then + Select Case VERSION + Case "004" : If readEZA_SumAErledigungsinformationVorpapier_004(d) <> "" Then found = True + Case Else : If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True + End Select End If 'EZA: Abgabenbescheid If Not found And cGetMsgType.isEZA_Abgabenbescheid(doc, VERSION) Then Select Case VERSION + Case "010" : If readEZA_Abgabenbescheid010(d, statusTMP) <> "" Then found = True Case "009" : If readEZA_Abgabenbescheid009(d, statusTMP) <> "" Then found = True Case "008" : If readEZA_Abgabenbescheid008(d) <> "" Then found = True Case Else : If readEZA_Abgabenbescheid(d) <> "" Then found = True @@ -368,6 +384,7 @@ Public Class frmDYNachrichtenVerarbeitung 'EZA: NichtAbschliessendeFestsetzung If Not found And cGetMsgType.isEZA_NichtAbschliessendeFestsetzung(doc, VERSION) Then Select Case VERSION + Case "004" : If readEZA_NichtAbschliessendeFestsetzung004(d) <> "" Then found = True Case "003" : If readEZA_NichtAbschliessendeFestsetzung003(d) <> "" Then found = True Case Else : If readEZA_NichtAbschliessendeFestsetzung(d) <> "" Then found = True End Select @@ -376,6 +393,7 @@ Public Class frmDYNachrichtenVerarbeitung 'EZA: AbschliessendeFestsetzung If Not found And cGetMsgType.isEZA_AbschliessendeFestsetzung(doc, VERSION) Then Select Case VERSION + Case "005" : If readEZA_AbschliessendeFestsetzung005(d) <> "" Then found = True Case "004" : If readEZA_AbschliessendeFestsetzung004(d) <> "" Then found = True Case Else : If readEZA_AbschliessendeFestsetzung(d) <> "" Then found = True End Select @@ -383,8 +401,11 @@ Public Class frmDYNachrichtenVerarbeitung End If 'EZA: StornierungBescheid - If Not found And cGetMsgType.isEZA_StornierungBescheid(doc) Then - If readEZA_StornierungBescheid(d) <> "" Then found = True + If Not found And cGetMsgType.isEZA_StornierungBescheid(doc, VERSION) Then + Select Case VERSION + Case "002" : If readEZA_StornierungBescheid_002(d) <> "" Then found = True + Case Else : If readEZA_StornierungBescheid(d) <> "" Then found = True + End Select End If 'EZA: BefundVereinfachteZollanmeldung @@ -392,6 +413,7 @@ Public Class frmDYNachrichtenVerarbeitung Select Case VERSION Case "006" : found = True : addDGVEinarbeitung("*EZA: BefundVereinfachteZollanmeldung", "-") Case "007" : found = True : addDGVEinarbeitung("*EZA: BefundVereinfachteZollanmeldung", "-") + Case "008" : found = True : addDGVEinarbeitung("*EZA: BefundVereinfachteZollanmeldung", "-") Case Else : found = True : addDGVEinarbeitung("*EZA: BefundVereinfachteZollanmeldung", "-") End Select @@ -911,7 +933,7 @@ Public Class frmDYNachrichtenVerarbeitung 'Eintragen Else 'Update - AES_TMP.UPDATE_STATUS(DY_TMP.dy_Status) 'weil der Status bereit überprüft wurde --> neuste TransaktionsID + AES_TMP.UPDATE_Status(DY_TMP.dy_Status) 'weil der Status bereit überprüft wurde --> neuste TransaktionsID If ANR <> "" Then AES_TMP.aes_ANR = ANR : AES_TMP.SAVE() If MRN <> "" Then AES_TMP.aes_MRN = MRN : AES_TMP.SAVE() @@ -943,7 +965,7 @@ Public Class frmDYNachrichtenVerarbeitung Else 'Update - EZA_TMP.UPDATE_STATUS(DY_TMP.dy_Status) 'weil der Status bereit überprüft wurde --> neuste TransaktionsID + EZA_TMP.UPDATE_Status(DY_TMP.dy_Status) 'weil der Status bereit überprüft wurde --> neuste TransaktionsID If ANR <> "" Then EZA_TMP.eza_ANR = ANR : EZA_TMP.SAVE() If MRN <> "" Then EZA_TMP.eza_MRN = MRN : EZA_TMP.SAVE() @@ -3070,6 +3092,625 @@ Public Class frmDYNachrichtenVerarbeitung End Try End Function + Function readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF(doc As XmlDocument) As String + Try + readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF = "" + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + If XmlString.Contains("") Then + Dim xmlFCFCDF = XmlString.Substring(XmlString.IndexOf(""), XmlString.IndexOf("") + 9 - XmlString.IndexOf("")) + ' MsgBox(xmlFCFCDF) + Dim p = Path.GetTempFileName + + Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default) + outputFile.Write(xmlFCFCDF) + outputFile.Close() + + + + Dim FCFCDF As DAKOSY_Worker.FCFCDF.FCFCDF = DAKOSY_Worker.FCFCDF.FCFCDF.LoadFromFile(p) + ' Dim EZA As New DAKOSY_Worker.cDakosyEZA + + + + If FCFCDF IsNot Nothing And FCFCDF.Header IsNot Nothing And FCFCDF.Header.LRN IsNot Nothing Then + readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF = FCFCDF.Header.LRN + Else + Return "" 'Keine Bezugsnummer + End If + + + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF, "EZA") + + Dim EZA As DAKOSY_Worker.cDakosyEZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + If EZA Is Nothing Then EZA = New DAKOSY_Worker.cDakosyEZA + If DY_TMP IsNot Nothing Then EZA.eza_dyaAnmID = DY_TMP.dy_Id + + If DY_TMP.dy_AvisoId Is Nothing Then + DY_TMP.tryFindAviso() + DY_TMP.SAVE() + End If + + + If FCFCDF IsNot Nothing Then + EZA.eza_ObjectName = readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF + + If FCFCDF.MetaData IsNot Nothing Then + If FCFCDF.MetaData.Preparation IsNot Nothing Then EZA.eza_Trans_DatumZeit = CDate(FCFCDF.MetaData.Preparation.Date).ToShortDateString + End If + + + If FCFCDF.Header IsNot Nothing Then + + EZA.eza_VersendungsLandCode = FCFCDF.Header.DepartureCountry + EZA.eza_FinanzamtAnmelder = FCFCDF.Header.TaxOffice + 'EZA.eza_UstIdAnmelder = FCFCDF.Header.TaxNumber + + EZA.eza_Warenort = FCFCDF.Header.GoodsLocation + EZA.eza_Ausstellungsort = FCFCDF.Header.DeclarationPlace + + + EZA.eza_ZollrechtlicherStatus = FCFCDF.Header.CustomsGoodsStatus + EZA.eza_Zahlungsart = FCFCDF.Header.PaymentMethod + EZA.eza_AnmelderistEmpfaenger = FCFCDF.Header.DeclarantIsConsigneeFlag + EZA.eza_VertretungsVerhaeltnisCode = FCFCDF.Header.RepresentativeRelationshipFlag + EZA.eza_Vorsteuerabzug = FCFCDF.Header.InputTaxDeductionFlag + EZA.eza_ZusatzangabenAnmeldung = FCFCDF.Header.AdditionalInformation + + ' EZA.eza_VerfahrenBeantragtCode + End If + + End If + + If FCFCDF.Body IsNot Nothing Then + If FCFCDF.Body.ForeignTradeStatistics IsNot Nothing Then + + EZA.eza_ArtGeschaeftCode = FCFCDF.Body.ForeignTradeStatistics.TransactionType + EZA.eza_Bestimmungsland = FCFCDF.Body.ForeignTradeStatistics.DestinationCountry + EZA.eza_Bestimmungsbundesland = FCFCDF.Body.ForeignTradeStatistics.DestinationFederalState + + If FCFCDF.Body.ForeignTradeStatistics.EntryCustomsOffice IsNot Nothing Then + EZA.eza_Eingangszollstelle = FCFCDF.Body.ForeignTradeStatistics.EntryCustomsOffice.ReferenceNumber + End If + + EZA.eza_Statistikstatus = FCFCDF.Body.ForeignTradeStatistics.GoodsStatus + EZA.eza_DV1Kz = FCFCDF.Body.CustomsValueFlag + EZA.eza_GesamtRohmasse = FCFCDF.Body.ForeignTradeStatistics.TotalGrossMassMeasure + + End If + + If FCFCDF.Body.PaymentTransaction IsNot Nothing Then + EZA.eza_Rechnungswaehrung = FCFCDF.Body.PaymentTransaction.CurrencyCode + EZA.eza_Rechnungspreis = FCFCDF.Body.PaymentTransaction.Amount + + End If + + If FCFCDF.Body.CustomsValue IsNot Nothing Then + If FCFCDF.Body.CustomsValue.RestrictionOrCondition IsNot Nothing Then EZA.eza_DV1EinschraenkungenKz = FCFCDF.Body.CustomsValue.RestrictionOrCondition.RestrictionFlag + EZA.eza_DV1FruehereEntscheidungen = FCFCDF.Body.CustomsValue.FormerDecisions + + If FCFCDF.Body.CustomsValue.Affiliation IsNot Nothing Then EZA.eza_DV1Verbundenheit = FCFCDF.Body.CustomsValue.Affiliation.Type + If FCFCDF.Body.CustomsValue.Affiliation IsNot Nothing Then EZA.eza_DV1VerbungenheitEinzelheiten = FCFCDF.Body.CustomsValue.Affiliation.Description + If FCFCDF.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenUmstand = FCFCDF.Body.CustomsValue.LicenseFee.Description + If FCFCDF.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenKz = FCFCDF.Body.CustomsValue.LicenseFee.LicenseFeeFlag + End If + + If FCFCDF.Body.Document IsNot Nothing AndAlso FCFCDF.Body.Document.Count > 0 Then + For Each docTMP In FCFCDF.Body.Document + Dim UNTERLAGE As New DAKOSY_Worker.cDakosy_EZA_Unterlagen + UNTERLAGE.ezaUl_Art = docTMP.Type + UNTERLAGE.ezaUl_Nummer = docTMP.ReferenceNumber + UNTERLAGE.ezaUl_Bereich = docTMP.Division + UNTERLAGE.ezaUl_DatumAusstellung = CDate(docTMP.IssuingDate).ToShortDateString + + EZA.eza_UNTERLAGEN.Add(UNTERLAGE) + Next + + End If + + ' EZA.eza_DV1Verbundenheit = cEDI.getSimpleLine("GIS+904:::", lines, Nothing)??? + ' EZA.eza_BewilligungsIDZLAVUV = cEDI.getSimpleLine("RFF+AEM:", lines) '? + + 'Vorpapier + If FCFCDF.PreviousAdministrativeReferences IsNot Nothing Then + EZA.eza_VorpapierArtCode = FCFCDF.PreviousAdministrativeReferences.Type + If FCFCDF.PreviousAdministrativeReferences.PreviousAdministrativeReference IsNot Nothing Then EZA.eza_VorpapierNr = FCFCDF.PreviousAdministrativeReferences.PreviousAdministrativeReference.ReferenceNumber + End If + + 'Beförderungsmittel Grenze + If FCFCDF.BorderTransportMeans IsNot Nothing Then + EZA.eza_BeförderungsmittelGrenzeArt = FCFCDF.BorderTransportMeans.Type + EZA.eza_VerkehrszweigGrenze = FCFCDF.BorderTransportMeans.Mode + EZA.eza_BeförderungsmittelGrenze = FCFCDF.BorderTransportMeans.Information + EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = FCFCDF.BorderTransportMeans.Nationality + End If + + 'Beförderungsmittel Inland + If FCFCDF.BorderTransportMeans IsNot Nothing Then + EZA.eza_BeförderungsmittelGrenzeArt = FCFCDF.BorderTransportMeans.Type + EZA.eza_VerkehrszweigGrenze = FCFCDF.BorderTransportMeans.Mode + EZA.eza_BeförderungsmittelGrenze = FCFCDF.BorderTransportMeans.Information + EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = FCFCDF.BorderTransportMeans.Nationality + End If + + 'Beförderungsmittel Inland + If FCFCDF.ArrivalTransportMeans IsNot Nothing Then + EZA.eza_KennzeichenNameBefoerderungsmittelAnkunft = FCFCDF.ArrivalTransportMeans.Identity + End If + + 'Ansprechpartenr + If FCFCDF.ContactPerson IsNot Nothing Then + EZA.eza_AnmeldenderBearbeiterName = FCFCDF.ContactPerson.Name + EZA.eza_AnmeldenderBearbeiterEMail = FCFCDF.ContactPerson.MailAddress + EZA.eza_AnmeldenderBearbeiterStellung = FCFCDF.ContactPerson.Position + EZA.eza_AnmeldenderBearbeiterTel = FCFCDF.ContactPerson.PhoneNumber + Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & EZA.eza_AnmeldenderBearbeiterName & "'", "ADMIN") + If SB_Tmp <> "" Then + EZA.eza_Bearbeiter = SB_Tmp + End If + End If + + + + 'Anmleder + If FCFCDF.Declarant IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "DT" + If FCFCDF.Declarant.Name IsNot Nothing Then + If FCFCDF.Declarant.Name.ToString.Length > 40 Then + If FCFCDF.Declarant.Name.ToString.Length > 80 Then + ADR.ezaAd_NameFirma1 = FCFCDF.Declarant.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDF.Declarant.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDF.Declarant.Name.ToString.Substring(80, FCFCDF.Declarant.Name.ToString.Length - 80) + End If + ADR.ezaAd_NameFirma1 = FCFCDF.Declarant.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDF.Declarant.Name.ToString.Substring(40, FCFCDF.Declarant.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDF.Declarant.Name + End If + End If + If FCFCDF.Declarant.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDF.Declarant.Identification.ReferenceNumber + ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Declarant.Identification.SubsidiaryNumber + End If + If FCFCDF.Declarant.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDF.Declarant.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDF.Declarant.Address.City + ADR.ezaAd_PLZ = FCFCDF.Declarant.Address.Postcode + ADR.ezaAd_LandCode = FCFCDF.Declarant.Address.Country + End If + EZA.eza_ADRESSEN.Add(ADR) + End If + + + + 'Vertreter + If FCFCDF.Representative IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "CB" + If FCFCDF.Representative.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDF.Representative.Identification.ReferenceNumber + ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Representative.Identification.SubsidiaryNumber + EZA.eza_ADRESSEN.Add(ADR) + End If + End If + + + 'Empfänger + If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.Consignee IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "CN" + If FCFCDF.Body.Consignee.Name IsNot Nothing Then + If FCFCDF.Body.Consignee.Name.ToString.Length > 40 Then + If FCFCDF.Body.Consignee.Name.ToString.Length > 80 Then + ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignee.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDF.Body.Consignee.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDF.Body.Consignee.Name.ToString.Substring(80, FCFCDF.Body.Consignee.Name.ToString.Length - 80) + End If + ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignee.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDF.Body.Consignee.Name.ToString.Substring(40, FCFCDF.Body.Consignee.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignee.Name + End If + End If + If FCFCDF.Body.Consignee.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.Consignee.Identification.ReferenceNumber + ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.Consignee.Identification.SubsidiaryNumber + End If + If FCFCDF.Body.Consignee.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.Consignee.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDF.Body.Consignee.Address.City + ADR.ezaAd_PLZ = FCFCDF.Body.Consignee.Address.Postcode + ADR.ezaAd_LandCode = FCFCDF.Body.Consignee.Address.Country + End If + EZA.eza_ADRESSEN.Add(ADR) + End If + + + + 'Erwerber --> NEU!!! = zusätzl. Steuerl. Angaben + If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.AdditionalDutyReferences IsNot Nothing AndAlso FCFCDF.Body.AdditionalDutyReferences.Count > 0 AndAlso FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty IsNot Nothing Then + + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "UC" + If FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name IsNot Nothing Then + If FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Length > 40 Then + If FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Length > 80 Then + ADR.ezaAd_NameFirma1 = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(80, FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Length - 80) + End If + ADR.ezaAd_NameFirma1 = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(40, FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name + End If + End If + If FCFCDF.Body.AdditionalDutyReferences(0).ReferenceNumber IsNot Nothing Then + ADR.ezaAd_UStIDAnmelder = FCFCDF.Body.AdditionalDutyReferences(0).ReferenceNumber + EZA.eza_UstIdAnmelder = FCFCDF.Body.AdditionalDutyReferences(0).ReferenceNumber + End If + + If FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Identification.ReferenceNumber + 'ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Identification.ReferenceNumber + End If + If FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address.City + ADR.ezaAd_PLZ = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address.Postcode + ADR.ezaAd_LandCode = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address.Country + End If + EZA.eza_ADRESSEN.Add(ADR) + End If + + 'Versender/Ausführer + If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.Consignor IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "CZ" + If FCFCDF.Body.Consignor.Name IsNot Nothing Then + If FCFCDF.Body.Consignor.Name.ToString.Length > 40 Then + If FCFCDF.Body.Consignor.Name.ToString.Length > 80 Then + ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignor.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDF.Body.Consignor.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDF.Body.Consignor.Name.ToString.Substring(80, FCFCDF.Body.Consignor.Name.ToString.Length - 80) + End If + ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignor.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDF.Body.Consignor.Name.ToString.Substring(40, FCFCDF.Body.Consignor.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignor.Name + End If + End If + If FCFCDF.Body.Consignor.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.Consignor.Identification.ReferenceNumber + ' ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.Consignor.Identification.SubsidiaryNumber + End If + If FCFCDF.Body.Consignor.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.Consignor.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDF.Body.Consignor.Address.City + ADR.ezaAd_PLZ = FCFCDF.Body.Consignor.Address.Postcode + ADR.ezaAd_LandCode = FCFCDF.Body.Consignor.Address.Country + End If + EZA.eza_ADRESSEN.Add(ADR) + End If + + 'Verkäufer + If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.CustomsValue IsNot Nothing AndAlso FCFCDF.Body.CustomsValue.Vendor IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "SE" + If FCFCDF.Body.CustomsValue.Vendor.Name IsNot Nothing Then + If FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length > 40 Then + If FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length > 80 Then + ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(80, FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length - 80) + End If + ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(40, FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendor.Name + End If + End If + If FCFCDF.Body.CustomsValue.Vendor.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.CustomsValue.Vendor.Identification.ReferenceNumber + 'ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.CustomsValue.Vendor.Identification.SubsidiaryNumber + End If + If FCFCDF.Body.CustomsValue.Vendor.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.CustomsValue.Vendor.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDF.Body.CustomsValue.Vendor.Address.City + ADR.ezaAd_PLZ = FCFCDF.Body.CustomsValue.Vendor.Address.Postcode + ADR.ezaAd_LandCode = FCFCDF.Body.CustomsValue.Vendor.Address.Country + End If + EZA.eza_ADRESSEN.Add(ADR) + End If + + 'Käufer + If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.CustomsValue IsNot Nothing AndAlso FCFCDF.Body.CustomsValue.Vendee IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "BY" + If FCFCDF.Body.CustomsValue.Vendee.Name IsNot Nothing Then + If FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length > 40 Then + If FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length > 80 Then + ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(80, FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length - 80) + End If + ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(40, FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendee.Name + End If + End If + If FCFCDF.Body.CustomsValue.Vendee.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.CustomsValue.Vendee.Identification.ReferenceNumber + 'ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.CustomsValue.Vendee.Identification.SubsidiaryNumber + End If + If FCFCDF.Body.CustomsValue.Vendee.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.CustomsValue.Vendee.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDF.Body.CustomsValue.Vendee.Address.City + ADR.ezaAd_PLZ = FCFCDF.Body.CustomsValue.Vendee.Address.Postcode + ADR.ezaAd_LandCode = FCFCDF.Body.CustomsValue.Vendee.Address.Country + End If + EZA.eza_ADRESSEN.Add(ADR) + End If + End If + + + + + ''Zollwertanmelder + 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+PQ++", lines, , False)) + 'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "PQ")) + + + ''Vertr. Zollwertanmelder + 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AG++", lines, , False)) + 'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AG")) + + ''Rechnung + 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AA++", lines)) + 'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AA")) + + ''Postfachadresse + 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AAP++", lines)) + 'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AAP")) + ''-- + + 'AUFSCHUB + If FCFCDF.DutyDefermentApproval IsNot Nothing AndAlso FCFCDF.DutyDefermentApproval.Count > 0 Then + For Each TMP In FCFCDF.DutyDefermentApproval + Dim AUFSCHUB As New DAKOSY_Worker.cDakosy_EZA_Aufschub + If TMP.DutyDefermentApplicant IsNot Nothing AndAlso TMP.DutyDefermentApplicant.Identification IsNot Nothing Then + AUFSCHUB.ezaAfb_AufschubnehmerEORI = TMP.DutyDefermentApplicant.Identification.ReferenceNumber + End If + + + AUFSCHUB.ezaAfb_AufschuBIN = TMP.AuthorisationNumber + AUFSCHUB.ezaAfb_HZA = TMP.AccountPrefix + AUFSCHUB.ezaAfb_KontoNr = TMP.AccountNumber + AUFSCHUB.ezaAfb_Aufschubart = TMP.Type + AUFSCHUB.ezaAfb_ArtAufschubantrag = TMP.ApplicationType + EZA.eza_AUFSCHUB.Add(AUFSCHUB) + Next + + End If + + + 'Lieferbedingungen + If FCFCDF.Body.DeliveryTerms IsNot Nothing Then + EZA.eza_LieferbedingungCode = FCFCDF.Body.DeliveryTerms.Code + EZA.eza_LieferbedingungText = FCFCDF.Body.DeliveryTerms.Description + EZA.eza_LieferbedingungOrt = FCFCDF.Body.DeliveryTerms.Place + EZA.eza_LieferbedingungSchluessel = FCFCDF.Body.DeliveryTerms.Key + End If + + + ' ################################################### + 'POSITIONEN + ' ################################################### + + If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.GoodsItem IsNot Nothing AndAlso FCFCDF.Body.GoodsItem.Count > 0 Then + For Each GOODSITEM In FCFCDF.Body.GoodsItem + Dim POS As New DAKOSY_Worker.cDakosy_EZA_Warenposition + + + POS.ezaWP_PositionsNummer = GOODSITEM.SequenceNumber + If GOODSITEM.CommodityCode IsNot Nothing Then POS.ezaWP_WarennummerEZT = GOODSITEM.CommodityCode.CommodityCode + If GOODSITEM.Procedure IsNot Nothing Then POS.ezaWP_AnmeldeVErfahren = GOODSITEM.Procedure.RequestedPreviousProcedure + + POS.ezaWP_AbgabensteuerungKz = GOODSITEM.CessionManagementFlag + POS.ezaWP_Warenbezeichnung = GOODSITEM.GoodsDescription + POS.ezaWP_PositionsZusatz = GOODSITEM.SupplementaryInformation + + If GOODSITEM.CustomsValue IsNot Nothing Then + POS.ezaWP_OrtVerbringens = GOODSITEM.CustomsValue.DestinationPlace + POS.ezaWP_AbflughafenIATACode = GOODSITEM.CustomsValue.DepartureAirport + If GOODSITEM.CustomsValue.NetPrice IsNot Nothing Then + ' POS.ezaWP_KursBetragVereinbart = GOODSITEM.CustomsValue.NetPrice.CurrencyCode + POS.ezaWP_KursVereinbartKz = GOODSITEM.CustomsValue.NetPrice.CurrencyRateAgreedFlag + POS.ezaWP_KursBetragVereinbart = GOODSITEM.CustomsValue.NetPrice.Value + 'POS.ezaWP_KursDatum= GOODSITEM.CustomsValue.NetPrice.CurrencyRate + 'POS.ezaWP_KursDatum = GOODSITEM.CustomsValue.NetPrice. + End If + + + If GOODSITEM.ForeignTradeStatistics IsNot Nothing Then + POS.ezaWP_Rohmasse = GOODSITEM.ForeignTradeStatistics.GrossMassMeasure + If GOODSITEM.ForeignTradeStatistics.Amount IsNot Nothing Then + POS.ezaWP_AHStatMengeQualifier = GOODSITEM.ForeignTradeStatistics.Amount.Qualifier + POS.ezaWP_AHStatMengeMasseinheit = GOODSITEM.ForeignTradeStatistics.Amount.MeasurementUnit + POS.ezaWP_AHStatMenge = GOODSITEM.ForeignTradeStatistics.Amount.Quantity + POS.ezaWP_AHStatWert = GOODSITEM.ForeignTradeStatistics.Quantity + End If + End If + + POS.ezaWP_UrsprungslandCode = GOODSITEM.OriginCountry + POS.ezaWP_Eigenmasse = GOODSITEM.NetMassMeasure + + ' POS.ezaWP_BeguenstigungBenatragtCode = Bedingun. + POS.ezaWP_BedingungCode = GOODSITEM.Condition + 'POS.ezaWP_EUCode = GOODSITEM.EUCode + + 'If GOODSITEM.Assessment IsNot Nothing Then + + ' POS.ezaWP_Zollwert = GOODSITEM.Assessment.Amount. + ' POS.ezaWP_KostenEUSt = GOODSITEM.Assessment.TaxCosts + ' POS.ezaWP_VeredelungWertsteigerung = GOODSITEM.Assessment.OutwardProcessingFee + 'End If + + + ''Packstücke + If GOODSITEM.Package IsNot Nothing Then + POS.ezaWP_PackstueckArt = GOODSITEM.Package.Kind + POS.ezaWP_PackstueckZeichen = GOODSITEM.Package.MarksNumbers + POS.ezaWP_PackstueckAnzahl = GOODSITEM.Package.Quantity + End If + + ''Packstücke + 'If GOODSITEM.Package IsNot Nothing AndAlso GOODSITEM.Package.Count > 0 Then + ' For Each PCK In GOODSITEM.Package + ' Dim AUFSCHUB As New DAKOSY_Worker.cDakosy_EZA_Aufschub + ' If PCK.DutyDefermentApplicant IsNot Nothing AndAlso PCK.DutyDefermentApplicant.Identification IsNot Nothing Then + ' AUFSCHUB.ezaAfb_AufschubnehmerEORI = PCK.DutyDefermentApplicant.Identification.ReferenceNumber + ' End If + ' AUFSCHUB.ezaAfb_AufschuBIN = PCK.AuthorisationNumber + ' AUFSCHUB.ezaAfb_KontoNr = PCK.AccountNumber + ' AUFSCHUB.ezaAfb_Aufschubart = PCK.Type + ' AUFSCHUB.ezaAfb_ArtAufschubantrag = PCK.ApplicationType + ' EZA.eza_AUFSCHUB.Add(AUFSCHUB) + ' Next + + 'End If + + + 'Preisart + '- + + POS.ezaWP_Artikelpreis = GOODSITEM.InvoiceAmount + 'Zusatzcode + If GOODSITEM.SupplementaryCodes IsNot Nothing AndAlso GOODSITEM.SupplementaryCodes.Count > 0 Then + Dim cnt = 0 + For Each s In GOODSITEM.SupplementaryCodes + If cnt = 0 Then POS.ezaWP_WarennummerZusatzCode1 = s.Code + If cnt = 1 Then POS.ezaWP_WarennummerZusatzCode2 = s.Code + If cnt = 2 Then POS.ezaWP_WarennummerZusatzCode3 = s.Code + If cnt = 3 Then POS.ezaWP_WarennummerZusatzCode4 = s.Code + If cnt = 4 Then POS.ezaWP_WarennummerZusatzCode5 = s.Code + If cnt = 5 Then POS.ezaWP_WarennummerZusatzCode6 = s.Code + If cnt = 6 Then POS.ezaWP_WarennummerZusatzCode7 = s.Code + If cnt = 7 Then POS.ezaWP_WarennummerZusatzCode8 = s.Code + If cnt = 8 Then POS.ezaWP_WarennummerZusatzCode9 = s.Code + If cnt = 9 Then POS.ezaWP_WarennummerZusatzCode10 = s.Code + cnt += 1 + Next + End If + + 'Abgabenminderung + '- + + 'Sonderfalldaten + If GOODSITEM.SpecialCase IsNot Nothing AndAlso GOODSITEM.SpecialCase.Count > 0 Then + For Each s In GOODSITEM.SpecialCase + Dim SA As New DAKOSY_Worker.cDakosy_EZA_WarenpositionSonderfalldaten + SA.ezaWpSfd_SonderabgabenGruppeCode = s.Group + SA.ezaWpSfd_AnwendungArt = s.ApplicationType + SA.ezaWpSfd_SatzBetragFaktor = s.RateOrAmountOrFactor + POS.ezaWP_SONDERFALLDATEN.Add(SA) + Next + End If + + + + 'Verbrauchsteuer + If GOODSITEM.ExciseDuty IsNot Nothing AndAlso GOODSITEM.ExciseDuty.Count > 0 Then + For Each s In GOODSITEM.ExciseDuty + Dim VS As New DAKOSY_Worker.cDakosy_EZA_WarenpositionVerbrauchssteuer + VS.ezaWpVs_VerbrauchsteuerCode = s.Code + VS.ezaWpVs_VerbrauchssteuerWertbasis = s.Value + 'VS.ezaWpVs_VerbrauchssteuerMenge = s.DegreePercentage + If s.Amount IsNot Nothing Then + VS.ezaWpVs_VerbrauchssteuerMasseinheitCode = s.Amount.Quantity + VS.ezaWpVs_VerbrauchssteuerMasseinheitQualifier = s.Amount.Qualifier + VS.ezaWpVs_VerbrauchssteuerMasseinheitCode = s.Amount.MeasurementUnit + End If + POS.ezaWP_VERBRAUCHSSTEUER.Add(VS) + Next + End If + + If GOODSITEM.PreferentialTreatment IsNot Nothing Then + POS.ezaWP_BeguenstigungBenatragtCode = GOODSITEM.PreferentialTreatment.RequestedPreferentialTreatment + If GOODSITEM.PreferentialTreatment.Declaration IsNot Nothing AndAlso GOODSITEM.PreferentialTreatment.Declaration.PreferentialTreatmentQuantity IsNot Nothing Then + POS.ezaWP_BeguenstigungsMengeMasseinheitCode = GOODSITEM.PreferentialTreatment.Declaration.PreferentialTreatmentQuantity.MeasurementUnit + POS.ezaWP_BeguenstigungsMengeMenge = GOODSITEM.PreferentialTreatment.Declaration.PreferentialTreatmentQuantity.Quantity + POS.ezaWP_BeguenstigungsMengeQualifier = GOODSITEM.PreferentialTreatment.Declaration.PreferentialTreatmentQuantity.Qualifier + End If + End If + + + 'Unterlagen + If GOODSITEM.Document IsNot Nothing AndAlso GOODSITEM.Document.Count > 0 Then + For Each s In GOODSITEM.Document + Dim UL As New DAKOSY_Worker.cDakosy_EZA_WarenpositionVorgelegteUnterlagen + UL.ezaWpUl_Bereich = s.Division + UL.ezaWpUl_VorlageKz = s.AtHandFlag + If s.WriteOff IsNot Nothing Then + UL.ezaWpUl_AbschreibungsMengeMasseinheitQualifier = s.WriteOff.Qualifier + UL.ezaWpUl_AbschreibungsMengeMasseinheit = s.WriteOff.MeasurementUnit + UL.ezaWpUl_AbschreibungsMenge = s.WriteOff.Quantity + + End If + UL.ezaWpUl_Art = s.Type + UL.ezaWpUl_Nummer = s.ReferenceNumber + UL.ezaWpUl_DatumAusstellung = CDate(s.IssuingDate).ToShortDateString + POS.ezaWP_UNTERLAGEN.Add(UL) + Next + End If + End If + EZA.eza_WARENPOS.Add(POS) + + Next + + End If + + + If If(EZA.eza_Status, 0) <= 5 Then EZA.eza_Status = DAKOSY_Worker.cDY_Statusliste.S_05 + If If(EZA.eza_Status_KEWILL_Equivalent, 0) <= 5 Then EZA.eza_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05 + + + + If EZA.SAVE_ALL() Then + If If(EZA.eza_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05) + Else + readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF = "" + End If + + + Try + System.IO.File.Delete(p) + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + addDGVEinarbeitung("EZA: FreierVerkehrAktVeredelUmwandlung", readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF) + + End Using + + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF = "" + End Try + End Function + Function readEZA_FreierVerkehrAktVeredelUmwandlungXML(doc As XmlDocument) As String Try readEZA_FreierVerkehrAktVeredelUmwandlungXML = "" @@ -4520,7 +5161,7 @@ Public Class frmDYNachrichtenVerarbeitung STATUS.dySt_artMitteilung = "EA" STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2 - + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_41 STATUS.dySt_ergZeitpunkt = zp STATUS.dySt_ergZoellner = zoellner @@ -4557,6 +5198,104 @@ Public Class frmDYNachrichtenVerarbeitung readEZA_EntscheidungAnmeldung = "" End Try End Function + Function readEZA_EntscheidungAnmeldung_004(d) As String + Try + + Dim EZA As DAKOSY_Worker.EntscheidungAnmeldung_004.EntscheidungAnmeldungRLTyp = DAKOSY_Worker.EntscheidungAnmeldung_004.EntscheidungAnmeldungRLTyp.LoadFromFile(d) + Dim anr = "" + Dim regNr = "" + Dim details = "" + Dim zoellner = "" + Dim zp As Object = Nothing + + Dim division = "" + + 'Dim annahmeKz As Object = Nothing + 'Dim ueberlassungKz As Object = Nothing + 'Dim RueckgabeKz As Object = Nothing + 'Dim anordnungKz As Object = Nothing + + readEZA_EntscheidungAnmeldung_004 = "" + If EZA IsNot Nothing Then + + If EZA.Transaktion IsNot Nothing Then + If EZA.Transaktion.IODivision3 IsNot Nothing Then + division = EZA.Transaktion.IODivision3 + End If + End If + + If EZA.EinzelEntscheidungAnmeldung IsNot Nothing Then + If EZA.EinzelEntscheidungAnmeldung.ObjektIdentifizierung IsNot Nothing Then + If EZA.EinzelEntscheidungAnmeldung.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readEZA_EntscheidungAnmeldung_004 = EZA.EinzelEntscheidungAnmeldung.ObjektIdentifizierung.ObjektName + End If + zp = EZA.EinzelEntscheidungAnmeldung.ObjektIdentifizierung.ZeitpunktEingang + End If + If EZA.EinzelEntscheidungAnmeldung.KopfDaten IsNot Nothing Then + If EZA.EinzelEntscheidungAnmeldung.KopfDaten.ArbeitsnummerVorzeitigeAnmeldung IsNot Nothing Then + regNr = EZA.EinzelEntscheidungAnmeldung.KopfDaten.ArbeitsnummerVorzeitigeAnmeldung + End If + If EZA.EinzelEntscheidungAnmeldung.KopfDaten.Registriernummer IsNot Nothing Then + anr = EZA.EinzelEntscheidungAnmeldung.KopfDaten.Registriernummer + End If + If EZA.EinzelEntscheidungAnmeldung.KopfDaten.MitteilungTeilnehmerGestellungsmodalitaeten IsNot Nothing Then + details = EZA.EinzelEntscheidungAnmeldung.KopfDaten.MitteilungTeilnehmerGestellungsmodalitaeten + End If + If EZA.EinzelEntscheidungAnmeldung.KopfDaten.BearbeiterZoll IsNot Nothing Then + zoellner = EZA.EinzelEntscheidungAnmeldung.KopfDaten.BearbeiterZoll + End If + End If + 'If EZA.EinzelEntscheidungAnmeldung.Position IsNot Nothing Then + + 'End If + + End If + End If + ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readEZA_EntscheidungAnmeldung_004 <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readEZA_EntscheidungAnmeldung_004 + STATUS.dySt_artMitteilung = "EA" + STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2 + + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_41 + STATUS.dySt_ergZeitpunkt = zp + STATUS.dySt_ergZoellner = zoellner + STATUS.dySt_ergDetails = details + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA + + If DY_TMP.dy_Status <> DAKOSY_Worker.cDY_Statusliste.S_60 Then 'Wenn beretis auf 60, dann wird kiene Änderung mehr vorgenommen! + + If anr <> "" Then + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), anr) + STATUS.dySt_ergCode = "ANR" + STATUS.dySt_ergMitteilung = anr + ElseIf regNr <> "" Then + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), , regNr) + STATUS.dySt_ergCode = "REGNR" + STATUS.dySt_ergMitteilung = regNr + Else + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) + End If + + SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + End If + + STATUS.SAVE() + + addDGVEinarbeitung("EZA: EntscheidungAnmeldung", STATUS.dySt_BezugsNr) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readEZA_EntscheidungAnmeldung_004 = "" + End Try + End Function Function readEZA_SumAErledigungsinformationVorpapier(d) As String @@ -4637,6 +5376,84 @@ Public Class frmDYNachrichtenVerarbeitung End Try End Function + Function readEZA_SumAErledigungsinformationVorpapier_004(d) As String + Try + + Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_004.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_004.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d) + Dim ART = "" + ' Dim details = "" + + Dim zp As Object = Nothing + Dim regNR = "" + Dim division = "" + + readEZA_SumAErledigungsinformationVorpapier_004 = "" + If EZA IsNot Nothing Then + + If EZA.Transaktion IsNot Nothing Then + If EZA.Transaktion.IODivision3 IsNot Nothing Then + division = EZA.Transaktion.IODivision3 + End If + End If + + If EZA.EinzelSumAErledigungsinformation IsNot Nothing Then + If EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung IsNot Nothing Then + If EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readEZA_SumAErledigungsinformationVorpapier_004 = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName + End If + zp = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang + End If + If EZA.EinzelSumAErledigungsinformation.KopfDaten IsNot Nothing Then + If EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung IsNot Nothing Then + ART = EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung + End If + If EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise IsNot Nothing Then + regNR = EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise + End If + End If + End If + End If + ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readEZA_SumAErledigungsinformationVorpapier_004 <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readEZA_SumAErledigungsinformationVorpapier_004 + STATUS.dySt_artMitteilung = "EVP" + STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2 + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_42 '??? + STATUS.dySt_ergZeitpunkt = zp + + + ' STATUS.dySt_ergDetails = details + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA + + '???????? REGNR + If regNR <> "" Then + STATUS.dySt_ergCode = "REGNr" + STATUS.dySt_ergMitteilung = regNR + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNR) + Else + STATUS.dySt_ergCode = "ART" + If ART <> "" Then STATUS.dySt_ergMitteilung = ART + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) + End If + + SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + + addDGVEinarbeitung("EZA: Erledigungsinformation-Vorpapier", STATUS.dySt_BezugsNr) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readEZA_SumAErledigungsinformationVorpapier_004 = "" + End Try + End Function + Function readEZA_NichtAbschliessendeFestsetzung(d) As String Try @@ -4791,6 +5608,83 @@ Public Class frmDYNachrichtenVerarbeitung End Function + Function readEZA_NichtAbschliessendeFestsetzung004(d) As String + Try + + Dim EZA As DAKOSY_Worker.NichtAbschliessendeFestsetzung_004.NichtAbschliessendeFestsetzungTAXNTyp = DAKOSY_Worker.NichtAbschliessendeFestsetzung_004.NichtAbschliessendeFestsetzungTAXNTyp.LoadFromFile(d) + Dim ART = "" + ' Dim details = "" + + Dim zp As Object = Nothing + Dim regNR = "" + Dim division = "" + + readEZA_NichtAbschliessendeFestsetzung004 = "" + If EZA IsNot Nothing Then + + If EZA.Transaktion IsNot Nothing Then + If EZA.Transaktion.IODivision3 IsNot Nothing Then + division = EZA.Transaktion.IODivision3 + End If + End If + + If EZA.EinzelNichtAbschliessendeFestsetzung IsNot Nothing Then + If EZA.EinzelNichtAbschliessendeFestsetzung.ObjektIdentifizierung IsNot Nothing Then + If EZA.EinzelNichtAbschliessendeFestsetzung.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readEZA_NichtAbschliessendeFestsetzung004 = EZA.EinzelNichtAbschliessendeFestsetzung.ObjektIdentifizierung.ObjektName + End If + zp = EZA.EinzelNichtAbschliessendeFestsetzung.ObjektIdentifizierung.ZeitpunktEingang + End If + If EZA.EinzelNichtAbschliessendeFestsetzung.KopfDaten IsNot Nothing Then + ' If EZA.EinzelNichtAbschliessendeFestsetzung.KopfDaten.ArtErledigung IsNot Nothing Then + 'ART = EZA.EinzelNichtAbschliessendeFestsetzung.KopfDaten.ArtErledigung + ' End If + If EZA.EinzelNichtAbschliessendeFestsetzung.KopfDaten.RegistrierNr IsNot Nothing Then + regNR = EZA.EinzelNichtAbschliessendeFestsetzung.KopfDaten.RegistrierNr + End If + End If + End If + End If + ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readEZA_NichtAbschliessendeFestsetzung004 <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readEZA_NichtAbschliessendeFestsetzung004 + STATUS.dySt_artMitteilung = "NAF" + STATUS.dySt_dyArt = "EZA" + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_56 + STATUS.dySt_ergZeitpunkt = zp + + + ' STATUS.dySt_ergDetails = details + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA + + '???????? REGNR + If regNR <> "" Then + STATUS.dySt_ergCode = "REGNr" + STATUS.dySt_ergMitteilung = regNR + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNR) + Else + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) + End If + + SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + + addDGVEinarbeitung("EZA: Nicht-abschließende Festsetzung", STATUS.dySt_BezugsNr) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readEZA_NichtAbschliessendeFestsetzung004 = "" + End Try + End Function + + Function readEZA_StornierungBescheid(d) As String Try @@ -4877,6 +5771,92 @@ Public Class frmDYNachrichtenVerarbeitung End Try End Function + Function readEZA_StornierungBescheid_002(d) As String + Try + + Dim EZA As DAKOSY_Worker.StornierungBescheid_002.StornierungBescheidREVTyp = DAKOSY_Worker.StornierungBescheid_002.StornierungBescheidREVTyp.LoadFromFile(d) + Dim ART = "" + ' Dim details = "" + + Dim zp As Object = Nothing + Dim regNR = "" + Dim division = "" + Dim grund = "" + Dim zoellner = "" + + readEZA_StornierungBescheid_002 = "" + If EZA IsNot Nothing Then + + If EZA.Transaktion IsNot Nothing Then + If EZA.Transaktion.IODivision3 IsNot Nothing Then + division = EZA.Transaktion.IODivision3 + End If + End If + + If EZA.EinzelStornierungBescheid IsNot Nothing Then + If EZA.EinzelStornierungBescheid.ObjektIdentifizierung IsNot Nothing Then + If EZA.EinzelStornierungBescheid.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readEZA_StornierungBescheid_002 = EZA.EinzelStornierungBescheid.ObjektIdentifizierung.ObjektName + End If + zp = EZA.EinzelStornierungBescheid.ObjektIdentifizierung.ZeitpunktEingang + End If + If EZA.EinzelStornierungBescheid.KopfDaten IsNot Nothing Then + 'If EZA.EinzelStornierungBescheid.KopfDaten.StornierteRegistrierNr IsNot Nothing Then + ' regNR = EZA.EinzelStornierungBescheid.KopfDaten.StornierteRegistrierNr + 'End If + If EZA.EinzelStornierungBescheid.KopfDaten.RegistrierNrNeu IsNot Nothing Then + regNR = EZA.EinzelStornierungBescheid.KopfDaten.RegistrierNrNeu + End If + If EZA.EinzelStornierungBescheid.KopfDaten.StornierungGrund IsNot Nothing Then + grund = EZA.EinzelStornierungBescheid.KopfDaten.StornierungGrund + End If + If EZA.EinzelStornierungBescheid.KopfDaten.ZollBearbeiter IsNot Nothing Then + zoellner = EZA.EinzelStornierungBescheid.KopfDaten.ZollBearbeiter + End If + + End If + End If + End If + ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readEZA_StornierungBescheid_002 <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readEZA_StornierungBescheid_002 + STATUS.dySt_artMitteilung = "STORNO" + STATUS.dySt_dyArt = "EZA" + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_57 + STATUS.dySt_ergZeitpunkt = zp + + + STATUS.dySt_ergZoellner = zoellner + STATUS.dySt_ergDetails = grund + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA + + '???????? REGNR + If regNR <> "" Then + STATUS.dySt_ergCode = "REGNr" + STATUS.dySt_ergMitteilung = regNR + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNR) + Else + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) + End If + + SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + + addDGVEinarbeitung("EZA: Stornierung Bescheid", STATUS.dySt_BezugsNr) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readEZA_StornierungBescheid_002 = "" + End Try + End Function + Function readEZA_AbschliessendeFestsetzung(d) As String Try @@ -5037,6 +6017,86 @@ Public Class frmDYNachrichtenVerarbeitung End Try End Function + + Function readEZA_AbschliessendeFestsetzung005(d) As String + Try + + Dim EZA As DAKOSY_Worker.AbschliessendeFestsetzung_005.AbschliessendeFestsetzungTAXATyp = DAKOSY_Worker.AbschliessendeFestsetzung_005.AbschliessendeFestsetzungTAXATyp.LoadFromFile(d) + Dim ART = "" + ' Dim details = "" + + Dim zp As Object = Nothing + Dim regNR = "" + Dim division = "" + + readEZA_AbschliessendeFestsetzung005 = "" + If EZA IsNot Nothing Then + + If EZA.Transaktion IsNot Nothing Then + If EZA.Transaktion.IODivision3 IsNot Nothing Then + division = EZA.Transaktion.IODivision3 + End If + End If + + If EZA.EinzelAbschliessendeFestsetzung IsNot Nothing Then + If EZA.EinzelAbschliessendeFestsetzung.ObjektIdentifizierung IsNot Nothing Then + If EZA.EinzelAbschliessendeFestsetzung.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readEZA_AbschliessendeFestsetzung005 = EZA.EinzelAbschliessendeFestsetzung.ObjektIdentifizierung.ObjektName + End If + zp = EZA.EinzelAbschliessendeFestsetzung.ObjektIdentifizierung.ZeitpunktEingang + End If + If EZA.EinzelAbschliessendeFestsetzung.KopfDaten IsNot Nothing Then + ' If EZA.EinzelAbschliessendeFestsetzung.KopfDaten.ArtErledigung IsNot Nothing Then + 'ART = EZA.EinzelAbschliessendeFestsetzung.KopfDaten.ArtErledigung + ' End If + If EZA.EinzelAbschliessendeFestsetzung.KopfDaten.RegistrierNr IsNot Nothing Then + regNR = EZA.EinzelAbschliessendeFestsetzung.KopfDaten.RegistrierNr + End If + End If + End If + End If + ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readEZA_AbschliessendeFestsetzung005 <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readEZA_AbschliessendeFestsetzung005 + STATUS.dySt_artMitteilung = "AF" + STATUS.dySt_dyArt = "EZA" + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60 + STATUS.dySt_ergZeitpunkt = zp + + + ' STATUS.dySt_ergDetails = details + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA + + + '???????? REGNR + If regNR <> "" Then + STATUS.dySt_ergCode = "REGNr" + STATUS.dySt_ergMitteilung = regNR + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNR) + Else + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) + End If + + SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + 'If If(EZA_TMP.eza_firma, "") = "IMEX" Then EZA_TMP.insertIntoSpedBuch(DY_TMP) + EZA_TMP.insertIntoSpedBuch(DY_TMP) + + addDGVEinarbeitung("EZA: Abschließende Festsetzung", STATUS.dySt_BezugsNr) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readEZA_AbschliessendeFestsetzung005 = "" + End Try + End Function + Function readEZA_Abgabenbescheid(d) As String Try 'VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW @@ -5463,7 +6523,7 @@ Public Class frmDYNachrichtenVerarbeitung End If - If readEZA_Abgabenbescheid009 <> "" Then 'BEZUGSNR vorhanden + If readEZA_Abgabenbescheid009 <> "" Then 'BEZUGSNR vorhanden STATUS.dySt_BezugsNr = readEZA_Abgabenbescheid009 STATUS.dySt_artMitteilung = "AB" STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2 @@ -5576,6 +6636,200 @@ Public Class frmDYNachrichtenVerarbeitung End Function + + Function readEZA_Abgabenbescheid010(d, ByRef statusTMP) As String + Try + 'VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW + + Dim EZA As DAKOSY_Worker.Abgabenbescheid_010.AbgabenbescheidEinfuhrTAXTyp = DAKOSY_Worker.Abgabenbescheid_010.AbgabenbescheidEinfuhrTAXTyp.LoadFromFile(d) + Dim regNr = "" + Dim regDat = "" + Dim details = "" + Dim zoellner = "" + Dim erledigung = "" + Dim zp As Object = Nothing + Dim EDIFACTNachrichtenNr = "" + Dim AUFSCHUB As List(Of DAKOSY_Worker.cDakosy_EZA_Aufschub) = Nothing + Dim division = "" + + readEZA_Abgabenbescheid010 = "" + If EZA IsNot Nothing Then + + If EZA.Transaktion IsNot Nothing Then + If EZA.Transaktion.IODivision3 IsNot Nothing Then + division = EZA.Transaktion.IODivision3 + End If + End If + + If EZA.EinzelAbgabenbescheid IsNot Nothing Then + + 'Vorgezogen, damit firma/NL erkannt wird + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) + + + If EZA.EinzelAbgabenbescheid.ObjektIdentifizierung IsNot Nothing Then + If EZA.EinzelAbgabenbescheid.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readEZA_Abgabenbescheid010 = EZA.EinzelAbgabenbescheid.ObjektIdentifizierung.ObjektName + End If + zp = EZA.EinzelAbgabenbescheid.ObjektIdentifizierung.ZeitpunktEingang + If EZA.EinzelAbgabenbescheid.ObjektIdentifizierung.EDIFACTNachrichtenNr IsNot Nothing Then + EDIFACTNachrichtenNr = EZA.EinzelAbgabenbescheid.ObjektIdentifizierung.EDIFACTNachrichtenNr + End If + End If + + If EZA.EinzelAbgabenbescheid.KopfDaten IsNot Nothing Then + If EZA.EinzelAbgabenbescheid.KopfDaten.Bearbeiter IsNot Nothing Then + zoellner = EZA.EinzelAbgabenbescheid.KopfDaten.Bearbeiter + End If + + If EZA.EinzelAbgabenbescheid.KopfDaten.Registriernummer IsNot Nothing Then + regNr = EZA.EinzelAbgabenbescheid.KopfDaten.Registriernummer + End If + If EZA.EinzelAbgabenbescheid.KopfDaten.ErledigungKopfKz IsNot Nothing Then + erledigung = EZA.EinzelAbgabenbescheid.KopfDaten.ErledigungKopfKz + End If + ' If EZA.EinzelAbgabenbescheid.KopfDaten.Registrierdatum IsNot Nothing Then + regDat = EZA.EinzelAbgabenbescheid.KopfDaten.Registrierdatum + 'End If + If EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt IsNot Nothing AndAlso EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt.Count > 0 Then + Dim a As New DAKOSY_Worker.cDakosy_EZA_Aufschub + AUFSCHUB = New List(Of DAKOSY_Worker.cDakosy_EZA_Aufschub) + For Each ABG In EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt + a.ezaAfb_ArtAufschubantrag = ABG.ArtAufschubAntrag + a.ezaAfb_AufschubnehmerEORI = ABG.AufschubnehmerTIN + a.ezaAfb_HZA = ABG.KennBuchstabenAufschub + a.ezaAfb_KontoNr = ABG.AufschubkontoNr + If ABG.Faelligkeit > CDate("01.01.2000") Then a.ezaAfb_Faelligkeit = ABG.Faelligkeit + a.ezaAfb_Zahlungsart = ABG.Zahlungsart + a.ezaAfb_Abgabenbetrag = ABG.Abgabenbetrag + a.ezaAfb_AbgabeArt = ABG.AbgabeArt + a.AufschubnehmerName = ABG.AufschubnehmerName + + 'Select Case AbgabeArt + ' Case "B0000" 'EUST + ' Case "B0000" 'EUST + 'End Select + Next + AUFSCHUB.Add(a) + End If + + + + End If + + If readEZA_Abgabenbescheid010 <> "" Then 'BEZUGSNR vorhanden + STATUS.dySt_BezugsNr = readEZA_Abgabenbescheid010 + STATUS.dySt_artMitteilung = "AB" + STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2 + + Select Case erledigung + Case "0" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig + Case "1" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig + Case "2" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig + Case "3" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_99 'unwirksam + Case "4" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_55 'nicht abschleißender Bescheid + Case "5" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60 + Case "6" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60 + Case "7" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_68 'Abgabe HZS + Case "8" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_61 'Erledigung außerhalb d. SB + End Select + + STATUS.dySt_ergCode = "REGNr" + STATUS.dySt_ergMitteilung = regNr + STATUS.dySt_ergZeitpunkt = zp + STATUS.dySt_ergZoellner = zoellner + STATUS.dySt_ergDetails = details + 'EINTRAG IN tblDakosy_Zollanmeldungen + + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA + + + + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") + + If regNr <> "" Then + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNr) + Else + EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) + End If + + + Dim firma = "" + Dim nl = "" + SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division, firma, nl) + + If AUFSCHUB IsNot Nothing And EZA_TMP IsNot Nothing Then + EZA_TMP.eza_AUFSCHUB.Clear() + For Each a In AUFSCHUB + a.ezaAfb_EZAId = EZA_TMP.eza_Id + Next + EZA_TMP.eza_AUFSCHUB = AUFSCHUB + EZA_TMP.SAVE_Aufschub() + + cVERAG_out_eza.copyFileFTP_VERAGEZA_DY(EZA_TMP, DY_TMP) ' SCHNITTSTELLE FTP BEREITSTELLEN + 'RAISE-API-EVENT/TRIGGER ?? + End If + + ' ------------------------------------------------------------------------------ + ' wenn nicht abschliebender Abgabenbescheid --> Infomail an die Zollbüros! + Select Case erledigung + Case "4" + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_55 'nicht abschleißender Bescheid + Dim MailTo = "eu@verag.ag" + Select Case EZA_TMP.eza_firma + Case "IMEX" : MailTo = "info@imex-group.at" + Case "ATILLA" : MailTo = "atilla@verag.ag" + Case "UNISPED" : MailTo = "office@unisped.at" + Case "VERAG" + Select Case EZA_TMP.eza_niederlassung + Case "WAI" : MailTo = "waidhaus@verag.com" + Case "SBG" : MailTo = "de@verag.ag" + End Select + End Select + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, "MITTEILUNG ZOLL: Nicht abschließender Abgebenbescheid - " & readEZA_Abgabenbescheid010, + "Meldung über nicht abschließenden Abgabenbescheid bei der Bezugsnummer: " & readEZA_Abgabenbescheid010 & "

Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "

Automatisch generiertes E-Mail.", + , True, True) + 'Case "5" + ' STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_55 'nicht abschleißender Bescheid + ' Dim MailTo = "al@verag.ag" + + ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, "MITTEILUNG ZOLL: Nicht abschließender Abgebenbescheid - " & readEZA_Abgabenbescheid, + ' "Meldung über abschließenden Abgabenbescheid bei der Bezugsnummer: " & readEZA_Abgabenbescheid & "

Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "

Automatisch generiertes E-Mail.", + ' , True, True) + + End Select + ' ------------------------------------------------------------------------------ + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + + If EZA IsNot Nothing AndAlso EZA.EinzelAbgabenbescheid.KopfDaten IsNot Nothing Then + InsertAbgaben(EZA, division, STATUS, DY_TMP, regNr, readEZA_Abgabenbescheid010, regDat, firma, nl, EDIFACTNachrichtenNr) + End If + + + 'Status aktualisieren + saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNr) + statusTMP = STATUS + EZA_TMP.insertIntoSpedBuch(DY_TMP) + + + addDGVEinarbeitung("EZA: Abgabenbescheid", STATUS.dySt_BezugsNr) + End If + + + End If + End If + ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readEZA_Abgabenbescheid010 = "" + End Try + End Function + + Function InsertAbgaben(EZA, division, STATUS, DY_TMP, regNr, Bezugsnummer, regDat, firma, nl, EDIFACTNachrichtenNr) Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit, regNr) If EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt IsNot Nothing Then