diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_010.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_010.designer.vb index 75c3a85..e1fcdcd 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_010.designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_010.designer.vb @@ -1,64 +1,78 @@ '' ------------------------------------------------------------------------------ '' -'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) -'' Abgabenbescheid_010ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"NameSpace":"Abgabenbescheid_010","Language":"VisualBasic","CollectionBase":"","Properties":{"VirtualProperties":true,"PrivateFieldCustomPrefix":""},"XmlAttribute":{"Enabled":true,"GenerateOrderXmlAttributes":true},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"IndentChars":"Indent1Space"},"JsonOutput":{},"Enabled":true,"EnableEncoding":true},"Miscellaneous":{"CleanupCode":false}} '' '' ------------------------------------------------------------------------------ +#Disable Warning Imports System Imports System.Diagnostics Imports System.Xml.Serialization +Imports System.Runtime.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel +Imports System.Xml Imports System.IO Imports System.Text Imports System.Collections.Generic Namespace Abgabenbescheid_010 + Partial Public Class AbgabenbescheidEinfuhrTAXTyp Inherits DatenaustauschFreierVerkehrTyp - Private einzelAbgabenbescheidField As EinzelAbgabenbescheidTyp +#Region "Private fields" + Private _einzelAbgabenbescheid As EinzelAbgabenbescheidTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.einzelAbgabenbescheidField = New EinzelAbgabenbescheidTyp() + Me._einzelAbgabenbescheid = New EinzelAbgabenbescheidTyp() End Sub - Public Property EinzelAbgabenbescheid() As EinzelAbgabenbescheidTyp + + Public Overridable Property EinzelAbgabenbescheid() As EinzelAbgabenbescheidTyp Get - Return Me.einzelAbgabenbescheidField + Return Me._einzelAbgabenbescheid End Get Set - Me.einzelAbgabenbescheidField = Value + Me._einzelAbgabenbescheid = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbgabenbescheidEinfuhrTAXTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenbescheidEinfuhrTAXTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AbgabenbescheidEinfuhrTAXTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize AbgabenbescheidEinfuhrTAXTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -70,18 +84,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes AbgabenbescheidEinfuhrTAXTyp object + ''' + ''' string to deserialize + ''' Output AbgabenbescheidEinfuhrTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -89,16 +107,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AbgabenbescheidEinfuhrTAXTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgabenbescheidEinfuhrTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -106,16 +124,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabenbescheidEinfuhrTAXTyp + Return CType(SerializerXml.Deserialize(s), AbgabenbescheidEinfuhrTAXTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -123,13 +146,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -138,18 +168,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an AbgabenbescheidEinfuhrTAXTyp object + ''' + ''' File to load and deserialize + ''' Output AbgabenbescheidEinfuhrTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -157,21 +187,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -181,75 +219,86 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class EinzelAbgabenbescheidTyp - Private objektIdentifizierungField As ObjektIdentifizierungTAXTyp +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungTAXTyp - Private kopfDatenField As KopfDatenEinfuhrbescheidTyp + Private _kopfDaten As KopfDatenEinfuhrbescheidTyp - Private positionField As List(Of PositionAbgabenbescheidEinfuhrTyp) + Private _position As List(Of PositionAbgabenbescheidEinfuhrTyp) - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.positionField = New List(Of PositionAbgabenbescheidEinfuhrTyp)() - Me.kopfDatenField = New KopfDatenEinfuhrbescheidTyp() - Me.objektIdentifizierungField = New ObjektIdentifizierungTAXTyp() + Me._position = New List(Of PositionAbgabenbescheidEinfuhrTyp)() + Me._kopfDaten = New KopfDatenEinfuhrbescheidTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungTAXTyp() End Sub - Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXTyp + + Public Overridable Property ObjektIdentifizierung() As ObjektIdentifizierungTAXTyp Get - Return Me.objektIdentifizierungField + Return Me._objektIdentifizierung End Get Set - Me.objektIdentifizierungField = Value + Me._objektIdentifizierung = Value End Set End Property - Public Property KopfDaten() As KopfDatenEinfuhrbescheidTyp + + Public Overridable Property KopfDaten() As KopfDatenEinfuhrbescheidTyp Get - Return Me.kopfDatenField + Return Me._kopfDaten End Get Set - Me.kopfDatenField = Value + Me._kopfDaten = Value End Set End Property - Public Property Position() As List(Of PositionAbgabenbescheidEinfuhrTyp) + + Public Overridable Property Position() As List(Of PositionAbgabenbescheidEinfuhrTyp) Get - Return Me.positionField + Return Me._position End Get Set - Me.positionField = Value + Me._position = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelAbgabenbescheidTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbgabenbescheidTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current EinzelAbgabenbescheidTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize EinzelAbgabenbescheidTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -261,18 +310,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes EinzelAbgabenbescheidTyp object + ''' + ''' string to deserialize + ''' Output EinzelAbgabenbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelAbgabenbescheidTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -280,16 +333,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbgabenbescheidTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenbescheidTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelAbgabenbescheidTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelAbgabenbescheidTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -297,16 +350,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelAbgabenbescheidTyp + Return CType(SerializerXml.Deserialize(s), EinzelAbgabenbescheidTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -314,13 +372,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -329,18 +394,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an EinzelAbgabenbescheidTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelAbgabenbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelAbgabenbescheidTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -348,21 +413,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -372,90 +445,103 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class ObjektIdentifizierungTAXTyp - Private objektNameField As String +#Region "Private fields" + Private _objektName As String - Private objektAliasField As String + Private _objektAlias As String - Private eDIFACTNachrichtenNrField As String + Private _eDIFACTNachrichtenNr As String - Private zeitpunktEingangField As Date + Private _zeitpunktEingang As Date - Private shipmentReferenzField As String + Private _shipmentReferenz As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region - Public Property ObjektName() As String + + Public Overridable Property ObjektName() As String Get - Return Me.objektNameField + Return Me._objektName End Get Set - Me.objektNameField = Value + Me._objektName = Value End Set End Property - Public Property ObjektAlias() As String + + Public Overridable Property ObjektAlias() As String Get - Return Me.objektAliasField + Return Me._objektAlias End Get Set - Me.objektAliasField = Value + Me._objektAlias = Value End Set End Property - Public Property EDIFACTNachrichtenNr() As String + + Public Overridable Property EDIFACTNachrichtenNr() As String Get - Return Me.eDIFACTNachrichtenNrField + Return Me._eDIFACTNachrichtenNr End Get Set - Me.eDIFACTNachrichtenNrField = Value + Me._eDIFACTNachrichtenNr = Value End Set End Property - Public Property ZeitpunktEingang() As Date + + Public Overridable Property ZeitpunktEingang() As Date Get - Return Me.zeitpunktEingangField + Return Me._zeitpunktEingang End Get Set - Me.zeitpunktEingangField = Value + Me._zeitpunktEingang = Value End Set End Property - Public Property ShipmentReferenz() As String + + Public Overridable Property ShipmentReferenz() As String Get - Return Me.shipmentReferenzField + Return Me._shipmentReferenz End Get Set - Me.shipmentReferenzField = Value + Me._shipmentReferenz = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungTAXTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTAXTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current ObjektIdentifizierungTAXTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize ObjektIdentifizierungTAXTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -467,18 +553,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes ObjektIdentifizierungTAXTyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungTAXTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -486,16 +576,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungTAXTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As ObjektIdentifizierungTAXTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -503,16 +593,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungTAXTyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungTAXTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -520,13 +615,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -535,18 +637,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungTAXTyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungTAXTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -554,21 +656,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -578,111 +688,74 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class EinzelAbgabenSatzTAXTyp - Private lfdNrAbgabensatzField As List(Of String) +#Region "Private fields" + Private _items() As Object - Private abgabensatzField As List(Of Decimal) + Private _itemsElementName() As ItemsChoiceType - Private bemessungsmassstabField As List(Of String) + Private Shared _serializerXml As XmlSerializer +#End Region - 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) + + Public Overridable Property Items() As Object() Get - Return Me.lfdNrAbgabensatzField + Return Me._items End Get Set - Me.lfdNrAbgabensatzField = Value + Me._items = Value End Set End Property - Public Property Abgabensatz() As List(Of Decimal) + + Public Overridable Property ItemsElementName() As ItemsChoiceType() Get - Return Me.abgabensatzField + Return Me._itemsElementName End Get Set - Me.abgabensatzField = Value + Me._itemsElementName = Value End Set End Property - Public Property Bemessungsmassstab() As List(Of String) + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbgabenSatzTAXTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current EinzelAbgabenSatzTAXTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize EinzelAbgabenSatzTAXTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -694,18 +767,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes EinzelAbgabenSatzTAXTyp object + ''' + ''' string to deserialize + ''' Output EinzelAbgabenSatzTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelAbgabenSatzTAXTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -713,16 +790,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbgabenSatzTAXTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenSatzTAXTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelAbgabenSatzTAXTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelAbgabenSatzTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -730,16 +807,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelAbgabenSatzTAXTyp + Return CType(SerializerXml.Deserialize(s), EinzelAbgabenSatzTAXTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -747,13 +829,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -762,18 +851,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an EinzelAbgabenSatzTAXTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelAbgabenSatzTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelAbgabenSatzTAXTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -781,21 +870,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -805,243 +902,228 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + + Public Enum ItemsChoiceType + + ''' + Abgabensatz + + ''' + BemessungsgrundlageKz + + ''' + Bemessungsmassstab + + ''' + GehaltsangabenArt + + ''' + GehaltsangabenGradProzent + + ''' + LfdNrAbgabensatz + End Enum + + Partial Public Class AbgabengruppeTAXTyp - Private abgabengruppeField As String +#Region "Private fields" + Private _abgabengruppe As String - Private abgabeArtField As String + Private _abgabeArt As String - Private berechnungshinweisField As String + Private _berechnungshinweis As String - Private errechneterAbgabenbetragField As Decimal + Private _errechneterAbgabenbetrag As Decimal - Private errechneterAbgabenbetragFieldSpecified As Boolean + Private _abgabenbetrag As Decimal - Private abgabenbetragField As Decimal + Private _abgabensatzKontNr As String - Private abgabenbetragFieldSpecified As Boolean + Private _verbrauchssteuerCode As String - Private abgabensatzKontNrField As String + Private _verbrauchssteuerMenge As Decimal - Private verbrauchssteuerCodeField As String + Private _verbrauchssteuerMasseinheit As String - Private verbrauchssteuerMengeField As Decimal + Private _verbrauchssteuerQualifikator As String - Private verbrauchssteuerMengeFieldSpecified As Boolean + Private _verbrauchssteuerGradProzent As Decimal - Private verbrauchssteuerMasseinheitField As String + Private _verbrauchssteuerWert As Decimal - Private verbrauchssteuerQualifikatorField As String + Private _einzelAbgabenSatz As List(Of EinzelAbgabenSatzTAXTyp) - 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 + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.einzelAbgabenSatzField = New List(Of EinzelAbgabenSatzTAXTyp)() + Me._einzelAbgabenSatz = New List(Of EinzelAbgabenSatzTAXTyp)() End Sub - Public Property Abgabengruppe() As String + + Public Overridable Property Abgabengruppe() As String Get - Return Me.abgabengruppeField + Return Me._abgabengruppe End Get Set - Me.abgabengruppeField = Value + Me._abgabengruppe = Value End Set End Property - Public Property AbgabeArt() As String + + Public Overridable Property AbgabeArt() As String Get - Return Me.abgabeArtField + Return Me._abgabeArt End Get Set - Me.abgabeArtField = Value + Me._abgabeArt = Value End Set End Property - Public Property Berechnungshinweis() As String + + Public Overridable Property Berechnungshinweis() As String Get - Return Me.berechnungshinweisField + Return Me._berechnungshinweis End Get Set - Me.berechnungshinweisField = Value + Me._berechnungshinweis = Value End Set End Property - Public Property ErrechneterAbgabenbetrag() As Decimal + + Public Overridable Property ErrechneterAbgabenbetrag() As Decimal Get - Return Me.errechneterAbgabenbetragField + Return Me._errechneterAbgabenbetrag End Get Set - Me.errechneterAbgabenbetragField = Value + Me._errechneterAbgabenbetrag = Value End Set End Property - - Public Property ErrechneterAbgabenbetragSpecified() As Boolean + + Public Overridable Property Abgabenbetrag() As Decimal Get - Return Me.errechneterAbgabenbetragFieldSpecified + Return Me._abgabenbetrag End Get Set - Me.errechneterAbgabenbetragFieldSpecified = Value + Me._abgabenbetrag = Value End Set End Property - Public Property Abgabenbetrag() As Decimal + + Public Overridable Property AbgabensatzKontNr() As String Get - Return Me.abgabenbetragField + Return Me._abgabensatzKontNr End Get Set - Me.abgabenbetragField = Value + Me._abgabensatzKontNr = Value End Set End Property - - Public Property AbgabenbetragSpecified() As Boolean + + Public Overridable Property VerbrauchssteuerCode() As String Get - Return Me.abgabenbetragFieldSpecified + Return Me._verbrauchssteuerCode End Get Set - Me.abgabenbetragFieldSpecified = Value + Me._verbrauchssteuerCode = Value End Set End Property - Public Property AbgabensatzKontNr() As String + + Public Overridable Property VerbrauchssteuerMenge() As Decimal Get - Return Me.abgabensatzKontNrField + Return Me._verbrauchssteuerMenge End Get Set - Me.abgabensatzKontNrField = Value + Me._verbrauchssteuerMenge = Value End Set End Property - Public Property VerbrauchssteuerCode() As String + + Public Overridable Property VerbrauchssteuerMasseinheit() As String Get - Return Me.verbrauchssteuerCodeField + Return Me._verbrauchssteuerMasseinheit End Get Set - Me.verbrauchssteuerCodeField = Value + Me._verbrauchssteuerMasseinheit = Value End Set End Property - Public Property VerbrauchssteuerMenge() As Decimal + + Public Overridable Property VerbrauchssteuerQualifikator() As String Get - Return Me.verbrauchssteuerMengeField + Return Me._verbrauchssteuerQualifikator End Get Set - Me.verbrauchssteuerMengeField = Value + Me._verbrauchssteuerQualifikator = Value End Set End Property - - Public Property VerbrauchssteuerMengeSpecified() As Boolean + + Public Overridable Property VerbrauchssteuerGradProzent() As Decimal Get - Return Me.verbrauchssteuerMengeFieldSpecified + Return Me._verbrauchssteuerGradProzent End Get Set - Me.verbrauchssteuerMengeFieldSpecified = Value + Me._verbrauchssteuerGradProzent = Value End Set End Property - Public Property VerbrauchssteuerMasseinheit() As String + + Public Overridable Property VerbrauchssteuerWert() As Decimal Get - Return Me.verbrauchssteuerMasseinheitField + Return Me._verbrauchssteuerWert End Get Set - Me.verbrauchssteuerMasseinheitField = Value + Me._verbrauchssteuerWert = Value End Set End Property - Public Property VerbrauchssteuerQualifikator() As String + + Public Overridable Property EinzelAbgabenSatz() As List(Of EinzelAbgabenSatzTAXTyp) Get - Return Me.verbrauchssteuerQualifikatorField + Return Me._einzelAbgabenSatz End Get Set - Me.verbrauchssteuerQualifikatorField = Value + Me._einzelAbgabenSatz = Value End Set End Property - Public Property VerbrauchssteuerGradProzent() As Decimal + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbgabengruppeTAXTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AbgabengruppeTAXTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize AbgabengruppeTAXTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1053,18 +1135,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes AbgabengruppeTAXTyp object + ''' + ''' string to deserialize + ''' Output AbgabengruppeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabengruppeTAXTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1072,16 +1158,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabengruppeTAXTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabengruppeTAXTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AbgabengruppeTAXTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgabengruppeTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1089,16 +1175,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabengruppeTAXTyp + Return CType(SerializerXml.Deserialize(s), AbgabengruppeTAXTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1106,13 +1197,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1121,18 +1219,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an AbgabengruppeTAXTyp object + ''' + ''' File to load and deserialize + ''' Output AbgabengruppeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabengruppeTAXTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1140,21 +1238,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1164,57 +1270,67 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class PauschalierungTAXTyp - Private warenkategorieField As String +#Region "Private fields" + Private _warenkategorie As String - Private kzPauschalierterAbgabensatzField As String + Private _kzPauschalierterAbgabensatz As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region - Public Property Warenkategorie() As String + + Public Overridable Property Warenkategorie() As String Get - Return Me.warenkategorieField + Return Me._warenkategorie End Get Set - Me.warenkategorieField = Value + Me._warenkategorie = Value End Set End Property - Public Property KzPauschalierterAbgabensatz() As String + + Public Overridable Property KzPauschalierterAbgabensatz() As String Get - Return Me.kzPauschalierterAbgabensatzField + Return Me._kzPauschalierterAbgabensatz End Get Set - Me.kzPauschalierterAbgabensatzField = Value + Me._kzPauschalierterAbgabensatz = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PauschalierungTAXTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PauschalierungTAXTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current PauschalierungTAXTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize PauschalierungTAXTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1226,18 +1342,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes PauschalierungTAXTyp object + ''' + ''' string to deserialize + ''' Output PauschalierungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PauschalierungTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PauschalierungTAXTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1245,16 +1365,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PauschalierungTAXTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PauschalierungTAXTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As PauschalierungTAXTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PauschalierungTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1262,16 +1382,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PauschalierungTAXTyp + Return CType(SerializerXml.Deserialize(s), PauschalierungTAXTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1279,13 +1404,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1294,18 +1426,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an PauschalierungTAXTyp object + ''' + ''' File to load and deserialize + ''' Output PauschalierungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As PauschalierungTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PauschalierungTAXTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1313,21 +1445,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PauschalierungTAXTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1337,101 +1477,115 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class AbweichendeFestsetzungTAXTyp - Private feldnameField As String +#Region "Private fields" + Private _feldname As String - Private qualifikatorField As String + Private _qualifikator As String - Private qualifikatorInhaltField As String + Private _qualifikatorInhalt As String - Private artAbweichendeFestsetzungField As String + Private _artAbweichendeFestsetzung As String - Private festgesetztVonField As String + Private _festgesetztVon As String - Private festgesetztAufField As String + Private _festgesetztAuf As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region - Public Property Feldname() As String + + Public Overridable Property Feldname() As String Get - Return Me.feldnameField + Return Me._feldname End Get Set - Me.feldnameField = Value + Me._feldname = Value End Set End Property - Public Property Qualifikator() As String + + Public Overridable Property Qualifikator() As String Get - Return Me.qualifikatorField + Return Me._qualifikator End Get Set - Me.qualifikatorField = Value + Me._qualifikator = Value End Set End Property - Public Property QualifikatorInhalt() As String + + Public Overridable Property QualifikatorInhalt() As String Get - Return Me.qualifikatorInhaltField + Return Me._qualifikatorInhalt End Get Set - Me.qualifikatorInhaltField = Value + Me._qualifikatorInhalt = Value End Set End Property - Public Property ArtAbweichendeFestsetzung() As String + + Public Overridable Property ArtAbweichendeFestsetzung() As String Get - Return Me.artAbweichendeFestsetzungField + Return Me._artAbweichendeFestsetzung End Get Set - Me.artAbweichendeFestsetzungField = Value + Me._artAbweichendeFestsetzung = Value End Set End Property - Public Property FestgesetztVon() As String + + Public Overridable Property FestgesetztVon() As String Get - Return Me.festgesetztVonField + Return Me._festgesetztVon End Get Set - Me.festgesetztVonField = Value + Me._festgesetztVon = Value End Set End Property - Public Property FestgesetztAuf() As String + + Public Overridable Property FestgesetztAuf() As String Get - Return Me.festgesetztAufField + Return Me._festgesetztAuf End Get Set - Me.festgesetztAufField = Value + Me._festgesetztAuf = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbweichendeFestsetzungTAXTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbweichendeFestsetzungTAXTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AbweichendeFestsetzungTAXTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize AbweichendeFestsetzungTAXTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1443,18 +1597,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes AbweichendeFestsetzungTAXTyp object + ''' + ''' string to deserialize + ''' Output AbweichendeFestsetzungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbweichendeFestsetzungTAXTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1462,16 +1620,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbweichendeFestsetzungTAXTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichendeFestsetzungTAXTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AbweichendeFestsetzungTAXTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbweichendeFestsetzungTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1479,16 +1637,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbweichendeFestsetzungTAXTyp + Return CType(SerializerXml.Deserialize(s), AbweichendeFestsetzungTAXTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1496,13 +1659,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1511,18 +1681,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an AbweichendeFestsetzungTAXTyp object + ''' + ''' File to load and deserialize + ''' Output AbweichendeFestsetzungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbweichendeFestsetzungTAXTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1530,21 +1700,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1554,68 +1732,79 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class KontingentAngerechnetWarenMengeTAXTyp - Private mengeField As String +#Region "Private fields" + Private _menge As String - Private masseinheitField As String + Private _masseinheit As String - Private qualifierField As String + Private _qualifier As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region - Public Property Menge() As String + + Public Overridable Property Menge() As String Get - Return Me.mengeField + Return Me._menge End Get Set - Me.mengeField = Value + Me._menge = Value End Set End Property - Public Property Masseinheit() As String + + Public Overridable Property Masseinheit() As String Get - Return Me.masseinheitField + Return Me._masseinheit End Get Set - Me.masseinheitField = Value + Me._masseinheit = Value End Set End Property - Public Property Qualifier() As String + + Public Overridable Property Qualifier() As String Get - Return Me.qualifierField + Return Me._qualifier End Get Set - Me.qualifierField = Value + Me._qualifier = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KontingentAngerechnetWarenMengeTAXTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KontingentAngerechnetWarenMengeTAXTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current KontingentAngerechnetWarenMengeTAXTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize KontingentAngerechnetWarenMengeTAXTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1627,18 +1816,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes KontingentAngerechnetWarenMengeTAXTyp object + ''' + ''' string to deserialize + ''' Output KontingentAngerechnetWarenMengeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1646,16 +1839,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As KontingentAngerechnetWarenMengeTAXTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KontingentAngerechnetWarenMengeTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1663,16 +1856,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KontingentAngerechnetWarenMengeTAXTyp + Return CType(SerializerXml.Deserialize(s), KontingentAngerechnetWarenMengeTAXTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1680,13 +1878,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1695,18 +1900,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an KontingentAngerechnetWarenMengeTAXTyp object + ''' + ''' File to load and deserialize + ''' Output KontingentAngerechnetWarenMengeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1714,21 +1919,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1738,153 +1951,132 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class KontingentAngerechnetTAXTyp - Private kontNrAngerechnetField As String +#Region "Private fields" + Private _kontNrAngerechnet As String - Private zollwertAngerechnetField As Decimal + Private _zollwertAngerechnet As Decimal - Private zollwertAngerechnetFieldSpecified As Boolean + Private _eUStKostenAngerechnet As Decimal - Private eUStKostenAngerechnetField As Decimal + Private _beguenstMengeAngerechnet As Decimal - Private eUStKostenAngerechnetFieldSpecified As Boolean + Private _masseinhBegMengeAng As String - Private beguenstMengeAngerechnetField As Decimal + Private _qualifBegMengeAng As String - Private beguenstMengeAngerechnetFieldSpecified As Boolean + Private _warenMenge As List(Of KontingentAngerechnetWarenMengeTAXTyp) - Private masseinhBegMengeAngField As String - - Private qualifBegMengeAngField As String - - Private warenMengeField As List(Of KontingentAngerechnetWarenMengeTAXTyp) - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.warenMengeField = New List(Of KontingentAngerechnetWarenMengeTAXTyp)() + Me._warenMenge = New List(Of KontingentAngerechnetWarenMengeTAXTyp)() End Sub - Public Property KontNrAngerechnet() As String + + Public Overridable Property KontNrAngerechnet() As String Get - Return Me.kontNrAngerechnetField + Return Me._kontNrAngerechnet End Get Set - Me.kontNrAngerechnetField = Value + Me._kontNrAngerechnet = Value End Set End Property - Public Property ZollwertAngerechnet() As Decimal + + Public Overridable Property ZollwertAngerechnet() As Decimal Get - Return Me.zollwertAngerechnetField + Return Me._zollwertAngerechnet End Get Set - Me.zollwertAngerechnetField = Value + Me._zollwertAngerechnet = Value End Set End Property - - Public Property ZollwertAngerechnetSpecified() As Boolean + + Public Overridable Property EUStKostenAngerechnet() As Decimal Get - Return Me.zollwertAngerechnetFieldSpecified + Return Me._eUStKostenAngerechnet End Get Set - Me.zollwertAngerechnetFieldSpecified = Value + Me._eUStKostenAngerechnet = Value End Set End Property - Public Property EUStKostenAngerechnet() As Decimal + + Public Overridable Property BeguenstMengeAngerechnet() As Decimal Get - Return Me.eUStKostenAngerechnetField + Return Me._beguenstMengeAngerechnet End Get Set - Me.eUStKostenAngerechnetField = Value + Me._beguenstMengeAngerechnet = Value End Set End Property - - Public Property EUStKostenAngerechnetSpecified() As Boolean + + Public Overridable Property MasseinhBegMengeAng() As String Get - Return Me.eUStKostenAngerechnetFieldSpecified + Return Me._masseinhBegMengeAng End Get Set - Me.eUStKostenAngerechnetFieldSpecified = Value + Me._masseinhBegMengeAng = Value End Set End Property - Public Property BeguenstMengeAngerechnet() As Decimal + + Public Overridable Property QualifBegMengeAng() As String Get - Return Me.beguenstMengeAngerechnetField + Return Me._qualifBegMengeAng End Get Set - Me.beguenstMengeAngerechnetField = Value + Me._qualifBegMengeAng = Value End Set End Property - - Public Property BeguenstMengeAngerechnetSpecified() As Boolean + + Public Overridable Property WarenMenge() As List(Of KontingentAngerechnetWarenMengeTAXTyp) Get - Return Me.beguenstMengeAngerechnetFieldSpecified + Return Me._warenMenge End Get Set - Me.beguenstMengeAngerechnetFieldSpecified = Value + Me._warenMenge = Value End Set End Property - Public Property MasseinhBegMengeAng() As String + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KontingentAngerechnetTAXTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current KontingentAngerechnetTAXTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize KontingentAngerechnetTAXTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1896,18 +2088,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes KontingentAngerechnetTAXTyp object + ''' + ''' string to deserialize + ''' Output KontingentAngerechnetTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KontingentAngerechnetTAXTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1915,16 +2111,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KontingentAngerechnetTAXTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetTAXTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As KontingentAngerechnetTAXTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KontingentAngerechnetTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1932,16 +2128,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KontingentAngerechnetTAXTyp + Return CType(SerializerXml.Deserialize(s), KontingentAngerechnetTAXTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1949,13 +2150,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1964,18 +2172,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an KontingentAngerechnetTAXTyp object + ''' + ''' File to load and deserialize + ''' Output KontingentAngerechnetTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KontingentAngerechnetTAXTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1983,21 +2191,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -2007,80 +2223,79 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class SonderfalleingabeTAXTyp - Private sonderabgabenGruppeField As String +#Region "Private fields" + Private _sonderabgabenGruppe As String - Private anwendungsartField As String + Private _anwendungsart As String - Private satzBetragFaktorField As Decimal + Private _satzBetragFaktor As Decimal - Private satzBetragFaktorFieldSpecified As Boolean + Private Shared _serializerXml As XmlSerializer +#End Region - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer - - Public Property SonderabgabenGruppe() As String + + Public Overridable Property SonderabgabenGruppe() As String Get - Return Me.sonderabgabenGruppeField + Return Me._sonderabgabenGruppe End Get Set - Me.sonderabgabenGruppeField = Value + Me._sonderabgabenGruppe = Value End Set End Property - Public Property Anwendungsart() As String + + Public Overridable Property Anwendungsart() As String Get - Return Me.anwendungsartField + Return Me._anwendungsart End Get Set - Me.anwendungsartField = Value + Me._anwendungsart = Value End Set End Property - Public Property SatzBetragFaktor() As Decimal + + Public Overridable Property SatzBetragFaktor() As Decimal Get - Return Me.satzBetragFaktorField + Return Me._satzBetragFaktor End Get Set - Me.satzBetragFaktorField = Value + Me._satzBetragFaktor = Value End Set End Property - - Public Property SatzBetragFaktorSpecified() As Boolean + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SonderfalleingabeTAXTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current SonderfalleingabeTAXTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize SonderfalleingabeTAXTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -2092,18 +2307,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes SonderfalleingabeTAXTyp object + ''' + ''' string to deserialize + ''' Output SonderfalleingabeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SonderfalleingabeTAXTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -2111,16 +2330,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SonderfalleingabeTAXTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalleingabeTAXTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As SonderfalleingabeTAXTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SonderfalleingabeTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -2128,16 +2347,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SonderfalleingabeTAXTyp + Return CType(SerializerXml.Deserialize(s), SonderfalleingabeTAXTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -2145,13 +2369,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -2160,18 +2391,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an SonderfalleingabeTAXTyp object + ''' + ''' File to load and deserialize + ''' Output SonderfalleingabeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SonderfalleingabeTAXTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -2179,21 +2410,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -2203,79 +2442,91 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class EZAAVVeredelungserzeugnisTyp - Private warenbezeichnungField As String +#Region "Private fields" + Private _warenbezeichnung As String - Private ausbeuteartField As String + Private _ausbeuteart As String - Private ausbeutesatzField As String + Private _ausbeutesatz As String - Private kNCodeField As String + Private _kNCode As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region - Public Property Warenbezeichnung() As String + + Public Overridable Property Warenbezeichnung() As String Get - Return Me.warenbezeichnungField + Return Me._warenbezeichnung End Get Set - Me.warenbezeichnungField = Value + Me._warenbezeichnung = Value End Set End Property - Public Property Ausbeuteart() As String + + Public Overridable Property Ausbeuteart() As String Get - Return Me.ausbeuteartField + Return Me._ausbeuteart End Get Set - Me.ausbeuteartField = Value + Me._ausbeuteart = Value End Set End Property - Public Property Ausbeutesatz() As String + + Public Overridable Property Ausbeutesatz() As String Get - Return Me.ausbeutesatzField + Return Me._ausbeutesatz End Get Set - Me.ausbeutesatzField = Value + Me._ausbeutesatz = Value End Set End Property - Public Property KNCode() As String + + Public Overridable Property KNCode() As String Get - Return Me.kNCodeField + Return Me._kNCode End Get Set - Me.kNCodeField = Value + Me._kNCode = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EZAAVVeredelungserzeugnisTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVVeredelungserzeugnisTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current EZAAVVeredelungserzeugnisTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize EZAAVVeredelungserzeugnisTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -2287,18 +2538,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes EZAAVVeredelungserzeugnisTyp object + ''' + ''' string to deserialize + ''' Output EZAAVVeredelungserzeugnisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -2306,16 +2561,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVVeredelungserzeugnisTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVVeredelungserzeugnisTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As EZAAVVeredelungserzeugnisTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EZAAVVeredelungserzeugnisTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -2323,16 +2578,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVVeredelungserzeugnisTyp + Return CType(SerializerXml.Deserialize(s), EZAAVVeredelungserzeugnisTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -2340,13 +2600,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -2355,18 +2622,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an EZAAVVeredelungserzeugnisTyp object + ''' + ''' File to load and deserialize + ''' Output EZAAVVeredelungserzeugnisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -2374,21 +2641,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -2398,84 +2673,96 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class EZAAVAngabenPosTyp - Private aVWirtschaftlicheVoraussetzungenField As String +#Region "Private fields" + Private _aVWirtschaftlicheVoraussetzungen As String - Private aVVeredelungserzeugnisField As List(Of EZAAVVeredelungserzeugnisTyp) + Private _aVVeredelungserzeugnis As List(Of EZAAVVeredelungserzeugnisTyp) - Private aVNaemlichkeitsmittelField As String + Private _aVNaemlichkeitsmittel As String - Private aVErlaeuterungNaemlichkeitField As String + Private _aVErlaeuterungNaemlichkeit As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.aVVeredelungserzeugnisField = New List(Of EZAAVVeredelungserzeugnisTyp)() + Me._aVVeredelungserzeugnis = New List(Of EZAAVVeredelungserzeugnisTyp)() End Sub - Public Property AVWirtschaftlicheVoraussetzungen() As String + + Public Overridable Property AVWirtschaftlicheVoraussetzungen() As String Get - Return Me.aVWirtschaftlicheVoraussetzungenField + Return Me._aVWirtschaftlicheVoraussetzungen End Get Set - Me.aVWirtschaftlicheVoraussetzungenField = Value + Me._aVWirtschaftlicheVoraussetzungen = Value End Set End Property - Public Property AVVeredelungserzeugnis() As List(Of EZAAVVeredelungserzeugnisTyp) + + Public Overridable Property AVVeredelungserzeugnis() As List(Of EZAAVVeredelungserzeugnisTyp) Get - Return Me.aVVeredelungserzeugnisField + Return Me._aVVeredelungserzeugnis End Get Set - Me.aVVeredelungserzeugnisField = Value + Me._aVVeredelungserzeugnis = Value End Set End Property - Public Property AVNaemlichkeitsmittel() As String + + Public Overridable Property AVNaemlichkeitsmittel() As String Get - Return Me.aVNaemlichkeitsmittelField + Return Me._aVNaemlichkeitsmittel End Get Set - Me.aVNaemlichkeitsmittelField = Value + Me._aVNaemlichkeitsmittel = Value End Set End Property - Public Property AVErlaeuterungNaemlichkeit() As String + + Public Overridable Property AVErlaeuterungNaemlichkeit() As String Get - Return Me.aVErlaeuterungNaemlichkeitField + Return Me._aVErlaeuterungNaemlichkeit End Get Set - Me.aVErlaeuterungNaemlichkeitField = Value + Me._aVErlaeuterungNaemlichkeit = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EZAAVAngabenPosTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenPosTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current EZAAVAngabenPosTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize EZAAVAngabenPosTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -2487,18 +2774,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes EZAAVAngabenPosTyp object + ''' + ''' string to deserialize + ''' Output EZAAVAngabenPosTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVAngabenPosTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -2506,16 +2797,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenPosTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenPosTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As EZAAVAngabenPosTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenPosTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -2523,16 +2814,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVAngabenPosTyp + Return CType(SerializerXml.Deserialize(s), EZAAVAngabenPosTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -2540,13 +2836,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -2555,18 +2858,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an EZAAVAngabenPosTyp object + ''' + ''' File to load and deserialize + ''' Output EZAAVAngabenPosTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVAngabenPosTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -2574,21 +2877,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -2598,112 +2909,127 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class AngemeldeteUnterlageTAXTyp - Private unterlageArtField As String +#Region "Private fields" + Private _unterlageArt As String - Private unterlageBereichField As String + Private _unterlageBereich As String - Private unterlageNrField As String + Private _unterlageNr As String - Private anerkennungKzField As String + Private _anerkennungKz As String - Private abschreibungKzField As String + Private _abschreibungKz As String - Private einbehaltenKzField As String + Private _einbehaltenKz As String - Private periodischeVorlageKzField As String + Private _periodischeVorlageKz As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region - Public Property UnterlageArt() As String + + Public Overridable Property UnterlageArt() As String Get - Return Me.unterlageArtField + Return Me._unterlageArt End Get Set - Me.unterlageArtField = Value + Me._unterlageArt = Value End Set End Property - Public Property UnterlageBereich() As String + + Public Overridable Property UnterlageBereich() As String Get - Return Me.unterlageBereichField + Return Me._unterlageBereich End Get Set - Me.unterlageBereichField = Value + Me._unterlageBereich = Value End Set End Property - Public Property UnterlageNr() As String + + Public Overridable Property UnterlageNr() As String Get - Return Me.unterlageNrField + Return Me._unterlageNr End Get Set - Me.unterlageNrField = Value + Me._unterlageNr = Value End Set End Property - Public Property AnerkennungKz() As String + + Public Overridable Property AnerkennungKz() As String Get - Return Me.anerkennungKzField + Return Me._anerkennungKz End Get Set - Me.anerkennungKzField = Value + Me._anerkennungKz = Value End Set End Property - Public Property AbschreibungKz() As String + + Public Overridable Property AbschreibungKz() As String Get - Return Me.abschreibungKzField + Return Me._abschreibungKz End Get Set - Me.abschreibungKzField = Value + Me._abschreibungKz = Value End Set End Property - Public Property EinbehaltenKz() As String + + Public Overridable Property EinbehaltenKz() As String Get - Return Me.einbehaltenKzField + Return Me._einbehaltenKz End Get Set - Me.einbehaltenKzField = Value + Me._einbehaltenKz = Value End Set End Property - Public Property PeriodischeVorlageKz() As String + + Public Overridable Property PeriodischeVorlageKz() As String Get - Return Me.periodischeVorlageKzField + Return Me._periodischeVorlageKz End Get Set - Me.periodischeVorlageKzField = Value + Me._periodischeVorlageKz = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AngemeldeteUnterlageTAXTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AngemeldeteUnterlageTAXTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AngemeldeteUnterlageTAXTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize AngemeldeteUnterlageTAXTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -2715,18 +3041,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes AngemeldeteUnterlageTAXTyp object + ''' + ''' string to deserialize + ''' Output AngemeldeteUnterlageTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AngemeldeteUnterlageTAXTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -2734,16 +3064,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AngemeldeteUnterlageTAXTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AngemeldeteUnterlageTAXTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AngemeldeteUnterlageTAXTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AngemeldeteUnterlageTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -2751,16 +3081,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AngemeldeteUnterlageTAXTyp + Return CType(SerializerXml.Deserialize(s), AngemeldeteUnterlageTAXTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -2768,13 +3103,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -2783,18 +3125,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an AngemeldeteUnterlageTAXTyp object + ''' + ''' File to load and deserialize + ''' Output AngemeldeteUnterlageTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AngemeldeteUnterlageTAXTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -2802,21 +3144,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -2826,69 +3176,67 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class KursAbzugHinzuTAXTyp - Private artAbHinzuField As String +#Region "Private fields" + Private _artAbHinzu As String - Private angewandterKursField As Decimal + Private _angewandterKurs As Decimal - Private angewandterKursFieldSpecified As Boolean + Private Shared _serializerXml As XmlSerializer +#End Region - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer - - Public Property ArtAbHinzu() As String + + Public Overridable Property ArtAbHinzu() As String Get - Return Me.artAbHinzuField + Return Me._artAbHinzu End Get Set - Me.artAbHinzuField = Value + Me._artAbHinzu = Value End Set End Property - Public Property AngewandterKurs() As Decimal + + Public Overridable Property AngewandterKurs() As Decimal Get - Return Me.angewandterKursField + Return Me._angewandterKurs End Get Set - Me.angewandterKursField = Value + Me._angewandterKurs = Value End Set End Property - - Public Property AngewandterKursSpecified() As Boolean + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KursAbzugHinzuTAXTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current KursAbzugHinzuTAXTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize KursAbzugHinzuTAXTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -2900,18 +3248,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes KursAbzugHinzuTAXTyp object + ''' + ''' string to deserialize + ''' Output KursAbzugHinzuTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KursAbzugHinzuTAXTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -2919,16 +3271,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KursAbzugHinzuTAXTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KursAbzugHinzuTAXTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As KursAbzugHinzuTAXTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KursAbzugHinzuTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -2936,16 +3288,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KursAbzugHinzuTAXTyp + Return CType(SerializerXml.Deserialize(s), KursAbzugHinzuTAXTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -2953,13 +3310,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -2968,18 +3332,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an KursAbzugHinzuTAXTyp object + ''' + ''' File to load and deserialize + ''' Output KursAbzugHinzuTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KursAbzugHinzuTAXTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -2987,21 +3351,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -3011,633 +3383,537 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class PositionAbgabenbescheidEinfuhrTyp - Private positionsNrField As String +#Region "Private fields" + Private _positionsNr As String - Private erledigungKzField As String + Private _erledigungKz As String - Private warenNummerEZTField As String + Private _warenNummerEZT As String - Private warenNummerZusatzCodeField As List(Of String) + Private _warenNummerZusatzCode As List(Of String) - Private warenBezeichnungField As String + Private _warenBezeichnung As String - Private beschauMitteilungField As String + Private _beschauMitteilung As String - Private erledigungMitteilungField As String + Private _erledigungMitteilung As String - Private ablehnungAenderungField As String + Private _ablehnungAenderung As String - Private weitererNachweisField As String + Private _weitererNachweis As String - Private gewaehrteBeguenstigungField As String + Private _gewaehrteBeguenstigung As String - Private anordnungKzField As String + Private _anordnungKz As String - Private eUStWertField As Decimal + Private _eUStWert As Decimal - Private eUStWertFieldSpecified As Boolean + Private _kostenFuerEUSt As Decimal - Private kostenFuerEUStField As Decimal + Private _zollWert As Decimal - Private kostenFuerEUStFieldSpecified As Boolean + Private _annahmeAenderung As String - Private zollWertField As Decimal + Private _sicherheitsLeistungBetrag As Decimal - Private zollWertFieldSpecified As Boolean + Private _registrierNrvZAAZ As String - Private annahmeAenderungField As String + Private _positionsNrInvZAAZ As String - Private sicherheitsLeistungBetragField As Decimal + Private _annahmeKz As String - Private sicherheitsLeistungBetragFieldSpecified As Boolean + Private _annahmeDatum As Date - Private registrierNrvZAAZField As String + Private _ueberlassungDatum As Date - Private positionsNrInvZAAZField As String + Private _lagerfrist As Date - Private annahmeKzField As String + Private _wiederAusfuhrFrist As Date - Private annahmeDatumField As Date + Private _fristWeitererNachweis As Date - Private annahmeDatumFieldSpecified As Boolean + Private _befund As String - Private ueberlassungDatumField As Date + Private _dV1AbweichendFestgesetztKz As String - Private ueberlassungDatumFieldSpecified As Boolean + Private _sonderfalleingabeKz As String - Private lagerfristField As Date + Private _angewandterKursNettopreis As Decimal - Private lagerfristFieldSpecified As Boolean + Private _angewandterKursMittelbZahlungen As Decimal - Private wiederAusfuhrFristField As Date + Private _abzugHinzurechnungen As List(Of KursAbzugHinzuTAXTyp) - Private wiederAusfuhrFristFieldSpecified As Boolean + Private _luftFrachtGesamtProzentsatz As String - Private fristWeitererNachweisField As Date + Private _luftFrachtGesamtAngewandterKurs As Decimal - Private fristWeitererNachweisFieldSpecified As Boolean + Private _angemeldeteUnterlage As List(Of AngemeldeteUnterlageTAXTyp) - Private befundField As String + Private _eZAAVAngabenPos As EZAAVAngabenPosTyp - Private dV1AbweichendFestgesetztKzField As String + Private _sonderabgabenGruppe As List(Of SonderfalleingabeTAXTyp) - Private sonderfalleingabeKzField As String + Private _kontNrAngewandt As List(Of String) - Private angewandterKursNettopreisField As Decimal + Private _kontingentAngerechnet As List(Of KontingentAngerechnetTAXTyp) - Private angewandterKursNettopreisFieldSpecified As Boolean + Private _abweichendeFestsetzung As List(Of AbweichendeFestsetzungTAXTyp) - Private angewandterKursMittelbZahlungenField As Decimal + Private _pauschalierung As PauschalierungTAXTyp - Private angewandterKursMittelbZahlungenFieldSpecified As Boolean + Private _abgaben As List(Of AbgabengruppeTAXTyp) - 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 + Private Shared _serializerXml As XmlSerializer +#End Region 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)() + Me._abgaben = New List(Of AbgabengruppeTAXTyp)() + Me._pauschalierung = New PauschalierungTAXTyp() + Me._abweichendeFestsetzung = New List(Of AbweichendeFestsetzungTAXTyp)() + Me._kontingentAngerechnet = New List(Of KontingentAngerechnetTAXTyp)() + Me._kontNrAngewandt = New List(Of String)() + Me._sonderabgabenGruppe = New List(Of SonderfalleingabeTAXTyp)() + Me._eZAAVAngabenPos = New EZAAVAngabenPosTyp() + Me._angemeldeteUnterlage = New List(Of AngemeldeteUnterlageTAXTyp)() + Me._abzugHinzurechnungen = New List(Of KursAbzugHinzuTAXTyp)() + Me._warenNummerZusatzCode = New List(Of String)() End Sub - Public Property PositionsNr() As String + + Public Overridable Property PositionsNr() As String Get - Return Me.positionsNrField + Return Me._positionsNr End Get Set - Me.positionsNrField = Value + Me._positionsNr = Value End Set End Property - Public Property ErledigungKz() As String + + Public Overridable Property ErledigungKz() As String Get - Return Me.erledigungKzField + Return Me._erledigungKz End Get Set - Me.erledigungKzField = Value + Me._erledigungKz = Value End Set End Property - Public Property WarenNummerEZT() As String + + Public Overridable Property WarenNummerEZT() As String Get - Return Me.warenNummerEZTField + Return Me._warenNummerEZT End Get Set - Me.warenNummerEZTField = Value + Me._warenNummerEZT = Value End Set End Property - Public Property WarenNummerZusatzCode() As List(Of String) + + Public Overridable Property WarenNummerZusatzCode() As List(Of String) Get - Return Me.warenNummerZusatzCodeField + Return Me._warenNummerZusatzCode End Get Set - Me.warenNummerZusatzCodeField = Value + Me._warenNummerZusatzCode = Value End Set End Property - Public Property WarenBezeichnung() As String + + Public Overridable Property WarenBezeichnung() As String Get - Return Me.warenBezeichnungField + Return Me._warenBezeichnung End Get Set - Me.warenBezeichnungField = Value + Me._warenBezeichnung = Value End Set End Property - Public Property BeschauMitteilung() As String + + Public Overridable Property BeschauMitteilung() As String Get - Return Me.beschauMitteilungField + Return Me._beschauMitteilung End Get Set - Me.beschauMitteilungField = Value + Me._beschauMitteilung = Value End Set End Property - Public Property ErledigungMitteilung() As String + + Public Overridable Property ErledigungMitteilung() As String Get - Return Me.erledigungMitteilungField + Return Me._erledigungMitteilung End Get Set - Me.erledigungMitteilungField = Value + Me._erledigungMitteilung = Value End Set End Property - Public Property AblehnungAenderung() As String + + Public Overridable Property AblehnungAenderung() As String Get - Return Me.ablehnungAenderungField + Return Me._ablehnungAenderung End Get Set - Me.ablehnungAenderungField = Value + Me._ablehnungAenderung = Value End Set End Property - Public Property WeitererNachweis() As String + + Public Overridable Property WeitererNachweis() As String Get - Return Me.weitererNachweisField + Return Me._weitererNachweis End Get Set - Me.weitererNachweisField = Value + Me._weitererNachweis = Value End Set End Property - Public Property GewaehrteBeguenstigung() As String + + Public Overridable Property GewaehrteBeguenstigung() As String Get - Return Me.gewaehrteBeguenstigungField + Return Me._gewaehrteBeguenstigung End Get Set - Me.gewaehrteBeguenstigungField = Value + Me._gewaehrteBeguenstigung = Value End Set End Property - Public Property AnordnungKz() As String + + Public Overridable Property AnordnungKz() As String Get - Return Me.anordnungKzField + Return Me._anordnungKz End Get Set - Me.anordnungKzField = Value + Me._anordnungKz = Value End Set End Property - Public Property EUStWert() As Decimal + + Public Overridable Property EUStWert() As Decimal Get - Return Me.eUStWertField + Return Me._eUStWert End Get Set - Me.eUStWertField = Value + Me._eUStWert = Value End Set End Property - - Public Property EUStWertSpecified() As Boolean + + Public Overridable Property KostenFuerEUSt() As Decimal Get - Return Me.eUStWertFieldSpecified + Return Me._kostenFuerEUSt End Get Set - Me.eUStWertFieldSpecified = Value + Me._kostenFuerEUSt = Value End Set End Property - Public Property KostenFuerEUSt() As Decimal + + Public Overridable Property ZollWert() As Decimal Get - Return Me.kostenFuerEUStField + Return Me._zollWert End Get Set - Me.kostenFuerEUStField = Value + Me._zollWert = Value End Set End Property - - Public Property KostenFuerEUStSpecified() As Boolean + + Public Overridable Property AnnahmeAenderung() As String Get - Return Me.kostenFuerEUStFieldSpecified + Return Me._annahmeAenderung End Get Set - Me.kostenFuerEUStFieldSpecified = Value + Me._annahmeAenderung = Value End Set End Property - Public Property ZollWert() As Decimal + + Public Overridable Property SicherheitsLeistungBetrag() As Decimal Get - Return Me.zollWertField + Return Me._sicherheitsLeistungBetrag End Get Set - Me.zollWertField = Value + Me._sicherheitsLeistungBetrag = Value End Set End Property - - Public Property ZollWertSpecified() As Boolean + + Public Overridable Property RegistrierNrvZAAZ() As String Get - Return Me.zollWertFieldSpecified + Return Me._registrierNrvZAAZ End Get Set - Me.zollWertFieldSpecified = Value + Me._registrierNrvZAAZ = Value End Set End Property - Public Property AnnahmeAenderung() As String + + Public Overridable Property PositionsNrInvZAAZ() As String Get - Return Me.annahmeAenderungField + Return Me._positionsNrInvZAAZ End Get Set - Me.annahmeAenderungField = Value + Me._positionsNrInvZAAZ = Value End Set End Property - Public Property SicherheitsLeistungBetrag() As Decimal + + Public Overridable Property AnnahmeKz() As String Get - Return Me.sicherheitsLeistungBetragField + Return Me._annahmeKz End Get Set - Me.sicherheitsLeistungBetragField = Value + Me._annahmeKz = Value End Set End Property - - Public Property SicherheitsLeistungBetragSpecified() As Boolean + + Public Overridable Property AnnahmeDatum() As Date Get - Return Me.sicherheitsLeistungBetragFieldSpecified + Return Me._annahmeDatum End Get Set - Me.sicherheitsLeistungBetragFieldSpecified = Value + Me._annahmeDatum = Value End Set End Property - Public Property RegistrierNrvZAAZ() As String + + Public Overridable Property UeberlassungDatum() As Date Get - Return Me.registrierNrvZAAZField + Return Me._ueberlassungDatum End Get Set - Me.registrierNrvZAAZField = Value + Me._ueberlassungDatum = Value End Set End Property - Public Property PositionsNrInvZAAZ() As String + + Public Overridable Property Lagerfrist() As Date Get - Return Me.positionsNrInvZAAZField + Return Me._lagerfrist End Get Set - Me.positionsNrInvZAAZField = Value + Me._lagerfrist = Value End Set End Property - Public Property AnnahmeKz() As String + + Public Overridable Property WiederAusfuhrFrist() As Date Get - Return Me.annahmeKzField + Return Me._wiederAusfuhrFrist End Get Set - Me.annahmeKzField = Value + Me._wiederAusfuhrFrist = Value End Set End Property - Public Property AnnahmeDatum() As Date + + Public Overridable Property FristWeitererNachweis() As Date Get - Return Me.annahmeDatumField + Return Me._fristWeitererNachweis End Get Set - Me.annahmeDatumField = Value + Me._fristWeitererNachweis = Value End Set End Property - - Public Property AnnahmeDatumSpecified() As Boolean + + Public Overridable Property Befund() As String Get - Return Me.annahmeDatumFieldSpecified + Return Me._befund End Get Set - Me.annahmeDatumFieldSpecified = Value + Me._befund = Value End Set End Property - Public Property UeberlassungDatum() As Date + + Public Overridable Property DV1AbweichendFestgesetztKz() As String Get - Return Me.ueberlassungDatumField + Return Me._dV1AbweichendFestgesetztKz End Get Set - Me.ueberlassungDatumField = Value + Me._dV1AbweichendFestgesetztKz = Value End Set End Property - - Public Property UeberlassungDatumSpecified() As Boolean + + Public Overridable Property SonderfalleingabeKz() As String Get - Return Me.ueberlassungDatumFieldSpecified + Return Me._sonderfalleingabeKz End Get Set - Me.ueberlassungDatumFieldSpecified = Value + Me._sonderfalleingabeKz = Value End Set End Property - Public Property Lagerfrist() As Date + + Public Overridable Property AngewandterKursNettopreis() As Decimal Get - Return Me.lagerfristField + Return Me._angewandterKursNettopreis End Get Set - Me.lagerfristField = Value + Me._angewandterKursNettopreis = Value End Set End Property - - Public Property LagerfristSpecified() As Boolean + + Public Overridable Property AngewandterKursMittelbZahlungen() As Decimal Get - Return Me.lagerfristFieldSpecified + Return Me._angewandterKursMittelbZahlungen End Get Set - Me.lagerfristFieldSpecified = Value + Me._angewandterKursMittelbZahlungen = Value End Set End Property - Public Property WiederAusfuhrFrist() As Date + + Public Overridable Property AbzugHinzurechnungen() As List(Of KursAbzugHinzuTAXTyp) Get - Return Me.wiederAusfuhrFristField + Return Me._abzugHinzurechnungen End Get Set - Me.wiederAusfuhrFristField = Value + Me._abzugHinzurechnungen = Value End Set End Property - - Public Property WiederAusfuhrFristSpecified() As Boolean + + Public Overridable Property LuftFrachtGesamtProzentsatz() As String Get - Return Me.wiederAusfuhrFristFieldSpecified + Return Me._luftFrachtGesamtProzentsatz End Get Set - Me.wiederAusfuhrFristFieldSpecified = Value + Me._luftFrachtGesamtProzentsatz = Value End Set End Property - Public Property FristWeitererNachweis() As Date + + Public Overridable Property LuftFrachtGesamtAngewandterKurs() As Decimal Get - Return Me.fristWeitererNachweisField + Return Me._luftFrachtGesamtAngewandterKurs End Get Set - Me.fristWeitererNachweisField = Value + Me._luftFrachtGesamtAngewandterKurs = Value End Set End Property - - Public Property FristWeitererNachweisSpecified() As Boolean + + Public Overridable Property AngemeldeteUnterlage() As List(Of AngemeldeteUnterlageTAXTyp) Get - Return Me.fristWeitererNachweisFieldSpecified + Return Me._angemeldeteUnterlage End Get Set - Me.fristWeitererNachweisFieldSpecified = Value + Me._angemeldeteUnterlage = Value End Set End Property - Public Property Befund() As String + + Public Overridable Property EZAAVAngabenPos() As EZAAVAngabenPosTyp Get - Return Me.befundField + Return Me._eZAAVAngabenPos End Get Set - Me.befundField = Value + Me._eZAAVAngabenPos = Value End Set End Property - Public Property DV1AbweichendFestgesetztKz() As String + + Public Overridable Property SonderabgabenGruppe() As List(Of SonderfalleingabeTAXTyp) Get - Return Me.dV1AbweichendFestgesetztKzField + Return Me._sonderabgabenGruppe End Get Set - Me.dV1AbweichendFestgesetztKzField = Value + Me._sonderabgabenGruppe = Value End Set End Property - Public Property SonderfalleingabeKz() As String + + Public Overridable Property KontNrAngewandt() As List(Of String) Get - Return Me.sonderfalleingabeKzField + Return Me._kontNrAngewandt End Get Set - Me.sonderfalleingabeKzField = Value + Me._kontNrAngewandt = Value End Set End Property - Public Property AngewandterKursNettopreis() As Decimal + + Public Overridable Property KontingentAngerechnet() As List(Of KontingentAngerechnetTAXTyp) Get - Return Me.angewandterKursNettopreisField + Return Me._kontingentAngerechnet End Get Set - Me.angewandterKursNettopreisField = Value + Me._kontingentAngerechnet = Value End Set End Property - - Public Property AngewandterKursNettopreisSpecified() As Boolean + + Public Overridable Property AbweichendeFestsetzung() As List(Of AbweichendeFestsetzungTAXTyp) Get - Return Me.angewandterKursNettopreisFieldSpecified + Return Me._abweichendeFestsetzung End Get Set - Me.angewandterKursNettopreisFieldSpecified = Value + Me._abweichendeFestsetzung = Value End Set End Property - Public Property AngewandterKursMittelbZahlungen() As Decimal + + Public Overridable Property Pauschalierung() As PauschalierungTAXTyp Get - Return Me.angewandterKursMittelbZahlungenField + Return Me._pauschalierung End Get Set - Me.angewandterKursMittelbZahlungenField = Value + Me._pauschalierung = Value End Set End Property - - Public Property AngewandterKursMittelbZahlungenSpecified() As Boolean + + Public Overridable Property Abgaben() As List(Of AbgabengruppeTAXTyp) Get - Return Me.angewandterKursMittelbZahlungenFieldSpecified + Return Me._abgaben End Get Set - Me.angewandterKursMittelbZahlungenFieldSpecified = Value + Me._abgaben = Value End Set End Property - Public Property AbzugHinzurechnungen() As List(Of KursAbzugHinzuTAXTyp) + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionAbgabenbescheidEinfuhrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current PositionAbgabenbescheidEinfuhrTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize PositionAbgabenbescheidEinfuhrTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -3649,18 +3925,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes PositionAbgabenbescheidEinfuhrTyp object + ''' + ''' string to deserialize + ''' Output PositionAbgabenbescheidEinfuhrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -3668,16 +3948,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As PositionAbgabenbescheidEinfuhrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionAbgabenbescheidEinfuhrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -3685,16 +3965,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionAbgabenbescheidEinfuhrTyp + Return CType(SerializerXml.Deserialize(s), PositionAbgabenbescheidEinfuhrTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -3702,13 +3987,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -3717,18 +4009,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an PositionAbgabenbescheidEinfuhrTyp object + ''' + ''' File to load and deserialize + ''' Output PositionAbgabenbescheidEinfuhrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -3736,21 +4028,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -3760,90 +4060,103 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class EZAAVAngabenKopfWeitererVeredelungsortTyp - Private strasseField As String +#Region "Private fields" + Private _strasse As String - Private landField As String + Private _land As String - Private pLZField As String + Private _pLZ As String - Private ortField As String + Private _ort As String - Private ortsteilField As String + Private _ortsteil As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region - Public Property Strasse() As String + + Public Overridable Property Strasse() As String Get - Return Me.strasseField + Return Me._strasse End Get Set - Me.strasseField = Value + Me._strasse = Value End Set End Property - Public Property Land() As String + + Public Overridable Property Land() As String Get - Return Me.landField + Return Me._land End Get Set - Me.landField = Value + Me._land = Value End Set End Property - Public Property PLZ() As String + + Public Overridable Property PLZ() As String Get - Return Me.pLZField + Return Me._pLZ End Get Set - Me.pLZField = Value + Me._pLZ = Value End Set End Property - Public Property Ort() As String + + Public Overridable Property Ort() As String Get - Return Me.ortField + Return Me._ort End Get Set - Me.ortField = Value + Me._ort = Value End Set End Property - Public Property Ortsteil() As String + + Public Overridable Property Ortsteil() As String Get - Return Me.ortsteilField + Return Me._ortsteil End Get Set - Me.ortsteilField = Value + Me._ortsteil = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EZAAVAngabenKopfWeitererVeredelungsortTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenKopfWeitererVeredelungsortTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current EZAAVAngabenKopfWeitererVeredelungsortTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -3855,18 +4168,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' + ''' string to deserialize + ''' Output EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -3874,16 +4191,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As EZAAVAngabenKopfWeitererVeredelungsortTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenKopfWeitererVeredelungsortTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -3891,16 +4208,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVAngabenKopfWeitererVeredelungsortTyp + Return CType(SerializerXml.Deserialize(s), EZAAVAngabenKopfWeitererVeredelungsortTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -3908,13 +4230,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -3923,18 +4252,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' + ''' File to load and deserialize + ''' Output EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -3942,21 +4271,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -3966,284 +4303,301 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class EZAAVAngabenKopfTyp - Private kzBemessungEinfuhrabgabenbetragField As String +#Region "Private fields" + Private _kzBemessungEinfuhrabgabenbetrag As String - Private kzAbrechnungField As String + Private _kzAbrechnung As String - Private kzVereinfBefoerderungField As String + Private _kzVereinfBefoerderung As String - Private zusaetzlicheAngabenField As String + Private _zusaetzlicheAngaben As String - Private kzVerzichtSicherheitField As String + Private _kzVerzichtSicherheit As String - Private erlaeuterungenZurSicherheitField As String + Private _erlaeuterungenZurSicherheit As String - Private betragDerSicherheitField As Decimal + Private _betragDerSicherheit As Decimal - Private betragDerSicherheitFieldSpecified As Boolean + Private _deutschesUeHZA As String - Private deutschesUeHZAField As String + Private _einzelheitenGeplantVeredelungsvorgang As String - Private einzelheitenGeplantVeredelungsvorgangField As String + Private _hauptbuchhaltungStrasse As String - Private hauptbuchhaltungStrasseField As String + Private _hauptbuchhaltungLand As String - Private hauptbuchhaltungLandField As String + Private _hauptbuchhaltungPLZ As String - Private hauptbuchhaltungPLZField As String + Private _hauptbuchhaltungOrt As String - Private hauptbuchhaltungOrtField As String + Private _hauptbuchhaltungOrtsteil As String - Private hauptbuchhaltungOrtsteilField As String + Private _veredelungStrasse As String - Private veredelungStrasseField As String + Private _veredelungLand As String - Private veredelungLandField As String + Private _veredelungPLZ As String - Private veredelungPLZField As String + Private _veredelungOrt As String - Private veredelungOrtField As String + Private _veredelungOrtsteil As String - Private veredelungOrtsteilField As String + Private _weitererVeredelungsort As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp) - Private weitererVeredelungsortField As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp) + Private _zollstelleErledigung As List(Of String) - Private zollstelleErledigungField As List(Of String) - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.zollstelleErledigungField = New List(Of String)() - Me.weitererVeredelungsortField = New List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)() + Me._zollstelleErledigung = New List(Of String)() + Me._weitererVeredelungsort = New List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)() End Sub - Public Property KzBemessungEinfuhrabgabenbetrag() As String + + Public Overridable Property KzBemessungEinfuhrabgabenbetrag() As String Get - Return Me.kzBemessungEinfuhrabgabenbetragField + Return Me._kzBemessungEinfuhrabgabenbetrag End Get Set - Me.kzBemessungEinfuhrabgabenbetragField = Value + Me._kzBemessungEinfuhrabgabenbetrag = Value End Set End Property - Public Property KzAbrechnung() As String + + Public Overridable Property KzAbrechnung() As String Get - Return Me.kzAbrechnungField + Return Me._kzAbrechnung End Get Set - Me.kzAbrechnungField = Value + Me._kzAbrechnung = Value End Set End Property - Public Property KzVereinfBefoerderung() As String + + Public Overridable Property KzVereinfBefoerderung() As String Get - Return Me.kzVereinfBefoerderungField + Return Me._kzVereinfBefoerderung End Get Set - Me.kzVereinfBefoerderungField = Value + Me._kzVereinfBefoerderung = Value End Set End Property - Public Property ZusaetzlicheAngaben() As String + + Public Overridable Property ZusaetzlicheAngaben() As String Get - Return Me.zusaetzlicheAngabenField + Return Me._zusaetzlicheAngaben End Get Set - Me.zusaetzlicheAngabenField = Value + Me._zusaetzlicheAngaben = Value End Set End Property - Public Property KzVerzichtSicherheit() As String + + Public Overridable Property KzVerzichtSicherheit() As String Get - Return Me.kzVerzichtSicherheitField + Return Me._kzVerzichtSicherheit End Get Set - Me.kzVerzichtSicherheitField = Value + Me._kzVerzichtSicherheit = Value End Set End Property - Public Property ErlaeuterungenZurSicherheit() As String + + Public Overridable Property ErlaeuterungenZurSicherheit() As String Get - Return Me.erlaeuterungenZurSicherheitField + Return Me._erlaeuterungenZurSicherheit End Get Set - Me.erlaeuterungenZurSicherheitField = Value + Me._erlaeuterungenZurSicherheit = Value End Set End Property - Public Property BetragDerSicherheit() As Decimal + + Public Overridable Property BetragDerSicherheit() As Decimal Get - Return Me.betragDerSicherheitField + Return Me._betragDerSicherheit End Get Set - Me.betragDerSicherheitField = Value + Me._betragDerSicherheit = Value End Set End Property - - Public Property BetragDerSicherheitSpecified() As Boolean + + Public Overridable Property DeutschesUeHZA() As String Get - Return Me.betragDerSicherheitFieldSpecified + Return Me._deutschesUeHZA End Get Set - Me.betragDerSicherheitFieldSpecified = Value + Me._deutschesUeHZA = Value End Set End Property - Public Property DeutschesUeHZA() As String + + Public Overridable Property EinzelheitenGeplantVeredelungsvorgang() As String Get - Return Me.deutschesUeHZAField + Return Me._einzelheitenGeplantVeredelungsvorgang End Get Set - Me.deutschesUeHZAField = Value + Me._einzelheitenGeplantVeredelungsvorgang = Value End Set End Property - Public Property EinzelheitenGeplantVeredelungsvorgang() As String + + Public Overridable Property HauptbuchhaltungStrasse() As String Get - Return Me.einzelheitenGeplantVeredelungsvorgangField + Return Me._hauptbuchhaltungStrasse End Get Set - Me.einzelheitenGeplantVeredelungsvorgangField = Value + Me._hauptbuchhaltungStrasse = Value End Set End Property - Public Property HauptbuchhaltungStrasse() As String + + Public Overridable Property HauptbuchhaltungLand() As String Get - Return Me.hauptbuchhaltungStrasseField + Return Me._hauptbuchhaltungLand End Get Set - Me.hauptbuchhaltungStrasseField = Value + Me._hauptbuchhaltungLand = Value End Set End Property - Public Property HauptbuchhaltungLand() As String + + Public Overridable Property HauptbuchhaltungPLZ() As String Get - Return Me.hauptbuchhaltungLandField + Return Me._hauptbuchhaltungPLZ End Get Set - Me.hauptbuchhaltungLandField = Value + Me._hauptbuchhaltungPLZ = Value End Set End Property - Public Property HauptbuchhaltungPLZ() As String + + Public Overridable Property HauptbuchhaltungOrt() As String Get - Return Me.hauptbuchhaltungPLZField + Return Me._hauptbuchhaltungOrt End Get Set - Me.hauptbuchhaltungPLZField = Value + Me._hauptbuchhaltungOrt = Value End Set End Property - Public Property HauptbuchhaltungOrt() As String + + Public Overridable Property HauptbuchhaltungOrtsteil() As String Get - Return Me.hauptbuchhaltungOrtField + Return Me._hauptbuchhaltungOrtsteil End Get Set - Me.hauptbuchhaltungOrtField = Value + Me._hauptbuchhaltungOrtsteil = Value End Set End Property - Public Property HauptbuchhaltungOrtsteil() As String + + Public Overridable Property VeredelungStrasse() As String Get - Return Me.hauptbuchhaltungOrtsteilField + Return Me._veredelungStrasse End Get Set - Me.hauptbuchhaltungOrtsteilField = Value + Me._veredelungStrasse = Value End Set End Property - Public Property VeredelungStrasse() As String + + Public Overridable Property VeredelungLand() As String Get - Return Me.veredelungStrasseField + Return Me._veredelungLand End Get Set - Me.veredelungStrasseField = Value + Me._veredelungLand = Value End Set End Property - Public Property VeredelungLand() As String + + Public Overridable Property VeredelungPLZ() As String Get - Return Me.veredelungLandField + Return Me._veredelungPLZ End Get Set - Me.veredelungLandField = Value + Me._veredelungPLZ = Value End Set End Property - Public Property VeredelungPLZ() As String + + Public Overridable Property VeredelungOrt() As String Get - Return Me.veredelungPLZField + Return Me._veredelungOrt End Get Set - Me.veredelungPLZField = Value + Me._veredelungOrt = Value End Set End Property - Public Property VeredelungOrt() As String + + Public Overridable Property VeredelungOrtsteil() As String Get - Return Me.veredelungOrtField + Return Me._veredelungOrtsteil End Get Set - Me.veredelungOrtField = Value + Me._veredelungOrtsteil = Value End Set End Property - Public Property VeredelungOrtsteil() As String + + Public Overridable Property WeitererVeredelungsort() As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp) Get - Return Me.veredelungOrtsteilField + Return Me._weitererVeredelungsort End Get Set - Me.veredelungOrtsteilField = Value + Me._weitererVeredelungsort = Value End Set End Property - Public Property WeitererVeredelungsort() As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp) + + Public Overridable Property ZollstelleErledigung() As List(Of String) Get - Return Me.weitererVeredelungsortField + Return Me._zollstelleErledigung End Get Set - Me.weitererVeredelungsortField = Value + Me._zollstelleErledigung = Value End Set End Property - Public Property ZollstelleErledigung() As List(Of String) + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenKopfTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current EZAAVAngabenKopfTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize EZAAVAngabenKopfTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -4255,18 +4609,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes EZAAVAngabenKopfTyp object + ''' + ''' string to deserialize + ''' Output EZAAVAngabenKopfTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVAngabenKopfTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -4274,16 +4632,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EZAAVAngabenKopfTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As EZAAVAngabenKopfTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenKopfTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -4291,16 +4649,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVAngabenKopfTyp + Return CType(SerializerXml.Deserialize(s), EZAAVAngabenKopfTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -4308,13 +4671,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -4323,18 +4693,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an EZAAVAngabenKopfTyp object + ''' + ''' File to load and deserialize + ''' Output EZAAVAngabenKopfTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EZAAVAngabenKopfTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -4342,21 +4712,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -4366,69 +4744,67 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class SicherheitTAXTyp - Private einzelbetragUnbareSicherheitField As Decimal +#Region "Private fields" + Private _einzelbetragUnbareSicherheit As Decimal - Private einzelbetragUnbareSicherheitFieldSpecified As Boolean + Private _artUnbareSicherheitsleistung As String - Private artUnbareSicherheitsleistungField As String + Private Shared _serializerXml As XmlSerializer +#End Region - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer - - Public Property EinzelbetragUnbareSicherheit() As Decimal + + Public Overridable Property EinzelbetragUnbareSicherheit() As Decimal Get - Return Me.einzelbetragUnbareSicherheitField + Return Me._einzelbetragUnbareSicherheit End Get Set - Me.einzelbetragUnbareSicherheitField = Value + Me._einzelbetragUnbareSicherheit = Value End Set End Property - - Public Property EinzelbetragUnbareSicherheitSpecified() As Boolean + + Public Overridable Property ArtUnbareSicherheitsleistung() As String Get - Return Me.einzelbetragUnbareSicherheitFieldSpecified + Return Me._artUnbareSicherheitsleistung End Get Set - Me.einzelbetragUnbareSicherheitFieldSpecified = Value + Me._artUnbareSicherheitsleistung = Value End Set End Property - Public Property ArtUnbareSicherheitsleistung() As String + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SicherheitTAXTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current SicherheitTAXTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize SicherheitTAXTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -4440,18 +4816,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes SicherheitTAXTyp object + ''' + ''' string to deserialize + ''' Output SicherheitTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SicherheitTAXTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -4459,16 +4839,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SicherheitTAXTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitTAXTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As SicherheitTAXTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SicherheitTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -4476,16 +4856,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SicherheitTAXTyp + Return CType(SerializerXml.Deserialize(s), SicherheitTAXTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -4493,13 +4878,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -4508,18 +4900,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an SicherheitTAXTyp object + ''' + ''' File to load and deserialize + ''' Output SicherheitTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SicherheitTAXTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -4527,21 +4919,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -4551,158 +4951,151 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class AbgabenNachArtKopfTAXTyp - Private abgabeArtField As String +#Region "Private fields" + Private _abgabeArt As String - Private abgabenbetragField As Decimal + Private _abgabenbetrag As Decimal - Private abgabenbetragFieldSpecified As Boolean + Private _zahlungsart As String - Private zahlungsartField As String + Private _aufschubnehmerName As String - Private aufschubnehmerNameField As String + Private _aufschubnehmerTIN As String - Private aufschubnehmerTINField As String + Private _artAufschubAntrag As String - Private artAufschubAntragField As String + Private _kennBuchstabenAufschub As String - Private kennBuchstabenAufschubField As String + Private _aufschubkontoNr As String - Private aufschubkontoNrField As String + Private _faelligkeit As Date - Private faelligkeitField As Date + Private Shared _serializerXml As XmlSerializer +#End Region - Private faelligkeitFieldSpecified As Boolean - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer - - Public Property AbgabeArt() As String + + Public Overridable Property AbgabeArt() As String Get - Return Me.abgabeArtField + Return Me._abgabeArt End Get Set - Me.abgabeArtField = Value + Me._abgabeArt = Value End Set End Property - Public Property Abgabenbetrag() As Decimal + + Public Overridable Property Abgabenbetrag() As Decimal Get - Return Me.abgabenbetragField + Return Me._abgabenbetrag End Get Set - Me.abgabenbetragField = Value + Me._abgabenbetrag = Value End Set End Property - - Public Property AbgabenbetragSpecified() As Boolean + + Public Overridable Property Zahlungsart() As String Get - Return Me.abgabenbetragFieldSpecified + Return Me._zahlungsart End Get Set - Me.abgabenbetragFieldSpecified = Value + Me._zahlungsart = Value End Set End Property - Public Property Zahlungsart() As String + + Public Overridable Property AufschubnehmerName() As String Get - Return Me.zahlungsartField + Return Me._aufschubnehmerName End Get Set - Me.zahlungsartField = Value + Me._aufschubnehmerName = Value End Set End Property - Public Property AufschubnehmerName() As String + + Public Overridable Property AufschubnehmerTIN() As String Get - Return Me.aufschubnehmerNameField + Return Me._aufschubnehmerTIN End Get Set - Me.aufschubnehmerNameField = Value + Me._aufschubnehmerTIN = Value End Set End Property - Public Property AufschubnehmerTIN() As String + + Public Overridable Property ArtAufschubAntrag() As String Get - Return Me.aufschubnehmerTINField + Return Me._artAufschubAntrag End Get Set - Me.aufschubnehmerTINField = Value + Me._artAufschubAntrag = Value End Set End Property - Public Property ArtAufschubAntrag() As String + + Public Overridable Property KennBuchstabenAufschub() As String Get - Return Me.artAufschubAntragField + Return Me._kennBuchstabenAufschub End Get Set - Me.artAufschubAntragField = Value + Me._kennBuchstabenAufschub = Value End Set End Property - Public Property KennBuchstabenAufschub() As String + + Public Overridable Property AufschubkontoNr() As String Get - Return Me.kennBuchstabenAufschubField + Return Me._aufschubkontoNr End Get Set - Me.kennBuchstabenAufschubField = Value + Me._aufschubkontoNr = Value End Set End Property - Public Property AufschubkontoNr() As String + + Public Overridable Property Faelligkeit() As Date Get - Return Me.aufschubkontoNrField + Return Me._faelligkeit End Get Set - Me.aufschubkontoNrField = Value + Me._faelligkeit = Value End Set End Property - Public Property Faelligkeit() As Date + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenNachArtKopfTAXTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AbgabenNachArtKopfTAXTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize AbgabenNachArtKopfTAXTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -4714,18 +5107,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes AbgabenNachArtKopfTAXTyp object + ''' + ''' string to deserialize + ''' Output AbgabenNachArtKopfTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabenNachArtKopfTAXTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -4733,16 +5130,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabenNachArtKopfTAXTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenNachArtKopfTAXTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AbgabenNachArtKopfTAXTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgabenNachArtKopfTAXTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -4750,16 +5147,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabenNachArtKopfTAXTyp + Return CType(SerializerXml.Deserialize(s), AbgabenNachArtKopfTAXTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -4767,13 +5169,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -4782,18 +5191,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an AbgabenNachArtKopfTAXTyp object + ''' + ''' File to load and deserialize + ''' Output AbgabenNachArtKopfTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabenNachArtKopfTAXTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -4801,21 +5210,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -4825,1522 +5242,1442 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class KopfDatenEinfuhrbescheidTyp - Private artAnmeldungField As String +#Region "Private fields" + Private _artAnmeldung As String - Private erledigungKopfKzField As String + Private _erledigungKopfKz As String - Private waehrungField As String + Private _waehrung As String - Private gesamtabgabenBetragField As Decimal + Private _gesamtabgabenBetrag As Decimal - Private gesamtabgabenBetragFieldSpecified As Boolean + Private _abgabenbetragZuZahlen As Decimal - Private abgabenbetragZuZahlenField As Decimal + Private _abgabenbetragZuErstatten As Decimal - Private abgabenbetragZuZahlenFieldSpecified As Boolean + Private _vertretungsverhaeltnis As String - Private abgabenbetragZuErstattenField As Decimal + Private _zahlungsaufforderungArtAufschub As String - Private abgabenbetragZuErstattenFieldSpecified As Boolean + Private _zahlungsaufforderungArtAbgaben As String - Private vertretungsverhaeltnisField As String + Private _zahlungsaufforderungArtSicherheit As String - Private zahlungsaufforderungArtAufschubField As String + Private _kleinbetragKz As String - Private zahlungsaufforderungArtAbgabenField As String + Private _kleinbetragRechtsbehelf As String - Private zahlungsaufforderungArtSicherheitField As String + Private _gesamtschuldnerschaftKz As String - Private kleinbetragKzField As String + Private _eingangszollstelleGeaendertKz As String - Private kleinbetragRechtsbehelfField As String + Private _aVbewilligtKz As String - Private gesamtschuldnerschaftKzField As String + Private _benutzererstelltKz As String - Private eingangszollstelleGeaendertKzField As String + Private _eUStKz As String - Private aVbewilligtKzField As String + Private _registriernummer As String - Private benutzererstelltKzField As String + Private _registrierdatum As Date - Private eUStKzField As String + Private _nizzaRegistrierKz As String - Private registriernummerField As String + Private _nizzaRegistrierKzSicherheit As String - Private registrierdatumField As Date + Private _abgabenNachArt As List(Of AbgabenNachArtKopfTAXTyp) - Private registrierdatumFieldSpecified As Boolean + Private _gesamtsicherheitssumme As Decimal - Private nizzaRegistrierKzField As String + Private _errechneteSicherheitsSumme As Decimal - Private nizzaRegistrierKzSicherheitField As String + Private _unbarSicherheitsbetraege As Decimal - Private abgabenNachArtField As List(Of AbgabenNachArtKopfTAXTyp) + Private _barSicherheitsbetraege As Decimal - Private gesamtsicherheitssummeField As Decimal + Private _freizugebenSicherheit As Decimal - Private gesamtsicherheitssummeFieldSpecified As Boolean + Private _auszuzahlenSicherheit As Decimal - Private errechneteSicherheitsSummeField As Decimal + Private _einbehaltenSicherheit As Decimal - Private errechneteSicherheitsSummeFieldSpecified As Boolean + Private _sicherheitsleistungForm As String - Private unbarSicherheitsbetraegeField As Decimal + Private _sicherheitsleistungsVerzicht As String - Private unbarSicherheitsbetraegeFieldSpecified As Boolean + Private _auszahlungsArt As String - Private barSicherheitsbetraegeField As Decimal + Private _unbareSicherheiten As List(Of SicherheitTAXTyp) - Private barSicherheitsbetraegeFieldSpecified As Boolean + Private _bescheidendeDienststelleNr As String - Private freizugebenSicherheitField As Decimal + Private _bescheidendeDienststelleName As String - Private freizugebenSicherheitFieldSpecified As Boolean + Private _bescheidendeDienststelleStrasseHausNr As String - Private auszuzahlenSicherheitField As Decimal + Private _bescheidendeDienststelleOrtS As String - Private auszuzahlenSicherheitFieldSpecified As Boolean + Private _bescheidendeDienststellePLZS As String - Private einbehaltenSicherheitField As Decimal + Private _bearbeiter As String - Private einbehaltenSicherheitFieldSpecified As Boolean + Private _bescheidendeDienststelleTelefonNr As String - Private sicherheitsleistungFormField As String + Private _rechtsbehelfHauptzollamt As String - Private sicherheitsleistungsVerzichtField As String + Private _rechtsbehelfHZAEmailAdresse As String - Private auszahlungsArtField As String + Private _rechtsbehelfHZADEmailAdresse As String - Private unbareSicherheitenField As List(Of SicherheitTAXTyp) + Private _rechtsbehelfHauptzollamtStrHausNr As String - Private bescheidendeDienststelleNrField As String + Private _rechtsbehelfHauptzollamtPLZS As String - Private bescheidendeDienststelleNameField As String + Private _rechtsbehelfHauptzollamtOrtS As String - Private bescheidendeDienststelleStrasseHausNrField As String + Private _rechtsbehelfHauptzollamtOrtsteil As String - Private bescheidendeDienststelleOrtSField As String + Private _rechtsbehelfHauptzollamtPostfach As String - Private bescheidendeDienststellePLZSField As String + Private _rechtsbehelfHauptzollamtPLZP As String - Private bearbeiterField As String + Private _rechtsbehelfHauptzollamtOrtP As String - Private bescheidendeDienststelleTelefonNrField As String + Private _zollzahlstelle As String - Private rechtsbehelfHauptzollamtField As String + Private _zollzahlstelleKreditinstitut As String - Private rechtsbehelfHZAEmailAdresseField As String + Private _zollzahlstelleStrasseHausNr As String - Private rechtsbehelfHZADEmailAdresseField As String + Private _zollzahlstellePLZS As String - Private rechtsbehelfHauptzollamtStrHausNrField As String + Private _zollzahlstelleOrtS As String - Private rechtsbehelfHauptzollamtPLZSField As String + Private _zollzahlstellePostfach As String - Private rechtsbehelfHauptzollamtOrtSField As String + Private _zollzahlstellePLZP As String - Private rechtsbehelfHauptzollamtOrtsteilField As String + Private _zollzahlstelleOrtP As String - Private rechtsbehelfHauptzollamtPostfachField As String + Private _zollzahlstelleIBAN As String - Private rechtsbehelfHauptzollamtPLZPField As String + Private _zollzahlstelleBIC As String - Private rechtsbehelfHauptzollamtOrtPField As String + Private _anmelderEORI As String - Private zollzahlstelleField As String + Private _anmelderNLNR As String - Private zollzahlstelleKreditinstitutField As String + Private _vorsteuerabzugKz As String - Private zollzahlstelleStrasseHausNrField As String + Private _anmelderName As String - Private zollzahlstellePLZSField As String + Private _anmelderNationalitaet As String - Private zollzahlstelleOrtSField As String + Private _anmelderStrasseHausNr As String - Private zollzahlstellePostfachField As String + Private _anmelderPLZS As String - Private zollzahlstellePLZPField As String + Private _anmelderOrtS As String - Private zollzahlstelleOrtPField As String + Private _anmelderOrtsteil As String - Private zollzahlstelleIBANField As String + Private _vertreterEORI As String - Private zollzahlstelleBICField As String + Private _vertreterNLNR As String - Private anmelderEORIField As String + Private _vertreterName As String - Private anmelderNLNRField As String + Private _vertreterNationalitaet As String - Private vorsteuerabzugKzField As String + Private _vertreterStrasseHausNr As String - Private anmelderNameField As String + Private _vertreterPLZS As String - Private anmelderNationalitaetField As String + Private _vertreterOrtS As String - Private anmelderStrasseHausNrField As String + Private _vertreterOrtsteil As String - Private anmelderPLZSField As String + Private _fRechnungEORI As String - Private anmelderOrtSField As String + Private _fRechnungNLNR As String - Private anmelderOrtsteilField As String + Private _fRechnungNationalitaet As String - Private vertreterEORIField As String + Private _fRechnungName As String - Private vertreterNLNRField As String + Private _fRechnungStrasseHausNr As String - Private vertreterNameField As String + Private _fRechnungPLZS As String - Private vertreterNationalitaetField As String + Private _fRechnungOrtS As String - Private vertreterStrasseHausNrField As String + Private _fRechnungOrtsteil As String - Private vertreterPLZSField As String + Private _empfaengerEORI As String - Private vertreterOrtSField As String + Private _empfaengerNLNR As String - Private vertreterOrtsteilField As String + Private _empfaengerNationalitaet As String - Private fRechnungEORIField As String + Private _empfaengerName As String - Private fRechnungNLNRField As String + Private _empfaengerStrasseHausNr As String - Private fRechnungNationalitaetField As String + Private _empfaengerPLZS As String - Private fRechnungNameField As String + Private _empfaengerOrtS As String - Private fRechnungStrasseHausNrField As String + Private _empfaengerOrtsteil As String - Private fRechnungPLZSField As String + Private _zahlungsEmpfaengerEORI As String - Private fRechnungOrtSField As String + Private _zahlungsEmpfaengerNLNR As String - Private fRechnungOrtsteilField As String + Private _zahlungsEmpfaengerKreditinstitut As String - Private empfaengerEORIField As String + Private _zahlungsEmpfaengerName As String - Private empfaengerNLNRField As String + Private _zahlungsEmpfaengerNationalitaet As String - Private empfaengerNationalitaetField As String + Private _zahlungsEmpfaengerStrasseHausNr As String - Private empfaengerNameField As String + Private _zahlungsEmpfaengerPLZS As String - Private empfaengerStrasseHausNrField As String + Private _zahlungsEmpfaengerOrtS As String - Private empfaengerPLZSField As String + Private _zahlungsEmpfaengerOrtsteil As String - Private empfaengerOrtSField As String + Private _zahlungsEmpfaengerIBAN As String - Private empfaengerOrtsteilField As String + Private _zahlungsEmpfaengerBIC As String - Private zahlungsEmpfaengerEORIField As String + Private _erstellungsDatumBefund As Date - Private zahlungsEmpfaengerNLNRField As String + Private _erfassungsdatum As Date - Private zahlungsEmpfaengerKreditinstitutField As String + Private _barzahlungFaelligkeit As Date - Private zahlungsEmpfaengerNameField As String + Private _sicherheitsleistungFaelligkeit As Date - Private zahlungsEmpfaengerNationalitaetField As String + Private _abrechnungszeitraumBeginn As Date - Private zahlungsEmpfaengerStrasseHausNrField As String + Private _abrechnungszeitraumEnde As Date - Private zahlungsEmpfaengerPLZSField As String + Private _zollbefund As String - Private zahlungsEmpfaengerOrtSField As String + Private _eZAAVAngabenKopf As EZAAVAngabenKopfTyp - Private zahlungsEmpfaengerOrtsteilField As String + Private _lieferbedingungCode As String - Private zahlungsEmpfaengerIBANField As String + Private _lieferbedingungText As String - Private zahlungsEmpfaengerBICField As String + Private _lieferbedingungOrt As String - Private erstellungsDatumBefundField As Date + Private _lieferbedingungSchluessel As String - 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 + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.eZAAVAngabenKopfField = New EZAAVAngabenKopfTyp() - Me.unbareSicherheitenField = New List(Of SicherheitTAXTyp)() - Me.abgabenNachArtField = New List(Of AbgabenNachArtKopfTAXTyp)() + Me._eZAAVAngabenKopf = New EZAAVAngabenKopfTyp() + Me._unbareSicherheiten = New List(Of SicherheitTAXTyp)() + Me._abgabenNachArt = New List(Of AbgabenNachArtKopfTAXTyp)() End Sub - Public Property ArtAnmeldung() As String + + Public Overridable Property ArtAnmeldung() As String Get - Return Me.artAnmeldungField + Return Me._artAnmeldung End Get Set - Me.artAnmeldungField = Value + Me._artAnmeldung = Value End Set End Property - Public Property ErledigungKopfKz() As String + + Public Overridable Property ErledigungKopfKz() As String Get - Return Me.erledigungKopfKzField + Return Me._erledigungKopfKz End Get Set - Me.erledigungKopfKzField = Value + Me._erledigungKopfKz = Value End Set End Property - Public Property Waehrung() As String + + Public Overridable Property Waehrung() As String Get - Return Me.waehrungField + Return Me._waehrung End Get Set - Me.waehrungField = Value + Me._waehrung = Value End Set End Property - Public Property GesamtabgabenBetrag() As Decimal + + Public Overridable Property GesamtabgabenBetrag() As Decimal Get - Return Me.gesamtabgabenBetragField + Return Me._gesamtabgabenBetrag End Get Set - Me.gesamtabgabenBetragField = Value + Me._gesamtabgabenBetrag = Value End Set End Property - - Public Property GesamtabgabenBetragSpecified() As Boolean + + Public Overridable Property AbgabenbetragZuZahlen() As Decimal Get - Return Me.gesamtabgabenBetragFieldSpecified + Return Me._abgabenbetragZuZahlen End Get Set - Me.gesamtabgabenBetragFieldSpecified = Value + Me._abgabenbetragZuZahlen = Value End Set End Property - Public Property AbgabenbetragZuZahlen() As Decimal + + Public Overridable Property AbgabenbetragZuErstatten() As Decimal Get - Return Me.abgabenbetragZuZahlenField + Return Me._abgabenbetragZuErstatten End Get Set - Me.abgabenbetragZuZahlenField = Value + Me._abgabenbetragZuErstatten = Value End Set End Property - - Public Property AbgabenbetragZuZahlenSpecified() As Boolean + + Public Overridable Property Vertretungsverhaeltnis() As String Get - Return Me.abgabenbetragZuZahlenFieldSpecified + Return Me._vertretungsverhaeltnis End Get Set - Me.abgabenbetragZuZahlenFieldSpecified = Value + Me._vertretungsverhaeltnis = Value End Set End Property - Public Property AbgabenbetragZuErstatten() As Decimal + + Public Overridable Property ZahlungsaufforderungArtAufschub() As String Get - Return Me.abgabenbetragZuErstattenField + Return Me._zahlungsaufforderungArtAufschub End Get Set - Me.abgabenbetragZuErstattenField = Value + Me._zahlungsaufforderungArtAufschub = Value End Set End Property - - Public Property AbgabenbetragZuErstattenSpecified() As Boolean + + Public Overridable Property ZahlungsaufforderungArtAbgaben() As String Get - Return Me.abgabenbetragZuErstattenFieldSpecified + Return Me._zahlungsaufforderungArtAbgaben End Get Set - Me.abgabenbetragZuErstattenFieldSpecified = Value + Me._zahlungsaufforderungArtAbgaben = Value End Set End Property - Public Property Vertretungsverhaeltnis() As String + + Public Overridable Property ZahlungsaufforderungArtSicherheit() As String Get - Return Me.vertretungsverhaeltnisField + Return Me._zahlungsaufforderungArtSicherheit End Get Set - Me.vertretungsverhaeltnisField = Value + Me._zahlungsaufforderungArtSicherheit = Value End Set End Property - Public Property ZahlungsaufforderungArtAufschub() As String + + Public Overridable Property KleinbetragKz() As String Get - Return Me.zahlungsaufforderungArtAufschubField + Return Me._kleinbetragKz End Get Set - Me.zahlungsaufforderungArtAufschubField = Value + Me._kleinbetragKz = Value End Set End Property - Public Property ZahlungsaufforderungArtAbgaben() As String + + Public Overridable Property KleinbetragRechtsbehelf() As String Get - Return Me.zahlungsaufforderungArtAbgabenField + Return Me._kleinbetragRechtsbehelf End Get Set - Me.zahlungsaufforderungArtAbgabenField = Value + Me._kleinbetragRechtsbehelf = Value End Set End Property - Public Property ZahlungsaufforderungArtSicherheit() As String + + Public Overridable Property GesamtschuldnerschaftKz() As String Get - Return Me.zahlungsaufforderungArtSicherheitField + Return Me._gesamtschuldnerschaftKz End Get Set - Me.zahlungsaufforderungArtSicherheitField = Value + Me._gesamtschuldnerschaftKz = Value End Set End Property - Public Property KleinbetragKz() As String + + Public Overridable Property EingangszollstelleGeaendertKz() As String Get - Return Me.kleinbetragKzField + Return Me._eingangszollstelleGeaendertKz End Get Set - Me.kleinbetragKzField = Value + Me._eingangszollstelleGeaendertKz = Value End Set End Property - Public Property KleinbetragRechtsbehelf() As String + + Public Overridable Property AVbewilligtKz() As String Get - Return Me.kleinbetragRechtsbehelfField + Return Me._aVbewilligtKz End Get Set - Me.kleinbetragRechtsbehelfField = Value + Me._aVbewilligtKz = Value End Set End Property - Public Property GesamtschuldnerschaftKz() As String + + Public Overridable Property BenutzererstelltKz() As String Get - Return Me.gesamtschuldnerschaftKzField + Return Me._benutzererstelltKz End Get Set - Me.gesamtschuldnerschaftKzField = Value + Me._benutzererstelltKz = Value End Set End Property - Public Property EingangszollstelleGeaendertKz() As String + + Public Overridable Property EUStKz() As String Get - Return Me.eingangszollstelleGeaendertKzField + Return Me._eUStKz End Get Set - Me.eingangszollstelleGeaendertKzField = Value + Me._eUStKz = Value End Set End Property - Public Property AVbewilligtKz() As String + + Public Overridable Property Registriernummer() As String Get - Return Me.aVbewilligtKzField + Return Me._registriernummer End Get Set - Me.aVbewilligtKzField = Value + Me._registriernummer = Value End Set End Property - Public Property BenutzererstelltKz() As String + + Public Overridable Property Registrierdatum() As Date Get - Return Me.benutzererstelltKzField + Return Me._registrierdatum End Get Set - Me.benutzererstelltKzField = Value + Me._registrierdatum = Value End Set End Property - Public Property EUStKz() As String + + Public Overridable Property NizzaRegistrierKz() As String Get - Return Me.eUStKzField + Return Me._nizzaRegistrierKz End Get Set - Me.eUStKzField = Value + Me._nizzaRegistrierKz = Value End Set End Property - Public Property Registriernummer() As String + + Public Overridable Property NizzaRegistrierKzSicherheit() As String Get - Return Me.registriernummerField + Return Me._nizzaRegistrierKzSicherheit End Get Set - Me.registriernummerField = Value + Me._nizzaRegistrierKzSicherheit = Value End Set End Property - Public Property Registrierdatum() As Date + + Public Overridable Property AbgabenNachArt() As List(Of AbgabenNachArtKopfTAXTyp) Get - Return Me.registrierdatumField + Return Me._abgabenNachArt End Get Set - Me.registrierdatumField = Value + Me._abgabenNachArt = Value End Set End Property - - Public Property RegistrierdatumSpecified() As Boolean + + Public Overridable Property Gesamtsicherheitssumme() As Decimal Get - Return Me.registrierdatumFieldSpecified + Return Me._gesamtsicherheitssumme End Get Set - Me.registrierdatumFieldSpecified = Value + Me._gesamtsicherheitssumme = Value End Set End Property - Public Property NizzaRegistrierKz() As String + + Public Overridable Property ErrechneteSicherheitsSumme() As Decimal Get - Return Me.nizzaRegistrierKzField + Return Me._errechneteSicherheitsSumme End Get Set - Me.nizzaRegistrierKzField = Value + Me._errechneteSicherheitsSumme = Value End Set End Property - Public Property NizzaRegistrierKzSicherheit() As String + + Public Overridable Property UnbarSicherheitsbetraege() As Decimal Get - Return Me.nizzaRegistrierKzSicherheitField + Return Me._unbarSicherheitsbetraege End Get Set - Me.nizzaRegistrierKzSicherheitField = Value + Me._unbarSicherheitsbetraege = Value End Set End Property - Public Property AbgabenNachArt() As List(Of AbgabenNachArtKopfTAXTyp) + + Public Overridable Property BarSicherheitsbetraege() As Decimal Get - Return Me.abgabenNachArtField + Return Me._barSicherheitsbetraege End Get Set - Me.abgabenNachArtField = Value + Me._barSicherheitsbetraege = Value End Set End Property - Public Property Gesamtsicherheitssumme() As Decimal + + Public Overridable Property FreizugebenSicherheit() As Decimal Get - Return Me.gesamtsicherheitssummeField + Return Me._freizugebenSicherheit End Get Set - Me.gesamtsicherheitssummeField = Value + Me._freizugebenSicherheit = Value End Set End Property - - Public Property GesamtsicherheitssummeSpecified() As Boolean + + Public Overridable Property AuszuzahlenSicherheit() As Decimal Get - Return Me.gesamtsicherheitssummeFieldSpecified + Return Me._auszuzahlenSicherheit End Get Set - Me.gesamtsicherheitssummeFieldSpecified = Value + Me._auszuzahlenSicherheit = Value End Set End Property - Public Property ErrechneteSicherheitsSumme() As Decimal + + Public Overridable Property EinbehaltenSicherheit() As Decimal Get - Return Me.errechneteSicherheitsSummeField + Return Me._einbehaltenSicherheit End Get Set - Me.errechneteSicherheitsSummeField = Value + Me._einbehaltenSicherheit = Value End Set End Property - - Public Property ErrechneteSicherheitsSummeSpecified() As Boolean + + Public Overridable Property SicherheitsleistungForm() As String Get - Return Me.errechneteSicherheitsSummeFieldSpecified + Return Me._sicherheitsleistungForm End Get Set - Me.errechneteSicherheitsSummeFieldSpecified = Value + Me._sicherheitsleistungForm = Value End Set End Property - Public Property UnbarSicherheitsbetraege() As Decimal + + Public Overridable Property SicherheitsleistungsVerzicht() As String Get - Return Me.unbarSicherheitsbetraegeField + Return Me._sicherheitsleistungsVerzicht End Get Set - Me.unbarSicherheitsbetraegeField = Value + Me._sicherheitsleistungsVerzicht = Value End Set End Property - - Public Property UnbarSicherheitsbetraegeSpecified() As Boolean + + Public Overridable Property AuszahlungsArt() As String Get - Return Me.unbarSicherheitsbetraegeFieldSpecified + Return Me._auszahlungsArt End Get Set - Me.unbarSicherheitsbetraegeFieldSpecified = Value + Me._auszahlungsArt = Value End Set End Property - Public Property BarSicherheitsbetraege() As Decimal + + Public Overridable Property UnbareSicherheiten() As List(Of SicherheitTAXTyp) Get - Return Me.barSicherheitsbetraegeField + Return Me._unbareSicherheiten End Get Set - Me.barSicherheitsbetraegeField = Value + Me._unbareSicherheiten = Value End Set End Property - - Public Property BarSicherheitsbetraegeSpecified() As Boolean + + Public Overridable Property BescheidendeDienststelleNr() As String Get - Return Me.barSicherheitsbetraegeFieldSpecified + Return Me._bescheidendeDienststelleNr End Get Set - Me.barSicherheitsbetraegeFieldSpecified = Value + Me._bescheidendeDienststelleNr = Value End Set End Property - Public Property FreizugebenSicherheit() As Decimal + + Public Overridable Property BescheidendeDienststelleName() As String Get - Return Me.freizugebenSicherheitField + Return Me._bescheidendeDienststelleName End Get Set - Me.freizugebenSicherheitField = Value + Me._bescheidendeDienststelleName = Value End Set End Property - - Public Property FreizugebenSicherheitSpecified() As Boolean + + Public Overridable Property BescheidendeDienststelleStrasseHausNr() As String Get - Return Me.freizugebenSicherheitFieldSpecified + Return Me._bescheidendeDienststelleStrasseHausNr End Get Set - Me.freizugebenSicherheitFieldSpecified = Value + Me._bescheidendeDienststelleStrasseHausNr = Value End Set End Property - Public Property AuszuzahlenSicherheit() As Decimal + + Public Overridable Property BescheidendeDienststelleOrtS() As String Get - Return Me.auszuzahlenSicherheitField + Return Me._bescheidendeDienststelleOrtS End Get Set - Me.auszuzahlenSicherheitField = Value + Me._bescheidendeDienststelleOrtS = Value End Set End Property - - Public Property AuszuzahlenSicherheitSpecified() As Boolean + + Public Overridable Property BescheidendeDienststellePLZS() As String Get - Return Me.auszuzahlenSicherheitFieldSpecified + Return Me._bescheidendeDienststellePLZS End Get Set - Me.auszuzahlenSicherheitFieldSpecified = Value + Me._bescheidendeDienststellePLZS = Value End Set End Property - Public Property EinbehaltenSicherheit() As Decimal + + Public Overridable Property Bearbeiter() As String Get - Return Me.einbehaltenSicherheitField + Return Me._bearbeiter End Get Set - Me.einbehaltenSicherheitField = Value + Me._bearbeiter = Value End Set End Property - - Public Property EinbehaltenSicherheitSpecified() As Boolean + + Public Overridable Property BescheidendeDienststelleTelefonNr() As String Get - Return Me.einbehaltenSicherheitFieldSpecified + Return Me._bescheidendeDienststelleTelefonNr End Get Set - Me.einbehaltenSicherheitFieldSpecified = Value + Me._bescheidendeDienststelleTelefonNr = Value End Set End Property - Public Property SicherheitsleistungForm() As String + + Public Overridable Property RechtsbehelfHauptzollamt() As String Get - Return Me.sicherheitsleistungFormField + Return Me._rechtsbehelfHauptzollamt End Get Set - Me.sicherheitsleistungFormField = Value + Me._rechtsbehelfHauptzollamt = Value End Set End Property - Public Property SicherheitsleistungsVerzicht() As String + + Public Overridable Property RechtsbehelfHZAEmailAdresse() As String Get - Return Me.sicherheitsleistungsVerzichtField + Return Me._rechtsbehelfHZAEmailAdresse End Get Set - Me.sicherheitsleistungsVerzichtField = Value + Me._rechtsbehelfHZAEmailAdresse = Value End Set End Property - Public Property AuszahlungsArt() As String + + Public Overridable Property RechtsbehelfHZADEmailAdresse() As String Get - Return Me.auszahlungsArtField + Return Me._rechtsbehelfHZADEmailAdresse End Get Set - Me.auszahlungsArtField = Value + Me._rechtsbehelfHZADEmailAdresse = Value End Set End Property - Public Property UnbareSicherheiten() As List(Of SicherheitTAXTyp) + + Public Overridable Property RechtsbehelfHauptzollamtStrHausNr() As String Get - Return Me.unbareSicherheitenField + Return Me._rechtsbehelfHauptzollamtStrHausNr End Get Set - Me.unbareSicherheitenField = Value + Me._rechtsbehelfHauptzollamtStrHausNr = Value End Set End Property - Public Property BescheidendeDienststelleNr() As String + + Public Overridable Property RechtsbehelfHauptzollamtPLZS() As String Get - Return Me.bescheidendeDienststelleNrField + Return Me._rechtsbehelfHauptzollamtPLZS End Get Set - Me.bescheidendeDienststelleNrField = Value + Me._rechtsbehelfHauptzollamtPLZS = Value End Set End Property - Public Property BescheidendeDienststelleName() As String + + Public Overridable Property RechtsbehelfHauptzollamtOrtS() As String Get - Return Me.bescheidendeDienststelleNameField + Return Me._rechtsbehelfHauptzollamtOrtS End Get Set - Me.bescheidendeDienststelleNameField = Value + Me._rechtsbehelfHauptzollamtOrtS = Value End Set End Property - Public Property BescheidendeDienststelleStrasseHausNr() As String + + Public Overridable Property RechtsbehelfHauptzollamtOrtsteil() As String Get - Return Me.bescheidendeDienststelleStrasseHausNrField + Return Me._rechtsbehelfHauptzollamtOrtsteil End Get Set - Me.bescheidendeDienststelleStrasseHausNrField = Value + Me._rechtsbehelfHauptzollamtOrtsteil = Value End Set End Property - Public Property BescheidendeDienststelleOrtS() As String + + Public Overridable Property RechtsbehelfHauptzollamtPostfach() As String Get - Return Me.bescheidendeDienststelleOrtSField + Return Me._rechtsbehelfHauptzollamtPostfach End Get Set - Me.bescheidendeDienststelleOrtSField = Value + Me._rechtsbehelfHauptzollamtPostfach = Value End Set End Property - Public Property BescheidendeDienststellePLZS() As String + + Public Overridable Property RechtsbehelfHauptzollamtPLZP() As String Get - Return Me.bescheidendeDienststellePLZSField + Return Me._rechtsbehelfHauptzollamtPLZP End Get Set - Me.bescheidendeDienststellePLZSField = Value + Me._rechtsbehelfHauptzollamtPLZP = Value End Set End Property - Public Property Bearbeiter() As String + + Public Overridable Property RechtsbehelfHauptzollamtOrtP() As String Get - Return Me.bearbeiterField + Return Me._rechtsbehelfHauptzollamtOrtP End Get Set - Me.bearbeiterField = Value + Me._rechtsbehelfHauptzollamtOrtP = Value End Set End Property - Public Property BescheidendeDienststelleTelefonNr() As String + + Public Overridable Property Zollzahlstelle() As String Get - Return Me.bescheidendeDienststelleTelefonNrField + Return Me._zollzahlstelle End Get Set - Me.bescheidendeDienststelleTelefonNrField = Value + Me._zollzahlstelle = Value End Set End Property - Public Property RechtsbehelfHauptzollamt() As String + + Public Overridable Property ZollzahlstelleKreditinstitut() As String Get - Return Me.rechtsbehelfHauptzollamtField + Return Me._zollzahlstelleKreditinstitut End Get Set - Me.rechtsbehelfHauptzollamtField = Value + Me._zollzahlstelleKreditinstitut = Value End Set End Property - Public Property RechtsbehelfHZAEmailAdresse() As String + + Public Overridable Property ZollzahlstelleStrasseHausNr() As String Get - Return Me.rechtsbehelfHZAEmailAdresseField + Return Me._zollzahlstelleStrasseHausNr End Get Set - Me.rechtsbehelfHZAEmailAdresseField = Value + Me._zollzahlstelleStrasseHausNr = Value End Set End Property - Public Property RechtsbehelfHZADEmailAdresse() As String + + Public Overridable Property ZollzahlstellePLZS() As String Get - Return Me.rechtsbehelfHZADEmailAdresseField + Return Me._zollzahlstellePLZS End Get Set - Me.rechtsbehelfHZADEmailAdresseField = Value + Me._zollzahlstellePLZS = Value End Set End Property - Public Property RechtsbehelfHauptzollamtStrHausNr() As String + + Public Overridable Property ZollzahlstelleOrtS() As String Get - Return Me.rechtsbehelfHauptzollamtStrHausNrField + Return Me._zollzahlstelleOrtS End Get Set - Me.rechtsbehelfHauptzollamtStrHausNrField = Value + Me._zollzahlstelleOrtS = Value End Set End Property - Public Property RechtsbehelfHauptzollamtPLZS() As String + + Public Overridable Property ZollzahlstellePostfach() As String Get - Return Me.rechtsbehelfHauptzollamtPLZSField + Return Me._zollzahlstellePostfach End Get Set - Me.rechtsbehelfHauptzollamtPLZSField = Value + Me._zollzahlstellePostfach = Value End Set End Property - Public Property RechtsbehelfHauptzollamtOrtS() As String + + Public Overridable Property ZollzahlstellePLZP() As String Get - Return Me.rechtsbehelfHauptzollamtOrtSField + Return Me._zollzahlstellePLZP End Get Set - Me.rechtsbehelfHauptzollamtOrtSField = Value + Me._zollzahlstellePLZP = Value End Set End Property - Public Property RechtsbehelfHauptzollamtOrtsteil() As String + + Public Overridable Property ZollzahlstelleOrtP() As String Get - Return Me.rechtsbehelfHauptzollamtOrtsteilField + Return Me._zollzahlstelleOrtP End Get Set - Me.rechtsbehelfHauptzollamtOrtsteilField = Value + Me._zollzahlstelleOrtP = Value End Set End Property - Public Property RechtsbehelfHauptzollamtPostfach() As String + + Public Overridable Property ZollzahlstelleIBAN() As String Get - Return Me.rechtsbehelfHauptzollamtPostfachField + Return Me._zollzahlstelleIBAN End Get Set - Me.rechtsbehelfHauptzollamtPostfachField = Value + Me._zollzahlstelleIBAN = Value End Set End Property - Public Property RechtsbehelfHauptzollamtPLZP() As String + + Public Overridable Property ZollzahlstelleBIC() As String Get - Return Me.rechtsbehelfHauptzollamtPLZPField + Return Me._zollzahlstelleBIC End Get Set - Me.rechtsbehelfHauptzollamtPLZPField = Value + Me._zollzahlstelleBIC = Value End Set End Property - Public Property RechtsbehelfHauptzollamtOrtP() As String + + Public Overridable Property AnmelderEORI() As String Get - Return Me.rechtsbehelfHauptzollamtOrtPField + Return Me._anmelderEORI End Get Set - Me.rechtsbehelfHauptzollamtOrtPField = Value + Me._anmelderEORI = Value End Set End Property - Public Property Zollzahlstelle() As String + + Public Overridable Property AnmelderNLNR() As String Get - Return Me.zollzahlstelleField + Return Me._anmelderNLNR End Get Set - Me.zollzahlstelleField = Value + Me._anmelderNLNR = Value End Set End Property - Public Property ZollzahlstelleKreditinstitut() As String + + Public Overridable Property VorsteuerabzugKz() As String Get - Return Me.zollzahlstelleKreditinstitutField + Return Me._vorsteuerabzugKz End Get Set - Me.zollzahlstelleKreditinstitutField = Value + Me._vorsteuerabzugKz = Value End Set End Property - Public Property ZollzahlstelleStrasseHausNr() As String + + Public Overridable Property AnmelderName() As String Get - Return Me.zollzahlstelleStrasseHausNrField + Return Me._anmelderName End Get Set - Me.zollzahlstelleStrasseHausNrField = Value + Me._anmelderName = Value End Set End Property - Public Property ZollzahlstellePLZS() As String + + Public Overridable Property AnmelderNationalitaet() As String Get - Return Me.zollzahlstellePLZSField + Return Me._anmelderNationalitaet End Get Set - Me.zollzahlstellePLZSField = Value + Me._anmelderNationalitaet = Value End Set End Property - Public Property ZollzahlstelleOrtS() As String + + Public Overridable Property AnmelderStrasseHausNr() As String Get - Return Me.zollzahlstelleOrtSField + Return Me._anmelderStrasseHausNr End Get Set - Me.zollzahlstelleOrtSField = Value + Me._anmelderStrasseHausNr = Value End Set End Property - Public Property ZollzahlstellePostfach() As String + + Public Overridable Property AnmelderPLZS() As String Get - Return Me.zollzahlstellePostfachField + Return Me._anmelderPLZS End Get Set - Me.zollzahlstellePostfachField = Value + Me._anmelderPLZS = Value End Set End Property - Public Property ZollzahlstellePLZP() As String + + Public Overridable Property AnmelderOrtS() As String Get - Return Me.zollzahlstellePLZPField + Return Me._anmelderOrtS End Get Set - Me.zollzahlstellePLZPField = Value + Me._anmelderOrtS = Value End Set End Property - Public Property ZollzahlstelleOrtP() As String + + Public Overridable Property AnmelderOrtsteil() As String Get - Return Me.zollzahlstelleOrtPField + Return Me._anmelderOrtsteil End Get Set - Me.zollzahlstelleOrtPField = Value + Me._anmelderOrtsteil = Value End Set End Property - Public Property ZollzahlstelleIBAN() As String + + Public Overridable Property VertreterEORI() As String Get - Return Me.zollzahlstelleIBANField + Return Me._vertreterEORI End Get Set - Me.zollzahlstelleIBANField = Value + Me._vertreterEORI = Value End Set End Property - Public Property ZollzahlstelleBIC() As String + + Public Overridable Property VertreterNLNR() As String Get - Return Me.zollzahlstelleBICField + Return Me._vertreterNLNR End Get Set - Me.zollzahlstelleBICField = Value + Me._vertreterNLNR = Value End Set End Property - Public Property AnmelderEORI() As String + + Public Overridable Property VertreterName() As String Get - Return Me.anmelderEORIField + Return Me._vertreterName End Get Set - Me.anmelderEORIField = Value + Me._vertreterName = Value End Set End Property - Public Property AnmelderNLNR() As String + + Public Overridable Property VertreterNationalitaet() As String Get - Return Me.anmelderNLNRField + Return Me._vertreterNationalitaet End Get Set - Me.anmelderNLNRField = Value + Me._vertreterNationalitaet = Value End Set End Property - Public Property VorsteuerabzugKz() As String + + Public Overridable Property VertreterStrasseHausNr() As String Get - Return Me.vorsteuerabzugKzField + Return Me._vertreterStrasseHausNr End Get Set - Me.vorsteuerabzugKzField = Value + Me._vertreterStrasseHausNr = Value End Set End Property - Public Property AnmelderName() As String + + Public Overridable Property VertreterPLZS() As String Get - Return Me.anmelderNameField + Return Me._vertreterPLZS End Get Set - Me.anmelderNameField = Value + Me._vertreterPLZS = Value End Set End Property - Public Property AnmelderNationalitaet() As String + + Public Overridable Property VertreterOrtS() As String Get - Return Me.anmelderNationalitaetField + Return Me._vertreterOrtS End Get Set - Me.anmelderNationalitaetField = Value + Me._vertreterOrtS = Value End Set End Property - Public Property AnmelderStrasseHausNr() As String + + Public Overridable Property VertreterOrtsteil() As String Get - Return Me.anmelderStrasseHausNrField + Return Me._vertreterOrtsteil End Get Set - Me.anmelderStrasseHausNrField = Value + Me._vertreterOrtsteil = Value End Set End Property - Public Property AnmelderPLZS() As String + + Public Overridable Property FRechnungEORI() As String Get - Return Me.anmelderPLZSField + Return Me._fRechnungEORI End Get Set - Me.anmelderPLZSField = Value + Me._fRechnungEORI = Value End Set End Property - Public Property AnmelderOrtS() As String + + Public Overridable Property FRechnungNLNR() As String Get - Return Me.anmelderOrtSField + Return Me._fRechnungNLNR End Get Set - Me.anmelderOrtSField = Value + Me._fRechnungNLNR = Value End Set End Property - Public Property AnmelderOrtsteil() As String + + Public Overridable Property FRechnungNationalitaet() As String Get - Return Me.anmelderOrtsteilField + Return Me._fRechnungNationalitaet End Get Set - Me.anmelderOrtsteilField = Value + Me._fRechnungNationalitaet = Value End Set End Property - Public Property VertreterEORI() As String + + Public Overridable Property FRechnungName() As String Get - Return Me.vertreterEORIField + Return Me._fRechnungName End Get Set - Me.vertreterEORIField = Value + Me._fRechnungName = Value End Set End Property - Public Property VertreterNLNR() As String + + Public Overridable Property FRechnungStrasseHausNr() As String Get - Return Me.vertreterNLNRField + Return Me._fRechnungStrasseHausNr End Get Set - Me.vertreterNLNRField = Value + Me._fRechnungStrasseHausNr = Value End Set End Property - Public Property VertreterName() As String + + Public Overridable Property FRechnungPLZS() As String Get - Return Me.vertreterNameField + Return Me._fRechnungPLZS End Get Set - Me.vertreterNameField = Value + Me._fRechnungPLZS = Value End Set End Property - Public Property VertreterNationalitaet() As String + + Public Overridable Property FRechnungOrtS() As String Get - Return Me.vertreterNationalitaetField + Return Me._fRechnungOrtS End Get Set - Me.vertreterNationalitaetField = Value + Me._fRechnungOrtS = Value End Set End Property - Public Property VertreterStrasseHausNr() As String + + Public Overridable Property FRechnungOrtsteil() As String Get - Return Me.vertreterStrasseHausNrField + Return Me._fRechnungOrtsteil End Get Set - Me.vertreterStrasseHausNrField = Value + Me._fRechnungOrtsteil = Value End Set End Property - Public Property VertreterPLZS() As String + + Public Overridable Property EmpfaengerEORI() As String Get - Return Me.vertreterPLZSField + Return Me._empfaengerEORI End Get Set - Me.vertreterPLZSField = Value + Me._empfaengerEORI = Value End Set End Property - Public Property VertreterOrtS() As String + + Public Overridable Property EmpfaengerNLNR() As String Get - Return Me.vertreterOrtSField + Return Me._empfaengerNLNR End Get Set - Me.vertreterOrtSField = Value + Me._empfaengerNLNR = Value End Set End Property - Public Property VertreterOrtsteil() As String + + Public Overridable Property EmpfaengerNationalitaet() As String Get - Return Me.vertreterOrtsteilField + Return Me._empfaengerNationalitaet End Get Set - Me.vertreterOrtsteilField = Value + Me._empfaengerNationalitaet = Value End Set End Property - Public Property FRechnungEORI() As String + + Public Overridable Property EmpfaengerName() As String Get - Return Me.fRechnungEORIField + Return Me._empfaengerName End Get Set - Me.fRechnungEORIField = Value + Me._empfaengerName = Value End Set End Property - Public Property FRechnungNLNR() As String + + Public Overridable Property EmpfaengerStrasseHausNr() As String Get - Return Me.fRechnungNLNRField + Return Me._empfaengerStrasseHausNr End Get Set - Me.fRechnungNLNRField = Value + Me._empfaengerStrasseHausNr = Value End Set End Property - Public Property FRechnungNationalitaet() As String + + Public Overridable Property EmpfaengerPLZS() As String Get - Return Me.fRechnungNationalitaetField + Return Me._empfaengerPLZS End Get Set - Me.fRechnungNationalitaetField = Value + Me._empfaengerPLZS = Value End Set End Property - Public Property FRechnungName() As String + + Public Overridable Property EmpfaengerOrtS() As String Get - Return Me.fRechnungNameField + Return Me._empfaengerOrtS End Get Set - Me.fRechnungNameField = Value + Me._empfaengerOrtS = Value End Set End Property - Public Property FRechnungStrasseHausNr() As String + + Public Overridable Property EmpfaengerOrtsteil() As String Get - Return Me.fRechnungStrasseHausNrField + Return Me._empfaengerOrtsteil End Get Set - Me.fRechnungStrasseHausNrField = Value + Me._empfaengerOrtsteil = Value End Set End Property - Public Property FRechnungPLZS() As String + + Public Overridable Property ZahlungsEmpfaengerEORI() As String Get - Return Me.fRechnungPLZSField + Return Me._zahlungsEmpfaengerEORI End Get Set - Me.fRechnungPLZSField = Value + Me._zahlungsEmpfaengerEORI = Value End Set End Property - Public Property FRechnungOrtS() As String + + Public Overridable Property ZahlungsEmpfaengerNLNR() As String Get - Return Me.fRechnungOrtSField + Return Me._zahlungsEmpfaengerNLNR End Get Set - Me.fRechnungOrtSField = Value + Me._zahlungsEmpfaengerNLNR = Value End Set End Property - Public Property FRechnungOrtsteil() As String + + Public Overridable Property ZahlungsEmpfaengerKreditinstitut() As String Get - Return Me.fRechnungOrtsteilField + Return Me._zahlungsEmpfaengerKreditinstitut End Get Set - Me.fRechnungOrtsteilField = Value + Me._zahlungsEmpfaengerKreditinstitut = Value End Set End Property - Public Property EmpfaengerEORI() As String + + Public Overridable Property ZahlungsEmpfaengerName() As String Get - Return Me.empfaengerEORIField + Return Me._zahlungsEmpfaengerName End Get Set - Me.empfaengerEORIField = Value + Me._zahlungsEmpfaengerName = Value End Set End Property - Public Property EmpfaengerNLNR() As String + + Public Overridable Property ZahlungsEmpfaengerNationalitaet() As String Get - Return Me.empfaengerNLNRField + Return Me._zahlungsEmpfaengerNationalitaet End Get Set - Me.empfaengerNLNRField = Value + Me._zahlungsEmpfaengerNationalitaet = Value End Set End Property - Public Property EmpfaengerNationalitaet() As String + + Public Overridable Property ZahlungsEmpfaengerStrasseHausNr() As String Get - Return Me.empfaengerNationalitaetField + Return Me._zahlungsEmpfaengerStrasseHausNr End Get Set - Me.empfaengerNationalitaetField = Value + Me._zahlungsEmpfaengerStrasseHausNr = Value End Set End Property - Public Property EmpfaengerName() As String + + Public Overridable Property ZahlungsEmpfaengerPLZS() As String Get - Return Me.empfaengerNameField + Return Me._zahlungsEmpfaengerPLZS End Get Set - Me.empfaengerNameField = Value + Me._zahlungsEmpfaengerPLZS = Value End Set End Property - Public Property EmpfaengerStrasseHausNr() As String + + Public Overridable Property ZahlungsEmpfaengerOrtS() As String Get - Return Me.empfaengerStrasseHausNrField + Return Me._zahlungsEmpfaengerOrtS End Get Set - Me.empfaengerStrasseHausNrField = Value + Me._zahlungsEmpfaengerOrtS = Value End Set End Property - Public Property EmpfaengerPLZS() As String + + Public Overridable Property ZahlungsEmpfaengerOrtsteil() As String Get - Return Me.empfaengerPLZSField + Return Me._zahlungsEmpfaengerOrtsteil End Get Set - Me.empfaengerPLZSField = Value + Me._zahlungsEmpfaengerOrtsteil = Value End Set End Property - Public Property EmpfaengerOrtS() As String + + Public Overridable Property ZahlungsEmpfaengerIBAN() As String Get - Return Me.empfaengerOrtSField + Return Me._zahlungsEmpfaengerIBAN End Get Set - Me.empfaengerOrtSField = Value + Me._zahlungsEmpfaengerIBAN = Value End Set End Property - Public Property EmpfaengerOrtsteil() As String + + Public Overridable Property ZahlungsEmpfaengerBIC() As String Get - Return Me.empfaengerOrtsteilField + Return Me._zahlungsEmpfaengerBIC End Get Set - Me.empfaengerOrtsteilField = Value + Me._zahlungsEmpfaengerBIC = Value End Set End Property - Public Property ZahlungsEmpfaengerEORI() As String + + Public Overridable Property ErstellungsDatumBefund() As Date Get - Return Me.zahlungsEmpfaengerEORIField + Return Me._erstellungsDatumBefund End Get Set - Me.zahlungsEmpfaengerEORIField = Value + Me._erstellungsDatumBefund = Value End Set End Property - Public Property ZahlungsEmpfaengerNLNR() As String + + Public Overridable Property Erfassungsdatum() As Date Get - Return Me.zahlungsEmpfaengerNLNRField + Return Me._erfassungsdatum End Get Set - Me.zahlungsEmpfaengerNLNRField = Value + Me._erfassungsdatum = Value End Set End Property - Public Property ZahlungsEmpfaengerKreditinstitut() As String + + Public Overridable Property BarzahlungFaelligkeit() As Date Get - Return Me.zahlungsEmpfaengerKreditinstitutField + Return Me._barzahlungFaelligkeit End Get Set - Me.zahlungsEmpfaengerKreditinstitutField = Value + Me._barzahlungFaelligkeit = Value End Set End Property - Public Property ZahlungsEmpfaengerName() As String + + Public Overridable Property SicherheitsleistungFaelligkeit() As Date Get - Return Me.zahlungsEmpfaengerNameField + Return Me._sicherheitsleistungFaelligkeit End Get Set - Me.zahlungsEmpfaengerNameField = Value + Me._sicherheitsleistungFaelligkeit = Value End Set End Property - Public Property ZahlungsEmpfaengerNationalitaet() As String + + Public Overridable Property AbrechnungszeitraumBeginn() As Date Get - Return Me.zahlungsEmpfaengerNationalitaetField + Return Me._abrechnungszeitraumBeginn End Get Set - Me.zahlungsEmpfaengerNationalitaetField = Value + Me._abrechnungszeitraumBeginn = Value End Set End Property - Public Property ZahlungsEmpfaengerStrasseHausNr() As String + + Public Overridable Property AbrechnungszeitraumEnde() As Date Get - Return Me.zahlungsEmpfaengerStrasseHausNrField + Return Me._abrechnungszeitraumEnde End Get Set - Me.zahlungsEmpfaengerStrasseHausNrField = Value + Me._abrechnungszeitraumEnde = Value End Set End Property - Public Property ZahlungsEmpfaengerPLZS() As String + + Public Overridable Property Zollbefund() As String Get - Return Me.zahlungsEmpfaengerPLZSField + Return Me._zollbefund End Get Set - Me.zahlungsEmpfaengerPLZSField = Value + Me._zollbefund = Value End Set End Property - Public Property ZahlungsEmpfaengerOrtS() As String + + Public Overridable Property EZAAVAngabenKopf() As EZAAVAngabenKopfTyp Get - Return Me.zahlungsEmpfaengerOrtSField + Return Me._eZAAVAngabenKopf End Get Set - Me.zahlungsEmpfaengerOrtSField = Value + Me._eZAAVAngabenKopf = Value End Set End Property - Public Property ZahlungsEmpfaengerOrtsteil() As String + + Public Overridable Property LieferbedingungCode() As String Get - Return Me.zahlungsEmpfaengerOrtsteilField + Return Me._lieferbedingungCode End Get Set - Me.zahlungsEmpfaengerOrtsteilField = Value + Me._lieferbedingungCode = Value End Set End Property - Public Property ZahlungsEmpfaengerIBAN() As String + + Public Overridable Property LieferbedingungText() As String Get - Return Me.zahlungsEmpfaengerIBANField + Return Me._lieferbedingungText End Get Set - Me.zahlungsEmpfaengerIBANField = Value + Me._lieferbedingungText = Value End Set End Property - Public Property ZahlungsEmpfaengerBIC() As String + + Public Overridable Property LieferbedingungOrt() As String Get - Return Me.zahlungsEmpfaengerBICField + Return Me._lieferbedingungOrt End Get Set - Me.zahlungsEmpfaengerBICField = Value + Me._lieferbedingungOrt = Value End Set End Property - Public Property ErstellungsDatumBefund() As Date + + Public Overridable Property LieferbedingungSchluessel() As String Get - Return Me.erstellungsDatumBefundField + Return Me._lieferbedingungSchluessel End Get Set - Me.erstellungsDatumBefundField = Value + Me._lieferbedingungSchluessel = Value End Set End Property - - Public Property ErstellungsDatumBefundSpecified() As Boolean + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEinfuhrbescheidTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current KopfDatenEinfuhrbescheidTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize KopfDatenEinfuhrbescheidTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -6352,18 +6689,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes KopfDatenEinfuhrbescheidTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenEinfuhrbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -6371,16 +6712,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenEinfuhrbescheidTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrbescheidTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As KopfDatenEinfuhrbescheidTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenEinfuhrbescheidTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -6388,16 +6729,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenEinfuhrbescheidTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenEinfuhrbescheidTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -6405,13 +6751,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -6420,18 +6773,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an KopfDatenEinfuhrbescheidTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenEinfuhrbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -6439,21 +6792,29 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -6463,112 +6824,127 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class + Partial Public Class TransaktionFreierVerkehrTyp - Private iOPartnerField As String +#Region "Private fields" + Private _iOPartner As String - Private iODivision1Field As String + Private _iODivision1 As String - Private iODivision2Field As String + Private _iODivision2 As String - Private iODivision3Field As String + Private _iODivision3 As String - Private iOReferenzField As String + Private _iOReferenz As String - Private iODatumZeitField As Date + Private _iODatumZeit As Date - Private versionField As String + Private _version As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region - Public Property IOPartner() As String + + Public Overridable Property IOPartner() As String Get - Return Me.iOPartnerField + Return Me._iOPartner End Get Set - Me.iOPartnerField = Value + Me._iOPartner = Value End Set End Property - Public Property IODivision1() As String + + Public Overridable Property IODivision1() As String Get - Return Me.iODivision1Field + Return Me._iODivision1 End Get Set - Me.iODivision1Field = Value + Me._iODivision1 = Value End Set End Property - Public Property IODivision2() As String + + Public Overridable Property IODivision2() As String Get - Return Me.iODivision2Field + Return Me._iODivision2 End Get Set - Me.iODivision2Field = Value + Me._iODivision2 = Value End Set End Property - Public Property IODivision3() As String + + Public Overridable Property IODivision3() As String Get - Return Me.iODivision3Field + Return Me._iODivision3 End Get Set - Me.iODivision3Field = Value + Me._iODivision3 = Value End Set End Property - Public Property IOReferenz() As String + + Public Overridable Property IOReferenz() As String Get - Return Me.iOReferenzField + Return Me._iOReferenz End Get Set - Me.iOReferenzField = Value + Me._iOReferenz = Value End Set End Property - Public Property IODatumZeit() As Date + + Public Overridable Property IODatumZeit() As Date Get - Return Me.iODatumZeitField + Return Me._iODatumZeit End Get Set - Me.iODatumZeitField = Value + Me._iODatumZeit = Value End Set End Property - Public Property Version() As String + + Public Overridable Property Version() As String Get - Return Me.versionField + Return Me._version End Get Set - Me.versionField = Value + Me._version = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TransaktionFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current TransaktionFreierVerkehrTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -6580,18 +6956,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -6599,16 +6979,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As TransaktionFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -6616,16 +6996,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -6633,13 +7018,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -6648,18 +7040,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, 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) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -6667,21 +7059,29 @@ Namespace Abgabenbescheid_010 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, System.Text.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, System.Text.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) - Dim xmlString As String = sr.ReadToEnd + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -6691,52 +7091,61 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class - + Partial Public Class DatenaustauschFreierVerkehrTyp - Private transaktionField As TransaktionFreierVerkehrTyp +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.transaktionField = New TransaktionFreierVerkehrTyp() + Me._transaktion = New TransaktionFreierVerkehrTyp() End Sub - Public Property Transaktion() As TransaktionFreierVerkehrTyp + + Public Overridable Property Transaktion() As TransaktionFreierVerkehrTyp Get - Return Me.transaktionField + Return Me._transaktion End Get Set - Me.transaktionField = Value + Me._transaktion = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -6748,18 +7157,22 @@ Namespace Abgabenbescheid_010 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -6767,16 +7180,16 @@ Namespace Abgabenbescheid_010 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As DatenaustauschFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -6784,16 +7197,21 @@ Namespace Abgabenbescheid_010 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -6801,13 +7219,20 @@ Namespace Abgabenbescheid_010 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -6816,18 +7241,18 @@ Namespace Abgabenbescheid_010 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 + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, 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) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -6835,21 +7260,29 @@ Namespace Abgabenbescheid_010 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, System.Text.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, System.Text.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) - Dim xmlString As String = sr.ReadToEnd + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -6859,6 +7292,6 @@ Namespace Abgabenbescheid_010 End If End Try End Function -#End Region End Class End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_005.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_005.designer.vb index 91130ca..cd21752 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_005.designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_005.designer.vb @@ -1,64 +1,78 @@ '' ------------------------------------------------------------------------------ '' -'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) -'' AbschliessendeFestsetzung_005ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net20","NameSpace":"AbschliessendeFestsetzung_005","Language":"VisualBasic","CollectionBase":"","Properties":{"PrivateFieldCustomPrefix":""},"XmlAttribute":{"Enabled":true,"GenerateOrderXmlAttributes":true},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"IndentChars":"Indent1Space"},"JsonOutput":{},"Enabled":true,"EnableEncoding":true},"Miscellaneous":{"CleanupCode":false}} '' '' ------------------------------------------------------------------------------ +#Disable Warning Imports System Imports System.Diagnostics Imports System.Xml.Serialization +Imports System.Runtime.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel +Imports System.Xml Imports System.IO Imports System.Text Imports System.Collections.Generic Namespace AbschliessendeFestsetzung_005 + Partial Public Class AbschliessendeFestsetzungTAXATyp Inherits DatenaustauschFreierVerkehrTyp - Private einzelAbschliessendeFestsetzungField As EinzelAbschliessendeFestsetzungTyp +#Region "Private fields" + Private _einzelAbschliessendeFestsetzung As EinzelAbschliessendeFestsetzungTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.einzelAbschliessendeFestsetzungField = New EinzelAbschliessendeFestsetzungTyp() + Me._einzelAbschliessendeFestsetzung = New EinzelAbschliessendeFestsetzungTyp() End Sub + Public Property EinzelAbschliessendeFestsetzung() As EinzelAbschliessendeFestsetzungTyp Get - Return Me.einzelAbschliessendeFestsetzungField + Return Me._einzelAbschliessendeFestsetzung End Get Set - Me.einzelAbschliessendeFestsetzungField = Value + Me._einzelAbschliessendeFestsetzung = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbschliessendeFestsetzungTAXATyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbschliessendeFestsetzungTAXATyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AbschliessendeFestsetzungTAXATyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize AbschliessendeFestsetzungTAXATyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -70,18 +84,22 @@ Namespace AbschliessendeFestsetzung_005 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes AbschliessendeFestsetzungTAXATyp object + ''' + ''' string to deserialize + ''' Output AbschliessendeFestsetzungTAXATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbschliessendeFestsetzungTAXATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbschliessendeFestsetzungTAXATyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -89,16 +107,16 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbschliessendeFestsetzungTAXATyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbschliessendeFestsetzungTAXATyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AbschliessendeFestsetzungTAXATyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbschliessendeFestsetzungTAXATyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -106,16 +124,21 @@ Namespace AbschliessendeFestsetzung_005 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbschliessendeFestsetzungTAXATyp + Return CType(SerializerXml.Deserialize(s), AbschliessendeFestsetzungTAXATyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -123,13 +146,20 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -138,18 +168,18 @@ Namespace AbschliessendeFestsetzung_005 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 + ''' + ''' Deserializes xml markup from file into an AbschliessendeFestsetzungTAXATyp object + ''' + ''' File to load and deserialize + ''' Output AbschliessendeFestsetzungTAXATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AbschliessendeFestsetzungTAXATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbschliessendeFestsetzungTAXATyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -157,21 +187,29 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbschliessendeFestsetzungTAXATyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -181,75 +219,86 @@ Namespace AbschliessendeFestsetzung_005 End If End Try End Function -#End Region End Class + Partial Public Class EinzelAbschliessendeFestsetzungTyp - Private objektIdentifizierungField As ObjektIdentifizierungTAXATyp +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungTAXATyp - Private kopfDatenField As KopfDatenAbschliessendeFestsetzungTyp + Private _kopfDaten As KopfDatenAbschliessendeFestsetzungTyp - Private positionField As List(Of PositionAbschliessendeFestsetzungTyp) + Private _position As List(Of PositionAbschliessendeFestsetzungTyp) - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.positionField = New List(Of PositionAbschliessendeFestsetzungTyp)() - Me.kopfDatenField = New KopfDatenAbschliessendeFestsetzungTyp() - Me.objektIdentifizierungField = New ObjektIdentifizierungTAXATyp() + Me._position = New List(Of PositionAbschliessendeFestsetzungTyp)() + Me._kopfDaten = New KopfDatenAbschliessendeFestsetzungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungTAXATyp() End Sub + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXATyp Get - Return Me.objektIdentifizierungField + Return Me._objektIdentifizierung End Get Set - Me.objektIdentifizierungField = Value + Me._objektIdentifizierung = Value End Set End Property + Public Property KopfDaten() As KopfDatenAbschliessendeFestsetzungTyp Get - Return Me.kopfDatenField + Return Me._kopfDaten End Get Set - Me.kopfDatenField = Value + Me._kopfDaten = Value End Set End Property + Public Property Position() As List(Of PositionAbschliessendeFestsetzungTyp) Get - Return Me.positionField + Return Me._position End Get Set - Me.positionField = Value + Me._position = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelAbschliessendeFestsetzungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbschliessendeFestsetzungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current EinzelAbschliessendeFestsetzungTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize EinzelAbschliessendeFestsetzungTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -261,18 +310,22 @@ Namespace AbschliessendeFestsetzung_005 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes EinzelAbschliessendeFestsetzungTyp object + ''' + ''' string to deserialize + ''' Output EinzelAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelAbschliessendeFestsetzungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -280,16 +333,16 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelAbschliessendeFestsetzungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelAbschliessendeFestsetzungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -297,16 +350,21 @@ Namespace AbschliessendeFestsetzung_005 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelAbschliessendeFestsetzungTyp + Return CType(SerializerXml.Deserialize(s), EinzelAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -314,13 +372,20 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -329,18 +394,18 @@ Namespace AbschliessendeFestsetzung_005 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 + ''' + ''' Deserializes xml markup from file into an EinzelAbschliessendeFestsetzungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EinzelAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelAbschliessendeFestsetzungTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -348,21 +413,29 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -372,90 +445,103 @@ Namespace AbschliessendeFestsetzung_005 End If End Try End Function -#End Region End Class + Partial Public Class ObjektIdentifizierungTAXATyp - Private objektNameField As String +#Region "Private fields" + Private _objektName As String - Private objektAliasField As String + Private _objektAlias As String - Private eDIFACTNachrichtenNrField As String + Private _eDIFACTNachrichtenNr As String - Private zeitpunktEingangField As Date + Private _zeitpunktEingang As Date - Private shipmentReferenzField As String + Private _shipmentReferenz As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property ObjektName() As String Get - Return Me.objektNameField + Return Me._objektName End Get Set - Me.objektNameField = Value + Me._objektName = Value End Set End Property + Public Property ObjektAlias() As String Get - Return Me.objektAliasField + Return Me._objektAlias End Get Set - Me.objektAliasField = Value + Me._objektAlias = Value End Set End Property + Public Property EDIFACTNachrichtenNr() As String Get - Return Me.eDIFACTNachrichtenNrField + Return Me._eDIFACTNachrichtenNr End Get Set - Me.eDIFACTNachrichtenNrField = Value + Me._eDIFACTNachrichtenNr = Value End Set End Property + Public Property ZeitpunktEingang() As Date Get - Return Me.zeitpunktEingangField + Return Me._zeitpunktEingang End Get Set - Me.zeitpunktEingangField = Value + Me._zeitpunktEingang = Value End Set End Property + Public Property ShipmentReferenz() As String Get - Return Me.shipmentReferenzField + Return Me._shipmentReferenz End Get Set - Me.shipmentReferenzField = Value + Me._shipmentReferenz = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungTAXATyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTAXATyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current ObjektIdentifizierungTAXATyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize ObjektIdentifizierungTAXATyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -467,18 +553,22 @@ Namespace AbschliessendeFestsetzung_005 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes ObjektIdentifizierungTAXATyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungTAXATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungTAXATyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -486,16 +576,16 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungTAXATyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXATyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As ObjektIdentifizierungTAXATyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXATyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -503,16 +593,21 @@ Namespace AbschliessendeFestsetzung_005 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungTAXATyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungTAXATyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -520,13 +615,20 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -535,18 +637,18 @@ Namespace AbschliessendeFestsetzung_005 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 + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungTAXATyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungTAXATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As ObjektIdentifizierungTAXATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungTAXATyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -554,21 +656,29 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXATyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -578,57 +688,67 @@ Namespace AbschliessendeFestsetzung_005 End If End Try End Function -#End Region End Class + Partial Public Class PositionAbschliessendeFestsetzungTyp - Private positionsnummerField As String +#Region "Private fields" + Private _positionsnummer As String - Private freigabeSicherheitenKzField As String + Private _freigabeSicherheitenKz As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property Positionsnummer() As String Get - Return Me.positionsnummerField + Return Me._positionsnummer End Get Set - Me.positionsnummerField = Value + Me._positionsnummer = Value End Set End Property + Public Property FreigabeSicherheitenKz() As String Get - Return Me.freigabeSicherheitenKzField + Return Me._freigabeSicherheitenKz End Get Set - Me.freigabeSicherheitenKzField = Value + Me._freigabeSicherheitenKz = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PositionAbschliessendeFestsetzungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionAbschliessendeFestsetzungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current PositionAbschliessendeFestsetzungTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize PositionAbschliessendeFestsetzungTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -640,18 +760,22 @@ Namespace AbschliessendeFestsetzung_005 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes PositionAbschliessendeFestsetzungTyp object + ''' + ''' string to deserialize + ''' Output PositionAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionAbschliessendeFestsetzungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -659,16 +783,16 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionAbschliessendeFestsetzungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbschliessendeFestsetzungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As PositionAbschliessendeFestsetzungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionAbschliessendeFestsetzungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -676,16 +800,21 @@ Namespace AbschliessendeFestsetzung_005 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionAbschliessendeFestsetzungTyp + Return CType(SerializerXml.Deserialize(s), PositionAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -693,13 +822,20 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -708,18 +844,18 @@ Namespace AbschliessendeFestsetzung_005 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 + ''' + ''' Deserializes xml markup from file into an PositionAbschliessendeFestsetzungTyp object + ''' + ''' File to load and deserialize + ''' Output PositionAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As PositionAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionAbschliessendeFestsetzungTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -727,21 +863,29 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -751,730 +895,775 @@ Namespace AbschliessendeFestsetzung_005 End If End Try End Function -#End Region End Class + Partial Public Class KopfDatenAbschliessendeFestsetzungTyp - Private waehrungKzField As String +#Region "Private fields" + Private _waehrungKz As String - Private rechtsbehelfKzField As String + Private _rechtsbehelfKz As String - Private gesamtschuldnerschaftKzField As String + Private _gesamtschuldnerschaftKz As String - Private umsatzsteuerIDNrField As String + Private _umsatzsteuerIDNr As String - Private registrierNrField As String + Private _registrierNr As String - Private nIZZARegistrierKzField As String + Private _nIZZARegistrierKz As String - Private freizugebeneSicherheitEURField As Decimal + Private _freizugebeneSicherheitEUR As Decimal - Private freizugebeneSicherheitEURFieldSpecified As Boolean + Private _auszahlungArt As String - Private auszahlungArtField As String + Private _freigegebeneSicherheitGesamt As Decimal - Private freigegebeneSicherheitGesamtField As Decimal + Private _freigabeSicherheitKz As String - Private freigegebeneSicherheitGesamtFieldSpecified As Boolean + Private _freigabeSicherheitArt As String - Private freigabeSicherheitKzField As String + Private _sonstigeMitteilung As String - Private freigabeSicherheitArtField As String + Private _bearbeiter As String - Private sonstigeMitteilungField As String + Private _rechtsbehelfHZABezeichung As String - Private bearbeiterField As String + Private _rechtsbehelfHZAEmailAdresse As String - Private rechtsbehelfHZABezeichungField As String + Private _rechtsbehelfHZADEmailAdresse As String - Private rechtsbehelfHZAEmailAdresseField As String + Private _rechtsbehelfHZAStrasseHausNr As String - Private rechtsbehelfHZADEmailAdresseField As String + Private _rechtsbehelfHZAPLZS As String - Private rechtsbehelfHZAStrasseHausNrField As String + Private _rechtsbehelfHZAOrtS As String - Private rechtsbehelfHZAPLZSField As String + Private _rechtsbehelfHZAOrtsteil As String - Private rechtsbehelfHZAOrtSField As String + Private _rechtsbehelfHZAPostfach As String - Private rechtsbehelfHZAOrtsteilField As String + Private _rechtsbehelfHZAPLZP As String - Private rechtsbehelfHZAPostfachField As String + Private _rechtsbehelfHZAOrtP As String - Private rechtsbehelfHZAPLZPField As String + Private _rechnungEORI As String - Private rechtsbehelfHZAOrtPField As String + Private _rechnungNLNR As String - Private rechnungEORIField As String + Private _rechnungNationalitaet As String - Private rechnungNLNRField As String + Private _rechnungNameFirmenbezeichnung As String - Private rechnungNationalitaetField As String + Private _rechnungStrasseHausNr As String - Private rechnungNameFirmenbezeichnungField As String + Private _rechnungPLZS As String - Private rechnungStrasseHausNrField As String + Private _rechnungOrtS As String - Private rechnungPLZSField As String + Private _rechnungOrtsteil As String - Private rechnungOrtSField As String + Private _zahlungsempfaengerFreigegebeneSicherheitenEORI As String - Private rechnungOrtsteilField As String + Private _zahlungsempfaengerFreigegebeneSicherheitenNLNR As String - Private zahlungsempfaengerFreigegebeneSicherheitenEORIField As String + Private _zahlungsempfaengerKreditinstitut As String - Private zahlungsempfaengerFreigegebeneSicherheitenNLNRField As String + Private _zahlungsempfaengerFreigegebeneSicherheitenName As String - Private zahlungsempfaengerKreditinstitutField As String + Private _zahlungsempfaengerNationalitaet As String - Private zahlungsempfaengerFreigegebeneSicherheitenNameField As String + Private _zahlungsempfaengerStrasseHausNr As String - Private zahlungsempfaengerNationalitaetField As String + Private _zahlungsempfaengerPLZS As String - Private zahlungsempfaengerStrasseHausNrField As String + Private _zahlungsempfaengerOrtS As String - Private zahlungsempfaengerPLZSField As String + Private _zahlungsempfaengerOrtsteil As String - Private zahlungsempfaengerOrtSField As String + Private _zahlungsempfaengerIBAN As String - Private zahlungsempfaengerOrtsteilField As String + Private _zahlungsempfaengerBIC As String - Private zahlungsempfaengerIBANField As String + Private _bescheideempfaengerEORI As String - Private zahlungsempfaengerBICField As String + Private _bescheideempfaengerNLNR As String - Private bescheideempfaengerEORIField As String + Private _bescheideempfaengerKreditinstitut As String - Private bescheideempfaengerNLNRField As String + Private _bescheideempfaengerName As String - Private bescheideempfaengerKreditinstitutField As String + Private _bescheideempfaengerNationalitaet As String - Private bescheideempfaengerNameField As String + Private _bescheideempfaengerStrasseHausNr As String - Private bescheideempfaengerNationalitaetField As String + Private _bescheideempfaengerPLZS As String - Private bescheideempfaengerStrasseHausNrField As String + Private _bescheideempfaengerOrtS As String - Private bescheideempfaengerPLZSField As String + Private _bescheideempfaengerOrtsteil As String - Private bescheideempfaengerOrtSField As String + Private _bescheideempfaengerIBAN As String - Private bescheideempfaengerOrtsteilField As String + Private _bescheideempfaengerBIC As String - Private bescheideempfaengerIBANField As String + Private _abgabenschuldnerEORI As String - Private bescheideempfaengerBICField As String + Private _abgabenschuldnerNLNR As String - Private abgabenschuldnerEORIField As String + Private _abgabenschuldnerName As String - Private abgabenschuldnerNLNRField As String + Private _abgabenschuldnerNationalitaet As String - Private abgabenschuldnerNameField As String + Private _abgabenschuldnerStrasseHausNr As String - Private abgabenschuldnerNationalitaetField As String + Private _abgabenschuldnerPLZS As String - Private abgabenschuldnerStrasseHausNrField As String + Private _abgabenschuldnerOrtS As String - Private abgabenschuldnerPLZSField As String + Private _abgabenschuldnerOrtsteil As String - Private abgabenschuldnerOrtSField As String - - Private abgabenschuldnerOrtsteilField As String - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property WaehrungKz() As String Get - Return Me.waehrungKzField + Return Me._waehrungKz End Get Set - Me.waehrungKzField = Value + Me._waehrungKz = Value End Set End Property + Public Property RechtsbehelfKz() As String Get - Return Me.rechtsbehelfKzField + Return Me._rechtsbehelfKz End Get Set - Me.rechtsbehelfKzField = Value + Me._rechtsbehelfKz = Value End Set End Property + Public Property GesamtschuldnerschaftKz() As String Get - Return Me.gesamtschuldnerschaftKzField + Return Me._gesamtschuldnerschaftKz End Get Set - Me.gesamtschuldnerschaftKzField = Value + Me._gesamtschuldnerschaftKz = Value End Set End Property + Public Property UmsatzsteuerIDNr() As String Get - Return Me.umsatzsteuerIDNrField + Return Me._umsatzsteuerIDNr End Get Set - Me.umsatzsteuerIDNrField = Value + Me._umsatzsteuerIDNr = Value End Set End Property + Public Property RegistrierNr() As String Get - Return Me.registrierNrField + Return Me._registrierNr End Get Set - Me.registrierNrField = Value + Me._registrierNr = Value End Set End Property + Public Property NIZZARegistrierKz() As String Get - Return Me.nIZZARegistrierKzField + Return Me._nIZZARegistrierKz End Get Set - Me.nIZZARegistrierKzField = Value + Me._nIZZARegistrierKz = Value End Set End Property + Public Property FreizugebeneSicherheitEUR() As Decimal Get - Return Me.freizugebeneSicherheitEURField + Return Me._freizugebeneSicherheitEUR 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 + Me._freizugebeneSicherheitEUR = Value End Set End Property + Public Property AuszahlungArt() As String Get - Return Me.auszahlungArtField + Return Me._auszahlungArt End Get Set - Me.auszahlungArtField = Value + Me._auszahlungArt = Value End Set End Property + Public Property FreigegebeneSicherheitGesamt() As Decimal Get - Return Me.freigegebeneSicherheitGesamtField + Return Me._freigegebeneSicherheitGesamt 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 + Me._freigegebeneSicherheitGesamt = Value End Set End Property + Public Property FreigabeSicherheitKz() As String Get - Return Me.freigabeSicherheitKzField + Return Me._freigabeSicherheitKz End Get Set - Me.freigabeSicherheitKzField = Value + Me._freigabeSicherheitKz = Value End Set End Property + Public Property FreigabeSicherheitArt() As String Get - Return Me.freigabeSicherheitArtField + Return Me._freigabeSicherheitArt End Get Set - Me.freigabeSicherheitArtField = Value + Me._freigabeSicherheitArt = Value End Set End Property + Public Property SonstigeMitteilung() As String Get - Return Me.sonstigeMitteilungField + Return Me._sonstigeMitteilung End Get Set - Me.sonstigeMitteilungField = Value + Me._sonstigeMitteilung = Value End Set End Property + Public Property Bearbeiter() As String Get - Return Me.bearbeiterField + Return Me._bearbeiter End Get Set - Me.bearbeiterField = Value + Me._bearbeiter = Value End Set End Property + Public Property RechtsbehelfHZABezeichung() As String Get - Return Me.rechtsbehelfHZABezeichungField + Return Me._rechtsbehelfHZABezeichung End Get Set - Me.rechtsbehelfHZABezeichungField = Value + Me._rechtsbehelfHZABezeichung = Value End Set End Property + Public Property RechtsbehelfHZAEmailAdresse() As String Get - Return Me.rechtsbehelfHZAEmailAdresseField + Return Me._rechtsbehelfHZAEmailAdresse End Get Set - Me.rechtsbehelfHZAEmailAdresseField = Value + Me._rechtsbehelfHZAEmailAdresse = Value End Set End Property + Public Property RechtsbehelfHZADEmailAdresse() As String Get - Return Me.rechtsbehelfHZADEmailAdresseField + Return Me._rechtsbehelfHZADEmailAdresse End Get Set - Me.rechtsbehelfHZADEmailAdresseField = Value + Me._rechtsbehelfHZADEmailAdresse = Value End Set End Property + Public Property RechtsbehelfHZAStrasseHausNr() As String Get - Return Me.rechtsbehelfHZAStrasseHausNrField + Return Me._rechtsbehelfHZAStrasseHausNr End Get Set - Me.rechtsbehelfHZAStrasseHausNrField = Value + Me._rechtsbehelfHZAStrasseHausNr = Value End Set End Property + Public Property RechtsbehelfHZAPLZS() As String Get - Return Me.rechtsbehelfHZAPLZSField + Return Me._rechtsbehelfHZAPLZS End Get Set - Me.rechtsbehelfHZAPLZSField = Value + Me._rechtsbehelfHZAPLZS = Value End Set End Property + Public Property RechtsbehelfHZAOrtS() As String Get - Return Me.rechtsbehelfHZAOrtSField + Return Me._rechtsbehelfHZAOrtS End Get Set - Me.rechtsbehelfHZAOrtSField = Value + Me._rechtsbehelfHZAOrtS = Value End Set End Property + Public Property RechtsbehelfHZAOrtsteil() As String Get - Return Me.rechtsbehelfHZAOrtsteilField + Return Me._rechtsbehelfHZAOrtsteil End Get Set - Me.rechtsbehelfHZAOrtsteilField = Value + Me._rechtsbehelfHZAOrtsteil = Value End Set End Property + Public Property RechtsbehelfHZAPostfach() As String Get - Return Me.rechtsbehelfHZAPostfachField + Return Me._rechtsbehelfHZAPostfach End Get Set - Me.rechtsbehelfHZAPostfachField = Value + Me._rechtsbehelfHZAPostfach = Value End Set End Property + Public Property RechtsbehelfHZAPLZP() As String Get - Return Me.rechtsbehelfHZAPLZPField + Return Me._rechtsbehelfHZAPLZP End Get Set - Me.rechtsbehelfHZAPLZPField = Value + Me._rechtsbehelfHZAPLZP = Value End Set End Property + Public Property RechtsbehelfHZAOrtP() As String Get - Return Me.rechtsbehelfHZAOrtPField + Return Me._rechtsbehelfHZAOrtP End Get Set - Me.rechtsbehelfHZAOrtPField = Value + Me._rechtsbehelfHZAOrtP = Value End Set End Property + Public Property RechnungEORI() As String Get - Return Me.rechnungEORIField + Return Me._rechnungEORI End Get Set - Me.rechnungEORIField = Value + Me._rechnungEORI = Value End Set End Property + Public Property RechnungNLNR() As String Get - Return Me.rechnungNLNRField + Return Me._rechnungNLNR End Get Set - Me.rechnungNLNRField = Value + Me._rechnungNLNR = Value End Set End Property + Public Property RechnungNationalitaet() As String Get - Return Me.rechnungNationalitaetField + Return Me._rechnungNationalitaet End Get Set - Me.rechnungNationalitaetField = Value + Me._rechnungNationalitaet = Value End Set End Property + Public Property RechnungNameFirmenbezeichnung() As String Get - Return Me.rechnungNameFirmenbezeichnungField + Return Me._rechnungNameFirmenbezeichnung End Get Set - Me.rechnungNameFirmenbezeichnungField = Value + Me._rechnungNameFirmenbezeichnung = Value End Set End Property + Public Property RechnungStrasseHausNr() As String Get - Return Me.rechnungStrasseHausNrField + Return Me._rechnungStrasseHausNr End Get Set - Me.rechnungStrasseHausNrField = Value + Me._rechnungStrasseHausNr = Value End Set End Property + Public Property RechnungPLZS() As String Get - Return Me.rechnungPLZSField + Return Me._rechnungPLZS End Get Set - Me.rechnungPLZSField = Value + Me._rechnungPLZS = Value End Set End Property + Public Property RechnungOrtS() As String Get - Return Me.rechnungOrtSField + Return Me._rechnungOrtS End Get Set - Me.rechnungOrtSField = Value + Me._rechnungOrtS = Value End Set End Property + Public Property RechnungOrtsteil() As String Get - Return Me.rechnungOrtsteilField + Return Me._rechnungOrtsteil End Get Set - Me.rechnungOrtsteilField = Value + Me._rechnungOrtsteil = Value End Set End Property + Public Property ZahlungsempfaengerFreigegebeneSicherheitenEORI() As String Get - Return Me.zahlungsempfaengerFreigegebeneSicherheitenEORIField + Return Me._zahlungsempfaengerFreigegebeneSicherheitenEORI End Get Set - Me.zahlungsempfaengerFreigegebeneSicherheitenEORIField = Value + Me._zahlungsempfaengerFreigegebeneSicherheitenEORI = Value End Set End Property + Public Property ZahlungsempfaengerFreigegebeneSicherheitenNLNR() As String Get - Return Me.zahlungsempfaengerFreigegebeneSicherheitenNLNRField + Return Me._zahlungsempfaengerFreigegebeneSicherheitenNLNR End Get Set - Me.zahlungsempfaengerFreigegebeneSicherheitenNLNRField = Value + Me._zahlungsempfaengerFreigegebeneSicherheitenNLNR = Value End Set End Property + Public Property ZahlungsempfaengerKreditinstitut() As String Get - Return Me.zahlungsempfaengerKreditinstitutField + Return Me._zahlungsempfaengerKreditinstitut End Get Set - Me.zahlungsempfaengerKreditinstitutField = Value + Me._zahlungsempfaengerKreditinstitut = Value End Set End Property + Public Property ZahlungsempfaengerFreigegebeneSicherheitenName() As String Get - Return Me.zahlungsempfaengerFreigegebeneSicherheitenNameField + Return Me._zahlungsempfaengerFreigegebeneSicherheitenName End Get Set - Me.zahlungsempfaengerFreigegebeneSicherheitenNameField = Value + Me._zahlungsempfaengerFreigegebeneSicherheitenName = Value End Set End Property + Public Property ZahlungsempfaengerNationalitaet() As String Get - Return Me.zahlungsempfaengerNationalitaetField + Return Me._zahlungsempfaengerNationalitaet End Get Set - Me.zahlungsempfaengerNationalitaetField = Value + Me._zahlungsempfaengerNationalitaet = Value End Set End Property + Public Property ZahlungsempfaengerStrasseHausNr() As String Get - Return Me.zahlungsempfaengerStrasseHausNrField + Return Me._zahlungsempfaengerStrasseHausNr End Get Set - Me.zahlungsempfaengerStrasseHausNrField = Value + Me._zahlungsempfaengerStrasseHausNr = Value End Set End Property + Public Property ZahlungsempfaengerPLZS() As String Get - Return Me.zahlungsempfaengerPLZSField + Return Me._zahlungsempfaengerPLZS End Get Set - Me.zahlungsempfaengerPLZSField = Value + Me._zahlungsempfaengerPLZS = Value End Set End Property + Public Property ZahlungsempfaengerOrtS() As String Get - Return Me.zahlungsempfaengerOrtSField + Return Me._zahlungsempfaengerOrtS End Get Set - Me.zahlungsempfaengerOrtSField = Value + Me._zahlungsempfaengerOrtS = Value End Set End Property + Public Property ZahlungsempfaengerOrtsteil() As String Get - Return Me.zahlungsempfaengerOrtsteilField + Return Me._zahlungsempfaengerOrtsteil End Get Set - Me.zahlungsempfaengerOrtsteilField = Value + Me._zahlungsempfaengerOrtsteil = Value End Set End Property + Public Property ZahlungsempfaengerIBAN() As String Get - Return Me.zahlungsempfaengerIBANField + Return Me._zahlungsempfaengerIBAN End Get Set - Me.zahlungsempfaengerIBANField = Value + Me._zahlungsempfaengerIBAN = Value End Set End Property + Public Property ZahlungsempfaengerBIC() As String Get - Return Me.zahlungsempfaengerBICField + Return Me._zahlungsempfaengerBIC End Get Set - Me.zahlungsempfaengerBICField = Value + Me._zahlungsempfaengerBIC = Value End Set End Property + Public Property BescheideempfaengerEORI() As String Get - Return Me.bescheideempfaengerEORIField + Return Me._bescheideempfaengerEORI End Get Set - Me.bescheideempfaengerEORIField = Value + Me._bescheideempfaengerEORI = Value End Set End Property + Public Property BescheideempfaengerNLNR() As String Get - Return Me.bescheideempfaengerNLNRField + Return Me._bescheideempfaengerNLNR End Get Set - Me.bescheideempfaengerNLNRField = Value + Me._bescheideempfaengerNLNR = Value End Set End Property + Public Property BescheideempfaengerKreditinstitut() As String Get - Return Me.bescheideempfaengerKreditinstitutField + Return Me._bescheideempfaengerKreditinstitut End Get Set - Me.bescheideempfaengerKreditinstitutField = Value + Me._bescheideempfaengerKreditinstitut = Value End Set End Property + Public Property BescheideempfaengerName() As String Get - Return Me.bescheideempfaengerNameField + Return Me._bescheideempfaengerName End Get Set - Me.bescheideempfaengerNameField = Value + Me._bescheideempfaengerName = Value End Set End Property + Public Property BescheideempfaengerNationalitaet() As String Get - Return Me.bescheideempfaengerNationalitaetField + Return Me._bescheideempfaengerNationalitaet End Get Set - Me.bescheideempfaengerNationalitaetField = Value + Me._bescheideempfaengerNationalitaet = Value End Set End Property + Public Property BescheideempfaengerStrasseHausNr() As String Get - Return Me.bescheideempfaengerStrasseHausNrField + Return Me._bescheideempfaengerStrasseHausNr End Get Set - Me.bescheideempfaengerStrasseHausNrField = Value + Me._bescheideempfaengerStrasseHausNr = Value End Set End Property + Public Property BescheideempfaengerPLZS() As String Get - Return Me.bescheideempfaengerPLZSField + Return Me._bescheideempfaengerPLZS End Get Set - Me.bescheideempfaengerPLZSField = Value + Me._bescheideempfaengerPLZS = Value End Set End Property + Public Property BescheideempfaengerOrtS() As String Get - Return Me.bescheideempfaengerOrtSField + Return Me._bescheideempfaengerOrtS End Get Set - Me.bescheideempfaengerOrtSField = Value + Me._bescheideempfaengerOrtS = Value End Set End Property + Public Property BescheideempfaengerOrtsteil() As String Get - Return Me.bescheideempfaengerOrtsteilField + Return Me._bescheideempfaengerOrtsteil End Get Set - Me.bescheideempfaengerOrtsteilField = Value + Me._bescheideempfaengerOrtsteil = Value End Set End Property + Public Property BescheideempfaengerIBAN() As String Get - Return Me.bescheideempfaengerIBANField + Return Me._bescheideempfaengerIBAN End Get Set - Me.bescheideempfaengerIBANField = Value + Me._bescheideempfaengerIBAN = Value End Set End Property + Public Property BescheideempfaengerBIC() As String Get - Return Me.bescheideempfaengerBICField + Return Me._bescheideempfaengerBIC End Get Set - Me.bescheideempfaengerBICField = Value + Me._bescheideempfaengerBIC = Value End Set End Property + Public Property AbgabenschuldnerEORI() As String Get - Return Me.abgabenschuldnerEORIField + Return Me._abgabenschuldnerEORI End Get Set - Me.abgabenschuldnerEORIField = Value + Me._abgabenschuldnerEORI = Value End Set End Property + Public Property AbgabenschuldnerNLNR() As String Get - Return Me.abgabenschuldnerNLNRField + Return Me._abgabenschuldnerNLNR End Get Set - Me.abgabenschuldnerNLNRField = Value + Me._abgabenschuldnerNLNR = Value End Set End Property + Public Property AbgabenschuldnerName() As String Get - Return Me.abgabenschuldnerNameField + Return Me._abgabenschuldnerName End Get Set - Me.abgabenschuldnerNameField = Value + Me._abgabenschuldnerName = Value End Set End Property + Public Property AbgabenschuldnerNationalitaet() As String Get - Return Me.abgabenschuldnerNationalitaetField + Return Me._abgabenschuldnerNationalitaet End Get Set - Me.abgabenschuldnerNationalitaetField = Value + Me._abgabenschuldnerNationalitaet = Value End Set End Property + Public Property AbgabenschuldnerStrasseHausNr() As String Get - Return Me.abgabenschuldnerStrasseHausNrField + Return Me._abgabenschuldnerStrasseHausNr End Get Set - Me.abgabenschuldnerStrasseHausNrField = Value + Me._abgabenschuldnerStrasseHausNr = Value End Set End Property + Public Property AbgabenschuldnerPLZS() As String Get - Return Me.abgabenschuldnerPLZSField + Return Me._abgabenschuldnerPLZS End Get Set - Me.abgabenschuldnerPLZSField = Value + Me._abgabenschuldnerPLZS = Value End Set End Property + Public Property AbgabenschuldnerOrtS() As String Get - Return Me.abgabenschuldnerOrtSField + Return Me._abgabenschuldnerOrtS End Get Set - Me.abgabenschuldnerOrtSField = Value + Me._abgabenschuldnerOrtS = Value End Set End Property + Public Property AbgabenschuldnerOrtsteil() As String Get - Return Me.abgabenschuldnerOrtsteilField + Return Me._abgabenschuldnerOrtsteil End Get Set - Me.abgabenschuldnerOrtsteilField = Value + Me._abgabenschuldnerOrtsteil = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KopfDatenAbschliessendeFestsetzungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenAbschliessendeFestsetzungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current KopfDatenAbschliessendeFestsetzungTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize KopfDatenAbschliessendeFestsetzungTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1486,18 +1675,22 @@ Namespace AbschliessendeFestsetzung_005 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes KopfDatenAbschliessendeFestsetzungTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenAbschliessendeFestsetzungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1505,16 +1698,16 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As KopfDatenAbschliessendeFestsetzungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenAbschliessendeFestsetzungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1522,16 +1715,21 @@ Namespace AbschliessendeFestsetzung_005 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenAbschliessendeFestsetzungTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1539,13 +1737,20 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1554,18 +1759,18 @@ Namespace AbschliessendeFestsetzung_005 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 + ''' + ''' Deserializes xml markup from file into an KopfDatenAbschliessendeFestsetzungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenAbschliessendeFestsetzungTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1573,21 +1778,29 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1597,112 +1810,127 @@ Namespace AbschliessendeFestsetzung_005 End If End Try End Function -#End Region End Class + Partial Public Class TransaktionFreierVerkehrTyp - Private iOPartnerField As String +#Region "Private fields" + Private _iOPartner As String - Private iODivision1Field As String + Private _iODivision1 As String - Private iODivision2Field As String + Private _iODivision2 As String - Private iODivision3Field As String + Private _iODivision3 As String - Private iOReferenzField As String + Private _iOReferenz As String - Private iODatumZeitField As Date + Private _iODatumZeit As Date - Private versionField As String + Private _version As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property IOPartner() As String Get - Return Me.iOPartnerField + Return Me._iOPartner End Get Set - Me.iOPartnerField = Value + Me._iOPartner = Value End Set End Property + Public Property IODivision1() As String Get - Return Me.iODivision1Field + Return Me._iODivision1 End Get Set - Me.iODivision1Field = Value + Me._iODivision1 = Value End Set End Property + Public Property IODivision2() As String Get - Return Me.iODivision2Field + Return Me._iODivision2 End Get Set - Me.iODivision2Field = Value + Me._iODivision2 = Value End Set End Property + Public Property IODivision3() As String Get - Return Me.iODivision3Field + Return Me._iODivision3 End Get Set - Me.iODivision3Field = Value + Me._iODivision3 = Value End Set End Property + Public Property IOReferenz() As String Get - Return Me.iOReferenzField + Return Me._iOReferenz End Get Set - Me.iOReferenzField = Value + Me._iOReferenz = Value End Set End Property + Public Property IODatumZeit() As Date Get - Return Me.iODatumZeitField + Return Me._iODatumZeit End Get Set - Me.iODatumZeitField = Value + Me._iODatumZeit = Value End Set End Property + Public Property Version() As String Get - Return Me.versionField + Return Me._version End Get Set - Me.versionField = Value + Me._version = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TransaktionFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current TransaktionFreierVerkehrTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1714,18 +1942,22 @@ Namespace AbschliessendeFestsetzung_005 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1733,16 +1965,16 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As TransaktionFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1750,16 +1982,21 @@ Namespace AbschliessendeFestsetzung_005 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1767,13 +2004,20 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1782,18 +2026,18 @@ Namespace AbschliessendeFestsetzung_005 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 + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, 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) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1801,21 +2045,29 @@ Namespace AbschliessendeFestsetzung_005 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, System.Text.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, System.Text.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) - Dim xmlString As String = sr.ReadToEnd + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1825,52 +2077,61 @@ Namespace AbschliessendeFestsetzung_005 End If End Try End Function -#End Region End Class - + Partial Public Class DatenaustauschFreierVerkehrTyp - Private transaktionField As TransaktionFreierVerkehrTyp +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.transaktionField = New TransaktionFreierVerkehrTyp() + Me._transaktion = New TransaktionFreierVerkehrTyp() End Sub + Public Property Transaktion() As TransaktionFreierVerkehrTyp Get - Return Me.transaktionField + Return Me._transaktion End Get Set - Me.transaktionField = Value + Me._transaktion = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1882,18 +2143,22 @@ Namespace AbschliessendeFestsetzung_005 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1901,16 +2166,16 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As DatenaustauschFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1918,16 +2183,21 @@ Namespace AbschliessendeFestsetzung_005 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1935,13 +2205,20 @@ Namespace AbschliessendeFestsetzung_005 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1950,18 +2227,18 @@ Namespace AbschliessendeFestsetzung_005 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 + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, 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) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1969,21 +2246,29 @@ Namespace AbschliessendeFestsetzung_005 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, System.Text.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, System.Text.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) - Dim xmlString As String = sr.ReadToEnd + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1993,6 +2278,6 @@ Namespace AbschliessendeFestsetzung_005 End If End Try End Function -#End Region End Class End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_008.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_008.designer.vb index 8fb03c1..e314da1 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_008.designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_008.designer.vb @@ -1,64 +1,78 @@ '' ------------------------------------------------------------------------------ '' -'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) -'' BefundVereinfachteZollanmeldung_008ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net20","NameSpace":"BefundVereinfachteZollanmeldung_008","Language":"VisualBasic","CollectionBase":"","Properties":{"PrivateFieldCustomPrefix":""},"XmlAttribute":{"Enabled":true,"GenerateOrderXmlAttributes":true},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"IndentChars":"Indent1Space"},"JsonOutput":{},"Enabled":true,"EnableEncoding":true},"Miscellaneous":{"CleanupCode":false}} '' '' ------------------------------------------------------------------------------ +#Disable Warning Imports System Imports System.Diagnostics Imports System.Xml.Serialization +Imports System.Runtime.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel +Imports System.Xml Imports System.IO Imports System.Text Imports System.Collections.Generic Namespace BefundVereinfachteZollanmeldung_008 + Partial Public Class BefundVereinfachteZollanmeldungVBTyp Inherits DatenaustauschFreierVerkehrTyp - Private einzelBefundVereinfachteZollanmeldungField As EinzelBefundVereinfachteZollanmeldungTyp +#Region "Private fields" + Private _einzelBefundVereinfachteZollanmeldung As EinzelBefundVereinfachteZollanmeldungTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.einzelBefundVereinfachteZollanmeldungField = New EinzelBefundVereinfachteZollanmeldungTyp() + Me._einzelBefundVereinfachteZollanmeldung = New EinzelBefundVereinfachteZollanmeldungTyp() End Sub + Public Property EinzelBefundVereinfachteZollanmeldung() As EinzelBefundVereinfachteZollanmeldungTyp Get - Return Me.einzelBefundVereinfachteZollanmeldungField + Return Me._einzelBefundVereinfachteZollanmeldung End Get Set - Me.einzelBefundVereinfachteZollanmeldungField = Value + Me._einzelBefundVereinfachteZollanmeldung = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(BefundVereinfachteZollanmeldungVBTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BefundVereinfachteZollanmeldungVBTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current BefundVereinfachteZollanmeldungVBTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize BefundVereinfachteZollanmeldungVBTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -70,18 +84,22 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes BefundVereinfachteZollanmeldungVBTyp object + ''' + ''' string to deserialize + ''' Output BefundVereinfachteZollanmeldungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BefundVereinfachteZollanmeldungVBTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -89,16 +107,16 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As BefundVereinfachteZollanmeldungVBTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BefundVereinfachteZollanmeldungVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -106,16 +124,21 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BefundVereinfachteZollanmeldungVBTyp + Return CType(SerializerXml.Deserialize(s), BefundVereinfachteZollanmeldungVBTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -123,13 +146,20 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -138,18 +168,18 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + ''' + ''' Deserializes xml markup from file into an BefundVereinfachteZollanmeldungVBTyp object + ''' + ''' File to load and deserialize + ''' Output BefundVereinfachteZollanmeldungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As BefundVereinfachteZollanmeldungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BefundVereinfachteZollanmeldungVBTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -157,21 +187,29 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -181,75 +219,86 @@ Namespace BefundVereinfachteZollanmeldung_008 End If End Try End Function -#End Region End Class + Partial Public Class EinzelBefundVereinfachteZollanmeldungTyp - Private objektIdentifizierungField As ObjektIdentifizierungVBTyp +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungVBTyp - Private kopfDatenField As KopfdatenBefundVereinfachteZollanmeldungTyp + Private _kopfDaten As KopfdatenBefundVereinfachteZollanmeldungTyp - Private positionField As List(Of PositionBefundVereinfachteZollanmeldungTyp) + Private _position As List(Of PositionBefundVereinfachteZollanmeldungTyp) - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.positionField = New List(Of PositionBefundVereinfachteZollanmeldungTyp)() - Me.kopfDatenField = New KopfdatenBefundVereinfachteZollanmeldungTyp() - Me.objektIdentifizierungField = New ObjektIdentifizierungVBTyp() + Me._position = New List(Of PositionBefundVereinfachteZollanmeldungTyp)() + Me._kopfDaten = New KopfdatenBefundVereinfachteZollanmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungVBTyp() End Sub + Public Property ObjektIdentifizierung() As ObjektIdentifizierungVBTyp Get - Return Me.objektIdentifizierungField + Return Me._objektIdentifizierung End Get Set - Me.objektIdentifizierungField = Value + Me._objektIdentifizierung = Value End Set End Property + Public Property KopfDaten() As KopfdatenBefundVereinfachteZollanmeldungTyp Get - Return Me.kopfDatenField + Return Me._kopfDaten End Get Set - Me.kopfDatenField = Value + Me._kopfDaten = Value End Set End Property + Public Property Position() As List(Of PositionBefundVereinfachteZollanmeldungTyp) Get - Return Me.positionField + Return Me._position End Get Set - Me.positionField = Value + Me._position = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelBefundVereinfachteZollanmeldungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelBefundVereinfachteZollanmeldungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current EinzelBefundVereinfachteZollanmeldungTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize EinzelBefundVereinfachteZollanmeldungTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -261,18 +310,22 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes EinzelBefundVereinfachteZollanmeldungTyp object + ''' + ''' string to deserialize + ''' Output EinzelBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelBefundVereinfachteZollanmeldungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -280,16 +333,16 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelBefundVereinfachteZollanmeldungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelBefundVereinfachteZollanmeldungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -297,16 +350,21 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelBefundVereinfachteZollanmeldungTyp + Return CType(SerializerXml.Deserialize(s), EinzelBefundVereinfachteZollanmeldungTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -314,13 +372,20 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -329,18 +394,18 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + ''' + ''' Deserializes xml markup from file into an EinzelBefundVereinfachteZollanmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelBefundVereinfachteZollanmeldungTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -348,21 +413,29 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -372,91 +445,91 @@ Namespace BefundVereinfachteZollanmeldung_008 End If End Try End Function -#End Region End Class + Partial Public Class ObjektIdentifizierungVBTyp - Private objektNameField As String +#Region "Private fields" + Private _objektName As String - Private eDIFACTNachrichtenNrField As String + Private _eDIFACTNachrichtenNr As String - Private zeitpunktEingangField As Date + Private _zeitpunktEingang As Date - Private zeitpunktEingangFieldSpecified As Boolean + Private _shipmentReferenz As String - Private shipmentReferenzField As String - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property ObjektName() As String Get - Return Me.objektNameField + Return Me._objektName End Get Set - Me.objektNameField = Value + Me._objektName = Value End Set End Property + Public Property EDIFACTNachrichtenNr() As String Get - Return Me.eDIFACTNachrichtenNrField + Return Me._eDIFACTNachrichtenNr End Get Set - Me.eDIFACTNachrichtenNrField = Value + Me._eDIFACTNachrichtenNr = Value End Set End Property + Public Property ZeitpunktEingang() As Date Get - Return Me.zeitpunktEingangField + Return Me._zeitpunktEingang 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 + Me._zeitpunktEingang = Value End Set End Property + Public Property ShipmentReferenz() As String Get - Return Me.shipmentReferenzField + Return Me._shipmentReferenz End Get Set - Me.shipmentReferenzField = Value + Me._shipmentReferenz = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungVBTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungVBTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current ObjektIdentifizierungVBTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize ObjektIdentifizierungVBTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -468,18 +541,22 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes ObjektIdentifizierungVBTyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungVBTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -487,16 +564,16 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungVBTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungVBTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As ObjektIdentifizierungVBTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -504,16 +581,21 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungVBTyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungVBTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -521,13 +603,20 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -536,18 +625,18 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungVBTyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As ObjektIdentifizierungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungVBTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -555,21 +644,29 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungVBTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -579,80 +676,79 @@ Namespace BefundVereinfachteZollanmeldung_008 End If End Try End Function -#End Region End Class + Partial Public Class SonderabgabenVBTyp - Private sonderfalleingabeSonderabgabengruppeField As String +#Region "Private fields" + Private _sonderfalleingabeSonderabgabengruppe As String - Private anwendungsartField As String + Private _anwendungsart As String - Private satzBetragFaktorField As Decimal + Private _satzBetragFaktor As Decimal - Private satzBetragFaktorFieldSpecified As Boolean - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property SonderfalleingabeSonderabgabengruppe() As String Get - Return Me.sonderfalleingabeSonderabgabengruppeField + Return Me._sonderfalleingabeSonderabgabengruppe End Get Set - Me.sonderfalleingabeSonderabgabengruppeField = Value + Me._sonderfalleingabeSonderabgabengruppe = Value End Set End Property + Public Property Anwendungsart() As String Get - Return Me.anwendungsartField + Return Me._anwendungsart End Get Set - Me.anwendungsartField = Value + Me._anwendungsart = Value End Set End Property + Public Property SatzBetragFaktor() As Decimal Get - Return Me.satzBetragFaktorField + Return Me._satzBetragFaktor End Get Set - Me.satzBetragFaktorField = Value + Me._satzBetragFaktor = Value End Set End Property - - Public Property SatzBetragFaktorSpecified() As Boolean + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SonderabgabenVBTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current SonderabgabenVBTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize SonderabgabenVBTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -664,18 +760,22 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes SonderabgabenVBTyp object + ''' + ''' string to deserialize + ''' Output SonderabgabenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderabgabenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SonderabgabenVBTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -683,16 +783,16 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SonderabgabenVBTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderabgabenVBTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As SonderabgabenVBTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SonderabgabenVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -700,16 +800,21 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SonderabgabenVBTyp + Return CType(SerializerXml.Deserialize(s), SonderabgabenVBTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -717,13 +822,20 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -732,18 +844,18 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + ''' + ''' Deserializes xml markup from file into an SonderabgabenVBTyp object + ''' + ''' File to load and deserialize + ''' Output SonderabgabenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As SonderabgabenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SonderabgabenVBTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -751,21 +863,29 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderabgabenVBTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -775,69 +895,67 @@ Namespace BefundVereinfachteZollanmeldung_008 End If End Try End Function -#End Region End Class + Partial Public Class MinderungVBTyp - Private minderndeAbgabengruppeField As String +#Region "Private fields" + Private _minderndeAbgabengruppe As String - Private minderungsbetragField As Decimal + Private _minderungsbetrag As Decimal - Private minderungsbetragFieldSpecified As Boolean - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property MinderndeAbgabengruppe() As String Get - Return Me.minderndeAbgabengruppeField + Return Me._minderndeAbgabengruppe End Get Set - Me.minderndeAbgabengruppeField = Value + Me._minderndeAbgabengruppe = Value End Set End Property + Public Property Minderungsbetrag() As Decimal Get - Return Me.minderungsbetragField + Return Me._minderungsbetrag End Get Set - Me.minderungsbetragField = Value + Me._minderungsbetrag = Value End Set End Property - - Public Property MinderungsbetragSpecified() As Boolean + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(MinderungVBTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current MinderungVBTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize MinderungVBTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -849,18 +967,22 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes MinderungVBTyp object + ''' + ''' string to deserialize + ''' Output MinderungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MinderungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, MinderungVBTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -868,16 +990,16 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As MinderungVBTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MinderungVBTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As MinderungVBTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), MinderungVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -885,16 +1007,21 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MinderungVBTyp + Return CType(SerializerXml.Deserialize(s), MinderungVBTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -902,13 +1029,20 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -917,18 +1051,18 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + ''' + ''' Deserializes xml markup from file into an MinderungVBTyp object + ''' + ''' File to load and deserialize + ''' Output MinderungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As MinderungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, MinderungVBTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -936,21 +1070,29 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MinderungVBTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -960,137 +1102,115 @@ Namespace BefundVereinfachteZollanmeldung_008 End If End Try End Function -#End Region End Class + Partial Public Class VerbrauchsteuerVBTyp - Private verbrauchsteuerCodeField As String +#Region "Private fields" + Private _verbrauchsteuerCode As String - Private verbrauchssteuerMengeField As Decimal + Private _verbrauchssteuerMenge As Decimal - Private verbrauchssteuerMengeFieldSpecified As Boolean + Private _verbrauchssteuerMasseinheitCode As String - Private verbrauchssteuerMasseinheitCodeField As String + Private _verbrauchssteuerMasseinheitQualifier As String - Private verbrauchssteuerMasseinheitQualifierField As String + Private _gradProzent As Decimal - Private gradProzentField As Decimal + Private _verbrauchssteuerWertBasis As Decimal - Private gradProzentFieldSpecified As Boolean - - Private verbrauchssteuerWertBasisField As Decimal - - Private verbrauchssteuerWertBasisFieldSpecified As Boolean - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property VerbrauchsteuerCode() As String Get - Return Me.verbrauchsteuerCodeField + Return Me._verbrauchsteuerCode End Get Set - Me.verbrauchsteuerCodeField = Value + Me._verbrauchsteuerCode = Value End Set End Property + Public Property VerbrauchssteuerMenge() As Decimal Get - Return Me.verbrauchssteuerMengeField + Return Me._verbrauchssteuerMenge 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 + Me._verbrauchssteuerMenge = Value End Set End Property + Public Property VerbrauchssteuerMasseinheitCode() As String Get - Return Me.verbrauchssteuerMasseinheitCodeField + Return Me._verbrauchssteuerMasseinheitCode End Get Set - Me.verbrauchssteuerMasseinheitCodeField = Value + Me._verbrauchssteuerMasseinheitCode = Value End Set End Property + Public Property VerbrauchssteuerMasseinheitQualifier() As String Get - Return Me.verbrauchssteuerMasseinheitQualifierField + Return Me._verbrauchssteuerMasseinheitQualifier End Get Set - Me.verbrauchssteuerMasseinheitQualifierField = Value + Me._verbrauchssteuerMasseinheitQualifier = Value End Set End Property + Public Property GradProzent() As Decimal Get - Return Me.gradProzentField + Return Me._gradProzent 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 + Me._gradProzent = Value End Set End Property + Public Property VerbrauchssteuerWertBasis() As Decimal Get - Return Me.verbrauchssteuerWertBasisField + Return Me._verbrauchssteuerWertBasis End Get Set - Me.verbrauchssteuerWertBasisField = Value + Me._verbrauchssteuerWertBasis = Value End Set End Property - - Public Property VerbrauchssteuerWertBasisSpecified() As Boolean + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerbrauchsteuerVBTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current VerbrauchsteuerVBTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize VerbrauchsteuerVBTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1102,18 +1222,22 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes VerbrauchsteuerVBTyp object + ''' + ''' string to deserialize + ''' Output VerbrauchsteuerVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchsteuerVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VerbrauchsteuerVBTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1121,16 +1245,16 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As VerbrauchsteuerVBTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchsteuerVBTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As VerbrauchsteuerVBTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerbrauchsteuerVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1138,16 +1262,21 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerbrauchsteuerVBTyp + Return CType(SerializerXml.Deserialize(s), VerbrauchsteuerVBTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1155,13 +1284,20 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1170,18 +1306,18 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + ''' + ''' Deserializes xml markup from file into an VerbrauchsteuerVBTyp object + ''' + ''' File to load and deserialize + ''' Output VerbrauchsteuerVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As VerbrauchsteuerVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VerbrauchsteuerVBTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1189,21 +1325,29 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchsteuerVBTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1213,69 +1357,67 @@ Namespace BefundVereinfachteZollanmeldung_008 End If End Try End Function -#End Region End Class + Partial Public Class GehaltsangabenVBTyp - Private artCodeField As String +#Region "Private fields" + Private _artCode As String - Private gradProzentField As Decimal + Private _gradProzent As Decimal - Private gradProzentFieldSpecified As Boolean - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property ArtCode() As String Get - Return Me.artCodeField + Return Me._artCode End Get Set - Me.artCodeField = Value + Me._artCode = Value End Set End Property + Public Property GradProzent() As Decimal Get - Return Me.gradProzentField + Return Me._gradProzent End Get Set - Me.gradProzentField = Value + Me._gradProzent = Value End Set End Property - - Public Property GradProzentSpecified() As Boolean + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GehaltsangabenVBTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current GehaltsangabenVBTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize GehaltsangabenVBTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1287,18 +1429,22 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes GehaltsangabenVBTyp object + ''' + ''' string to deserialize + ''' Output GehaltsangabenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, GehaltsangabenVBTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1306,16 +1452,16 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As GehaltsangabenVBTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenVBTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As GehaltsangabenVBTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GehaltsangabenVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1323,16 +1469,21 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GehaltsangabenVBTyp + Return CType(SerializerXml.Deserialize(s), GehaltsangabenVBTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1340,13 +1491,20 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1355,18 +1513,18 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + ''' + ''' Deserializes xml markup from file into an GehaltsangabenVBTyp object + ''' + ''' File to load and deserialize + ''' Output GehaltsangabenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As GehaltsangabenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, GehaltsangabenVBTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1374,21 +1532,29 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenVBTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1398,69 +1564,67 @@ Namespace BefundVereinfachteZollanmeldung_008 End If End Try End Function -#End Region End Class + Partial Public Class PreisWertangabeVBTyp - Private preisartCodeField As String +#Region "Private fields" + Private _preisartCode As String - Private wertField As Decimal + Private _wert As Decimal - Private wertFieldSpecified As Boolean - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property PreisartCode() As String Get - Return Me.preisartCodeField + Return Me._preisartCode End Get Set - Me.preisartCodeField = Value + Me._preisartCode = Value End Set End Property + Public Property Wert() As Decimal Get - Return Me.wertField + Return Me._wert End Get Set - Me.wertField = Value + Me._wert = Value End Set End Property - - Public Property WertSpecified() As Boolean + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PreisWertangabeVBTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current PreisWertangabeVBTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize PreisWertangabeVBTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1472,18 +1636,22 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes PreisWertangabeVBTyp object + ''' + ''' string to deserialize + ''' Output PreisWertangabeVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreisWertangabeVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PreisWertangabeVBTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1491,16 +1659,16 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PreisWertangabeVBTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreisWertangabeVBTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As PreisWertangabeVBTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PreisWertangabeVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1508,16 +1676,21 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PreisWertangabeVBTyp + Return CType(SerializerXml.Deserialize(s), PreisWertangabeVBTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1525,13 +1698,20 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1540,18 +1720,18 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + ''' + ''' Deserializes xml markup from file into an PreisWertangabeVBTyp object + ''' + ''' File to load and deserialize + ''' Output PreisWertangabeVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As PreisWertangabeVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PreisWertangabeVBTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1559,21 +1739,29 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreisWertangabeVBTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1583,68 +1771,79 @@ Namespace BefundVereinfachteZollanmeldung_008 End If End Try End Function -#End Region End Class + Partial Public Class WarenMengeVBTyp - Private mengeField As String +#Region "Private fields" + Private _menge As String - Private masseinheitField As String + Private _masseinheit As String - Private qualifierField As String + Private _qualifier As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property Menge() As String Get - Return Me.mengeField + Return Me._menge End Get Set - Me.mengeField = Value + Me._menge = Value End Set End Property + Public Property Masseinheit() As String Get - Return Me.masseinheitField + Return Me._masseinheit End Get Set - Me.masseinheitField = Value + Me._masseinheit = Value End Set End Property + Public Property Qualifier() As String Get - Return Me.qualifierField + Return Me._qualifier End Get Set - Me.qualifierField = Value + Me._qualifier = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(WarenMengeVBTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(WarenMengeVBTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current WarenMengeVBTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize WarenMengeVBTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1656,18 +1855,22 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes WarenMengeVBTyp object + ''' + ''' string to deserialize + ''' Output WarenMengeVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, WarenMengeVBTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1675,16 +1878,16 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As WarenMengeVBTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeVBTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As WarenMengeVBTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), WarenMengeVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1692,16 +1895,21 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As WarenMengeVBTyp + Return CType(SerializerXml.Deserialize(s), WarenMengeVBTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1709,13 +1917,20 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1724,18 +1939,18 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + ''' + ''' Deserializes xml markup from file into an WarenMengeVBTyp object + ''' + ''' File to load and deserialize + ''' Output WarenMengeVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As WarenMengeVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, WarenMengeVBTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1743,21 +1958,29 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeVBTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1767,182 +1990,151 @@ Namespace BefundVereinfachteZollanmeldung_008 End If End Try End Function -#End Region End Class + Partial Public Class AbzugHinzurechnungenVBTyp - Private artCodeField As String +#Region "Private fields" + Private _artCode As String - Private artTextField As String + Private _artText As String - Private betragField As Decimal + Private _betrag As Decimal - Private betragFieldSpecified As Boolean + Private _iATAKursKz As String - Private iATAKursKzField As String + Private _waehrung As String - Private waehrungField As String + Private _kursVereinbartKz As String - Private kursVereinbartKzField As String + Private _kursAuslandswaehrung As Decimal - Private kursAuslandswaehrungField As Decimal + Private _kursDatum As Date - Private kursAuslandswaehrungFieldSpecified As Boolean + Private _prozentsatz As Decimal - Private kursDatumField As Date - - Private kursDatumFieldSpecified As Boolean - - Private prozentsatzField As Decimal - - Private prozentsatzFieldSpecified As Boolean - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property ArtCode() As String Get - Return Me.artCodeField + Return Me._artCode End Get Set - Me.artCodeField = Value + Me._artCode = Value End Set End Property + Public Property ArtText() As String Get - Return Me.artTextField + Return Me._artText End Get Set - Me.artTextField = Value + Me._artText = Value End Set End Property + Public Property Betrag() As Decimal Get - Return Me.betragField + Return Me._betrag 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 + Me._betrag = Value End Set End Property + Public Property IATAKursKz() As String Get - Return Me.iATAKursKzField + Return Me._iATAKursKz End Get Set - Me.iATAKursKzField = Value + Me._iATAKursKz = Value End Set End Property + Public Property Waehrung() As String Get - Return Me.waehrungField + Return Me._waehrung End Get Set - Me.waehrungField = Value + Me._waehrung = Value End Set End Property + Public Property KursVereinbartKz() As String Get - Return Me.kursVereinbartKzField + Return Me._kursVereinbartKz End Get Set - Me.kursVereinbartKzField = Value + Me._kursVereinbartKz = Value End Set End Property + Public Property KursAuslandswaehrung() As Decimal Get - Return Me.kursAuslandswaehrungField + Return Me._kursAuslandswaehrung 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 + Me._kursAuslandswaehrung = Value End Set End Property + Public Property KursDatum() As Date Get - Return Me.kursDatumField + Return Me._kursDatum 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 + Me._kursDatum = Value End Set End Property + Public Property Prozentsatz() As Decimal Get - Return Me.prozentsatzField + Return Me._prozentsatz End Get Set - Me.prozentsatzField = Value + Me._prozentsatz = Value End Set End Property - - Public Property ProzentsatzSpecified() As Boolean + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbzugHinzurechnungenVBTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AbzugHinzurechnungenVBTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize AbzugHinzurechnungenVBTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1954,18 +2146,22 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes AbzugHinzurechnungenVBTyp object + ''' + ''' string to deserialize + ''' Output AbzugHinzurechnungenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbzugHinzurechnungenVBTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1973,16 +2169,16 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbzugHinzurechnungenVBTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungenVBTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AbzugHinzurechnungenVBTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbzugHinzurechnungenVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1990,16 +2186,21 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbzugHinzurechnungenVBTyp + Return CType(SerializerXml.Deserialize(s), AbzugHinzurechnungenVBTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -2007,13 +2208,20 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -2022,18 +2230,18 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + ''' + ''' Deserializes xml markup from file into an AbzugHinzurechnungenVBTyp object + ''' + ''' File to load and deserialize + ''' Output AbzugHinzurechnungenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AbzugHinzurechnungenVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbzugHinzurechnungenVBTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -2041,21 +2249,29 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungenVBTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -2065,101 +2281,115 @@ Namespace BefundVereinfachteZollanmeldung_008 End If End Try End Function -#End Region End Class + Partial Public Class AbweichungVBTyp - Private abweichendFestgesetztesFeldField As String +#Region "Private fields" + Private _abweichendFestgesetztesFeld As String - Private abweichendFestgesetztesFeldQualifikatorField As String + Private _abweichendFestgesetztesFeldQualifikator As String - Private qualifikatorInhaltField As String + Private _qualifikatorInhalt As String - Private abweichendeFestsetzungArtField As String + Private _abweichendeFestsetzungArt As String - Private abweichendFestgesetztVonField As String + Private _abweichendFestgesetztVon As String - Private abweichendFestgesetztAufField As String + Private _abweichendFestgesetztAuf As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property AbweichendFestgesetztesFeld() As String Get - Return Me.abweichendFestgesetztesFeldField + Return Me._abweichendFestgesetztesFeld End Get Set - Me.abweichendFestgesetztesFeldField = Value + Me._abweichendFestgesetztesFeld = Value End Set End Property + Public Property AbweichendFestgesetztesFeldQualifikator() As String Get - Return Me.abweichendFestgesetztesFeldQualifikatorField + Return Me._abweichendFestgesetztesFeldQualifikator End Get Set - Me.abweichendFestgesetztesFeldQualifikatorField = Value + Me._abweichendFestgesetztesFeldQualifikator = Value End Set End Property + Public Property QualifikatorInhalt() As String Get - Return Me.qualifikatorInhaltField + Return Me._qualifikatorInhalt End Get Set - Me.qualifikatorInhaltField = Value + Me._qualifikatorInhalt = Value End Set End Property + Public Property AbweichendeFestsetzungArt() As String Get - Return Me.abweichendeFestsetzungArtField + Return Me._abweichendeFestsetzungArt End Get Set - Me.abweichendeFestsetzungArtField = Value + Me._abweichendeFestsetzungArt = Value End Set End Property + Public Property AbweichendFestgesetztVon() As String Get - Return Me.abweichendFestgesetztVonField + Return Me._abweichendFestgesetztVon End Get Set - Me.abweichendFestgesetztVonField = Value + Me._abweichendFestgesetztVon = Value End Set End Property + Public Property AbweichendFestgesetztAuf() As String Get - Return Me.abweichendFestgesetztAufField + Return Me._abweichendFestgesetztAuf End Get Set - Me.abweichendFestgesetztAufField = Value + Me._abweichendFestgesetztAuf = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbweichungVBTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbweichungVBTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AbweichungVBTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize AbweichungVBTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -2171,18 +2401,22 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes AbweichungVBTyp object + ''' + ''' string to deserialize + ''' Output AbweichungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbweichungVBTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -2190,16 +2424,16 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbweichungVBTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichungVBTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AbweichungVBTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbweichungVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -2207,16 +2441,21 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbweichungVBTyp + Return CType(SerializerXml.Deserialize(s), AbweichungVBTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -2224,13 +2463,20 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -2239,18 +2485,18 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + ''' + ''' Deserializes xml markup from file into an AbweichungVBTyp object + ''' + ''' File to load and deserialize + ''' Output AbweichungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AbweichungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbweichungVBTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -2258,21 +2504,29 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichungVBTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -2282,191 +2536,187 @@ Namespace BefundVereinfachteZollanmeldung_008 End If End Try End Function -#End Region End Class + Partial Public Class UnterlageVBTyp - Private artField As String +#Region "Private fields" + Private _art As String - Private bereichField As String + Private _bereich As String - Private nummerField As String + Private _nummer As String - Private datumAusstellungField As Date + Private _datumAusstellung As Date - Private datumAusstellungFieldSpecified As Boolean + Private _vorlageKz As String - Private vorlageKzField As String + Private _abschreibungsMenge As Decimal - Private abschreibungsMengeField As Decimal + Private _abschreibungsMengeMasseinheit As String - Private abschreibungsMengeFieldSpecified As Boolean + Private _abschreibungsMengeMasseinheitQualifier As String - Private abschreibungsMengeMasseinheitField As String + Private _kzAnerkennung As String - Private abschreibungsMengeMasseinheitQualifierField As String + Private _kzAbschreibung As String - Private kzAnerkennungField As String + Private _kzEinbehalten As String - Private kzAbschreibungField As String + Private _kzPeriodischeVorlage As String - Private kzEinbehaltenField As String - - Private kzPeriodischeVorlageField As String - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property Art() As String Get - Return Me.artField + Return Me._art End Get Set - Me.artField = Value + Me._art = Value End Set End Property + Public Property Bereich() As String Get - Return Me.bereichField + Return Me._bereich End Get Set - Me.bereichField = Value + Me._bereich = Value End Set End Property + Public Property Nummer() As String Get - Return Me.nummerField + Return Me._nummer End Get Set - Me.nummerField = Value + Me._nummer = Value End Set End Property + Public Property DatumAusstellung() As Date Get - Return Me.datumAusstellungField + Return Me._datumAusstellung 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 + Me._datumAusstellung = Value End Set End Property + Public Property VorlageKz() As String Get - Return Me.vorlageKzField + Return Me._vorlageKz End Get Set - Me.vorlageKzField = Value + Me._vorlageKz = Value End Set End Property + Public Property AbschreibungsMenge() As Decimal Get - Return Me.abschreibungsMengeField + Return Me._abschreibungsMenge 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 + Me._abschreibungsMenge = Value End Set End Property + Public Property AbschreibungsMengeMasseinheit() As String Get - Return Me.abschreibungsMengeMasseinheitField + Return Me._abschreibungsMengeMasseinheit End Get Set - Me.abschreibungsMengeMasseinheitField = Value + Me._abschreibungsMengeMasseinheit = Value End Set End Property + Public Property AbschreibungsMengeMasseinheitQualifier() As String Get - Return Me.abschreibungsMengeMasseinheitQualifierField + Return Me._abschreibungsMengeMasseinheitQualifier End Get Set - Me.abschreibungsMengeMasseinheitQualifierField = Value + Me._abschreibungsMengeMasseinheitQualifier = Value End Set End Property + Public Property KzAnerkennung() As String Get - Return Me.kzAnerkennungField + Return Me._kzAnerkennung End Get Set - Me.kzAnerkennungField = Value + Me._kzAnerkennung = Value End Set End Property + Public Property KzAbschreibung() As String Get - Return Me.kzAbschreibungField + Return Me._kzAbschreibung End Get Set - Me.kzAbschreibungField = Value + Me._kzAbschreibung = Value End Set End Property + Public Property KzEinbehalten() As String Get - Return Me.kzEinbehaltenField + Return Me._kzEinbehalten End Get Set - Me.kzEinbehaltenField = Value + Me._kzEinbehalten = Value End Set End Property + Public Property KzPeriodischeVorlage() As String Get - Return Me.kzPeriodischeVorlageField + Return Me._kzPeriodischeVorlage End Get Set - Me.kzPeriodischeVorlageField = Value + Me._kzPeriodischeVorlage = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(UnterlageVBTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVBTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current UnterlageVBTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize UnterlageVBTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -2478,18 +2728,22 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes UnterlageVBTyp object + ''' + ''' string to deserialize + ''' Output UnterlageVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageVBTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -2497,16 +2751,16 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As UnterlageVBTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVBTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As UnterlageVBTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UnterlageVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -2514,16 +2768,21 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UnterlageVBTyp + Return CType(SerializerXml.Deserialize(s), UnterlageVBTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -2531,13 +2790,20 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -2546,18 +2812,18 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + ''' + ''' Deserializes xml markup from file into an UnterlageVBTyp object + ''' + ''' File to load and deserialize + ''' Output UnterlageVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As UnterlageVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageVBTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -2565,21 +2831,29 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVBTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -2589,903 +2863,779 @@ Namespace BefundVereinfachteZollanmeldung_008 End If End Try End Function -#End Region End Class + Partial Public Class PositionBefundVereinfachteZollanmeldungTyp - Private positionsNrvZAAZField As String +#Region "Private fields" + Private _positionsNrvZAAZ As String - Private mitteilungAnTeilnehmerBeschauField As String + Private _mitteilungAnTeilnehmerBeschau As String - Private weitererNachweisField As String + Private _weitererNachweis As String - Private mitteilungAnTeilnehmerErledigungField As String + Private _mitteilungAnTeilnehmerErledigung As String - Private positionsbefundField As String + Private _positionsbefund As String - Private unterlageField As List(Of UnterlageVBTyp) + Private _unterlage As List(Of UnterlageVBTyp) - Private ueberlassungDatumField As Date + Private _ueberlassungDatum As Date - Private ueberlassungDatumFieldSpecified As Boolean + Private _weitererNachweisFrist As Date - Private weitererNachweisFristField As Date + Private _positionKzErledigung As String - Private weitererNachweisFristFieldSpecified As Boolean + Private _abweichung As List(Of AbweichungVBTyp) - Private positionKzErledigungField As String + Private _warenNummerEZT As String - Private abweichungField As List(Of AbweichungVBTyp) + Private _warenNummerZusatzCode As List(Of String) - Private warenNummerEZTField As String + Private _abgabensteuerungKz As String - Private warenNummerZusatzCodeField As List(Of String) + Private _eUCode As List(Of String) - Private abgabensteuerungKzField As String + Private _sachbereich As String - Private eUCodeField As List(Of String) + Private _artikelNummer As String - Private sachbereichField As String + Private _artikelpreis As Decimal - Private artikelNummerField As String + Private _positionsZusatz As String - Private artikelpreisField As Decimal + Private _eigenmasse As Decimal - Private artikelpreisFieldSpecified As Boolean + Private _ursprungslandCode As String - Private positionsZusatzField As String + Private _tabakSteuerzeichenID As String - Private eigenmasseField As Decimal + Private _statistikStatus As String - Private eigenmasseFieldSpecified As Boolean + Private _artGeschaeftCode As String - Private ursprungslandCodeField As String + Private _bestimmungsbundesland As String - Private tabakSteuerzeichenIDField As String + Private _aHStatWert As String - Private statistikStatusField As String + Private _aHStatMenge As Decimal - Private artGeschaeftCodeField As String + Private _aHStatMengeMasseinheit As String - Private bestimmungsbundeslandField As String + Private _aHStatMengeQualifier As String - Private aHStatWertField As String + Private _rohmasse As Decimal - Private aHStatMengeField As Decimal + Private _dV1Nettopreis As Decimal - Private aHStatMengeFieldSpecified As Boolean + Private _dV1Waehrung As String - Private aHStatMengeMasseinheitField As String + Private _dV1KzKursNettoVereinbart As String - Private aHStatMengeQualifierField As String + Private _dV1Kurs As Decimal - Private rohmasseField As Decimal + Private _dV1MittelbareZahlungen As Decimal - Private rohmasseFieldSpecified As Boolean + Private _dV1MittelbareZahlungenWaehrung As String - Private dV1NettopreisField As Decimal + Private _dV1MittelbareZahlungenKursKz As String - Private dV1NettopreisFieldSpecified As Boolean + Private _dV1MittelbareZahlungenKurs As Decimal - Private dV1WaehrungField As String + Private _ortVerbringens As String - Private dV1KzKursNettoVereinbartField As String + Private _abflughafenIATACode As String - Private dV1KursField As Decimal + Private _luftfrachtkostenGesamt As Decimal - Private dV1KursFieldSpecified As Boolean + Private _iATAKursKz As String - Private dV1MittelbareZahlungenField As Decimal + Private _luftfrachtkostenGesamtWaehrung As String - Private dV1MittelbareZahlungenFieldSpecified As Boolean + Private _kursVereinbartKz As String - Private dV1MittelbareZahlungenWaehrungField As String + Private _kursBetragVereinbart As Decimal - Private dV1MittelbareZahlungenKursKzField As String + Private _kursDatum As Date - Private dV1MittelbareZahlungenKursField As Decimal + Private _abzugHinzurechnungen As List(Of AbzugHinzurechnungenVBTyp) - Private dV1MittelbareZahlungenKursFieldSpecified As Boolean + Private _zollwert As Decimal - Private ortVerbringensField As String + Private _warenMenge As List(Of WarenMengeVBTyp) - Private abflughafenIATACodeField As String + Private _besondereWertangabe As List(Of PreisWertangabeVBTyp) - Private luftfrachtkostenGesamtField As Decimal + Private _gehaltsangaben As List(Of GehaltsangabenVBTyp) - Private luftfrachtkostenGesamtFieldSpecified As Boolean + Private _veredelungWertsteigerung As Decimal - Private iATAKursKzField As String + Private _kostenEUSt As Decimal - Private luftfrachtkostenGesamtWaehrungField As String + Private _verbrauchsteuer As List(Of VerbrauchsteuerVBTyp) - Private kursVereinbartKzField As String + Private _beguenstigungBeantragtCode As String - Private kursBetragVereinbartField As Decimal + Private _beguenstigungMenge As String - Private kursBetragVereinbartFieldSpecified As Boolean + Private _beguenstigungMengeMasseinheit As String - Private kursDatumField As Date + Private _beguenstigungMengeQualifikator As String - Private kursDatumFieldSpecified As Boolean + Private _minderung As List(Of MinderungVBTyp) - Private abzugHinzurechnungenField As List(Of AbzugHinzurechnungenVBTyp) + Private _sonderabgaben As List(Of SonderabgabenVBTyp) - Private zollwertField As Decimal + Private _kontingentNrAngewandt As List(Of String) - 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 + Private Shared _serializerXml As XmlSerializer +#End Region 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)() + Me._kontingentNrAngewandt = New List(Of String)() + Me._sonderabgaben = New List(Of SonderabgabenVBTyp)() + Me._minderung = New List(Of MinderungVBTyp)() + Me._verbrauchsteuer = New List(Of VerbrauchsteuerVBTyp)() + Me._gehaltsangaben = New List(Of GehaltsangabenVBTyp)() + Me._besondereWertangabe = New List(Of PreisWertangabeVBTyp)() + Me._warenMenge = New List(Of WarenMengeVBTyp)() + Me._abzugHinzurechnungen = New List(Of AbzugHinzurechnungenVBTyp)() + Me._eUCode = New List(Of String)() + Me._warenNummerZusatzCode = New List(Of String)() + Me._abweichung = New List(Of AbweichungVBTyp)() + Me._unterlage = New List(Of UnterlageVBTyp)() End Sub + Public Property PositionsNrvZAAZ() As String Get - Return Me.positionsNrvZAAZField + Return Me._positionsNrvZAAZ End Get Set - Me.positionsNrvZAAZField = Value + Me._positionsNrvZAAZ = Value End Set End Property + Public Property MitteilungAnTeilnehmerBeschau() As String Get - Return Me.mitteilungAnTeilnehmerBeschauField + Return Me._mitteilungAnTeilnehmerBeschau End Get Set - Me.mitteilungAnTeilnehmerBeschauField = Value + Me._mitteilungAnTeilnehmerBeschau = Value End Set End Property + Public Property WeitererNachweis() As String Get - Return Me.weitererNachweisField + Return Me._weitererNachweis End Get Set - Me.weitererNachweisField = Value + Me._weitererNachweis = Value End Set End Property + Public Property MitteilungAnTeilnehmerErledigung() As String Get - Return Me.mitteilungAnTeilnehmerErledigungField + Return Me._mitteilungAnTeilnehmerErledigung End Get Set - Me.mitteilungAnTeilnehmerErledigungField = Value + Me._mitteilungAnTeilnehmerErledigung = Value End Set End Property + Public Property Positionsbefund() As String Get - Return Me.positionsbefundField + Return Me._positionsbefund End Get Set - Me.positionsbefundField = Value + Me._positionsbefund = Value End Set End Property + Public Property Unterlage() As List(Of UnterlageVBTyp) Get - Return Me.unterlageField + Return Me._unterlage End Get Set - Me.unterlageField = Value + Me._unterlage = Value End Set End Property + Public Property UeberlassungDatum() As Date Get - Return Me.ueberlassungDatumField + Return Me._ueberlassungDatum 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 + Me._ueberlassungDatum = Value End Set End Property + Public Property WeitererNachweisFrist() As Date Get - Return Me.weitererNachweisFristField + Return Me._weitererNachweisFrist 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 + Me._weitererNachweisFrist = Value End Set End Property + Public Property PositionKzErledigung() As String Get - Return Me.positionKzErledigungField + Return Me._positionKzErledigung End Get Set - Me.positionKzErledigungField = Value + Me._positionKzErledigung = Value End Set End Property + Public Property Abweichung() As List(Of AbweichungVBTyp) Get - Return Me.abweichungField + Return Me._abweichung End Get Set - Me.abweichungField = Value + Me._abweichung = Value End Set End Property + Public Property WarenNummerEZT() As String Get - Return Me.warenNummerEZTField + Return Me._warenNummerEZT End Get Set - Me.warenNummerEZTField = Value + Me._warenNummerEZT = Value End Set End Property + Public Property WarenNummerZusatzCode() As List(Of String) Get - Return Me.warenNummerZusatzCodeField + Return Me._warenNummerZusatzCode End Get Set - Me.warenNummerZusatzCodeField = Value + Me._warenNummerZusatzCode = Value End Set End Property + Public Property AbgabensteuerungKz() As String Get - Return Me.abgabensteuerungKzField + Return Me._abgabensteuerungKz End Get Set - Me.abgabensteuerungKzField = Value + Me._abgabensteuerungKz = Value End Set End Property + Public Property EUCode() As List(Of String) Get - Return Me.eUCodeField + Return Me._eUCode End Get Set - Me.eUCodeField = Value + Me._eUCode = Value End Set End Property + Public Property Sachbereich() As String Get - Return Me.sachbereichField + Return Me._sachbereich End Get Set - Me.sachbereichField = Value + Me._sachbereich = Value End Set End Property + Public Property ArtikelNummer() As String Get - Return Me.artikelNummerField + Return Me._artikelNummer End Get Set - Me.artikelNummerField = Value + Me._artikelNummer = Value End Set End Property + Public Property Artikelpreis() As Decimal Get - Return Me.artikelpreisField + Return Me._artikelpreis 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 + Me._artikelpreis = Value End Set End Property + Public Property PositionsZusatz() As String Get - Return Me.positionsZusatzField + Return Me._positionsZusatz End Get Set - Me.positionsZusatzField = Value + Me._positionsZusatz = Value End Set End Property + Public Property Eigenmasse() As Decimal Get - Return Me.eigenmasseField + Return Me._eigenmasse 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 + Me._eigenmasse = Value End Set End Property + Public Property UrsprungslandCode() As String Get - Return Me.ursprungslandCodeField + Return Me._ursprungslandCode End Get Set - Me.ursprungslandCodeField = Value + Me._ursprungslandCode = Value End Set End Property + Public Property TabakSteuerzeichenID() As String Get - Return Me.tabakSteuerzeichenIDField + Return Me._tabakSteuerzeichenID End Get Set - Me.tabakSteuerzeichenIDField = Value + Me._tabakSteuerzeichenID = Value End Set End Property + Public Property StatistikStatus() As String Get - Return Me.statistikStatusField + Return Me._statistikStatus End Get Set - Me.statistikStatusField = Value + Me._statistikStatus = Value End Set End Property + Public Property ArtGeschaeftCode() As String Get - Return Me.artGeschaeftCodeField + Return Me._artGeschaeftCode End Get Set - Me.artGeschaeftCodeField = Value + Me._artGeschaeftCode = Value End Set End Property + Public Property Bestimmungsbundesland() As String Get - Return Me.bestimmungsbundeslandField + Return Me._bestimmungsbundesland End Get Set - Me.bestimmungsbundeslandField = Value + Me._bestimmungsbundesland = Value End Set End Property + Public Property AHStatWert() As String Get - Return Me.aHStatWertField + Return Me._aHStatWert End Get Set - Me.aHStatWertField = Value + Me._aHStatWert = Value End Set End Property + Public Property AHStatMenge() As Decimal Get - Return Me.aHStatMengeField + Return Me._aHStatMenge 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 + Me._aHStatMenge = Value End Set End Property + Public Property AHStatMengeMasseinheit() As String Get - Return Me.aHStatMengeMasseinheitField + Return Me._aHStatMengeMasseinheit End Get Set - Me.aHStatMengeMasseinheitField = Value + Me._aHStatMengeMasseinheit = Value End Set End Property + Public Property AHStatMengeQualifier() As String Get - Return Me.aHStatMengeQualifierField + Return Me._aHStatMengeQualifier End Get Set - Me.aHStatMengeQualifierField = Value + Me._aHStatMengeQualifier = Value End Set End Property + Public Property Rohmasse() As Decimal Get - Return Me.rohmasseField + Return Me._rohmasse 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 + Me._rohmasse = Value End Set End Property + Public Property DV1Nettopreis() As Decimal Get - Return Me.dV1NettopreisField + Return Me._dV1Nettopreis 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 + Me._dV1Nettopreis = Value End Set End Property + Public Property DV1Waehrung() As String Get - Return Me.dV1WaehrungField + Return Me._dV1Waehrung End Get Set - Me.dV1WaehrungField = Value + Me._dV1Waehrung = Value End Set End Property + Public Property DV1KzKursNettoVereinbart() As String Get - Return Me.dV1KzKursNettoVereinbartField + Return Me._dV1KzKursNettoVereinbart End Get Set - Me.dV1KzKursNettoVereinbartField = Value + Me._dV1KzKursNettoVereinbart = Value End Set End Property + Public Property DV1Kurs() As Decimal Get - Return Me.dV1KursField + Return Me._dV1Kurs 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 + Me._dV1Kurs = Value End Set End Property + Public Property DV1MittelbareZahlungen() As Decimal Get - Return Me.dV1MittelbareZahlungenField + Return Me._dV1MittelbareZahlungen 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 + Me._dV1MittelbareZahlungen = Value End Set End Property + Public Property DV1MittelbareZahlungenWaehrung() As String Get - Return Me.dV1MittelbareZahlungenWaehrungField + Return Me._dV1MittelbareZahlungenWaehrung End Get Set - Me.dV1MittelbareZahlungenWaehrungField = Value + Me._dV1MittelbareZahlungenWaehrung = Value End Set End Property + Public Property DV1MittelbareZahlungenKursKz() As String Get - Return Me.dV1MittelbareZahlungenKursKzField + Return Me._dV1MittelbareZahlungenKursKz End Get Set - Me.dV1MittelbareZahlungenKursKzField = Value + Me._dV1MittelbareZahlungenKursKz = Value End Set End Property + Public Property DV1MittelbareZahlungenKurs() As Decimal Get - Return Me.dV1MittelbareZahlungenKursField + Return Me._dV1MittelbareZahlungenKurs 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 + Me._dV1MittelbareZahlungenKurs = Value End Set End Property + Public Property OrtVerbringens() As String Get - Return Me.ortVerbringensField + Return Me._ortVerbringens End Get Set - Me.ortVerbringensField = Value + Me._ortVerbringens = Value End Set End Property + Public Property AbflughafenIATACode() As String Get - Return Me.abflughafenIATACodeField + Return Me._abflughafenIATACode End Get Set - Me.abflughafenIATACodeField = Value + Me._abflughafenIATACode = Value End Set End Property + Public Property LuftfrachtkostenGesamt() As Decimal Get - Return Me.luftfrachtkostenGesamtField + Return Me._luftfrachtkostenGesamt 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 + Me._luftfrachtkostenGesamt = Value End Set End Property + Public Property IATAKursKz() As String Get - Return Me.iATAKursKzField + Return Me._iATAKursKz End Get Set - Me.iATAKursKzField = Value + Me._iATAKursKz = Value End Set End Property + Public Property LuftfrachtkostenGesamtWaehrung() As String Get - Return Me.luftfrachtkostenGesamtWaehrungField + Return Me._luftfrachtkostenGesamtWaehrung End Get Set - Me.luftfrachtkostenGesamtWaehrungField = Value + Me._luftfrachtkostenGesamtWaehrung = Value End Set End Property + Public Property KursVereinbartKz() As String Get - Return Me.kursVereinbartKzField + Return Me._kursVereinbartKz End Get Set - Me.kursVereinbartKzField = Value + Me._kursVereinbartKz = Value End Set End Property + Public Property KursBetragVereinbart() As Decimal Get - Return Me.kursBetragVereinbartField + Return Me._kursBetragVereinbart 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 + Me._kursBetragVereinbart = Value End Set End Property + Public Property KursDatum() As Date Get - Return Me.kursDatumField + Return Me._kursDatum 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 + Me._kursDatum = Value End Set End Property + Public Property AbzugHinzurechnungen() As List(Of AbzugHinzurechnungenVBTyp) Get - Return Me.abzugHinzurechnungenField + Return Me._abzugHinzurechnungen End Get Set - Me.abzugHinzurechnungenField = Value + Me._abzugHinzurechnungen = Value End Set End Property + Public Property Zollwert() As Decimal Get - Return Me.zollwertField + Return Me._zollwert 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 + Me._zollwert = Value End Set End Property + Public Property WarenMenge() As List(Of WarenMengeVBTyp) Get - Return Me.warenMengeField + Return Me._warenMenge End Get Set - Me.warenMengeField = Value + Me._warenMenge = Value End Set End Property + Public Property BesondereWertangabe() As List(Of PreisWertangabeVBTyp) Get - Return Me.besondereWertangabeField + Return Me._besondereWertangabe End Get Set - Me.besondereWertangabeField = Value + Me._besondereWertangabe = Value End Set End Property + Public Property Gehaltsangaben() As List(Of GehaltsangabenVBTyp) Get - Return Me.gehaltsangabenField + Return Me._gehaltsangaben End Get Set - Me.gehaltsangabenField = Value + Me._gehaltsangaben = Value End Set End Property + Public Property VeredelungWertsteigerung() As Decimal Get - Return Me.veredelungWertsteigerungField + Return Me._veredelungWertsteigerung 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 + Me._veredelungWertsteigerung = Value End Set End Property + Public Property KostenEUSt() As Decimal Get - Return Me.kostenEUStField + Return Me._kostenEUSt 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 + Me._kostenEUSt = Value End Set End Property + Public Property Verbrauchsteuer() As List(Of VerbrauchsteuerVBTyp) Get - Return Me.verbrauchsteuerField + Return Me._verbrauchsteuer End Get Set - Me.verbrauchsteuerField = Value + Me._verbrauchsteuer = Value End Set End Property + Public Property BeguenstigungBeantragtCode() As String Get - Return Me.beguenstigungBeantragtCodeField + Return Me._beguenstigungBeantragtCode End Get Set - Me.beguenstigungBeantragtCodeField = Value + Me._beguenstigungBeantragtCode = Value End Set End Property + Public Property BeguenstigungMenge() As String Get - Return Me.beguenstigungMengeField + Return Me._beguenstigungMenge End Get Set - Me.beguenstigungMengeField = Value + Me._beguenstigungMenge = Value End Set End Property + Public Property BeguenstigungMengeMasseinheit() As String Get - Return Me.beguenstigungMengeMasseinheitField + Return Me._beguenstigungMengeMasseinheit End Get Set - Me.beguenstigungMengeMasseinheitField = Value + Me._beguenstigungMengeMasseinheit = Value End Set End Property + Public Property BeguenstigungMengeQualifikator() As String Get - Return Me.beguenstigungMengeQualifikatorField + Return Me._beguenstigungMengeQualifikator End Get Set - Me.beguenstigungMengeQualifikatorField = Value + Me._beguenstigungMengeQualifikator = Value End Set End Property + Public Property Minderung() As List(Of MinderungVBTyp) Get - Return Me.minderungField + Return Me._minderung End Get Set - Me.minderungField = Value + Me._minderung = Value End Set End Property + Public Property Sonderabgaben() As List(Of SonderabgabenVBTyp) Get - Return Me.sonderabgabenField + Return Me._sonderabgaben End Get Set - Me.sonderabgabenField = Value + Me._sonderabgaben = Value End Set End Property + Public Property KontingentNrAngewandt() As List(Of String) Get - Return Me.kontingentNrAngewandtField + Return Me._kontingentNrAngewandt End Get Set - Me.kontingentNrAngewandtField = Value + Me._kontingentNrAngewandt = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PositionBefundVereinfachteZollanmeldungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionBefundVereinfachteZollanmeldungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current PositionBefundVereinfachteZollanmeldungTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize PositionBefundVereinfachteZollanmeldungTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -3497,18 +3647,22 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes PositionBefundVereinfachteZollanmeldungTyp object + ''' + ''' string to deserialize + ''' Output PositionBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionBefundVereinfachteZollanmeldungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -3516,16 +3670,16 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As PositionBefundVereinfachteZollanmeldungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionBefundVereinfachteZollanmeldungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -3533,16 +3687,21 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionBefundVereinfachteZollanmeldungTyp + Return CType(SerializerXml.Deserialize(s), PositionBefundVereinfachteZollanmeldungTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -3550,13 +3709,20 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -3565,18 +3731,18 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + ''' + ''' Deserializes xml markup from file into an PositionBefundVereinfachteZollanmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output PositionBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionBefundVereinfachteZollanmeldungTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -3584,21 +3750,29 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -3608,91 +3782,91 @@ Namespace BefundVereinfachteZollanmeldung_008 End If End Try End Function -#End Region End Class + Partial Public Class AnmeldungVBTyp - Private bereichField As String +#Region "Private fields" + Private _bereich As String - Private artField As String + Private _art As String - Private nummerField As String + Private _nummer As String - Private datumAusstellungField As Date + Private _datumAusstellung As Date - Private datumAusstellungFieldSpecified As Boolean - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property Bereich() As String Get - Return Me.bereichField + Return Me._bereich End Get Set - Me.bereichField = Value + Me._bereich = Value End Set End Property + Public Property Art() As String Get - Return Me.artField + Return Me._art End Get Set - Me.artField = Value + Me._art = Value End Set End Property + Public Property Nummer() As String Get - Return Me.nummerField + Return Me._nummer End Get Set - Me.nummerField = Value + Me._nummer = Value End Set End Property + Public Property DatumAusstellung() As Date Get - Return Me.datumAusstellungField + Return Me._datumAusstellung End Get Set - Me.datumAusstellungField = Value + Me._datumAusstellung = Value End Set End Property - - Public Property DatumAusstellungSpecified() As Boolean + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AnmeldungVBTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AnmeldungVBTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize AnmeldungVBTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -3704,18 +3878,22 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes AnmeldungVBTyp object + ''' + ''' string to deserialize + ''' Output AnmeldungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmeldungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AnmeldungVBTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -3723,16 +3901,16 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AnmeldungVBTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmeldungVBTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AnmeldungVBTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AnmeldungVBTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -3740,16 +3918,21 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AnmeldungVBTyp + Return CType(SerializerXml.Deserialize(s), AnmeldungVBTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -3757,13 +3940,20 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -3772,18 +3962,18 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + ''' + ''' Deserializes xml markup from file into an AnmeldungVBTyp object + ''' + ''' File to load and deserialize + ''' Output AnmeldungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AnmeldungVBTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AnmeldungVBTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -3791,21 +3981,29 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmeldungVBTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -3815,1517 +4013,1620 @@ Namespace BefundVereinfachteZollanmeldung_008 End If End Try End Function -#End Region End Class + Partial Public Class KopfdatenBefundVereinfachteZollanmeldungTyp - Private sachbearbeiterField As String +#Region "Private fields" + Private _sachbearbeiter As String - Private telefonnummerBearbeiterField As String + Private _telefonnummerBearbeiter As String - Private kopfKzErledigungField As String + Private _kopfKzErledigung As String - Private registriernummerField As String + Private _registriernummer As String - Private registrierdatumField As Date + Private _registrierdatum As Date - Private registrierdatumFieldSpecified As Boolean + Private _artAnmeldung As String - Private artAnmeldungField As String + Private _datumErstellungBefund As Date - Private datumErstellungBefundField As Date + Private _befund As String - Private datumErstellungBefundFieldSpecified As Boolean + Private _kzVertretungsverhaeltnis As String - Private befundField As String + Private _wKZ As String - Private kzVertretungsverhaeltnisField As String + Private _kzRechtsbehelf As String - Private wKZField As String + Private _kzGesamtschuldnerschaft As String - Private kzRechtsbehelfField As String + Private _eingangszollstelleGeaendertKz As String - Private kzGesamtschuldnerschaftField As String + Private _anmelderEORI As String - Private eingangszollstelleGeaendertKzField As String + Private _anmelderNLNR As String - Private anmelderEORIField As String + Private _anmelderFirmenbezeichung As String - Private anmelderNLNRField As String + Private _anmelderStrasseHausNr As String - Private anmelderFirmenbezeichungField As String + Private _anmelderOrtsteil As String - Private anmelderStrasseHausNrField As String + Private _anmelderOrtS As String - Private anmelderOrtsteilField As String + Private _anmelderPLZS As String - Private anmelderOrtSField As String + Private _anmelderNationalitaet As String - Private anmelderPLZSField As String + Private _dienststellenschluessel As String - Private anmelderNationalitaetField As String + Private _dienststelleBezeichung As String - Private dienststellenschluesselField As String + Private _dienststelleStrasseHausNr As String - Private dienststelleBezeichungField As String + Private _dienststelleOrtS As String - Private dienststelleStrasseHausNrField As String + Private _dienststellePLZS As String - Private dienststelleOrtSField As String + Private _bearbeiter As String - Private dienststellePLZSField As String + Private _dienststelleVorwahlTelefonNr As String - Private bearbeiterField As String + Private _vertreterEORI As String - Private dienststelleVorwahlTelefonNrField As String + Private _vertreterNLNR As String - Private vertreterEORIField As String + Private _vertreterFirmenbezeichnung As String - Private vertreterNLNRField As String + Private _vertreterStrasseHausNr As String - Private vertreterFirmenbezeichnungField As String + Private _vertreterOrtsteil As String - Private vertreterStrasseHausNrField As String + Private _vertreterOrtS As String - Private vertreterOrtsteilField As String + Private _vertreterPLZS As String - Private vertreterOrtSField As String + Private _vertreterNationalitaet As String - Private vertreterPLZSField As String + Private _hZABezeichnung As String - Private vertreterNationalitaetField As String + Private _hZAEmailAdresse As String - Private hZABezeichnungField As String + Private _hZADEmailAdresse As String - Private hZAEmailAdresseField As String + Private _hZAPostfach As String - Private hZADEmailAdresseField As String + Private _hZAOrtP As String - Private hZAPostfachField As String + Private _hZAPLZP As String - Private hZAOrtPField As String + Private _hZAStrasseHausNr As String - Private hZAPLZPField As String + Private _hZAOrtsteil As String - Private hZAStrasseHausNrField As String + Private _hZAOrtS As String - Private hZAOrtsteilField As String + Private _hZAPLZS As String - Private hZAOrtSField As String + Private _fRechnungEORI As String - Private hZAPLZSField As String + Private _fRechnungNLNR As String - Private fRechnungEORIField As String + Private _fRechnungNationalitaet As String - Private fRechnungNLNRField As String + Private _fRechnungName As String - Private fRechnungNationalitaetField As String + Private _fRechnungStrasseHausNr As String - Private fRechnungNameField As String + Private _fRechnungPLZS As String - Private fRechnungStrasseHausNrField As String + Private _fRechnungOrtS As String - Private fRechnungPLZSField As String + Private _fRechnungOrtsteil As String - Private fRechnungOrtSField As String + Private _anmelderEmpfaengerKz As String - Private fRechnungOrtsteilField As String + Private _bewilligungsnummer As String - Private anmelderEmpfaengerKzField As String + Private _versendungslandCode As String - Private bewilligungsnummerField As String + Private _lieferbedingung As String - Private versendungslandCodeField As String + Private _lieferbedingungText As String - Private lieferbedingungField As String + Private _lieferbedingungOrt As String - Private lieferbedingungTextField As String + Private _lieferbedingungSchluessel As String - Private lieferbedingungOrtField As String + Private _rechnungspreis As Decimal - Private lieferbedingungSchluesselField As String + Private _rechnungswaehrung As String - Private rechnungspreisField As Decimal + Private _finanzamt As String - Private rechnungspreisFieldSpecified As Boolean + Private _eingangszollstelle As String - Private rechnungswaehrungField As String + Private _dV1Kz As String - Private finanzamtField As String + Private _verkaeuferEORI As String - Private eingangszollstelleField As String + Private _verkaeuferFirmenbezeichnung As String - Private dV1KzField As String + Private _verkaeuferNationalitaet As String - Private verkaeuferEORIField As String + Private _verkaeuferStrasseHausNr As String - Private verkaeuferFirmenbezeichnungField As String + Private _verkaeuferPLZS As String - Private verkaeuferNationalitaetField As String + Private _verkaeuferOrtS As String - Private verkaeuferStrasseHausNrField As String + Private _verkaeuferOrtsteil As String - Private verkaeuferPLZSField As String + Private _kaeuferEORI As String - Private verkaeuferOrtSField As String + Private _kaeuferFirmenbezeichnung As String - Private verkaeuferOrtsteilField As String + Private _kaeuferNationalitaet As String - Private kaeuferEORIField As String + Private _kaeuferStrasseHausNr As String - Private kaeuferFirmenbezeichnungField As String + Private _kaeuferPLZS As String - Private kaeuferNationalitaetField As String + Private _kaeuferOrtS As String - Private kaeuferStrasseHausNrField As String + Private _kaeuferOrtsteil As String - Private kaeuferPLZSField As String + Private _zollwertanmelderEORI As String - Private kaeuferOrtSField As String + Private _zollwertanmelderFirmenbezeichnung As String - Private kaeuferOrtsteilField As String + Private _zollwertanmelderNationalitaet As String - Private zollwertanmelderEORIField As String + Private _zollwertanmelderStrasseHausNr As String - Private zollwertanmelderFirmenbezeichnungField As String + Private _zollwertanmelderPLZS As String - Private zollwertanmelderNationalitaetField As String + Private _zollwertanmelderOrtS As String - Private zollwertanmelderStrasseHausNrField As String + Private _zollwertanmelderOrtsteil As String - Private zollwertanmelderPLZSField As String + Private _vertreterZollwertanmelderEORI As String - Private zollwertanmelderOrtSField As String + Private _vertreterZollwertanmelderFirmenbezeichnung As String - Private zollwertanmelderOrtsteilField As String + Private _vertreterZollwertanmelderNationalitaet As String - Private vertreterZollwertanmelderEORIField As String + Private _vertreterZollwertanmelderStrasseHausNr As String - Private vertreterZollwertanmelderFirmenbezeichnungField As String + Private _vertreterZollwertanmelderPLZS As String - Private vertreterZollwertanmelderNationalitaetField As String + Private _vertreterZollwertanmelderOrtS As String - Private vertreterZollwertanmelderStrasseHausNrField As String + Private _vertreterZollwertanmelderOrtsteil As String - Private vertreterZollwertanmelderPLZSField As String + Private _vertretungsverhaeltnis As String - Private vertreterZollwertanmelderOrtSField As String + Private _fruehereEntscheidungen As String - Private vertreterZollwertanmelderOrtsteilField As String + Private _verbundenheit As String - Private vertretungsverhaeltnisField As String + Private _verbundenheitEinzelheiten As String - Private fruehereEntscheidungenField As String + Private _einschraenkungenKz As String - Private verbundenheitField As String + Private _bedingungenLeistungenKz As String - Private verbundenheitEinzelheitenField As String + Private _bedingungenLeistungenArt As String - Private einschraenkungenKzField As String + Private _lizenzgebuehrenKz As String - Private bedingungenLeistungenKzField As String + Private _lizenzgebuehrenUmstand As String - Private bedingungenLeistungenArtField As String + Private _spezielleVereinbarungKz As String - Private lizenzgebuehrenKzField As String + Private _spezielleVereinbarungUmstand As String - Private lizenzgebuehrenUmstandField As String + Private _empfaengerEORI As String - Private spezielleVereinbarungKzField As String + Private _empfaengerNLNR As String - Private spezielleVereinbarungUmstandField As String + Private _empfaengerFirmenbezeichnung As String - Private empfaengerEORIField As String + Private _empfaengerNationalitaet As String - Private empfaengerNLNRField As String + Private _empfaengerStrasseHausNr As String - Private empfaengerFirmenbezeichnungField As String + Private _empfaengerPLZS As String - Private empfaengerNationalitaetField As String + Private _empfaengerOrtS As String - Private empfaengerStrasseHausNrField As String + Private _empfaengerOrtsteil As String - Private empfaengerPLZSField As String + Private _datenuebermittlungEORI As String - Private empfaengerOrtSField As String + Private _erwerberAndererMitgliedstaatEORI As String - Private empfaengerOrtsteilField As String + Private _erwerberAndererMitgliedstaatNLNR As String - Private datenuebermittlungEORIField As String + Private _erwerberFirmenbezeichnung As String - Private erwerberAndererMitgliedstaatEORIField As String + Private _erwerberNationalitaet As String - Private erwerberAndererMitgliedstaatNLNRField As String + Private _erwerberStrasseHausNr As String - Private erwerberFirmenbezeichnungField As String + Private _erwerberPLZS As String - Private erwerberNationalitaetField As String + Private _erwerberOrtS As String - Private erwerberStrasseHausNrField As String + Private _erwerberOrtsteil As String - Private erwerberPLZSField As String + Private _erwerberUStIdNrAndererMitgliedstaat As String - Private erwerberOrtSField As String + Private _versenderAusfuehrerEORI As String - Private erwerberOrtsteilField As String + Private _versenderAusfuehrerFirmenbezeichnung As String - Private erwerberUStIdNrAndererMitgliedstaatField As String + Private _versenderAusfuehrerNationalitaet As String - Private versenderAusfuehrerEORIField As String + Private _versenderAusfuehrerStrasseHausNr As String - Private versenderAusfuehrerFirmenbezeichnungField As String + Private _versenderAusfuehrerPLZS As String - Private versenderAusfuehrerNationalitaetField As String + Private _versenderAusfuehrerOrtS As String - Private versenderAusfuehrerStrasseHausNrField As String + Private _versenderAusfuehrerOrtsteil As String - Private versenderAusfuehrerPLZSField As String + Private _unterlage As List(Of AnmeldungVBTyp) - Private versenderAusfuehrerOrtSField As String - - Private versenderAusfuehrerOrtsteilField As String - - Private unterlageField As List(Of AnmeldungVBTyp) - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.unterlageField = New List(Of AnmeldungVBTyp)() + Me._unterlage = New List(Of AnmeldungVBTyp)() End Sub + Public Property Sachbearbeiter() As String Get - Return Me.sachbearbeiterField + Return Me._sachbearbeiter End Get Set - Me.sachbearbeiterField = Value + Me._sachbearbeiter = Value End Set End Property + Public Property TelefonnummerBearbeiter() As String Get - Return Me.telefonnummerBearbeiterField + Return Me._telefonnummerBearbeiter End Get Set - Me.telefonnummerBearbeiterField = Value + Me._telefonnummerBearbeiter = Value End Set End Property + Public Property KopfKzErledigung() As String Get - Return Me.kopfKzErledigungField + Return Me._kopfKzErledigung End Get Set - Me.kopfKzErledigungField = Value + Me._kopfKzErledigung = Value End Set End Property + Public Property Registriernummer() As String Get - Return Me.registriernummerField + Return Me._registriernummer End Get Set - Me.registriernummerField = Value + Me._registriernummer = Value End Set End Property + Public Property Registrierdatum() As Date Get - Return Me.registrierdatumField + Return Me._registrierdatum 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 + Me._registrierdatum = Value End Set End Property + Public Property ArtAnmeldung() As String Get - Return Me.artAnmeldungField + Return Me._artAnmeldung End Get Set - Me.artAnmeldungField = Value + Me._artAnmeldung = Value End Set End Property + Public Property DatumErstellungBefund() As Date Get - Return Me.datumErstellungBefundField + Return Me._datumErstellungBefund 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 + Me._datumErstellungBefund = Value End Set End Property + Public Property Befund() As String Get - Return Me.befundField + Return Me._befund End Get Set - Me.befundField = Value + Me._befund = Value End Set End Property + Public Property KzVertretungsverhaeltnis() As String Get - Return Me.kzVertretungsverhaeltnisField + Return Me._kzVertretungsverhaeltnis End Get Set - Me.kzVertretungsverhaeltnisField = Value + Me._kzVertretungsverhaeltnis = Value End Set End Property + Public Property WKZ() As String Get - Return Me.wKZField + Return Me._wKZ End Get Set - Me.wKZField = Value + Me._wKZ = Value End Set End Property + Public Property KzRechtsbehelf() As String Get - Return Me.kzRechtsbehelfField + Return Me._kzRechtsbehelf End Get Set - Me.kzRechtsbehelfField = Value + Me._kzRechtsbehelf = Value End Set End Property + Public Property KzGesamtschuldnerschaft() As String Get - Return Me.kzGesamtschuldnerschaftField + Return Me._kzGesamtschuldnerschaft End Get Set - Me.kzGesamtschuldnerschaftField = Value + Me._kzGesamtschuldnerschaft = Value End Set End Property + Public Property EingangszollstelleGeaendertKz() As String Get - Return Me.eingangszollstelleGeaendertKzField + Return Me._eingangszollstelleGeaendertKz End Get Set - Me.eingangszollstelleGeaendertKzField = Value + Me._eingangszollstelleGeaendertKz = Value End Set End Property + Public Property AnmelderEORI() As String Get - Return Me.anmelderEORIField + Return Me._anmelderEORI End Get Set - Me.anmelderEORIField = Value + Me._anmelderEORI = Value End Set End Property + Public Property AnmelderNLNR() As String Get - Return Me.anmelderNLNRField + Return Me._anmelderNLNR End Get Set - Me.anmelderNLNRField = Value + Me._anmelderNLNR = Value End Set End Property + Public Property AnmelderFirmenbezeichung() As String Get - Return Me.anmelderFirmenbezeichungField + Return Me._anmelderFirmenbezeichung End Get Set - Me.anmelderFirmenbezeichungField = Value + Me._anmelderFirmenbezeichung = Value End Set End Property + Public Property AnmelderStrasseHausNr() As String Get - Return Me.anmelderStrasseHausNrField + Return Me._anmelderStrasseHausNr End Get Set - Me.anmelderStrasseHausNrField = Value + Me._anmelderStrasseHausNr = Value End Set End Property + Public Property AnmelderOrtsteil() As String Get - Return Me.anmelderOrtsteilField + Return Me._anmelderOrtsteil End Get Set - Me.anmelderOrtsteilField = Value + Me._anmelderOrtsteil = Value End Set End Property + Public Property AnmelderOrtS() As String Get - Return Me.anmelderOrtSField + Return Me._anmelderOrtS End Get Set - Me.anmelderOrtSField = Value + Me._anmelderOrtS = Value End Set End Property + Public Property AnmelderPLZS() As String Get - Return Me.anmelderPLZSField + Return Me._anmelderPLZS End Get Set - Me.anmelderPLZSField = Value + Me._anmelderPLZS = Value End Set End Property + Public Property AnmelderNationalitaet() As String Get - Return Me.anmelderNationalitaetField + Return Me._anmelderNationalitaet End Get Set - Me.anmelderNationalitaetField = Value + Me._anmelderNationalitaet = Value End Set End Property + Public Property Dienststellenschluessel() As String Get - Return Me.dienststellenschluesselField + Return Me._dienststellenschluessel End Get Set - Me.dienststellenschluesselField = Value + Me._dienststellenschluessel = Value End Set End Property + Public Property DienststelleBezeichung() As String Get - Return Me.dienststelleBezeichungField + Return Me._dienststelleBezeichung End Get Set - Me.dienststelleBezeichungField = Value + Me._dienststelleBezeichung = Value End Set End Property + Public Property DienststelleStrasseHausNr() As String Get - Return Me.dienststelleStrasseHausNrField + Return Me._dienststelleStrasseHausNr End Get Set - Me.dienststelleStrasseHausNrField = Value + Me._dienststelleStrasseHausNr = Value End Set End Property + Public Property DienststelleOrtS() As String Get - Return Me.dienststelleOrtSField + Return Me._dienststelleOrtS End Get Set - Me.dienststelleOrtSField = Value + Me._dienststelleOrtS = Value End Set End Property + Public Property DienststellePLZS() As String Get - Return Me.dienststellePLZSField + Return Me._dienststellePLZS End Get Set - Me.dienststellePLZSField = Value + Me._dienststellePLZS = Value End Set End Property + Public Property Bearbeiter() As String Get - Return Me.bearbeiterField + Return Me._bearbeiter End Get Set - Me.bearbeiterField = Value + Me._bearbeiter = Value End Set End Property + Public Property DienststelleVorwahlTelefonNr() As String Get - Return Me.dienststelleVorwahlTelefonNrField + Return Me._dienststelleVorwahlTelefonNr End Get Set - Me.dienststelleVorwahlTelefonNrField = Value + Me._dienststelleVorwahlTelefonNr = Value End Set End Property + Public Property VertreterEORI() As String Get - Return Me.vertreterEORIField + Return Me._vertreterEORI End Get Set - Me.vertreterEORIField = Value + Me._vertreterEORI = Value End Set End Property + Public Property VertreterNLNR() As String Get - Return Me.vertreterNLNRField + Return Me._vertreterNLNR End Get Set - Me.vertreterNLNRField = Value + Me._vertreterNLNR = Value End Set End Property + Public Property VertreterFirmenbezeichnung() As String Get - Return Me.vertreterFirmenbezeichnungField + Return Me._vertreterFirmenbezeichnung End Get Set - Me.vertreterFirmenbezeichnungField = Value + Me._vertreterFirmenbezeichnung = Value End Set End Property + Public Property VertreterStrasseHausNr() As String Get - Return Me.vertreterStrasseHausNrField + Return Me._vertreterStrasseHausNr End Get Set - Me.vertreterStrasseHausNrField = Value + Me._vertreterStrasseHausNr = Value End Set End Property + Public Property VertreterOrtsteil() As String Get - Return Me.vertreterOrtsteilField + Return Me._vertreterOrtsteil End Get Set - Me.vertreterOrtsteilField = Value + Me._vertreterOrtsteil = Value End Set End Property + Public Property VertreterOrtS() As String Get - Return Me.vertreterOrtSField + Return Me._vertreterOrtS End Get Set - Me.vertreterOrtSField = Value + Me._vertreterOrtS = Value End Set End Property + Public Property VertreterPLZS() As String Get - Return Me.vertreterPLZSField + Return Me._vertreterPLZS End Get Set - Me.vertreterPLZSField = Value + Me._vertreterPLZS = Value End Set End Property + Public Property VertreterNationalitaet() As String Get - Return Me.vertreterNationalitaetField + Return Me._vertreterNationalitaet End Get Set - Me.vertreterNationalitaetField = Value + Me._vertreterNationalitaet = Value End Set End Property + Public Property HZABezeichnung() As String Get - Return Me.hZABezeichnungField + Return Me._hZABezeichnung End Get Set - Me.hZABezeichnungField = Value + Me._hZABezeichnung = Value End Set End Property + Public Property HZAEmailAdresse() As String Get - Return Me.hZAEmailAdresseField + Return Me._hZAEmailAdresse End Get Set - Me.hZAEmailAdresseField = Value + Me._hZAEmailAdresse = Value End Set End Property + Public Property HZADEmailAdresse() As String Get - Return Me.hZADEmailAdresseField + Return Me._hZADEmailAdresse End Get Set - Me.hZADEmailAdresseField = Value + Me._hZADEmailAdresse = Value End Set End Property + Public Property HZAPostfach() As String Get - Return Me.hZAPostfachField + Return Me._hZAPostfach End Get Set - Me.hZAPostfachField = Value + Me._hZAPostfach = Value End Set End Property + Public Property HZAOrtP() As String Get - Return Me.hZAOrtPField + Return Me._hZAOrtP End Get Set - Me.hZAOrtPField = Value + Me._hZAOrtP = Value End Set End Property + Public Property HZAPLZP() As String Get - Return Me.hZAPLZPField + Return Me._hZAPLZP End Get Set - Me.hZAPLZPField = Value + Me._hZAPLZP = Value End Set End Property + Public Property HZAStrasseHausNr() As String Get - Return Me.hZAStrasseHausNrField + Return Me._hZAStrasseHausNr End Get Set - Me.hZAStrasseHausNrField = Value + Me._hZAStrasseHausNr = Value End Set End Property + Public Property HZAOrtsteil() As String Get - Return Me.hZAOrtsteilField + Return Me._hZAOrtsteil End Get Set - Me.hZAOrtsteilField = Value + Me._hZAOrtsteil = Value End Set End Property + Public Property HZAOrtS() As String Get - Return Me.hZAOrtSField + Return Me._hZAOrtS End Get Set - Me.hZAOrtSField = Value + Me._hZAOrtS = Value End Set End Property + Public Property HZAPLZS() As String Get - Return Me.hZAPLZSField + Return Me._hZAPLZS End Get Set - Me.hZAPLZSField = Value + Me._hZAPLZS = Value End Set End Property + Public Property FRechnungEORI() As String Get - Return Me.fRechnungEORIField + Return Me._fRechnungEORI End Get Set - Me.fRechnungEORIField = Value + Me._fRechnungEORI = Value End Set End Property + Public Property FRechnungNLNR() As String Get - Return Me.fRechnungNLNRField + Return Me._fRechnungNLNR End Get Set - Me.fRechnungNLNRField = Value + Me._fRechnungNLNR = Value End Set End Property + Public Property FRechnungNationalitaet() As String Get - Return Me.fRechnungNationalitaetField + Return Me._fRechnungNationalitaet End Get Set - Me.fRechnungNationalitaetField = Value + Me._fRechnungNationalitaet = Value End Set End Property + Public Property FRechnungName() As String Get - Return Me.fRechnungNameField + Return Me._fRechnungName End Get Set - Me.fRechnungNameField = Value + Me._fRechnungName = Value End Set End Property + Public Property FRechnungStrasseHausNr() As String Get - Return Me.fRechnungStrasseHausNrField + Return Me._fRechnungStrasseHausNr End Get Set - Me.fRechnungStrasseHausNrField = Value + Me._fRechnungStrasseHausNr = Value End Set End Property + Public Property FRechnungPLZS() As String Get - Return Me.fRechnungPLZSField + Return Me._fRechnungPLZS End Get Set - Me.fRechnungPLZSField = Value + Me._fRechnungPLZS = Value End Set End Property + Public Property FRechnungOrtS() As String Get - Return Me.fRechnungOrtSField + Return Me._fRechnungOrtS End Get Set - Me.fRechnungOrtSField = Value + Me._fRechnungOrtS = Value End Set End Property + Public Property FRechnungOrtsteil() As String Get - Return Me.fRechnungOrtsteilField + Return Me._fRechnungOrtsteil End Get Set - Me.fRechnungOrtsteilField = Value + Me._fRechnungOrtsteil = Value End Set End Property + Public Property AnmelderEmpfaengerKz() As String Get - Return Me.anmelderEmpfaengerKzField + Return Me._anmelderEmpfaengerKz End Get Set - Me.anmelderEmpfaengerKzField = Value + Me._anmelderEmpfaengerKz = Value End Set End Property + Public Property Bewilligungsnummer() As String Get - Return Me.bewilligungsnummerField + Return Me._bewilligungsnummer End Get Set - Me.bewilligungsnummerField = Value + Me._bewilligungsnummer = Value End Set End Property + Public Property VersendungslandCode() As String Get - Return Me.versendungslandCodeField + Return Me._versendungslandCode End Get Set - Me.versendungslandCodeField = Value + Me._versendungslandCode = Value End Set End Property + Public Property Lieferbedingung() As String Get - Return Me.lieferbedingungField + Return Me._lieferbedingung End Get Set - Me.lieferbedingungField = Value + Me._lieferbedingung = Value End Set End Property + Public Property LieferbedingungText() As String Get - Return Me.lieferbedingungTextField + Return Me._lieferbedingungText End Get Set - Me.lieferbedingungTextField = Value + Me._lieferbedingungText = Value End Set End Property + Public Property LieferbedingungOrt() As String Get - Return Me.lieferbedingungOrtField + Return Me._lieferbedingungOrt End Get Set - Me.lieferbedingungOrtField = Value + Me._lieferbedingungOrt = Value End Set End Property + Public Property LieferbedingungSchluessel() As String Get - Return Me.lieferbedingungSchluesselField + Return Me._lieferbedingungSchluessel End Get Set - Me.lieferbedingungSchluesselField = Value + Me._lieferbedingungSchluessel = Value End Set End Property + Public Property Rechnungspreis() As Decimal Get - Return Me.rechnungspreisField + Return Me._rechnungspreis 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 + Me._rechnungspreis = Value End Set End Property + Public Property Rechnungswaehrung() As String Get - Return Me.rechnungswaehrungField + Return Me._rechnungswaehrung End Get Set - Me.rechnungswaehrungField = Value + Me._rechnungswaehrung = Value End Set End Property + Public Property Finanzamt() As String Get - Return Me.finanzamtField + Return Me._finanzamt End Get Set - Me.finanzamtField = Value + Me._finanzamt = Value End Set End Property + Public Property Eingangszollstelle() As String Get - Return Me.eingangszollstelleField + Return Me._eingangszollstelle End Get Set - Me.eingangszollstelleField = Value + Me._eingangszollstelle = Value End Set End Property + Public Property DV1Kz() As String Get - Return Me.dV1KzField + Return Me._dV1Kz End Get Set - Me.dV1KzField = Value + Me._dV1Kz = Value End Set End Property + Public Property VerkaeuferEORI() As String Get - Return Me.verkaeuferEORIField + Return Me._verkaeuferEORI End Get Set - Me.verkaeuferEORIField = Value + Me._verkaeuferEORI = Value End Set End Property + Public Property VerkaeuferFirmenbezeichnung() As String Get - Return Me.verkaeuferFirmenbezeichnungField + Return Me._verkaeuferFirmenbezeichnung End Get Set - Me.verkaeuferFirmenbezeichnungField = Value + Me._verkaeuferFirmenbezeichnung = Value End Set End Property + Public Property VerkaeuferNationalitaet() As String Get - Return Me.verkaeuferNationalitaetField + Return Me._verkaeuferNationalitaet End Get Set - Me.verkaeuferNationalitaetField = Value + Me._verkaeuferNationalitaet = Value End Set End Property + Public Property VerkaeuferStrasseHausNr() As String Get - Return Me.verkaeuferStrasseHausNrField + Return Me._verkaeuferStrasseHausNr End Get Set - Me.verkaeuferStrasseHausNrField = Value + Me._verkaeuferStrasseHausNr = Value End Set End Property + Public Property VerkaeuferPLZS() As String Get - Return Me.verkaeuferPLZSField + Return Me._verkaeuferPLZS End Get Set - Me.verkaeuferPLZSField = Value + Me._verkaeuferPLZS = Value End Set End Property + Public Property VerkaeuferOrtS() As String Get - Return Me.verkaeuferOrtSField + Return Me._verkaeuferOrtS End Get Set - Me.verkaeuferOrtSField = Value + Me._verkaeuferOrtS = Value End Set End Property + Public Property VerkaeuferOrtsteil() As String Get - Return Me.verkaeuferOrtsteilField + Return Me._verkaeuferOrtsteil End Get Set - Me.verkaeuferOrtsteilField = Value + Me._verkaeuferOrtsteil = Value End Set End Property + Public Property KaeuferEORI() As String Get - Return Me.kaeuferEORIField + Return Me._kaeuferEORI End Get Set - Me.kaeuferEORIField = Value + Me._kaeuferEORI = Value End Set End Property + Public Property KaeuferFirmenbezeichnung() As String Get - Return Me.kaeuferFirmenbezeichnungField + Return Me._kaeuferFirmenbezeichnung End Get Set - Me.kaeuferFirmenbezeichnungField = Value + Me._kaeuferFirmenbezeichnung = Value End Set End Property + Public Property KaeuferNationalitaet() As String Get - Return Me.kaeuferNationalitaetField + Return Me._kaeuferNationalitaet End Get Set - Me.kaeuferNationalitaetField = Value + Me._kaeuferNationalitaet = Value End Set End Property + Public Property KaeuferStrasseHausNr() As String Get - Return Me.kaeuferStrasseHausNrField + Return Me._kaeuferStrasseHausNr End Get Set - Me.kaeuferStrasseHausNrField = Value + Me._kaeuferStrasseHausNr = Value End Set End Property + Public Property KaeuferPLZS() As String Get - Return Me.kaeuferPLZSField + Return Me._kaeuferPLZS End Get Set - Me.kaeuferPLZSField = Value + Me._kaeuferPLZS = Value End Set End Property + Public Property KaeuferOrtS() As String Get - Return Me.kaeuferOrtSField + Return Me._kaeuferOrtS End Get Set - Me.kaeuferOrtSField = Value + Me._kaeuferOrtS = Value End Set End Property + Public Property KaeuferOrtsteil() As String Get - Return Me.kaeuferOrtsteilField + Return Me._kaeuferOrtsteil End Get Set - Me.kaeuferOrtsteilField = Value + Me._kaeuferOrtsteil = Value End Set End Property + Public Property ZollwertanmelderEORI() As String Get - Return Me.zollwertanmelderEORIField + Return Me._zollwertanmelderEORI End Get Set - Me.zollwertanmelderEORIField = Value + Me._zollwertanmelderEORI = Value End Set End Property + Public Property ZollwertanmelderFirmenbezeichnung() As String Get - Return Me.zollwertanmelderFirmenbezeichnungField + Return Me._zollwertanmelderFirmenbezeichnung End Get Set - Me.zollwertanmelderFirmenbezeichnungField = Value + Me._zollwertanmelderFirmenbezeichnung = Value End Set End Property + Public Property ZollwertanmelderNationalitaet() As String Get - Return Me.zollwertanmelderNationalitaetField + Return Me._zollwertanmelderNationalitaet End Get Set - Me.zollwertanmelderNationalitaetField = Value + Me._zollwertanmelderNationalitaet = Value End Set End Property + Public Property ZollwertanmelderStrasseHausNr() As String Get - Return Me.zollwertanmelderStrasseHausNrField + Return Me._zollwertanmelderStrasseHausNr End Get Set - Me.zollwertanmelderStrasseHausNrField = Value + Me._zollwertanmelderStrasseHausNr = Value End Set End Property + Public Property ZollwertanmelderPLZS() As String Get - Return Me.zollwertanmelderPLZSField + Return Me._zollwertanmelderPLZS End Get Set - Me.zollwertanmelderPLZSField = Value + Me._zollwertanmelderPLZS = Value End Set End Property + Public Property ZollwertanmelderOrtS() As String Get - Return Me.zollwertanmelderOrtSField + Return Me._zollwertanmelderOrtS End Get Set - Me.zollwertanmelderOrtSField = Value + Me._zollwertanmelderOrtS = Value End Set End Property + Public Property ZollwertanmelderOrtsteil() As String Get - Return Me.zollwertanmelderOrtsteilField + Return Me._zollwertanmelderOrtsteil End Get Set - Me.zollwertanmelderOrtsteilField = Value + Me._zollwertanmelderOrtsteil = Value End Set End Property + Public Property VertreterZollwertanmelderEORI() As String Get - Return Me.vertreterZollwertanmelderEORIField + Return Me._vertreterZollwertanmelderEORI End Get Set - Me.vertreterZollwertanmelderEORIField = Value + Me._vertreterZollwertanmelderEORI = Value End Set End Property + Public Property VertreterZollwertanmelderFirmenbezeichnung() As String Get - Return Me.vertreterZollwertanmelderFirmenbezeichnungField + Return Me._vertreterZollwertanmelderFirmenbezeichnung End Get Set - Me.vertreterZollwertanmelderFirmenbezeichnungField = Value + Me._vertreterZollwertanmelderFirmenbezeichnung = Value End Set End Property + Public Property VertreterZollwertanmelderNationalitaet() As String Get - Return Me.vertreterZollwertanmelderNationalitaetField + Return Me._vertreterZollwertanmelderNationalitaet End Get Set - Me.vertreterZollwertanmelderNationalitaetField = Value + Me._vertreterZollwertanmelderNationalitaet = Value End Set End Property + Public Property VertreterZollwertanmelderStrasseHausNr() As String Get - Return Me.vertreterZollwertanmelderStrasseHausNrField + Return Me._vertreterZollwertanmelderStrasseHausNr End Get Set - Me.vertreterZollwertanmelderStrasseHausNrField = Value + Me._vertreterZollwertanmelderStrasseHausNr = Value End Set End Property + Public Property VertreterZollwertanmelderPLZS() As String Get - Return Me.vertreterZollwertanmelderPLZSField + Return Me._vertreterZollwertanmelderPLZS End Get Set - Me.vertreterZollwertanmelderPLZSField = Value + Me._vertreterZollwertanmelderPLZS = Value End Set End Property + Public Property VertreterZollwertanmelderOrtS() As String Get - Return Me.vertreterZollwertanmelderOrtSField + Return Me._vertreterZollwertanmelderOrtS End Get Set - Me.vertreterZollwertanmelderOrtSField = Value + Me._vertreterZollwertanmelderOrtS = Value End Set End Property + Public Property VertreterZollwertanmelderOrtsteil() As String Get - Return Me.vertreterZollwertanmelderOrtsteilField + Return Me._vertreterZollwertanmelderOrtsteil End Get Set - Me.vertreterZollwertanmelderOrtsteilField = Value + Me._vertreterZollwertanmelderOrtsteil = Value End Set End Property + Public Property Vertretungsverhaeltnis() As String Get - Return Me.vertretungsverhaeltnisField + Return Me._vertretungsverhaeltnis End Get Set - Me.vertretungsverhaeltnisField = Value + Me._vertretungsverhaeltnis = Value End Set End Property + Public Property FruehereEntscheidungen() As String Get - Return Me.fruehereEntscheidungenField + Return Me._fruehereEntscheidungen End Get Set - Me.fruehereEntscheidungenField = Value + Me._fruehereEntscheidungen = Value End Set End Property + Public Property Verbundenheit() As String Get - Return Me.verbundenheitField + Return Me._verbundenheit End Get Set - Me.verbundenheitField = Value + Me._verbundenheit = Value End Set End Property + Public Property VerbundenheitEinzelheiten() As String Get - Return Me.verbundenheitEinzelheitenField + Return Me._verbundenheitEinzelheiten End Get Set - Me.verbundenheitEinzelheitenField = Value + Me._verbundenheitEinzelheiten = Value End Set End Property + Public Property EinschraenkungenKz() As String Get - Return Me.einschraenkungenKzField + Return Me._einschraenkungenKz End Get Set - Me.einschraenkungenKzField = Value + Me._einschraenkungenKz = Value End Set End Property + Public Property BedingungenLeistungenKz() As String Get - Return Me.bedingungenLeistungenKzField + Return Me._bedingungenLeistungenKz End Get Set - Me.bedingungenLeistungenKzField = Value + Me._bedingungenLeistungenKz = Value End Set End Property + Public Property BedingungenLeistungenArt() As String Get - Return Me.bedingungenLeistungenArtField + Return Me._bedingungenLeistungenArt End Get Set - Me.bedingungenLeistungenArtField = Value + Me._bedingungenLeistungenArt = Value End Set End Property + Public Property LizenzgebuehrenKz() As String Get - Return Me.lizenzgebuehrenKzField + Return Me._lizenzgebuehrenKz End Get Set - Me.lizenzgebuehrenKzField = Value + Me._lizenzgebuehrenKz = Value End Set End Property + Public Property LizenzgebuehrenUmstand() As String Get - Return Me.lizenzgebuehrenUmstandField + Return Me._lizenzgebuehrenUmstand End Get Set - Me.lizenzgebuehrenUmstandField = Value + Me._lizenzgebuehrenUmstand = Value End Set End Property + Public Property SpezielleVereinbarungKz() As String Get - Return Me.spezielleVereinbarungKzField + Return Me._spezielleVereinbarungKz End Get Set - Me.spezielleVereinbarungKzField = Value + Me._spezielleVereinbarungKz = Value End Set End Property + Public Property SpezielleVereinbarungUmstand() As String Get - Return Me.spezielleVereinbarungUmstandField + Return Me._spezielleVereinbarungUmstand End Get Set - Me.spezielleVereinbarungUmstandField = Value + Me._spezielleVereinbarungUmstand = Value End Set End Property + Public Property EmpfaengerEORI() As String Get - Return Me.empfaengerEORIField + Return Me._empfaengerEORI End Get Set - Me.empfaengerEORIField = Value + Me._empfaengerEORI = Value End Set End Property + Public Property EmpfaengerNLNR() As String Get - Return Me.empfaengerNLNRField + Return Me._empfaengerNLNR End Get Set - Me.empfaengerNLNRField = Value + Me._empfaengerNLNR = Value End Set End Property + Public Property EmpfaengerFirmenbezeichnung() As String Get - Return Me.empfaengerFirmenbezeichnungField + Return Me._empfaengerFirmenbezeichnung End Get Set - Me.empfaengerFirmenbezeichnungField = Value + Me._empfaengerFirmenbezeichnung = Value End Set End Property + Public Property EmpfaengerNationalitaet() As String Get - Return Me.empfaengerNationalitaetField + Return Me._empfaengerNationalitaet End Get Set - Me.empfaengerNationalitaetField = Value + Me._empfaengerNationalitaet = Value End Set End Property + Public Property EmpfaengerStrasseHausNr() As String Get - Return Me.empfaengerStrasseHausNrField + Return Me._empfaengerStrasseHausNr End Get Set - Me.empfaengerStrasseHausNrField = Value + Me._empfaengerStrasseHausNr = Value End Set End Property + Public Property EmpfaengerPLZS() As String Get - Return Me.empfaengerPLZSField + Return Me._empfaengerPLZS End Get Set - Me.empfaengerPLZSField = Value + Me._empfaengerPLZS = Value End Set End Property + Public Property EmpfaengerOrtS() As String Get - Return Me.empfaengerOrtSField + Return Me._empfaengerOrtS End Get Set - Me.empfaengerOrtSField = Value + Me._empfaengerOrtS = Value End Set End Property + Public Property EmpfaengerOrtsteil() As String Get - Return Me.empfaengerOrtsteilField + Return Me._empfaengerOrtsteil End Get Set - Me.empfaengerOrtsteilField = Value + Me._empfaengerOrtsteil = Value End Set End Property + Public Property DatenuebermittlungEORI() As String Get - Return Me.datenuebermittlungEORIField + Return Me._datenuebermittlungEORI End Get Set - Me.datenuebermittlungEORIField = Value + Me._datenuebermittlungEORI = Value End Set End Property + Public Property ErwerberAndererMitgliedstaatEORI() As String Get - Return Me.erwerberAndererMitgliedstaatEORIField + Return Me._erwerberAndererMitgliedstaatEORI End Get Set - Me.erwerberAndererMitgliedstaatEORIField = Value + Me._erwerberAndererMitgliedstaatEORI = Value End Set End Property + Public Property ErwerberAndererMitgliedstaatNLNR() As String Get - Return Me.erwerberAndererMitgliedstaatNLNRField + Return Me._erwerberAndererMitgliedstaatNLNR End Get Set - Me.erwerberAndererMitgliedstaatNLNRField = Value + Me._erwerberAndererMitgliedstaatNLNR = Value End Set End Property + Public Property ErwerberFirmenbezeichnung() As String Get - Return Me.erwerberFirmenbezeichnungField + Return Me._erwerberFirmenbezeichnung End Get Set - Me.erwerberFirmenbezeichnungField = Value + Me._erwerberFirmenbezeichnung = Value End Set End Property + Public Property ErwerberNationalitaet() As String Get - Return Me.erwerberNationalitaetField + Return Me._erwerberNationalitaet End Get Set - Me.erwerberNationalitaetField = Value + Me._erwerberNationalitaet = Value End Set End Property + Public Property ErwerberStrasseHausNr() As String Get - Return Me.erwerberStrasseHausNrField + Return Me._erwerberStrasseHausNr End Get Set - Me.erwerberStrasseHausNrField = Value + Me._erwerberStrasseHausNr = Value End Set End Property + Public Property ErwerberPLZS() As String Get - Return Me.erwerberPLZSField + Return Me._erwerberPLZS End Get Set - Me.erwerberPLZSField = Value + Me._erwerberPLZS = Value End Set End Property + Public Property ErwerberOrtS() As String Get - Return Me.erwerberOrtSField + Return Me._erwerberOrtS End Get Set - Me.erwerberOrtSField = Value + Me._erwerberOrtS = Value End Set End Property + Public Property ErwerberOrtsteil() As String Get - Return Me.erwerberOrtsteilField + Return Me._erwerberOrtsteil End Get Set - Me.erwerberOrtsteilField = Value + Me._erwerberOrtsteil = Value End Set End Property + Public Property ErwerberUStIdNrAndererMitgliedstaat() As String Get - Return Me.erwerberUStIdNrAndererMitgliedstaatField + Return Me._erwerberUStIdNrAndererMitgliedstaat End Get Set - Me.erwerberUStIdNrAndererMitgliedstaatField = Value + Me._erwerberUStIdNrAndererMitgliedstaat = Value End Set End Property + Public Property VersenderAusfuehrerEORI() As String Get - Return Me.versenderAusfuehrerEORIField + Return Me._versenderAusfuehrerEORI End Get Set - Me.versenderAusfuehrerEORIField = Value + Me._versenderAusfuehrerEORI = Value End Set End Property + Public Property VersenderAusfuehrerFirmenbezeichnung() As String Get - Return Me.versenderAusfuehrerFirmenbezeichnungField + Return Me._versenderAusfuehrerFirmenbezeichnung End Get Set - Me.versenderAusfuehrerFirmenbezeichnungField = Value + Me._versenderAusfuehrerFirmenbezeichnung = Value End Set End Property + Public Property VersenderAusfuehrerNationalitaet() As String Get - Return Me.versenderAusfuehrerNationalitaetField + Return Me._versenderAusfuehrerNationalitaet End Get Set - Me.versenderAusfuehrerNationalitaetField = Value + Me._versenderAusfuehrerNationalitaet = Value End Set End Property + Public Property VersenderAusfuehrerStrasseHausNr() As String Get - Return Me.versenderAusfuehrerStrasseHausNrField + Return Me._versenderAusfuehrerStrasseHausNr End Get Set - Me.versenderAusfuehrerStrasseHausNrField = Value + Me._versenderAusfuehrerStrasseHausNr = Value End Set End Property + Public Property VersenderAusfuehrerPLZS() As String Get - Return Me.versenderAusfuehrerPLZSField + Return Me._versenderAusfuehrerPLZS End Get Set - Me.versenderAusfuehrerPLZSField = Value + Me._versenderAusfuehrerPLZS = Value End Set End Property + Public Property VersenderAusfuehrerOrtS() As String Get - Return Me.versenderAusfuehrerOrtSField + Return Me._versenderAusfuehrerOrtS End Get Set - Me.versenderAusfuehrerOrtSField = Value + Me._versenderAusfuehrerOrtS = Value End Set End Property + Public Property VersenderAusfuehrerOrtsteil() As String Get - Return Me.versenderAusfuehrerOrtsteilField + Return Me._versenderAusfuehrerOrtsteil End Get Set - Me.versenderAusfuehrerOrtsteilField = Value + Me._versenderAusfuehrerOrtsteil = Value End Set End Property + Public Property Unterlage() As List(Of AnmeldungVBTyp) Get - Return Me.unterlageField + Return Me._unterlage End Get Set - Me.unterlageField = Value + Me._unterlage = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KopfdatenBefundVereinfachteZollanmeldungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfdatenBefundVereinfachteZollanmeldungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current KopfdatenBefundVereinfachteZollanmeldungTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -5337,18 +5638,22 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' + ''' string to deserialize + ''' Output KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfdatenBefundVereinfachteZollanmeldungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -5356,16 +5661,16 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As KopfdatenBefundVereinfachteZollanmeldungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfdatenBefundVereinfachteZollanmeldungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -5373,16 +5678,21 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfdatenBefundVereinfachteZollanmeldungTyp + Return CType(SerializerXml.Deserialize(s), KopfdatenBefundVereinfachteZollanmeldungTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -5390,13 +5700,20 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -5405,18 +5722,18 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + ''' + ''' Deserializes xml markup from file into an KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfdatenBefundVereinfachteZollanmeldungTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -5424,21 +5741,29 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -5448,112 +5773,127 @@ Namespace BefundVereinfachteZollanmeldung_008 End If End Try End Function -#End Region End Class + Partial Public Class TransaktionFreierVerkehrTyp - Private iOPartnerField As String +#Region "Private fields" + Private _iOPartner As String - Private iODivision1Field As String + Private _iODivision1 As String - Private iODivision2Field As String + Private _iODivision2 As String - Private iODivision3Field As String + Private _iODivision3 As String - Private iOReferenzField As String + Private _iOReferenz As String - Private iODatumZeitField As Date + Private _iODatumZeit As Date - Private versionField As String + Private _version As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property IOPartner() As String Get - Return Me.iOPartnerField + Return Me._iOPartner End Get Set - Me.iOPartnerField = Value + Me._iOPartner = Value End Set End Property + Public Property IODivision1() As String Get - Return Me.iODivision1Field + Return Me._iODivision1 End Get Set - Me.iODivision1Field = Value + Me._iODivision1 = Value End Set End Property + Public Property IODivision2() As String Get - Return Me.iODivision2Field + Return Me._iODivision2 End Get Set - Me.iODivision2Field = Value + Me._iODivision2 = Value End Set End Property + Public Property IODivision3() As String Get - Return Me.iODivision3Field + Return Me._iODivision3 End Get Set - Me.iODivision3Field = Value + Me._iODivision3 = Value End Set End Property + Public Property IOReferenz() As String Get - Return Me.iOReferenzField + Return Me._iOReferenz End Get Set - Me.iOReferenzField = Value + Me._iOReferenz = Value End Set End Property + Public Property IODatumZeit() As Date Get - Return Me.iODatumZeitField + Return Me._iODatumZeit End Get Set - Me.iODatumZeitField = Value + Me._iODatumZeit = Value End Set End Property + Public Property Version() As String Get - Return Me.versionField + Return Me._version End Get Set - Me.versionField = Value + Me._version = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TransaktionFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current TransaktionFreierVerkehrTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -5565,18 +5905,22 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -5584,16 +5928,16 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As TransaktionFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -5601,16 +5945,21 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -5618,13 +5967,20 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -5633,18 +5989,18 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, 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) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -5652,21 +6008,29 @@ Namespace BefundVereinfachteZollanmeldung_008 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, System.Text.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, System.Text.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) - Dim xmlString As String = sr.ReadToEnd + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -5676,52 +6040,61 @@ Namespace BefundVereinfachteZollanmeldung_008 End If End Try End Function -#End Region End Class - + Partial Public Class DatenaustauschFreierVerkehrTyp - Private transaktionField As TransaktionFreierVerkehrTyp +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.transaktionField = New TransaktionFreierVerkehrTyp() + Me._transaktion = New TransaktionFreierVerkehrTyp() End Sub + Public Property Transaktion() As TransaktionFreierVerkehrTyp Get - Return Me.transaktionField + Return Me._transaktion End Get Set - Me.transaktionField = Value + Me._transaktion = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -5733,18 +6106,22 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -5752,16 +6129,16 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As DatenaustauschFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -5769,16 +6146,21 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -5786,13 +6168,20 @@ Namespace BefundVereinfachteZollanmeldung_008 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -5801,18 +6190,18 @@ Namespace BefundVereinfachteZollanmeldung_008 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 + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, 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) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -5820,21 +6209,29 @@ Namespace BefundVereinfachteZollanmeldung_008 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, System.Text.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, System.Text.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) - Dim xmlString As String = sr.ReadToEnd + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -5844,6 +6241,6 @@ Namespace BefundVereinfachteZollanmeldung_008 End If End Try End Function -#End Region End Class End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_004.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_004.designer.vb index 5d46a72..3894da2 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_004.designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_004.designer.vb @@ -1,64 +1,78 @@ '' ------------------------------------------------------------------------------ '' -'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) -'' EntscheidungAnmeldung_004ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net20","NameSpace":"EntscheidungAnmeldung_004","Language":"VisualBasic","CollectionBase":"","Properties":{"PrivateFieldCustomPrefix":""},"XmlAttribute":{"Enabled":true,"GenerateOrderXmlAttributes":true},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"IndentChars":"Indent1Space"},"JsonOutput":{},"Enabled":true,"EnableEncoding":true},"Miscellaneous":{"CleanupCode":false}} '' '' ------------------------------------------------------------------------------ +#Disable Warning Imports System Imports System.Diagnostics Imports System.Xml.Serialization +Imports System.Runtime.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel +Imports System.Xml Imports System.IO Imports System.Text Imports System.Collections.Generic Namespace EntscheidungAnmeldung_004 + Partial Public Class EntscheidungAnmeldungRLTyp Inherits DatenaustauschFreierVerkehrTyp - Private einzelEntscheidungAnmeldungField As EinzelEntscheidungAnmeldungTyp +#Region "Private fields" + Private _einzelEntscheidungAnmeldung As EinzelEntscheidungAnmeldungTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.einzelEntscheidungAnmeldungField = New EinzelEntscheidungAnmeldungTyp() + Me._einzelEntscheidungAnmeldung = New EinzelEntscheidungAnmeldungTyp() End Sub + Public Property EinzelEntscheidungAnmeldung() As EinzelEntscheidungAnmeldungTyp Get - Return Me.einzelEntscheidungAnmeldungField + Return Me._einzelEntscheidungAnmeldung End Get Set - Me.einzelEntscheidungAnmeldungField = Value + Me._einzelEntscheidungAnmeldung = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EntscheidungAnmeldungRLTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EntscheidungAnmeldungRLTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current EntscheidungAnmeldungRLTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize EntscheidungAnmeldungRLTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -70,18 +84,22 @@ Namespace EntscheidungAnmeldung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes EntscheidungAnmeldungRLTyp object + ''' + ''' string to deserialize + ''' Output EntscheidungAnmeldungRLTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EntscheidungAnmeldungRLTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EntscheidungAnmeldungRLTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -89,16 +107,16 @@ Namespace EntscheidungAnmeldung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EntscheidungAnmeldungRLTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EntscheidungAnmeldungRLTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As EntscheidungAnmeldungRLTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EntscheidungAnmeldungRLTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -106,16 +124,21 @@ Namespace EntscheidungAnmeldung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EntscheidungAnmeldungRLTyp + Return CType(SerializerXml.Deserialize(s), EntscheidungAnmeldungRLTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -123,13 +146,20 @@ Namespace EntscheidungAnmeldung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -138,18 +168,18 @@ Namespace EntscheidungAnmeldung_004 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 + ''' + ''' Deserializes xml markup from file into an EntscheidungAnmeldungRLTyp object + ''' + ''' File to load and deserialize + ''' Output EntscheidungAnmeldungRLTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EntscheidungAnmeldungRLTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EntscheidungAnmeldungRLTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -157,21 +187,29 @@ Namespace EntscheidungAnmeldung_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EntscheidungAnmeldungRLTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -181,75 +219,86 @@ Namespace EntscheidungAnmeldung_004 End If End Try End Function -#End Region End Class + Partial Public Class EinzelEntscheidungAnmeldungTyp - Private objektIdentifizierungField As ObjektIdentifizierungRLTyp +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungRLTyp - Private kopfDatenField As KopfDatenEntscheidungAnmeldungTyp + Private _kopfDaten As KopfDatenEntscheidungAnmeldungTyp - Private positionField As List(Of PositionEntscheidungAnmeldungTyp) + Private _position As List(Of PositionEntscheidungAnmeldungTyp) - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.positionField = New List(Of PositionEntscheidungAnmeldungTyp)() - Me.kopfDatenField = New KopfDatenEntscheidungAnmeldungTyp() - Me.objektIdentifizierungField = New ObjektIdentifizierungRLTyp() + Me._position = New List(Of PositionEntscheidungAnmeldungTyp)() + Me._kopfDaten = New KopfDatenEntscheidungAnmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungRLTyp() End Sub + Public Property ObjektIdentifizierung() As ObjektIdentifizierungRLTyp Get - Return Me.objektIdentifizierungField + Return Me._objektIdentifizierung End Get Set - Me.objektIdentifizierungField = Value + Me._objektIdentifizierung = Value End Set End Property + Public Property KopfDaten() As KopfDatenEntscheidungAnmeldungTyp Get - Return Me.kopfDatenField + Return Me._kopfDaten End Get Set - Me.kopfDatenField = Value + Me._kopfDaten = Value End Set End Property + Public Property Position() As List(Of PositionEntscheidungAnmeldungTyp) Get - Return Me.positionField + Return Me._position End Get Set - Me.positionField = Value + Me._position = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelEntscheidungAnmeldungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelEntscheidungAnmeldungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current EinzelEntscheidungAnmeldungTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize EinzelEntscheidungAnmeldungTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -261,18 +310,22 @@ Namespace EntscheidungAnmeldung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes EinzelEntscheidungAnmeldungTyp object + ''' + ''' string to deserialize + ''' Output EinzelEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelEntscheidungAnmeldungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -280,16 +333,16 @@ Namespace EntscheidungAnmeldung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelEntscheidungAnmeldungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEntscheidungAnmeldungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelEntscheidungAnmeldungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelEntscheidungAnmeldungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -297,16 +350,21 @@ Namespace EntscheidungAnmeldung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelEntscheidungAnmeldungTyp + Return CType(SerializerXml.Deserialize(s), EinzelEntscheidungAnmeldungTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -314,13 +372,20 @@ Namespace EntscheidungAnmeldung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -329,18 +394,18 @@ Namespace EntscheidungAnmeldung_004 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 + ''' + ''' Deserializes xml markup from file into an EinzelEntscheidungAnmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EinzelEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelEntscheidungAnmeldungTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -348,21 +413,29 @@ Namespace EntscheidungAnmeldung_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -372,90 +445,103 @@ Namespace EntscheidungAnmeldung_004 End If End Try End Function -#End Region End Class + Partial Public Class ObjektIdentifizierungRLTyp - Private objektNameField As String +#Region "Private fields" + Private _objektName As String - Private objektAliasField As String + Private _objektAlias As String - Private eDIFACTNachrichtenNrField As String + Private _eDIFACTNachrichtenNr As String - Private zeitpunktEingangField As Date + Private _zeitpunktEingang As Date - Private shipmentReferenzField As String + Private _shipmentReferenz As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property ObjektName() As String Get - Return Me.objektNameField + Return Me._objektName End Get Set - Me.objektNameField = Value + Me._objektName = Value End Set End Property + Public Property ObjektAlias() As String Get - Return Me.objektAliasField + Return Me._objektAlias End Get Set - Me.objektAliasField = Value + Me._objektAlias = Value End Set End Property + Public Property EDIFACTNachrichtenNr() As String Get - Return Me.eDIFACTNachrichtenNrField + Return Me._eDIFACTNachrichtenNr End Get Set - Me.eDIFACTNachrichtenNrField = Value + Me._eDIFACTNachrichtenNr = Value End Set End Property + Public Property ZeitpunktEingang() As Date Get - Return Me.zeitpunktEingangField + Return Me._zeitpunktEingang End Get Set - Me.zeitpunktEingangField = Value + Me._zeitpunktEingang = Value End Set End Property + Public Property ShipmentReferenz() As String Get - Return Me.shipmentReferenzField + Return Me._shipmentReferenz End Get Set - Me.shipmentReferenzField = Value + Me._shipmentReferenz = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungRLTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungRLTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current ObjektIdentifizierungRLTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize ObjektIdentifizierungRLTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -467,18 +553,22 @@ Namespace EntscheidungAnmeldung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes ObjektIdentifizierungRLTyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungRLTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungRLTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungRLTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -486,16 +576,16 @@ Namespace EntscheidungAnmeldung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungRLTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungRLTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As ObjektIdentifizierungRLTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungRLTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -503,16 +593,21 @@ Namespace EntscheidungAnmeldung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungRLTyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungRLTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -520,13 +615,20 @@ Namespace EntscheidungAnmeldung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -535,18 +637,18 @@ Namespace EntscheidungAnmeldung_004 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 + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungRLTyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungRLTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As ObjektIdentifizierungRLTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungRLTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -554,21 +656,29 @@ Namespace EntscheidungAnmeldung_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungRLTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -578,170 +688,151 @@ Namespace EntscheidungAnmeldung_004 End If End Try End Function -#End Region End Class + Partial Public Class PositionEntscheidungAnmeldungTyp - Private positionsnummerField As String +#Region "Private fields" + Private _positionsnummer As String - Private annahmeKzField As String + Private _annahmeKz As String - Private annahmeDatumField As Date + Private _annahmeDatum As Date - Private annahmeDatumFieldSpecified As Boolean + Private _ueberlassungKz As String - Private ueberlassungKzField As String + Private _ueberlassungDatum As Date - Private ueberlassungDatumField As Date + Private _ueberlassungUhrzeit As Date - Private ueberlassungDatumFieldSpecified As Boolean + Private _mitteilungTeilnehmerBeschau As String - Private ueberlassungUhrzeitField As Date + Private _rueckgabeKz As String - Private ueberlassungUhrzeitFieldSpecified As Boolean + Private _anordnungKz As String - Private mitteilungTeilnehmerBeschauField As String - - Private rueckgabeKzField As String - - Private anordnungKzField As String - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property Positionsnummer() As String Get - Return Me.positionsnummerField + Return Me._positionsnummer End Get Set - Me.positionsnummerField = Value + Me._positionsnummer = Value End Set End Property + Public Property AnnahmeKz() As String Get - Return Me.annahmeKzField + Return Me._annahmeKz End Get Set - Me.annahmeKzField = Value + Me._annahmeKz = Value End Set End Property + Public Property AnnahmeDatum() As Date Get - Return Me.annahmeDatumField + Return Me._annahmeDatum 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 + Me._annahmeDatum = Value End Set End Property + Public Property UeberlassungKz() As String Get - Return Me.ueberlassungKzField + Return Me._ueberlassungKz End Get Set - Me.ueberlassungKzField = Value + Me._ueberlassungKz = Value End Set End Property + Public Property UeberlassungDatum() As Date Get - Return Me.ueberlassungDatumField + Return Me._ueberlassungDatum 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 + Me._ueberlassungDatum = Value End Set End Property + Public Property UeberlassungUhrzeit() As Date Get - Return Me.ueberlassungUhrzeitField + Return Me._ueberlassungUhrzeit 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 + Me._ueberlassungUhrzeit = Value End Set End Property + Public Property MitteilungTeilnehmerBeschau() As String Get - Return Me.mitteilungTeilnehmerBeschauField + Return Me._mitteilungTeilnehmerBeschau End Get Set - Me.mitteilungTeilnehmerBeschauField = Value + Me._mitteilungTeilnehmerBeschau = Value End Set End Property + Public Property RueckgabeKz() As String Get - Return Me.rueckgabeKzField + Return Me._rueckgabeKz End Get Set - Me.rueckgabeKzField = Value + Me._rueckgabeKz = Value End Set End Property + Public Property AnordnungKz() As String Get - Return Me.anordnungKzField + Return Me._anordnungKz End Get Set - Me.anordnungKzField = Value + Me._anordnungKz = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PositionEntscheidungAnmeldungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionEntscheidungAnmeldungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current PositionEntscheidungAnmeldungTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize PositionEntscheidungAnmeldungTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -753,18 +844,22 @@ Namespace EntscheidungAnmeldung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes PositionEntscheidungAnmeldungTyp object + ''' + ''' string to deserialize + ''' Output PositionEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionEntscheidungAnmeldungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -772,16 +867,16 @@ Namespace EntscheidungAnmeldung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionEntscheidungAnmeldungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionEntscheidungAnmeldungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As PositionEntscheidungAnmeldungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionEntscheidungAnmeldungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -789,16 +884,21 @@ Namespace EntscheidungAnmeldung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionEntscheidungAnmeldungTyp + Return CType(SerializerXml.Deserialize(s), PositionEntscheidungAnmeldungTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -806,13 +906,20 @@ Namespace EntscheidungAnmeldung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -821,18 +928,18 @@ Namespace EntscheidungAnmeldung_004 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 + ''' + ''' Deserializes xml markup from file into an PositionEntscheidungAnmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output PositionEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As PositionEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionEntscheidungAnmeldungTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -840,21 +947,29 @@ Namespace EntscheidungAnmeldung_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -864,95 +979,108 @@ Namespace EntscheidungAnmeldung_004 End If End Try End Function -#End Region End Class + Partial Public Class KopfDatenEntscheidungAnmeldungTyp - Private registriernummerField As String +#Region "Private fields" + Private _registriernummer As String - Private mitteilungTeilnehmerGestellungsmodalitaetenField As String + Private _mitteilungTeilnehmerGestellungsmodalitaeten As String - Private bearbeiterZollField As String + Private _bearbeiterZoll As String - Private arbeitsnummerVorzeitigeAnmeldungField As String + Private _arbeitsnummerVorzeitigeAnmeldung As String - Private containernummerField As List(Of String) + Private _containernummer As List(Of String) - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.containernummerField = New List(Of String)() + Me._containernummer = New List(Of String)() End Sub + Public Property Registriernummer() As String Get - Return Me.registriernummerField + Return Me._registriernummer End Get Set - Me.registriernummerField = Value + Me._registriernummer = Value End Set End Property + Public Property MitteilungTeilnehmerGestellungsmodalitaeten() As String Get - Return Me.mitteilungTeilnehmerGestellungsmodalitaetenField + Return Me._mitteilungTeilnehmerGestellungsmodalitaeten End Get Set - Me.mitteilungTeilnehmerGestellungsmodalitaetenField = Value + Me._mitteilungTeilnehmerGestellungsmodalitaeten = Value End Set End Property + Public Property BearbeiterZoll() As String Get - Return Me.bearbeiterZollField + Return Me._bearbeiterZoll End Get Set - Me.bearbeiterZollField = Value + Me._bearbeiterZoll = Value End Set End Property + Public Property ArbeitsnummerVorzeitigeAnmeldung() As String Get - Return Me.arbeitsnummerVorzeitigeAnmeldungField + Return Me._arbeitsnummerVorzeitigeAnmeldung End Get Set - Me.arbeitsnummerVorzeitigeAnmeldungField = Value + Me._arbeitsnummerVorzeitigeAnmeldung = Value End Set End Property + Public Property Containernummer() As List(Of String) Get - Return Me.containernummerField + Return Me._containernummer End Get Set - Me.containernummerField = Value + Me._containernummer = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KopfDatenEntscheidungAnmeldungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEntscheidungAnmeldungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current KopfDatenEntscheidungAnmeldungTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize KopfDatenEntscheidungAnmeldungTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -964,18 +1092,22 @@ Namespace EntscheidungAnmeldung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes KopfDatenEntscheidungAnmeldungTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenEntscheidungAnmeldungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -983,16 +1115,16 @@ Namespace EntscheidungAnmeldung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenEntscheidungAnmeldungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEntscheidungAnmeldungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As KopfDatenEntscheidungAnmeldungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenEntscheidungAnmeldungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1000,16 +1132,21 @@ Namespace EntscheidungAnmeldung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenEntscheidungAnmeldungTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenEntscheidungAnmeldungTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1017,13 +1154,20 @@ Namespace EntscheidungAnmeldung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1032,18 +1176,18 @@ Namespace EntscheidungAnmeldung_004 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 + ''' + ''' Deserializes xml markup from file into an KopfDatenEntscheidungAnmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As KopfDatenEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenEntscheidungAnmeldungTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1051,21 +1195,29 @@ Namespace EntscheidungAnmeldung_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1075,112 +1227,127 @@ Namespace EntscheidungAnmeldung_004 End If End Try End Function -#End Region End Class + Partial Public Class TransaktionFreierVerkehrTyp - Private iOPartnerField As String +#Region "Private fields" + Private _iOPartner As String - Private iODivision1Field As String + Private _iODivision1 As String - Private iODivision2Field As String + Private _iODivision2 As String - Private iODivision3Field As String + Private _iODivision3 As String - Private iOReferenzField As String + Private _iOReferenz As String - Private iODatumZeitField As Date + Private _iODatumZeit As Date - Private versionField As String + Private _version As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property IOPartner() As String Get - Return Me.iOPartnerField + Return Me._iOPartner End Get Set - Me.iOPartnerField = Value + Me._iOPartner = Value End Set End Property + Public Property IODivision1() As String Get - Return Me.iODivision1Field + Return Me._iODivision1 End Get Set - Me.iODivision1Field = Value + Me._iODivision1 = Value End Set End Property + Public Property IODivision2() As String Get - Return Me.iODivision2Field + Return Me._iODivision2 End Get Set - Me.iODivision2Field = Value + Me._iODivision2 = Value End Set End Property + Public Property IODivision3() As String Get - Return Me.iODivision3Field + Return Me._iODivision3 End Get Set - Me.iODivision3Field = Value + Me._iODivision3 = Value End Set End Property + Public Property IOReferenz() As String Get - Return Me.iOReferenzField + Return Me._iOReferenz End Get Set - Me.iOReferenzField = Value + Me._iOReferenz = Value End Set End Property + Public Property IODatumZeit() As Date Get - Return Me.iODatumZeitField + Return Me._iODatumZeit End Get Set - Me.iODatumZeitField = Value + Me._iODatumZeit = Value End Set End Property + Public Property Version() As String Get - Return Me.versionField + Return Me._version End Get Set - Me.versionField = Value + Me._version = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TransaktionFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current TransaktionFreierVerkehrTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1192,18 +1359,22 @@ Namespace EntscheidungAnmeldung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1211,16 +1382,16 @@ Namespace EntscheidungAnmeldung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As TransaktionFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1228,16 +1399,21 @@ Namespace EntscheidungAnmeldung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1245,13 +1421,20 @@ Namespace EntscheidungAnmeldung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1260,18 +1443,18 @@ Namespace EntscheidungAnmeldung_004 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 + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, 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) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1279,21 +1462,29 @@ Namespace EntscheidungAnmeldung_004 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, System.Text.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, System.Text.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) - Dim xmlString As String = sr.ReadToEnd + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1303,52 +1494,61 @@ Namespace EntscheidungAnmeldung_004 End If End Try End Function -#End Region End Class - + Partial Public Class DatenaustauschFreierVerkehrTyp - Private transaktionField As TransaktionFreierVerkehrTyp +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.transaktionField = New TransaktionFreierVerkehrTyp() + Me._transaktion = New TransaktionFreierVerkehrTyp() End Sub + Public Property Transaktion() As TransaktionFreierVerkehrTyp Get - Return Me.transaktionField + Return Me._transaktion End Get Set - Me.transaktionField = Value + Me._transaktion = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1360,18 +1560,22 @@ Namespace EntscheidungAnmeldung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1379,16 +1583,16 @@ Namespace EntscheidungAnmeldung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As DatenaustauschFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1396,16 +1600,21 @@ Namespace EntscheidungAnmeldung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1413,13 +1622,20 @@ Namespace EntscheidungAnmeldung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1428,18 +1644,18 @@ Namespace EntscheidungAnmeldung_004 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 + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, 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) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1447,21 +1663,29 @@ Namespace EntscheidungAnmeldung_004 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, System.Text.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, System.Text.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) - Dim xmlString As String = sr.ReadToEnd + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1471,6 +1695,6 @@ Namespace EntscheidungAnmeldung_004 End If End Try End Function -#End Region End Class End Namespace +#Enable Warning 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 index ee612ef..320be0f 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2022.designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_V2022.designer.vb @@ -1,62 +1,67 @@ '' ------------------------------------------------------------------------------ '' -'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) -'' FreierVerkehrAktVeredelUmwandlung_004ListVisualBasicFalseFalseFalseFalseFalseFalseTrueTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileTrueTrueTrueFalseFalseFalseDefaultUTF8FalseTrue +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net20","NameSpace":"FreierVerkehrAktVeredelUmwandlung_004","Language":"VisualBasic","CollectionBase":"","Properties":{"VirtualProperties":true,"PrivateFieldCustomPrefix":""},"XmlAttribute":{"Enabled":true,"GenerateOrderXmlAttributes":true},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"IndentChars":"Indent1Space"},"JsonOutput":{},"Enabled":true,"EnableEncoding":true},"Miscellaneous":{"CleanupCode":false}} '' '' ------------------------------------------------------------------------------ +#Disable Warning Imports System Imports System.Diagnostics Imports System.Xml.Serialization +Imports System.Runtime.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel +Imports System.Xml Imports System.IO Imports System.Text -Imports System.Xml Imports System.Collections.Generic Namespace FreierVerkehrAktVeredelUmwandlung_004 Partial Public Class FreierVerkehrAktVeredelUmwandlungAVUVTyp Inherits DatenaustauschFreierVerkehrTyp - Private einzelAnmeldungField As List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp) +#Region "Private fields" + Private _einzelAnmeldung As List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp) - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.einzelAnmeldungField = New List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp)() + Me._einzelAnmeldung = New List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp)() End Sub Public Overridable Property EinzelAnmeldung() As List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp) Get - Return Me.einzelAnmeldungField + Return Me._einzelAnmeldung End Get Set - Me.einzelAnmeldungField = Value + Me._einzelAnmeldung = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FreierVerkehrAktVeredelUmwandlungAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FreierVerkehrAktVeredelUmwandlungAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current FreierVerkehrAktVeredelUmwandlungAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize FreierVerkehrAktVeredelUmwandlungAVUVTyp object + ''' + ''' 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 @@ -65,9 +70,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -80,21 +85,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes FreierVerkehrAktVeredelUmwandlungAVUVTyp object + ''' + ''' string to deserialize + ''' Output FreierVerkehrAktVeredelUmwandlungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FreierVerkehrAktVeredelUmwandlungAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -102,16 +107,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As FreierVerkehrAktVeredelUmwandlungAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FreierVerkehrAktVeredelUmwandlungAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -119,12 +124,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FreierVerkehrAktVeredelUmwandlungAVUVTyp + Return CType(SerializerXml.Deserialize(s), FreierVerkehrAktVeredelUmwandlungAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current FreierVerkehrAktVeredelUmwandlungAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -137,19 +147,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -158,13 +168,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an FreierVerkehrAktVeredelUmwandlungAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output FreierVerkehrAktVeredelUmwandlungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FreierVerkehrAktVeredelUmwandlungAVUVTyp) @@ -178,7 +188,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp) As Boolean @@ -187,7 +197,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FreierVerkehrAktVeredelUmwandlungAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FreierVerkehrAktVeredelUmwandlungAVUVTyp @@ -196,10 +206,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -209,74 +219,75 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class EinzelEinfuhrUnvollstaendigeAnmeldungTyp - Private objektIdentifizierungField As ObjektIdentifizierungAVUVTyp +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungAVUVTyp - Private kopfDatenField As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + Private _kopfDaten As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp - Private warenPositionField As List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp) + Private _warenPosition As List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp) - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.warenPositionField = New List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp)() - Me.kopfDatenField = New KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp() - Me.objektIdentifizierungField = New ObjektIdentifizierungAVUVTyp() + Me._warenPosition = New List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp)() + Me._kopfDaten = New KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungAVUVTyp() End Sub Public Overridable Property ObjektIdentifizierung() As ObjektIdentifizierungAVUVTyp Get - Return Me.objektIdentifizierungField + Return Me._objektIdentifizierung End Get Set - Me.objektIdentifizierungField = Value + Me._objektIdentifizierung = Value End Set End Property Public Overridable Property KopfDaten() As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp Get - Return Me.kopfDatenField + Return Me._kopfDaten End Get Set - Me.kopfDatenField = Value + Me._kopfDaten = Value End Set End Property Public Overridable Property WarenPosition() As List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp) Get - Return Me.warenPositionField + Return Me._warenPosition End Get Set - Me.warenPositionField = Value + Me._warenPosition = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelEinfuhrUnvollstaendigeAnmeldungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelEinfuhrUnvollstaendigeAnmeldungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current EinzelEinfuhrUnvollstaendigeAnmeldungTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' 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 @@ -285,9 +296,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -300,21 +311,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' string to deserialize + ''' Output EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelEinfuhrUnvollstaendigeAnmeldungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -322,16 +333,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelEinfuhrUnvollstaendigeAnmeldungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelEinfuhrUnvollstaendigeAnmeldungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -339,12 +350,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelEinfuhrUnvollstaendigeAnmeldungTyp + Return CType(SerializerXml.Deserialize(s), EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelEinfuhrUnvollstaendigeAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -357,19 +373,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -378,13 +394,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelEinfuhrUnvollstaendigeAnmeldungTyp) @@ -398,7 +414,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean @@ -407,7 +423,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelEinfuhrUnvollstaendigeAnmeldungTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As EinzelEinfuhrUnvollstaendigeAnmeldungTyp @@ -416,10 +432,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -429,192 +445,193 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class ObjektIdentifizierungAVUVTyp - Private objektNameField As String +#Region "Private fields" + Private _objektName As String - Private objektAliasField As String + Private _objektAlias As String - Private anmeldungArtField As String + Private _anmeldungArt As String - Private objektQuittungField As String + Private _objektQuittung As String - Private bezugsnummerVorblendungField As String + Private _bezugsnummerVorblendung As String - Private userVorblendungField As String + Private _userVorblendung As String - Private kopieVonField As String + Private _kopieVon As String - Private objektAktionField As List(Of String) + Private _objektAktion As List(Of String) - Private compliancePruefungField As String + Private _compliancePruefung As String - Private bearbeiterField As String + Private _bearbeiter As String - Private anfBemerkungStatusanzeigeField As String + Private _anfBemerkungStatusanzeige As String - Private absenderSystemNameField As String + Private _absenderSystemName As String - Private shipmentReferenzField As String + Private _shipmentReferenz As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.objektAktionField = New List(Of String)() + Me._objektAktion = New List(Of String)() End Sub Public Overridable Property ObjektName() As String Get - Return Me.objektNameField + Return Me._objektName End Get Set - Me.objektNameField = Value + Me._objektName = Value End Set End Property Public Overridable Property ObjektAlias() As String Get - Return Me.objektAliasField + Return Me._objektAlias End Get Set - Me.objektAliasField = Value + Me._objektAlias = Value End Set End Property Public Overridable Property AnmeldungArt() As String Get - Return Me.anmeldungArtField + Return Me._anmeldungArt End Get Set - Me.anmeldungArtField = Value + Me._anmeldungArt = Value End Set End Property Public Overridable Property ObjektQuittung() As String Get - Return Me.objektQuittungField + Return Me._objektQuittung End Get Set - Me.objektQuittungField = Value + Me._objektQuittung = Value End Set End Property Public Overridable Property BezugsnummerVorblendung() As String Get - Return Me.bezugsnummerVorblendungField + Return Me._bezugsnummerVorblendung End Get Set - Me.bezugsnummerVorblendungField = Value + Me._bezugsnummerVorblendung = Value End Set End Property Public Overridable Property UserVorblendung() As String Get - Return Me.userVorblendungField + Return Me._userVorblendung End Get Set - Me.userVorblendungField = Value + Me._userVorblendung = Value End Set End Property Public Overridable Property KopieVon() As String Get - Return Me.kopieVonField + Return Me._kopieVon End Get Set - Me.kopieVonField = Value + Me._kopieVon = Value End Set End Property Public Overridable Property ObjektAktion() As List(Of String) Get - Return Me.objektAktionField + Return Me._objektAktion End Get Set - Me.objektAktionField = Value + Me._objektAktion = Value End Set End Property Public Overridable Property CompliancePruefung() As String Get - Return Me.compliancePruefungField + Return Me._compliancePruefung End Get Set - Me.compliancePruefungField = Value + Me._compliancePruefung = Value End Set End Property Public Overridable Property Bearbeiter() As String Get - Return Me.bearbeiterField + Return Me._bearbeiter End Get Set - Me.bearbeiterField = Value + Me._bearbeiter = Value End Set End Property Public Overridable Property AnfBemerkungStatusanzeige() As String Get - Return Me.anfBemerkungStatusanzeigeField + Return Me._anfBemerkungStatusanzeige End Get Set - Me.anfBemerkungStatusanzeigeField = Value + Me._anfBemerkungStatusanzeige = Value End Set End Property Public Overridable Property AbsenderSystemName() As String Get - Return Me.absenderSystemNameField + Return Me._absenderSystemName End Get Set - Me.absenderSystemNameField = Value + Me._absenderSystemName = Value End Set End Property Public Overridable Property ShipmentReferenz() As String Get - Return Me.shipmentReferenzField + Return Me._shipmentReferenz End Get Set - Me.shipmentReferenzField = Value + Me._shipmentReferenz = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current ObjektIdentifizierungAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize ObjektIdentifizierungAVUVTyp object + ''' + ''' 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 @@ -623,9 +640,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -638,21 +655,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes ObjektIdentifizierungAVUVTyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -660,16 +677,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As ObjektIdentifizierungAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -677,12 +694,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungAVUVTyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -695,19 +717,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -716,13 +738,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As ObjektIdentifizierungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungAVUVTyp) @@ -736,7 +758,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungAVUVTyp) As Boolean @@ -745,7 +767,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As ObjektIdentifizierungAVUVTyp @@ -754,10 +776,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -767,151 +789,152 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class AussenhandelsstatistikAVUVTyp - Private verkehrszweigInlandField As String +#Region "Private fields" + Private _verkehrszweigInland As String - Private verkehrszweigGrenzeField As String + Private _verkehrszweigGrenze As String - Private versendungslandField As String + Private _versendungsland As String - Private bestimmungsbundeslandField As String + Private _bestimmungsbundesland As String - Private bestimmungslandField As String + Private _bestimmungsland As String - Private befoerderungsmittelGrenzeStaatszugehoerigkeitCodeField As String + Private _befoerderungsmittelGrenzeStaatszugehoerigkeitCode As String - Private befoerderungsmittelGrenzeArtField As String + Private _befoerderungsmittelGrenzeArt As String - Private befoerderungsmittelBeschreibungField As String + Private _befoerderungsmittelBeschreibung As String - Private artGeschaeftField As String + Private _artGeschaeft As String - Private statistikstatusField As String + Private _statistikstatus As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property VerkehrszweigInland() As String Get - Return Me.verkehrszweigInlandField + Return Me._verkehrszweigInland End Get Set - Me.verkehrszweigInlandField = Value + Me._verkehrszweigInland = Value End Set End Property Public Overridable Property VerkehrszweigGrenze() As String Get - Return Me.verkehrszweigGrenzeField + Return Me._verkehrszweigGrenze End Get Set - Me.verkehrszweigGrenzeField = Value + Me._verkehrszweigGrenze = Value End Set End Property Public Overridable Property Versendungsland() As String Get - Return Me.versendungslandField + Return Me._versendungsland End Get Set - Me.versendungslandField = Value + Me._versendungsland = Value End Set End Property Public Overridable Property Bestimmungsbundesland() As String Get - Return Me.bestimmungsbundeslandField + Return Me._bestimmungsbundesland End Get Set - Me.bestimmungsbundeslandField = Value + Me._bestimmungsbundesland = Value End Set End Property Public Overridable Property Bestimmungsland() As String Get - Return Me.bestimmungslandField + Return Me._bestimmungsland End Get Set - Me.bestimmungslandField = Value + Me._bestimmungsland = Value End Set End Property Public Overridable Property BefoerderungsmittelGrenzeStaatszugehoerigkeitCode() As String Get - Return Me.befoerderungsmittelGrenzeStaatszugehoerigkeitCodeField + Return Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode End Get Set - Me.befoerderungsmittelGrenzeStaatszugehoerigkeitCodeField = Value + Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode = Value End Set End Property Public Overridable Property BefoerderungsmittelGrenzeArt() As String Get - Return Me.befoerderungsmittelGrenzeArtField + Return Me._befoerderungsmittelGrenzeArt End Get Set - Me.befoerderungsmittelGrenzeArtField = Value + Me._befoerderungsmittelGrenzeArt = Value End Set End Property Public Overridable Property BefoerderungsmittelBeschreibung() As String Get - Return Me.befoerderungsmittelBeschreibungField + Return Me._befoerderungsmittelBeschreibung End Get Set - Me.befoerderungsmittelBeschreibungField = Value + Me._befoerderungsmittelBeschreibung = Value End Set End Property Public Overridable Property ArtGeschaeft() As String Get - Return Me.artGeschaeftField + Return Me._artGeschaeft End Get Set - Me.artGeschaeftField = Value + Me._artGeschaeft = Value End Set End Property Public Overridable Property Statistikstatus() As String Get - Return Me.statistikstatusField + Return Me._statistikstatus End Get Set - Me.statistikstatusField = Value + Me._statistikstatus = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AussenhandelsstatistikAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AussenhandelsstatistikAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AussenhandelsstatistikAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize AussenhandelsstatistikAVUVTyp object + ''' + ''' 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 @@ -920,9 +943,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -935,21 +958,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes AussenhandelsstatistikAVUVTyp object + ''' + ''' string to deserialize + ''' Output AussenhandelsstatistikAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AussenhandelsstatistikAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AussenhandelsstatistikAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -957,16 +980,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AussenhandelsstatistikAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AussenhandelsstatistikAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AussenhandelsstatistikAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AussenhandelsstatistikAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -974,12 +997,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AussenhandelsstatistikAVUVTyp + Return CType(SerializerXml.Deserialize(s), AussenhandelsstatistikAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current AussenhandelsstatistikAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -992,19 +1020,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1013,13 +1041,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an AussenhandelsstatistikAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output AussenhandelsstatistikAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AussenhandelsstatistikAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AussenhandelsstatistikAVUVTyp) @@ -1033,7 +1061,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AussenhandelsstatistikAVUVTyp) As Boolean @@ -1042,7 +1070,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AussenhandelsstatistikAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AussenhandelsstatistikAVUVTyp @@ -1051,10 +1079,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1064,175 +1092,164 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class AbzugHinzurechnungAVUVTyp - Private artCodeField As String +#Region "Private fields" + Private _artCode As String - Private beschreibungAndereZahlungenField As String + Private _beschreibungAndereZahlungen As String - Private betragField As String + Private _betrag As String - Private waehrungField As String + Private _waehrung As String - Private kursVereinbartKzField As String + Private _kursVereinbartKz As String - Private kursDatumField As Date + Private _kursDatum As Date - Private kursDatumFieldSpecified As Boolean + Private _prozentsatz As String - Private prozentsatzField As String + Private _betragInEUR As String - Private betragInEURField As String + Private _iATAKursKz As String - Private iATAKursKzField As String + Private _frachtkostenBerechnungsgrundlage As String - Private frachtkostenBerechnungsgrundlageField As String + Private _kursAuslandswaehrung As String - Private kursAuslandswaehrungField As String - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property ArtCode() As String Get - Return Me.artCodeField + Return Me._artCode End Get Set - Me.artCodeField = Value + Me._artCode = Value End Set End Property Public Overridable Property BeschreibungAndereZahlungen() As String Get - Return Me.beschreibungAndereZahlungenField + Return Me._beschreibungAndereZahlungen End Get Set - Me.beschreibungAndereZahlungenField = Value + Me._beschreibungAndereZahlungen = Value End Set End Property Public Overridable Property Betrag() As String Get - Return Me.betragField + Return Me._betrag End Get Set - Me.betragField = Value + Me._betrag = Value End Set End Property Public Overridable Property Waehrung() As String Get - Return Me.waehrungField + Return Me._waehrung End Get Set - Me.waehrungField = Value + Me._waehrung = Value End Set End Property Public Overridable Property KursVereinbartKz() As String Get - Return Me.kursVereinbartKzField + Return Me._kursVereinbartKz End Get Set - Me.kursVereinbartKzField = Value + Me._kursVereinbartKz = Value End Set End Property Public Overridable Property KursDatum() As Date Get - Return Me.kursDatumField + Return Me._kursDatum 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 + Me._kursDatum = Value End Set End Property Public Overridable Property Prozentsatz() As String Get - Return Me.prozentsatzField + Return Me._prozentsatz End Get Set - Me.prozentsatzField = Value + Me._prozentsatz = Value End Set End Property Public Overridable Property BetragInEUR() As String Get - Return Me.betragInEURField + Return Me._betragInEUR End Get Set - Me.betragInEURField = Value + Me._betragInEUR = Value End Set End Property Public Overridable Property IATAKursKz() As String Get - Return Me.iATAKursKzField + Return Me._iATAKursKz End Get Set - Me.iATAKursKzField = Value + Me._iATAKursKz = Value End Set End Property Public Overridable Property FrachtkostenBerechnungsgrundlage() As String Get - Return Me.frachtkostenBerechnungsgrundlageField + Return Me._frachtkostenBerechnungsgrundlage End Get Set - Me.frachtkostenBerechnungsgrundlageField = Value + Me._frachtkostenBerechnungsgrundlage = Value End Set End Property Public Overridable Property KursAuslandswaehrung() As String Get - Return Me.kursAuslandswaehrungField + Return Me._kursAuslandswaehrung End Get Set - Me.kursAuslandswaehrungField = Value + Me._kursAuslandswaehrung = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbzugHinzurechnungAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbzugHinzurechnungAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AbzugHinzurechnungAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize AbzugHinzurechnungAVUVTyp object + ''' + ''' 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 @@ -1241,9 +1258,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1256,21 +1273,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes AbzugHinzurechnungAVUVTyp object + ''' + ''' string to deserialize + ''' Output AbzugHinzurechnungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbzugHinzurechnungAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1278,16 +1295,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbzugHinzurechnungAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AbzugHinzurechnungAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbzugHinzurechnungAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1295,12 +1312,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbzugHinzurechnungAVUVTyp + Return CType(SerializerXml.Deserialize(s), AbzugHinzurechnungAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current AbzugHinzurechnungAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -1313,19 +1335,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1334,13 +1356,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an AbzugHinzurechnungAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output AbzugHinzurechnungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AbzugHinzurechnungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbzugHinzurechnungAVUVTyp) @@ -1354,7 +1376,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungAVUVTyp) As Boolean @@ -1363,7 +1385,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbzugHinzurechnungAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AbzugHinzurechnungAVUVTyp @@ -1372,10 +1394,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1385,55 +1407,56 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class BesondereWertangabeAVUVTyp - Private wertField As String +#Region "Private fields" + Private _wert As String - Private preisartCodeField As String + Private _preisartCode As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property Wert() As String Get - Return Me.wertField + Return Me._wert End Get Set - Me.wertField = Value + Me._wert = Value End Set End Property Public Overridable Property PreisartCode() As String Get - Return Me.preisartCodeField + Return Me._preisartCode End Get Set - Me.preisartCodeField = Value + Me._preisartCode = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(BesondereWertangabeAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BesondereWertangabeAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current BesondereWertangabeAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize BesondereWertangabeAVUVTyp object + ''' + ''' 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 @@ -1442,9 +1465,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1457,21 +1480,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes BesondereWertangabeAVUVTyp object + ''' + ''' string to deserialize + ''' Output BesondereWertangabeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereWertangabeAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BesondereWertangabeAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1479,16 +1502,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As BesondereWertangabeAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereWertangabeAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As BesondereWertangabeAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BesondereWertangabeAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1496,12 +1519,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BesondereWertangabeAVUVTyp + Return CType(SerializerXml.Deserialize(s), BesondereWertangabeAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current BesondereWertangabeAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -1514,19 +1542,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1535,13 +1563,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an BesondereWertangabeAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output BesondereWertangabeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As BesondereWertangabeAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BesondereWertangabeAVUVTyp) @@ -1555,7 +1583,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BesondereWertangabeAVUVTyp) As Boolean @@ -1564,7 +1592,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BesondereWertangabeAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As BesondereWertangabeAVUVTyp @@ -1573,10 +1601,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1586,139 +1614,128 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class UnterlageVZPositionAVUVTyp - Private bereichField As String +#Region "Private fields" + Private _bereich As String - Private artField As String + Private _art As String - Private nummerField As String + Private _nummer As String - Private datumAusstellungField As Date + Private _datumAusstellung As Date - Private datumAusstellungFieldSpecified As Boolean + Private _vorlageKz As String - Private vorlageKzField As String + Private _abschreibungsMenge As String - Private abschreibungsMengeField As String + Private _abschreibungsMengeMasseinheit As String - Private abschreibungsMengeMasseinheitField As String + Private _abschreibungsMengeMasseinheitQualifier As String - Private abschreibungsMengeMasseinheitQualifierField As String - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property Bereich() As String Get - Return Me.bereichField + Return Me._bereich End Get Set - Me.bereichField = Value + Me._bereich = Value End Set End Property Public Overridable Property Art() As String Get - Return Me.artField + Return Me._art End Get Set - Me.artField = Value + Me._art = Value End Set End Property Public Overridable Property Nummer() As String Get - Return Me.nummerField + Return Me._nummer End Get Set - Me.nummerField = Value + Me._nummer = Value End Set End Property Public Overridable Property DatumAusstellung() As Date Get - Return Me.datumAusstellungField + Return Me._datumAusstellung 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 + Me._datumAusstellung = Value End Set End Property Public Overridable Property VorlageKz() As String Get - Return Me.vorlageKzField + Return Me._vorlageKz End Get Set - Me.vorlageKzField = Value + Me._vorlageKz = Value End Set End Property Public Overridable Property AbschreibungsMenge() As String Get - Return Me.abschreibungsMengeField + Return Me._abschreibungsMenge End Get Set - Me.abschreibungsMengeField = Value + Me._abschreibungsMenge = Value End Set End Property Public Overridable Property AbschreibungsMengeMasseinheit() As String Get - Return Me.abschreibungsMengeMasseinheitField + Return Me._abschreibungsMengeMasseinheit End Get Set - Me.abschreibungsMengeMasseinheitField = Value + Me._abschreibungsMengeMasseinheit = Value End Set End Property Public Overridable Property AbschreibungsMengeMasseinheitQualifier() As String Get - Return Me.abschreibungsMengeMasseinheitQualifierField + Return Me._abschreibungsMengeMasseinheitQualifier End Get Set - Me.abschreibungsMengeMasseinheitQualifierField = Value + Me._abschreibungsMengeMasseinheitQualifier = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(UnterlageVZPositionAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVZPositionAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current UnterlageVZPositionAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize UnterlageVZPositionAVUVTyp object + ''' + ''' 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 @@ -1727,9 +1744,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1742,21 +1759,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes UnterlageVZPositionAVUVTyp object + ''' + ''' string to deserialize + ''' Output UnterlageVZPositionAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVZPositionAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageVZPositionAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1764,16 +1781,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As UnterlageVZPositionAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVZPositionAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As UnterlageVZPositionAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UnterlageVZPositionAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1781,12 +1798,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UnterlageVZPositionAVUVTyp + Return CType(SerializerXml.Deserialize(s), UnterlageVZPositionAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current UnterlageVZPositionAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -1799,19 +1821,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1820,13 +1842,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an UnterlageVZPositionAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output UnterlageVZPositionAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As UnterlageVZPositionAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageVZPositionAVUVTyp) @@ -1840,7 +1862,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVZPositionAVUVTyp) As Boolean @@ -1849,7 +1871,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UnterlageVZPositionAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As UnterlageVZPositionAVUVTyp @@ -1858,10 +1880,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1871,67 +1893,68 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class SonderfalldatenAVUVTyp - Private sonderabgabenGruppeCodeField As String +#Region "Private fields" + Private _sonderabgabenGruppeCode As String - Private anwendungArtField As String + Private _anwendungArt As String - Private satzBetragFaktorField As String + Private _satzBetragFaktor As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property SonderabgabenGruppeCode() As String Get - Return Me.sonderabgabenGruppeCodeField + Return Me._sonderabgabenGruppeCode End Get Set - Me.sonderabgabenGruppeCodeField = Value + Me._sonderabgabenGruppeCode = Value End Set End Property Public Overridable Property AnwendungArt() As String Get - Return Me.anwendungArtField + Return Me._anwendungArt End Get Set - Me.anwendungArtField = Value + Me._anwendungArt = Value End Set End Property Public Overridable Property SatzBetragFaktor() As String Get - Return Me.satzBetragFaktorField + Return Me._satzBetragFaktor End Get Set - Me.satzBetragFaktorField = Value + Me._satzBetragFaktor = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(SonderfalldatenAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SonderfalldatenAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current SonderfalldatenAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize SonderfalldatenAVUVTyp object + ''' + ''' 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 @@ -1940,9 +1963,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1955,21 +1978,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes SonderfalldatenAVUVTyp object + ''' + ''' string to deserialize + ''' Output SonderfalldatenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalldatenAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SonderfalldatenAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1977,16 +2000,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SonderfalldatenAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalldatenAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As SonderfalldatenAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SonderfalldatenAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1994,12 +2017,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SonderfalldatenAVUVTyp + Return CType(SerializerXml.Deserialize(s), SonderfalldatenAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current SonderfalldatenAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -2012,19 +2040,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -2033,13 +2061,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an SonderfalldatenAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output SonderfalldatenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As SonderfalldatenAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SonderfalldatenAVUVTyp) @@ -2053,7 +2081,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalldatenAVUVTyp) As Boolean @@ -2062,7 +2090,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SonderfalldatenAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As SonderfalldatenAVUVTyp @@ -2071,10 +2099,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -2084,55 +2112,56 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class AbgabenminderungAVUVTyp - Private abgabengruppeCodeField As String +#Region "Private fields" + Private _abgabengruppeCode As String - Private minderungsbetragField As String + Private _minderungsbetrag As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property AbgabengruppeCode() As String Get - Return Me.abgabengruppeCodeField + Return Me._abgabengruppeCode End Get Set - Me.abgabengruppeCodeField = Value + Me._abgabengruppeCode = Value End Set End Property Public Overridable Property Minderungsbetrag() As String Get - Return Me.minderungsbetragField + Return Me._minderungsbetrag End Get Set - Me.minderungsbetragField = Value + Me._minderungsbetrag = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbgabenminderungAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenminderungAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AbgabenminderungAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize AbgabenminderungAVUVTyp object + ''' + ''' 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 @@ -2141,9 +2170,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -2156,21 +2185,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes AbgabenminderungAVUVTyp object + ''' + ''' string to deserialize + ''' Output AbgabenminderungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenminderungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabenminderungAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -2178,16 +2207,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabenminderungAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenminderungAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AbgabenminderungAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgabenminderungAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -2195,12 +2224,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabenminderungAVUVTyp + Return CType(SerializerXml.Deserialize(s), AbgabenminderungAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgabenminderungAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -2213,19 +2247,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -2234,13 +2268,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an AbgabenminderungAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output AbgabenminderungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AbgabenminderungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabenminderungAVUVTyp) @@ -2254,7 +2288,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenminderungAVUVTyp) As Boolean @@ -2263,7 +2297,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbgabenminderungAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AbgabenminderungAVUVTyp @@ -2272,10 +2306,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -2285,103 +2319,104 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class VerbrauchssteuerAVUVTyp - Private verbrauchsteuerCodeField As String +#Region "Private fields" + Private _verbrauchsteuerCode As String - Private verbrauchssteuerMengeField As String + Private _verbrauchssteuerMenge As String - Private verbrauchssteuerMasseinheitCodeField As String + Private _verbrauchssteuerMasseinheitCode As String - Private verbrauchssteuerMasseinheitQualifierField As String + Private _verbrauchssteuerMasseinheitQualifier As String - Private gradProzentField As String + Private _gradProzent As String - Private verbrauchssteuerWertBasisField As String + Private _verbrauchssteuerWertBasis As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property VerbrauchsteuerCode() As String Get - Return Me.verbrauchsteuerCodeField + Return Me._verbrauchsteuerCode End Get Set - Me.verbrauchsteuerCodeField = Value + Me._verbrauchsteuerCode = Value End Set End Property Public Overridable Property VerbrauchssteuerMenge() As String Get - Return Me.verbrauchssteuerMengeField + Return Me._verbrauchssteuerMenge End Get Set - Me.verbrauchssteuerMengeField = Value + Me._verbrauchssteuerMenge = Value End Set End Property Public Overridable Property VerbrauchssteuerMasseinheitCode() As String Get - Return Me.verbrauchssteuerMasseinheitCodeField + Return Me._verbrauchssteuerMasseinheitCode End Get Set - Me.verbrauchssteuerMasseinheitCodeField = Value + Me._verbrauchssteuerMasseinheitCode = Value End Set End Property Public Overridable Property VerbrauchssteuerMasseinheitQualifier() As String Get - Return Me.verbrauchssteuerMasseinheitQualifierField + Return Me._verbrauchssteuerMasseinheitQualifier End Get Set - Me.verbrauchssteuerMasseinheitQualifierField = Value + Me._verbrauchssteuerMasseinheitQualifier = Value End Set End Property Public Overridable Property GradProzent() As String Get - Return Me.gradProzentField + Return Me._gradProzent End Get Set - Me.gradProzentField = Value + Me._gradProzent = Value End Set End Property Public Overridable Property VerbrauchssteuerWertBasis() As String Get - Return Me.verbrauchssteuerWertBasisField + Return Me._verbrauchssteuerWertBasis End Get Set - Me.verbrauchssteuerWertBasisField = Value + Me._verbrauchssteuerWertBasis = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(VerbrauchssteuerAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerbrauchssteuerAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current VerbrauchssteuerAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize VerbrauchssteuerAVUVTyp object + ''' + ''' 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 @@ -2390,9 +2425,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -2405,21 +2440,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes VerbrauchssteuerAVUVTyp object + ''' + ''' string to deserialize + ''' Output VerbrauchssteuerAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchssteuerAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VerbrauchssteuerAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -2427,16 +2462,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As VerbrauchssteuerAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchssteuerAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As VerbrauchssteuerAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerbrauchssteuerAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -2444,12 +2479,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerbrauchssteuerAVUVTyp + Return CType(SerializerXml.Deserialize(s), VerbrauchssteuerAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current VerbrauchssteuerAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -2462,19 +2502,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -2483,13 +2523,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an VerbrauchssteuerAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output VerbrauchssteuerAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As VerbrauchssteuerAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VerbrauchssteuerAVUVTyp) @@ -2503,7 +2543,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchssteuerAVUVTyp) As Boolean @@ -2512,7 +2552,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerbrauchssteuerAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As VerbrauchssteuerAVUVTyp @@ -2521,10 +2561,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -2534,67 +2574,68 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class BeguenstigungsMengeAVUVTyp - Private mengeField As String +#Region "Private fields" + Private _menge As String - Private masseinheitCodeField As String + Private _masseinheitCode As String - Private masseinheitQualifierField As String + Private _masseinheitQualifier As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property Menge() As String Get - Return Me.mengeField + Return Me._menge End Get Set - Me.mengeField = Value + Me._menge = Value End Set End Property Public Overridable Property MasseinheitCode() As String Get - Return Me.masseinheitCodeField + Return Me._masseinheitCode End Get Set - Me.masseinheitCodeField = Value + Me._masseinheitCode = Value End Set End Property Public Overridable Property MasseinheitQualifier() As String Get - Return Me.masseinheitQualifierField + Return Me._masseinheitQualifier End Get Set - Me.masseinheitQualifierField = Value + Me._masseinheitQualifier = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(BeguenstigungsMengeAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BeguenstigungsMengeAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current BeguenstigungsMengeAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize BeguenstigungsMengeAVUVTyp object + ''' + ''' 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 @@ -2603,9 +2644,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -2618,21 +2659,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes BeguenstigungsMengeAVUVTyp object + ''' + ''' string to deserialize + ''' Output BeguenstigungsMengeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeguenstigungsMengeAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BeguenstigungsMengeAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -2640,16 +2681,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As BeguenstigungsMengeAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeguenstigungsMengeAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As BeguenstigungsMengeAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BeguenstigungsMengeAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -2657,12 +2698,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeguenstigungsMengeAVUVTyp + Return CType(SerializerXml.Deserialize(s), BeguenstigungsMengeAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current BeguenstigungsMengeAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -2675,19 +2721,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -2696,13 +2742,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an BeguenstigungsMengeAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output BeguenstigungsMengeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As BeguenstigungsMengeAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BeguenstigungsMengeAVUVTyp) @@ -2716,7 +2762,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeguenstigungsMengeAVUVTyp) As Boolean @@ -2725,7 +2771,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BeguenstigungsMengeAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As BeguenstigungsMengeAVUVTyp @@ -2734,10 +2780,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -2747,55 +2793,56 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class GehaltsangabenAVUVTyp - Private artCodeField As String +#Region "Private fields" + Private _artCode As String - Private gradProzentField As String + Private _gradProzent As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property ArtCode() As String Get - Return Me.artCodeField + Return Me._artCode End Get Set - Me.artCodeField = Value + Me._artCode = Value End Set End Property Public Overridable Property GradProzent() As String Get - Return Me.gradProzentField + Return Me._gradProzent End Get Set - Me.gradProzentField = Value + Me._gradProzent = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(GehaltsangabenAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GehaltsangabenAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current GehaltsangabenAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize GehaltsangabenAVUVTyp object + ''' + ''' 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 @@ -2804,9 +2851,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -2819,21 +2866,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes GehaltsangabenAVUVTyp object + ''' + ''' string to deserialize + ''' Output GehaltsangabenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, GehaltsangabenAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -2841,16 +2888,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As GehaltsangabenAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As GehaltsangabenAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GehaltsangabenAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -2858,12 +2905,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GehaltsangabenAVUVTyp + Return CType(SerializerXml.Deserialize(s), GehaltsangabenAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current GehaltsangabenAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -2876,19 +2928,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -2897,13 +2949,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an GehaltsangabenAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output GehaltsangabenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As GehaltsangabenAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, GehaltsangabenAVUVTyp) @@ -2917,7 +2969,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenAVUVTyp) As Boolean @@ -2926,7 +2978,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GehaltsangabenAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As GehaltsangabenAVUVTyp @@ -2935,10 +2987,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -2948,79 +3000,80 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class AVVeredelungserzeugnisTyp - Private warenbezeichnungField As String +#Region "Private fields" + Private _warenbezeichnung As String - Private ausbeuteartField As String + Private _ausbeuteart As String - Private ausbeutesatzField As String + Private _ausbeutesatz As String - Private kNCodeField As String + Private _kNCode As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property Warenbezeichnung() As String Get - Return Me.warenbezeichnungField + Return Me._warenbezeichnung End Get Set - Me.warenbezeichnungField = Value + Me._warenbezeichnung = Value End Set End Property Public Overridable Property Ausbeuteart() As String Get - Return Me.ausbeuteartField + Return Me._ausbeuteart End Get Set - Me.ausbeuteartField = Value + Me._ausbeuteart = Value End Set End Property Public Overridable Property Ausbeutesatz() As String Get - Return Me.ausbeutesatzField + Return Me._ausbeutesatz End Get Set - Me.ausbeutesatzField = Value + Me._ausbeutesatz = Value End Set End Property Public Overridable Property KNCode() As String Get - Return Me.kNCodeField + Return Me._kNCode End Get Set - Me.kNCodeField = Value + Me._kNCode = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AVVeredelungserzeugnisTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AVVeredelungserzeugnisTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AVVeredelungserzeugnisTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize AVVeredelungserzeugnisTyp object + ''' + ''' 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 @@ -3029,9 +3082,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -3044,21 +3097,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes AVVeredelungserzeugnisTyp object + ''' + ''' string to deserialize + ''' Output AVVeredelungserzeugnisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AVVeredelungserzeugnisTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -3066,16 +3119,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AVVeredelungserzeugnisTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AVVeredelungserzeugnisTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AVVeredelungserzeugnisTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AVVeredelungserzeugnisTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -3083,12 +3136,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AVVeredelungserzeugnisTyp + Return CType(SerializerXml.Deserialize(s), AVVeredelungserzeugnisTyp) + End Function +#End Region + + ''' + ''' Serializes current AVVeredelungserzeugnisTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -3101,19 +3159,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -3122,13 +3180,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an AVVeredelungserzeugnisTyp object + ''' + ''' File to load and deserialize + ''' Output AVVeredelungserzeugnisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AVVeredelungserzeugnisTyp) @@ -3142,7 +3200,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVVeredelungserzeugnisTyp) As Boolean @@ -3151,7 +3209,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AVVeredelungserzeugnisTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AVVeredelungserzeugnisTyp @@ -3160,10 +3218,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -3173,67 +3231,68 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class WarenMengeAVUVTyp - Private mengeField As String +#Region "Private fields" + Private _menge As String - Private masseinheitField As String + Private _masseinheit As String - Private qualifierField As String + Private _qualifier As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property Menge() As String Get - Return Me.mengeField + Return Me._menge End Get Set - Me.mengeField = Value + Me._menge = Value End Set End Property Public Overridable Property Masseinheit() As String Get - Return Me.masseinheitField + Return Me._masseinheit End Get Set - Me.masseinheitField = Value + Me._masseinheit = Value End Set End Property Public Overridable Property Qualifier() As String Get - Return Me.qualifierField + Return Me._qualifier End Get Set - Me.qualifierField = Value + Me._qualifier = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(WarenMengeAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(WarenMengeAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current WarenMengeAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize WarenMengeAVUVTyp object + ''' + ''' 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 @@ -3242,9 +3301,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -3257,21 +3316,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes WarenMengeAVUVTyp object + ''' + ''' string to deserialize + ''' Output WarenMengeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, WarenMengeAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -3279,16 +3338,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As WarenMengeAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As WarenMengeAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), WarenMengeAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -3296,12 +3355,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As WarenMengeAVUVTyp + Return CType(SerializerXml.Deserialize(s), WarenMengeAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current WarenMengeAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -3314,19 +3378,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -3335,13 +3399,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an WarenMengeAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output WarenMengeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As WarenMengeAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, WarenMengeAVUVTyp) @@ -3355,7 +3419,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeAVUVTyp) As Boolean @@ -3364,7 +3428,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As WarenMengeAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As WarenMengeAVUVTyp @@ -3373,10 +3437,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -3386,997 +3450,974 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class PositionEinfuhrUnvollstaendigeAnmeldungTyp - Private positionsnummerField As String +#Region "Private fields" + Private _positionsnummer As String - Private artikelNummerField As String + Private _artikelNummer As String - Private warenNummerEZTField As String + Private _warenNummerEZT As String - Private warenNummerZusatzCodeField As List(Of String) + Private _warenNummerZusatzCode As List(Of String) - Private warenNummerZusatz1Field As String + Private _warenNummerZusatz1 As String - Private warenNummerZusatz2Field As String + Private _warenNummerZusatz2 As String - Private warenBezeichnungField As String + Private _warenBezeichnung As String - Private verfahrenscodeVorangegangenesVerfahrenField As String + Private _verfahrenscodeVorangegangenesVerfahren As String - Private abgabensteuerungKzField As String + Private _abgabensteuerungKz As String - Private eUCodeField As List(Of String) + Private _eUCode As List(Of String) - Private ursprungslandCodeField As String + Private _ursprungslandCode As String - Private praeferenzursprungslandField As String + Private _praeferenzursprungsland As String - Private rohmasseField As String + Private _rohmasse As String - Private eigenmasseField As String + Private _eigenmasse As String - Private aHStatMengeField As String + Private _aHStatMenge As String - Private aHStatMengeMasseinheitField As String + Private _aHStatMengeMasseinheit As String - Private aHStatMengeQualifierField As String + Private _aHStatMengeQualifier As String - Private kostenEUStField As String + Private _kostenEUSt As String - Private aHStatWertField As String + Private _aHStatWert As String - Private packstueckAnzahlField As String + Private _packstueckAnzahl As String - Private packstueckArtField As String + Private _packstueckArt As String - Private packstueckZeichenField As String + Private _packstueckZeichen As String - Private warenMengeField As List(Of WarenMengeAVUVTyp) + Private _warenMenge As List(Of WarenMengeAVUVTyp) - Private warenMengeZollField As String + Private _warenMengeZoll As String - Private warenMengeZollMasseinheitField As String + Private _warenMengeZollMasseinheit As String - Private warenMengeZollMasseinheitQualifierField As String + Private _warenMengeZollMasseinheitQualifier As String - Private beguenstigungBeantragtCodeField As String + Private _beguenstigungBeantragtCode As String - Private kontingentnummerField As List(Of String) + Private _kontingentnummer As List(Of String) - Private positionsZusatzField As String + Private _positionsZusatz As String - Private aHStatWertManuellKZField As String + Private _aHStatWertManuellKZ As String - Private artikelpreisField As String + Private _artikelpreis As String - Private ortVerbringensField As String + Private _ortVerbringens As String - Private abflughafenIATACodeField As String + Private _abflughafenIATACode As String - Private warenmengeAVUVZugangField As String + Private _warenmengeAVUVZugang As String - Private warenmengeAVUVZugangMasseinheitField As String + Private _warenmengeAVUVZugangMasseinheit As String - Private warenmengeAVUVZugangMasseinheitQualifierField As String + Private _warenmengeAVUVZugangMasseinheitQualifier As String - Private warenmengeAgrarzollField As String + Private _warenmengeAgrarzoll As String - Private warenmengeAgrarzollMasseinheitField As String + Private _warenmengeAgrarzollMasseinheit As String - Private warenmengeAgrarzollMasseinheitQualifierField As String + Private _warenmengeAgrarzollMasseinheitQualifier As String - Private sachbereichField As String + Private _sachbereich As String - Private bedingungCodeField As String + Private _bedingungCode As String - Private veredelungWertsteigerungField As String + Private _veredelungWertsteigerung As String - Private tabakSteuerzeichenIDField As String + Private _tabakSteuerzeichenID As String - Private aVWirtschaftlicheVoraussetzungenField As String + Private _aVWirtschaftlicheVoraussetzungen As String - Private aVNaemlichkeitsmittelField As String + Private _aVNaemlichkeitsmittel As String - Private aVErlaeuterungNaemlichkeitField As String + Private _aVErlaeuterungNaemlichkeit As String - Private aVVeredelungserzeugnisField As List(Of AVVeredelungserzeugnisTyp) + Private _aVVeredelungserzeugnis As List(Of AVVeredelungserzeugnisTyp) - Private gehaltsangabenField As List(Of GehaltsangabenAVUVTyp) + Private _gehaltsangaben As List(Of GehaltsangabenAVUVTyp) - Private beguenstigungsmengeField As BeguenstigungsMengeAVUVTyp + Private _beguenstigungsmenge As BeguenstigungsMengeAVUVTyp - Private verbrauchssteuerField As List(Of VerbrauchssteuerAVUVTyp) + Private _verbrauchssteuer As List(Of VerbrauchssteuerAVUVTyp) - Private abgabenminderungField As List(Of AbgabenminderungAVUVTyp) + Private _abgabenminderung As List(Of AbgabenminderungAVUVTyp) - Private sonderfalldatenField As List(Of SonderfalldatenAVUVTyp) + Private _sonderfalldaten As List(Of SonderfalldatenAVUVTyp) - Private unterlageField As List(Of UnterlageVZPositionAVUVTyp) + Private _unterlage As List(Of UnterlageVZPositionAVUVTyp) - Private besondereWertangabeField As List(Of BesondereWertangabeAVUVTyp) + Private _besondereWertangabe As List(Of BesondereWertangabeAVUVTyp) - Private vZAStatusField As String + Private _vZAStatus As String - Private eGZStatusField As String + Private _eGZStatus As String - Private dV1StatusField As String + Private _dV1Status As String - Private anmeldeArtField As String + Private _anmeldeArt As String - Private befundDatumField As Date + Private _befundDatum As Date - Private befundDatumFieldSpecified As Boolean + Private _anmelderAdressCodeEORI As String - Private anmelderAdressCodeEORIField As String + Private _anmelderAdressCodeZollnummer As String - Private anmelderAdressCodeZollnummerField As String + Private _zollverfahren As String - Private zollverfahrenField As String + Private _abrechnungszollstelleCode As String - Private abrechnungszollstelleCodeField As String + Private _sachbereichCode As String - Private sachbereichCodeField As String + Private _registriernummervZA As String - Private registriernummervZAField As String + Private _anmeldeVerfahren As String - Private anmeldeVerfahrenField As String + Private _bewilligungsnummer As String - Private bewilligungsnummerField As String + Private _bewilligungsnummerEndverwenderEGZDurchDritte As String - Private bewilligungsnummerEndverwenderEGZDurchDritteField As String + Private _zollwert As String - Private zollwertField As String + Private _luftfrachtkostenGesamt As String - Private luftfrachtkostenGesamtField As String + Private _iATAKursKz As String - Private iATAKursKzField As String + Private _luftfrachtkostenGesamtWaehrung As String - Private luftfrachtkostenGesamtWaehrungField As String + Private _kursVereinbartKz As String - Private kursVereinbartKzField As String + Private _kursBetragVereinbart As String - Private kursBetragVereinbartField As String + Private _kursDatum As Date - Private kursDatumField As Date + Private _abzugHinzurechnung As List(Of AbzugHinzurechnungAVUVTyp) - Private kursDatumFieldSpecified As Boolean + Private _aussenhandelsstatistik As AussenhandelsstatistikAVUVTyp - Private abzugHinzurechnungField As List(Of AbzugHinzurechnungAVUVTyp) - - Private aussenhandelsstatistikField As AussenhandelsstatistikAVUVTyp - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region 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)() + Me._aussenhandelsstatistik = New AussenhandelsstatistikAVUVTyp() + Me._abzugHinzurechnung = New List(Of AbzugHinzurechnungAVUVTyp)() + Me._besondereWertangabe = New List(Of BesondereWertangabeAVUVTyp)() + Me._unterlage = New List(Of UnterlageVZPositionAVUVTyp)() + Me._sonderfalldaten = New List(Of SonderfalldatenAVUVTyp)() + Me._abgabenminderung = New List(Of AbgabenminderungAVUVTyp)() + Me._verbrauchssteuer = New List(Of VerbrauchssteuerAVUVTyp)() + Me._beguenstigungsmenge = New BeguenstigungsMengeAVUVTyp() + Me._gehaltsangaben = New List(Of GehaltsangabenAVUVTyp)() + Me._aVVeredelungserzeugnis = New List(Of AVVeredelungserzeugnisTyp)() + Me._kontingentnummer = New List(Of String)() + Me._warenMenge = New List(Of WarenMengeAVUVTyp)() + Me._eUCode = New List(Of String)() + Me._warenNummerZusatzCode = New List(Of String)() End Sub Public Overridable Property Positionsnummer() As String Get - Return Me.positionsnummerField + Return Me._positionsnummer End Get Set - Me.positionsnummerField = Value + Me._positionsnummer = Value End Set End Property Public Overridable Property ArtikelNummer() As String Get - Return Me.artikelNummerField + Return Me._artikelNummer End Get Set - Me.artikelNummerField = Value + Me._artikelNummer = Value End Set End Property Public Overridable Property WarenNummerEZT() As String Get - Return Me.warenNummerEZTField + Return Me._warenNummerEZT End Get Set - Me.warenNummerEZTField = Value + Me._warenNummerEZT = Value End Set End Property Public Overridable Property WarenNummerZusatzCode() As List(Of String) Get - Return Me.warenNummerZusatzCodeField + Return Me._warenNummerZusatzCode End Get Set - Me.warenNummerZusatzCodeField = Value + Me._warenNummerZusatzCode = Value End Set End Property Public Overridable Property WarenNummerZusatz1() As String Get - Return Me.warenNummerZusatz1Field + Return Me._warenNummerZusatz1 End Get Set - Me.warenNummerZusatz1Field = Value + Me._warenNummerZusatz1 = Value End Set End Property Public Overridable Property WarenNummerZusatz2() As String Get - Return Me.warenNummerZusatz2Field + Return Me._warenNummerZusatz2 End Get Set - Me.warenNummerZusatz2Field = Value + Me._warenNummerZusatz2 = Value End Set End Property Public Overridable Property WarenBezeichnung() As String Get - Return Me.warenBezeichnungField + Return Me._warenBezeichnung End Get Set - Me.warenBezeichnungField = Value + Me._warenBezeichnung = Value End Set End Property Public Overridable Property VerfahrenscodeVorangegangenesVerfahren() As String Get - Return Me.verfahrenscodeVorangegangenesVerfahrenField + Return Me._verfahrenscodeVorangegangenesVerfahren End Get Set - Me.verfahrenscodeVorangegangenesVerfahrenField = Value + Me._verfahrenscodeVorangegangenesVerfahren = Value End Set End Property Public Overridable Property AbgabensteuerungKz() As String Get - Return Me.abgabensteuerungKzField + Return Me._abgabensteuerungKz End Get Set - Me.abgabensteuerungKzField = Value + Me._abgabensteuerungKz = Value End Set End Property Public Overridable Property EUCode() As List(Of String) Get - Return Me.eUCodeField + Return Me._eUCode End Get Set - Me.eUCodeField = Value + Me._eUCode = Value End Set End Property Public Overridable Property UrsprungslandCode() As String Get - Return Me.ursprungslandCodeField + Return Me._ursprungslandCode End Get Set - Me.ursprungslandCodeField = Value + Me._ursprungslandCode = Value End Set End Property Public Overridable Property Praeferenzursprungsland() As String Get - Return Me.praeferenzursprungslandField + Return Me._praeferenzursprungsland End Get Set - Me.praeferenzursprungslandField = Value + Me._praeferenzursprungsland = Value End Set End Property Public Overridable Property Rohmasse() As String Get - Return Me.rohmasseField + Return Me._rohmasse End Get Set - Me.rohmasseField = Value + Me._rohmasse = Value End Set End Property Public Overridable Property Eigenmasse() As String Get - Return Me.eigenmasseField + Return Me._eigenmasse End Get Set - Me.eigenmasseField = Value + Me._eigenmasse = Value End Set End Property Public Overridable Property AHStatMenge() As String Get - Return Me.aHStatMengeField + Return Me._aHStatMenge End Get Set - Me.aHStatMengeField = Value + Me._aHStatMenge = Value End Set End Property Public Overridable Property AHStatMengeMasseinheit() As String Get - Return Me.aHStatMengeMasseinheitField + Return Me._aHStatMengeMasseinheit End Get Set - Me.aHStatMengeMasseinheitField = Value + Me._aHStatMengeMasseinheit = Value End Set End Property Public Overridable Property AHStatMengeQualifier() As String Get - Return Me.aHStatMengeQualifierField + Return Me._aHStatMengeQualifier End Get Set - Me.aHStatMengeQualifierField = Value + Me._aHStatMengeQualifier = Value End Set End Property Public Overridable Property KostenEUSt() As String Get - Return Me.kostenEUStField + Return Me._kostenEUSt End Get Set - Me.kostenEUStField = Value + Me._kostenEUSt = Value End Set End Property Public Overridable Property AHStatWert() As String Get - Return Me.aHStatWertField + Return Me._aHStatWert End Get Set - Me.aHStatWertField = Value + Me._aHStatWert = Value End Set End Property Public Overridable Property PackstueckAnzahl() As String Get - Return Me.packstueckAnzahlField + Return Me._packstueckAnzahl End Get Set - Me.packstueckAnzahlField = Value + Me._packstueckAnzahl = Value End Set End Property Public Overridable Property PackstueckArt() As String Get - Return Me.packstueckArtField + Return Me._packstueckArt End Get Set - Me.packstueckArtField = Value + Me._packstueckArt = Value End Set End Property Public Overridable Property PackstueckZeichen() As String Get - Return Me.packstueckZeichenField + Return Me._packstueckZeichen End Get Set - Me.packstueckZeichenField = Value + Me._packstueckZeichen = Value End Set End Property Public Overridable Property WarenMenge() As List(Of WarenMengeAVUVTyp) Get - Return Me.warenMengeField + Return Me._warenMenge End Get Set - Me.warenMengeField = Value + Me._warenMenge = Value End Set End Property Public Overridable Property WarenMengeZoll() As String Get - Return Me.warenMengeZollField + Return Me._warenMengeZoll End Get Set - Me.warenMengeZollField = Value + Me._warenMengeZoll = Value End Set End Property Public Overridable Property WarenMengeZollMasseinheit() As String Get - Return Me.warenMengeZollMasseinheitField + Return Me._warenMengeZollMasseinheit End Get Set - Me.warenMengeZollMasseinheitField = Value + Me._warenMengeZollMasseinheit = Value End Set End Property Public Overridable Property WarenMengeZollMasseinheitQualifier() As String Get - Return Me.warenMengeZollMasseinheitQualifierField + Return Me._warenMengeZollMasseinheitQualifier End Get Set - Me.warenMengeZollMasseinheitQualifierField = Value + Me._warenMengeZollMasseinheitQualifier = Value End Set End Property Public Overridable Property BeguenstigungBeantragtCode() As String Get - Return Me.beguenstigungBeantragtCodeField + Return Me._beguenstigungBeantragtCode End Get Set - Me.beguenstigungBeantragtCodeField = Value + Me._beguenstigungBeantragtCode = Value End Set End Property Public Overridable Property Kontingentnummer() As List(Of String) Get - Return Me.kontingentnummerField + Return Me._kontingentnummer End Get Set - Me.kontingentnummerField = Value + Me._kontingentnummer = Value End Set End Property Public Overridable Property PositionsZusatz() As String Get - Return Me.positionsZusatzField + Return Me._positionsZusatz End Get Set - Me.positionsZusatzField = Value + Me._positionsZusatz = Value End Set End Property Public Overridable Property AHStatWertManuellKZ() As String Get - Return Me.aHStatWertManuellKZField + Return Me._aHStatWertManuellKZ End Get Set - Me.aHStatWertManuellKZField = Value + Me._aHStatWertManuellKZ = Value End Set End Property Public Overridable Property Artikelpreis() As String Get - Return Me.artikelpreisField + Return Me._artikelpreis End Get Set - Me.artikelpreisField = Value + Me._artikelpreis = Value End Set End Property Public Overridable Property OrtVerbringens() As String Get - Return Me.ortVerbringensField + Return Me._ortVerbringens End Get Set - Me.ortVerbringensField = Value + Me._ortVerbringens = Value End Set End Property Public Overridable Property AbflughafenIATACode() As String Get - Return Me.abflughafenIATACodeField + Return Me._abflughafenIATACode End Get Set - Me.abflughafenIATACodeField = Value + Me._abflughafenIATACode = Value End Set End Property Public Overridable Property WarenmengeAVUVZugang() As String Get - Return Me.warenmengeAVUVZugangField + Return Me._warenmengeAVUVZugang End Get Set - Me.warenmengeAVUVZugangField = Value + Me._warenmengeAVUVZugang = Value End Set End Property Public Overridable Property WarenmengeAVUVZugangMasseinheit() As String Get - Return Me.warenmengeAVUVZugangMasseinheitField + Return Me._warenmengeAVUVZugangMasseinheit End Get Set - Me.warenmengeAVUVZugangMasseinheitField = Value + Me._warenmengeAVUVZugangMasseinheit = Value End Set End Property Public Overridable Property WarenmengeAVUVZugangMasseinheitQualifier() As String Get - Return Me.warenmengeAVUVZugangMasseinheitQualifierField + Return Me._warenmengeAVUVZugangMasseinheitQualifier End Get Set - Me.warenmengeAVUVZugangMasseinheitQualifierField = Value + Me._warenmengeAVUVZugangMasseinheitQualifier = Value End Set End Property Public Overridable Property WarenmengeAgrarzoll() As String Get - Return Me.warenmengeAgrarzollField + Return Me._warenmengeAgrarzoll End Get Set - Me.warenmengeAgrarzollField = Value + Me._warenmengeAgrarzoll = Value End Set End Property Public Overridable Property WarenmengeAgrarzollMasseinheit() As String Get - Return Me.warenmengeAgrarzollMasseinheitField + Return Me._warenmengeAgrarzollMasseinheit End Get Set - Me.warenmengeAgrarzollMasseinheitField = Value + Me._warenmengeAgrarzollMasseinheit = Value End Set End Property Public Overridable Property WarenmengeAgrarzollMasseinheitQualifier() As String Get - Return Me.warenmengeAgrarzollMasseinheitQualifierField + Return Me._warenmengeAgrarzollMasseinheitQualifier End Get Set - Me.warenmengeAgrarzollMasseinheitQualifierField = Value + Me._warenmengeAgrarzollMasseinheitQualifier = Value End Set End Property Public Overridable Property Sachbereich() As String Get - Return Me.sachbereichField + Return Me._sachbereich End Get Set - Me.sachbereichField = Value + Me._sachbereich = Value End Set End Property Public Overridable Property BedingungCode() As String Get - Return Me.bedingungCodeField + Return Me._bedingungCode End Get Set - Me.bedingungCodeField = Value + Me._bedingungCode = Value End Set End Property Public Overridable Property VeredelungWertsteigerung() As String Get - Return Me.veredelungWertsteigerungField + Return Me._veredelungWertsteigerung End Get Set - Me.veredelungWertsteigerungField = Value + Me._veredelungWertsteigerung = Value End Set End Property Public Overridable Property TabakSteuerzeichenID() As String Get - Return Me.tabakSteuerzeichenIDField + Return Me._tabakSteuerzeichenID End Get Set - Me.tabakSteuerzeichenIDField = Value + Me._tabakSteuerzeichenID = Value End Set End Property Public Overridable Property AVWirtschaftlicheVoraussetzungen() As String Get - Return Me.aVWirtschaftlicheVoraussetzungenField + Return Me._aVWirtschaftlicheVoraussetzungen End Get Set - Me.aVWirtschaftlicheVoraussetzungenField = Value + Me._aVWirtschaftlicheVoraussetzungen = Value End Set End Property Public Overridable Property AVNaemlichkeitsmittel() As String Get - Return Me.aVNaemlichkeitsmittelField + Return Me._aVNaemlichkeitsmittel End Get Set - Me.aVNaemlichkeitsmittelField = Value + Me._aVNaemlichkeitsmittel = Value End Set End Property Public Overridable Property AVErlaeuterungNaemlichkeit() As String Get - Return Me.aVErlaeuterungNaemlichkeitField + Return Me._aVErlaeuterungNaemlichkeit End Get Set - Me.aVErlaeuterungNaemlichkeitField = Value + Me._aVErlaeuterungNaemlichkeit = Value End Set End Property Public Overridable Property AVVeredelungserzeugnis() As List(Of AVVeredelungserzeugnisTyp) Get - Return Me.aVVeredelungserzeugnisField + Return Me._aVVeredelungserzeugnis End Get Set - Me.aVVeredelungserzeugnisField = Value + Me._aVVeredelungserzeugnis = Value End Set End Property Public Overridable Property Gehaltsangaben() As List(Of GehaltsangabenAVUVTyp) Get - Return Me.gehaltsangabenField + Return Me._gehaltsangaben End Get Set - Me.gehaltsangabenField = Value + Me._gehaltsangaben = Value End Set End Property Public Overridable Property Beguenstigungsmenge() As BeguenstigungsMengeAVUVTyp Get - Return Me.beguenstigungsmengeField + Return Me._beguenstigungsmenge End Get Set - Me.beguenstigungsmengeField = Value + Me._beguenstigungsmenge = Value End Set End Property Public Overridable Property Verbrauchssteuer() As List(Of VerbrauchssteuerAVUVTyp) Get - Return Me.verbrauchssteuerField + Return Me._verbrauchssteuer End Get Set - Me.verbrauchssteuerField = Value + Me._verbrauchssteuer = Value End Set End Property Public Overridable Property Abgabenminderung() As List(Of AbgabenminderungAVUVTyp) Get - Return Me.abgabenminderungField + Return Me._abgabenminderung End Get Set - Me.abgabenminderungField = Value + Me._abgabenminderung = Value End Set End Property Public Overridable Property Sonderfalldaten() As List(Of SonderfalldatenAVUVTyp) Get - Return Me.sonderfalldatenField + Return Me._sonderfalldaten End Get Set - Me.sonderfalldatenField = Value + Me._sonderfalldaten = Value End Set End Property Public Overridable Property Unterlage() As List(Of UnterlageVZPositionAVUVTyp) Get - Return Me.unterlageField + Return Me._unterlage End Get Set - Me.unterlageField = Value + Me._unterlage = Value End Set End Property Public Overridable Property BesondereWertangabe() As List(Of BesondereWertangabeAVUVTyp) Get - Return Me.besondereWertangabeField + Return Me._besondereWertangabe End Get Set - Me.besondereWertangabeField = Value + Me._besondereWertangabe = Value End Set End Property Public Overridable Property VZAStatus() As String Get - Return Me.vZAStatusField + Return Me._vZAStatus End Get Set - Me.vZAStatusField = Value + Me._vZAStatus = Value End Set End Property Public Overridable Property EGZStatus() As String Get - Return Me.eGZStatusField + Return Me._eGZStatus End Get Set - Me.eGZStatusField = Value + Me._eGZStatus = Value End Set End Property Public Overridable Property DV1Status() As String Get - Return Me.dV1StatusField + Return Me._dV1Status End Get Set - Me.dV1StatusField = Value + Me._dV1Status = Value End Set End Property Public Overridable Property AnmeldeArt() As String Get - Return Me.anmeldeArtField + Return Me._anmeldeArt End Get Set - Me.anmeldeArtField = Value + Me._anmeldeArt = Value End Set End Property Public Overridable Property BefundDatum() As Date Get - Return Me.befundDatumField + Return Me._befundDatum 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 + Me._befundDatum = Value End Set End Property Public Overridable Property AnmelderAdressCodeEORI() As String Get - Return Me.anmelderAdressCodeEORIField + Return Me._anmelderAdressCodeEORI End Get Set - Me.anmelderAdressCodeEORIField = Value + Me._anmelderAdressCodeEORI = Value End Set End Property Public Overridable Property AnmelderAdressCodeZollnummer() As String Get - Return Me.anmelderAdressCodeZollnummerField + Return Me._anmelderAdressCodeZollnummer End Get Set - Me.anmelderAdressCodeZollnummerField = Value + Me._anmelderAdressCodeZollnummer = Value End Set End Property Public Overridable Property Zollverfahren() As String Get - Return Me.zollverfahrenField + Return Me._zollverfahren End Get Set - Me.zollverfahrenField = Value + Me._zollverfahren = Value End Set End Property Public Overridable Property AbrechnungszollstelleCode() As String Get - Return Me.abrechnungszollstelleCodeField + Return Me._abrechnungszollstelleCode End Get Set - Me.abrechnungszollstelleCodeField = Value + Me._abrechnungszollstelleCode = Value End Set End Property Public Overridable Property SachbereichCode() As String Get - Return Me.sachbereichCodeField + Return Me._sachbereichCode End Get Set - Me.sachbereichCodeField = Value + Me._sachbereichCode = Value End Set End Property Public Overridable Property RegistriernummervZA() As String Get - Return Me.registriernummervZAField + Return Me._registriernummervZA End Get Set - Me.registriernummervZAField = Value + Me._registriernummervZA = Value End Set End Property Public Overridable Property AnmeldeVerfahren() As String Get - Return Me.anmeldeVerfahrenField + Return Me._anmeldeVerfahren End Get Set - Me.anmeldeVerfahrenField = Value + Me._anmeldeVerfahren = Value End Set End Property Public Overridable Property Bewilligungsnummer() As String Get - Return Me.bewilligungsnummerField + Return Me._bewilligungsnummer End Get Set - Me.bewilligungsnummerField = Value + Me._bewilligungsnummer = Value End Set End Property Public Overridable Property BewilligungsnummerEndverwenderEGZDurchDritte() As String Get - Return Me.bewilligungsnummerEndverwenderEGZDurchDritteField + Return Me._bewilligungsnummerEndverwenderEGZDurchDritte End Get Set - Me.bewilligungsnummerEndverwenderEGZDurchDritteField = Value + Me._bewilligungsnummerEndverwenderEGZDurchDritte = Value End Set End Property Public Overridable Property Zollwert() As String Get - Return Me.zollwertField + Return Me._zollwert End Get Set - Me.zollwertField = Value + Me._zollwert = Value End Set End Property Public Overridable Property LuftfrachtkostenGesamt() As String Get - Return Me.luftfrachtkostenGesamtField + Return Me._luftfrachtkostenGesamt End Get Set - Me.luftfrachtkostenGesamtField = Value + Me._luftfrachtkostenGesamt = Value End Set End Property Public Overridable Property IATAKursKz() As String Get - Return Me.iATAKursKzField + Return Me._iATAKursKz End Get Set - Me.iATAKursKzField = Value + Me._iATAKursKz = Value End Set End Property Public Overridable Property LuftfrachtkostenGesamtWaehrung() As String Get - Return Me.luftfrachtkostenGesamtWaehrungField + Return Me._luftfrachtkostenGesamtWaehrung End Get Set - Me.luftfrachtkostenGesamtWaehrungField = Value + Me._luftfrachtkostenGesamtWaehrung = Value End Set End Property Public Overridable Property KursVereinbartKz() As String Get - Return Me.kursVereinbartKzField + Return Me._kursVereinbartKz End Get Set - Me.kursVereinbartKzField = Value + Me._kursVereinbartKz = Value End Set End Property Public Overridable Property KursBetragVereinbart() As String Get - Return Me.kursBetragVereinbartField + Return Me._kursBetragVereinbart End Get Set - Me.kursBetragVereinbartField = Value + Me._kursBetragVereinbart = Value End Set End Property Public Overridable Property KursDatum() As Date Get - Return Me.kursDatumField + Return Me._kursDatum 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 + Me._kursDatum = Value End Set End Property Public Overridable Property AbzugHinzurechnung() As List(Of AbzugHinzurechnungAVUVTyp) Get - Return Me.abzugHinzurechnungField + Return Me._abzugHinzurechnung End Get Set - Me.abzugHinzurechnungField = Value + Me._abzugHinzurechnung = Value End Set End Property Public Overridable Property Aussenhandelsstatistik() As AussenhandelsstatistikAVUVTyp Get - Return Me.aussenhandelsstatistikField + Return Me._aussenhandelsstatistik End Get Set - Me.aussenhandelsstatistikField = Value + Me._aussenhandelsstatistik = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PositionEinfuhrUnvollstaendigeAnmeldungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionEinfuhrUnvollstaendigeAnmeldungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current PositionEinfuhrUnvollstaendigeAnmeldungTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize PositionEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' 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 @@ -4385,9 +4426,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -4400,21 +4441,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes PositionEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' string to deserialize + ''' Output PositionEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionEinfuhrUnvollstaendigeAnmeldungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -4422,16 +4463,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As PositionEinfuhrUnvollstaendigeAnmeldungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionEinfuhrUnvollstaendigeAnmeldungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -4439,12 +4480,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionEinfuhrUnvollstaendigeAnmeldungTyp + Return CType(SerializerXml.Deserialize(s), PositionEinfuhrUnvollstaendigeAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionEinfuhrUnvollstaendigeAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -4457,19 +4503,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -4478,13 +4524,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an PositionEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output PositionEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionEinfuhrUnvollstaendigeAnmeldungTyp) @@ -4498,7 +4544,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean @@ -4507,7 +4553,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionEinfuhrUnvollstaendigeAnmeldungTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As PositionEinfuhrUnvollstaendigeAnmeldungTyp @@ -4516,10 +4562,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -4529,235 +4575,236 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class AdressenVzImportAVUVTyp - Private adressTypField As String +#Region "Private fields" + Private _adressTyp As String - Private adressCodeField As String + Private _adressCode As String - Private teilnehmerEORIField As String + Private _teilnehmerEORI As String - Private teilnehmerNLNRField As String + Private _teilnehmerNLNR As String - Private zollNrField As String + Private _zollNr As String - Private nameFirmaField As String + Private _nameFirma As String - Private strasseHausNrField As String + Private _strasseHausNr As String - Private ortsteilField As String + Private _ortsteil As String - Private landCodeField As String + Private _landCode As String - Private pLZSField As String + Private _pLZS As String - Private ortSField As String + Private _ortS As String - Private uStIDAnmelderField As String + Private _uStIDAnmelder As String - Private finanzamtIDAnmelderField As String + Private _finanzamtIDAnmelder As String - Private sitzEinfuehrerField As String + Private _sitzEinfuehrer As String - Private bewilligungsnummerField As String + Private _bewilligungsnummer As String - Private bewilligungFachVerfahrenField As String + Private _bewilligungFachVerfahren As String - Private bewilligungsnummerEndverwenderField As String + Private _bewilligungsnummerEndverwender As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property AdressTyp() As String Get - Return Me.adressTypField + Return Me._adressTyp End Get Set - Me.adressTypField = Value + Me._adressTyp = Value End Set End Property Public Overridable Property AdressCode() As String Get - Return Me.adressCodeField + Return Me._adressCode End Get Set - Me.adressCodeField = Value + Me._adressCode = Value End Set End Property Public Overridable Property TeilnehmerEORI() As String Get - Return Me.teilnehmerEORIField + Return Me._teilnehmerEORI End Get Set - Me.teilnehmerEORIField = Value + Me._teilnehmerEORI = Value End Set End Property Public Overridable Property TeilnehmerNLNR() As String Get - Return Me.teilnehmerNLNRField + Return Me._teilnehmerNLNR End Get Set - Me.teilnehmerNLNRField = Value + Me._teilnehmerNLNR = Value End Set End Property Public Overridable Property ZollNr() As String Get - Return Me.zollNrField + Return Me._zollNr End Get Set - Me.zollNrField = Value + Me._zollNr = Value End Set End Property Public Overridable Property NameFirma() As String Get - Return Me.nameFirmaField + Return Me._nameFirma End Get Set - Me.nameFirmaField = Value + Me._nameFirma = Value End Set End Property Public Overridable Property StrasseHausNr() As String Get - Return Me.strasseHausNrField + Return Me._strasseHausNr End Get Set - Me.strasseHausNrField = Value + Me._strasseHausNr = Value End Set End Property Public Overridable Property Ortsteil() As String Get - Return Me.ortsteilField + Return Me._ortsteil End Get Set - Me.ortsteilField = Value + Me._ortsteil = Value End Set End Property Public Overridable Property LandCode() As String Get - Return Me.landCodeField + Return Me._landCode End Get Set - Me.landCodeField = Value + Me._landCode = Value End Set End Property Public Overridable Property PLZS() As String Get - Return Me.pLZSField + Return Me._pLZS End Get Set - Me.pLZSField = Value + Me._pLZS = Value End Set End Property Public Overridable Property OrtS() As String Get - Return Me.ortSField + Return Me._ortS End Get Set - Me.ortSField = Value + Me._ortS = Value End Set End Property Public Overridable Property UStIDAnmelder() As String Get - Return Me.uStIDAnmelderField + Return Me._uStIDAnmelder End Get Set - Me.uStIDAnmelderField = Value + Me._uStIDAnmelder = Value End Set End Property Public Overridable Property FinanzamtIDAnmelder() As String Get - Return Me.finanzamtIDAnmelderField + Return Me._finanzamtIDAnmelder End Get Set - Me.finanzamtIDAnmelderField = Value + Me._finanzamtIDAnmelder = Value End Set End Property Public Overridable Property SitzEinfuehrer() As String Get - Return Me.sitzEinfuehrerField + Return Me._sitzEinfuehrer End Get Set - Me.sitzEinfuehrerField = Value + Me._sitzEinfuehrer = Value End Set End Property Public Overridable Property Bewilligungsnummer() As String Get - Return Me.bewilligungsnummerField + Return Me._bewilligungsnummer End Get Set - Me.bewilligungsnummerField = Value + Me._bewilligungsnummer = Value End Set End Property Public Overridable Property BewilligungFachVerfahren() As String Get - Return Me.bewilligungFachVerfahrenField + Return Me._bewilligungFachVerfahren End Get Set - Me.bewilligungFachVerfahrenField = Value + Me._bewilligungFachVerfahren = Value End Set End Property Public Overridable Property BewilligungsnummerEndverwender() As String Get - Return Me.bewilligungsnummerEndverwenderField + Return Me._bewilligungsnummerEndverwender End Get Set - Me.bewilligungsnummerEndverwenderField = Value + Me._bewilligungsnummerEndverwender = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AdressenVzImportAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdressenVzImportAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AdressenVzImportAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize AdressenVzImportAVUVTyp object + ''' + ''' 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 @@ -4766,9 +4813,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -4781,21 +4828,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes AdressenVzImportAVUVTyp object + ''' + ''' string to deserialize + ''' Output AdressenVzImportAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdressenVzImportAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AdressenVzImportAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -4803,16 +4850,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AdressenVzImportAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdressenVzImportAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AdressenVzImportAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdressenVzImportAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -4820,12 +4867,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AdressenVzImportAVUVTyp + Return CType(SerializerXml.Deserialize(s), AdressenVzImportAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current AdressenVzImportAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -4838,19 +4890,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -4859,13 +4911,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an AdressenVzImportAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output AdressenVzImportAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AdressenVzImportAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AdressenVzImportAVUVTyp) @@ -4879,7 +4931,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdressenVzImportAVUVTyp) As Boolean @@ -4888,7 +4940,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AdressenVzImportAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AdressenVzImportAVUVTyp @@ -4897,10 +4949,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -4910,127 +4962,128 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class ZusaetzlicheSteuerlicheVerweiseTyp - Private kennnummerField As String +#Region "Private fields" + Private _kennnummer As String - Private steuerbeteiligterTINField As String + Private _steuerbeteiligterTIN As String - Private nameField As String + Private _name As String - Private strasseUndHausnummerField As String + Private _strasseUndHausnummer As String - Private landField As String + Private _land As String - Private pLZField As String + Private _pLZ As String - Private ortField As String + Private _ort As String - Private ortsteilField As String + Private _ortsteil As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property Kennnummer() As String Get - Return Me.kennnummerField + Return Me._kennnummer End Get Set - Me.kennnummerField = Value + Me._kennnummer = Value End Set End Property Public Overridable Property SteuerbeteiligterTIN() As String Get - Return Me.steuerbeteiligterTINField + Return Me._steuerbeteiligterTIN End Get Set - Me.steuerbeteiligterTINField = Value + Me._steuerbeteiligterTIN = Value End Set End Property Public Overridable Property Name() As String Get - Return Me.nameField + Return Me._name End Get Set - Me.nameField = Value + Me._name = Value End Set End Property Public Overridable Property StrasseUndHausnummer() As String Get - Return Me.strasseUndHausnummerField + Return Me._strasseUndHausnummer End Get Set - Me.strasseUndHausnummerField = Value + Me._strasseUndHausnummer = Value End Set End Property Public Overridable Property Land() As String Get - Return Me.landField + Return Me._land End Get Set - Me.landField = Value + Me._land = Value End Set End Property Public Overridable Property PLZ() As String Get - Return Me.pLZField + Return Me._pLZ End Get Set - Me.pLZField = Value + Me._pLZ = Value End Set End Property Public Overridable Property Ort() As String Get - Return Me.ortField + Return Me._ort End Get Set - Me.ortField = Value + Me._ort = Value End Set End Property Public Overridable Property Ortsteil() As String Get - Return Me.ortsteilField + Return Me._ortsteil End Get Set - Me.ortsteilField = Value + Me._ortsteil = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ZusaetzlicheSteuerlicheVerweiseTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ZusaetzlicheSteuerlicheVerweiseTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current ZusaetzlicheSteuerlicheVerweiseTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize ZusaetzlicheSteuerlicheVerweiseTyp object + ''' + ''' 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 @@ -5039,9 +5092,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -5054,21 +5107,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes ZusaetzlicheSteuerlicheVerweiseTyp object + ''' + ''' string to deserialize + ''' Output ZusaetzlicheSteuerlicheVerweiseTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ZusaetzlicheSteuerlicheVerweiseTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -5076,16 +5129,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As ZusaetzlicheSteuerlicheVerweiseTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ZusaetzlicheSteuerlicheVerweiseTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -5093,12 +5146,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ZusaetzlicheSteuerlicheVerweiseTyp + Return CType(SerializerXml.Deserialize(s), ZusaetzlicheSteuerlicheVerweiseTyp) + End Function +#End Region + + ''' + ''' Serializes current ZusaetzlicheSteuerlicheVerweiseTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -5111,19 +5169,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -5132,13 +5190,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an ZusaetzlicheSteuerlicheVerweiseTyp object + ''' + ''' File to load and deserialize + ''' Output ZusaetzlicheSteuerlicheVerweiseTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ZusaetzlicheSteuerlicheVerweiseTyp) @@ -5152,7 +5210,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ZusaetzlicheSteuerlicheVerweiseTyp) As Boolean @@ -5161,7 +5219,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ZusaetzlicheSteuerlicheVerweiseTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As ZusaetzlicheSteuerlicheVerweiseTyp @@ -5170,10 +5228,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -5183,91 +5241,92 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class AVBuchhaltVeredelungTyp - Private strasseField As String +#Region "Private fields" + Private _strasse As String - Private landField As String + Private _land As String - Private pLZField As String + Private _pLZ As String - Private ortField As String + Private _ort As String - Private ortsteilField As String + Private _ortsteil As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property Strasse() As String Get - Return Me.strasseField + Return Me._strasse End Get Set - Me.strasseField = Value + Me._strasse = Value End Set End Property Public Overridable Property Land() As String Get - Return Me.landField + Return Me._land End Get Set - Me.landField = Value + Me._land = Value End Set End Property Public Overridable Property PLZ() As String Get - Return Me.pLZField + Return Me._pLZ End Get Set - Me.pLZField = Value + Me._pLZ = Value End Set End Property Public Overridable Property Ort() As String Get - Return Me.ortField + Return Me._ort End Get Set - Me.ortField = Value + Me._ort = Value End Set End Property Public Overridable Property Ortsteil() As String Get - Return Me.ortsteilField + Return Me._ortsteil End Get Set - Me.ortsteilField = Value + Me._ortsteil = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AVBuchhaltVeredelungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AVBuchhaltVeredelungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AVBuchhaltVeredelungTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize AVBuchhaltVeredelungTyp object + ''' + ''' 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 @@ -5276,9 +5335,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -5291,21 +5350,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes AVBuchhaltVeredelungTyp object + ''' + ''' string to deserialize + ''' Output AVBuchhaltVeredelungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AVBuchhaltVeredelungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AVBuchhaltVeredelungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -5313,16 +5372,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AVBuchhaltVeredelungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AVBuchhaltVeredelungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AVBuchhaltVeredelungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AVBuchhaltVeredelungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -5330,12 +5389,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AVBuchhaltVeredelungTyp + Return CType(SerializerXml.Deserialize(s), AVBuchhaltVeredelungTyp) + End Function +#End Region + + ''' + ''' Serializes current AVBuchhaltVeredelungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -5348,19 +5412,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -5369,13 +5433,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an AVBuchhaltVeredelungTyp object + ''' + ''' File to load and deserialize + ''' Output AVBuchhaltVeredelungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AVBuchhaltVeredelungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AVBuchhaltVeredelungTyp) @@ -5389,7 +5453,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVBuchhaltVeredelungTyp) As Boolean @@ -5398,7 +5462,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AVBuchhaltVeredelungTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AVBuchhaltVeredelungTyp @@ -5407,10 +5471,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -5420,235 +5484,236 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class BEAnteilZLAVUVPositionAVUVTyp - Private registriernummerZugangField As String +#Region "Private fields" + Private _registriernummerZugang As String - Private positionZugangField As String + Private _positionZugang As String - Private artikelcodeATZLField As String + Private _artikelcodeATZL As String - Private eigentuemerATZLField As String + Private _eigentuemerATZL As String - Private chargennummerATZLField As String + Private _chargennummerATZL As String - Private ursprungslandATZLField As String + Private _ursprungslandATZL As String - Private atlasKzField As String + Private _atlasKz As String - Private warennummerField As String + Private _warennummer As String - Private ueblicheBehandlungKzField As String + Private _ueblicheBehandlungKz As String - Private handelsmengeField As String + Private _handelsmenge As String - Private masseinheitHandelsmengeField As String + Private _masseinheitHandelsmenge As String - Private qualifikatorHandelsmengeField As String + Private _qualifikatorHandelsmenge As String - Private abgangsmengeField As String + Private _abgangsmenge As String - Private masseinheitAbgangsmengeField As String + Private _masseinheitAbgangsmenge As String - Private qualifikatorAbgangsmengeField As String + Private _qualifikatorAbgangsmenge As String - Private positionszusatzField As String + Private _positionszusatz As String - Private warenbezogeneAngabenField As String + Private _warenbezogeneAngaben As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property RegistriernummerZugang() As String Get - Return Me.registriernummerZugangField + Return Me._registriernummerZugang End Get Set - Me.registriernummerZugangField = Value + Me._registriernummerZugang = Value End Set End Property Public Overridable Property PositionZugang() As String Get - Return Me.positionZugangField + Return Me._positionZugang End Get Set - Me.positionZugangField = Value + Me._positionZugang = Value End Set End Property Public Overridable Property ArtikelcodeATZL() As String Get - Return Me.artikelcodeATZLField + Return Me._artikelcodeATZL End Get Set - Me.artikelcodeATZLField = Value + Me._artikelcodeATZL = Value End Set End Property Public Overridable Property EigentuemerATZL() As String Get - Return Me.eigentuemerATZLField + Return Me._eigentuemerATZL End Get Set - Me.eigentuemerATZLField = Value + Me._eigentuemerATZL = Value End Set End Property Public Overridable Property ChargennummerATZL() As String Get - Return Me.chargennummerATZLField + Return Me._chargennummerATZL End Get Set - Me.chargennummerATZLField = Value + Me._chargennummerATZL = Value End Set End Property Public Overridable Property UrsprungslandATZL() As String Get - Return Me.ursprungslandATZLField + Return Me._ursprungslandATZL End Get Set - Me.ursprungslandATZLField = Value + Me._ursprungslandATZL = Value End Set End Property Public Overridable Property AtlasKz() As String Get - Return Me.atlasKzField + Return Me._atlasKz End Get Set - Me.atlasKzField = Value + Me._atlasKz = Value End Set End Property Public Overridable Property Warennummer() As String Get - Return Me.warennummerField + Return Me._warennummer End Get Set - Me.warennummerField = Value + Me._warennummer = Value End Set End Property Public Overridable Property UeblicheBehandlungKz() As String Get - Return Me.ueblicheBehandlungKzField + Return Me._ueblicheBehandlungKz End Get Set - Me.ueblicheBehandlungKzField = Value + Me._ueblicheBehandlungKz = Value End Set End Property Public Overridable Property Handelsmenge() As String Get - Return Me.handelsmengeField + Return Me._handelsmenge End Get Set - Me.handelsmengeField = Value + Me._handelsmenge = Value End Set End Property Public Overridable Property MasseinheitHandelsmenge() As String Get - Return Me.masseinheitHandelsmengeField + Return Me._masseinheitHandelsmenge End Get Set - Me.masseinheitHandelsmengeField = Value + Me._masseinheitHandelsmenge = Value End Set End Property Public Overridable Property QualifikatorHandelsmenge() As String Get - Return Me.qualifikatorHandelsmengeField + Return Me._qualifikatorHandelsmenge End Get Set - Me.qualifikatorHandelsmengeField = Value + Me._qualifikatorHandelsmenge = Value End Set End Property Public Overridable Property Abgangsmenge() As String Get - Return Me.abgangsmengeField + Return Me._abgangsmenge End Get Set - Me.abgangsmengeField = Value + Me._abgangsmenge = Value End Set End Property Public Overridable Property MasseinheitAbgangsmenge() As String Get - Return Me.masseinheitAbgangsmengeField + Return Me._masseinheitAbgangsmenge End Get Set - Me.masseinheitAbgangsmengeField = Value + Me._masseinheitAbgangsmenge = Value End Set End Property Public Overridable Property QualifikatorAbgangsmenge() As String Get - Return Me.qualifikatorAbgangsmengeField + Return Me._qualifikatorAbgangsmenge End Get Set - Me.qualifikatorAbgangsmengeField = Value + Me._qualifikatorAbgangsmenge = Value End Set End Property Public Overridable Property Positionszusatz() As String Get - Return Me.positionszusatzField + Return Me._positionszusatz End Get Set - Me.positionszusatzField = Value + Me._positionszusatz = Value End Set End Property Public Overridable Property WarenbezogeneAngaben() As String Get - Return Me.warenbezogeneAngabenField + Return Me._warenbezogeneAngaben End Get Set - Me.warenbezogeneAngabenField = Value + Me._warenbezogeneAngaben = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(BEAnteilZLAVUVPositionAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BEAnteilZLAVUVPositionAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current BEAnteilZLAVUVPositionAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize BEAnteilZLAVUVPositionAVUVTyp object + ''' + ''' 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 @@ -5657,9 +5722,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -5672,21 +5737,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes BEAnteilZLAVUVPositionAVUVTyp object + ''' + ''' string to deserialize + ''' Output BEAnteilZLAVUVPositionAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BEAnteilZLAVUVPositionAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -5694,16 +5759,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As BEAnteilZLAVUVPositionAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BEAnteilZLAVUVPositionAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -5711,12 +5776,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BEAnteilZLAVUVPositionAVUVTyp + Return CType(SerializerXml.Deserialize(s), BEAnteilZLAVUVPositionAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current BEAnteilZLAVUVPositionAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -5729,19 +5799,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -5750,13 +5820,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an BEAnteilZLAVUVPositionAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output BEAnteilZLAVUVPositionAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BEAnteilZLAVUVPositionAVUVTyp) @@ -5770,7 +5840,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp) As Boolean @@ -5779,7 +5849,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BEAnteilZLAVUVPositionAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As BEAnteilZLAVUVPositionAVUVTyp @@ -5788,10 +5858,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -5801,127 +5871,128 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class SumABeendigungsAnteilAVUVTyp - Private sumARegistriernummerField As String +#Region "Private fields" + Private _sumARegistriernummer As String - Private sumAPosNrField As String + Private _sumAPosNr As String - Private beendigungsPackstueckzahlField As String + Private _beendigungsPackstueckzahl As String - Private artIdentifikationField As String + Private _artIdentifikation As String - Private verwahrerEORIField As String + Private _verwahrerEORI As String - Private zollNummerVerwahrerField As String + Private _zollNummerVerwahrer As String - Private spezifOrdnungsbegriffArtField As String + Private _spezifOrdnungsbegriffArt As String - Private spezifOrdnungsbegriffField As String + Private _spezifOrdnungsbegriff As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property SumARegistriernummer() As String Get - Return Me.sumARegistriernummerField + Return Me._sumARegistriernummer End Get Set - Me.sumARegistriernummerField = Value + Me._sumARegistriernummer = Value End Set End Property Public Overridable Property SumAPosNr() As String Get - Return Me.sumAPosNrField + Return Me._sumAPosNr End Get Set - Me.sumAPosNrField = Value + Me._sumAPosNr = Value End Set End Property Public Overridable Property BeendigungsPackstueckzahl() As String Get - Return Me.beendigungsPackstueckzahlField + Return Me._beendigungsPackstueckzahl End Get Set - Me.beendigungsPackstueckzahlField = Value + Me._beendigungsPackstueckzahl = Value End Set End Property Public Overridable Property ArtIdentifikation() As String Get - Return Me.artIdentifikationField + Return Me._artIdentifikation End Get Set - Me.artIdentifikationField = Value + Me._artIdentifikation = Value End Set End Property Public Overridable Property VerwahrerEORI() As String Get - Return Me.verwahrerEORIField + Return Me._verwahrerEORI End Get Set - Me.verwahrerEORIField = Value + Me._verwahrerEORI = Value End Set End Property Public Overridable Property ZollNummerVerwahrer() As String Get - Return Me.zollNummerVerwahrerField + Return Me._zollNummerVerwahrer End Get Set - Me.zollNummerVerwahrerField = Value + Me._zollNummerVerwahrer = Value End Set End Property Public Overridable Property SpezifOrdnungsbegriffArt() As String Get - Return Me.spezifOrdnungsbegriffArtField + Return Me._spezifOrdnungsbegriffArt End Get Set - Me.spezifOrdnungsbegriffArtField = Value + Me._spezifOrdnungsbegriffArt = Value End Set End Property Public Overridable Property SpezifOrdnungsbegriff() As String Get - Return Me.spezifOrdnungsbegriffField + Return Me._spezifOrdnungsbegriff End Get Set - Me.spezifOrdnungsbegriffField = Value + Me._spezifOrdnungsbegriff = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(SumABeendigungsAnteilAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SumABeendigungsAnteilAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current SumABeendigungsAnteilAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize SumABeendigungsAnteilAVUVTyp object + ''' + ''' 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 @@ -5930,9 +6001,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -5945,21 +6016,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes SumABeendigungsAnteilAVUVTyp object + ''' + ''' string to deserialize + ''' Output SumABeendigungsAnteilAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumABeendigungsAnteilAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SumABeendigungsAnteilAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -5967,16 +6038,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SumABeendigungsAnteilAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumABeendigungsAnteilAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As SumABeendigungsAnteilAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SumABeendigungsAnteilAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -5984,12 +6055,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SumABeendigungsAnteilAVUVTyp + Return CType(SerializerXml.Deserialize(s), SumABeendigungsAnteilAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current SumABeendigungsAnteilAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -6002,19 +6078,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -6023,13 +6099,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an SumABeendigungsAnteilAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output SumABeendigungsAnteilAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As SumABeendigungsAnteilAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SumABeendigungsAnteilAVUVTyp) @@ -6043,7 +6119,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SumABeendigungsAnteilAVUVTyp) As Boolean @@ -6052,7 +6128,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SumABeendigungsAnteilAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As SumABeendigungsAnteilAVUVTyp @@ -6061,10 +6137,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -6074,127 +6150,128 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class AufschubAVUVTyp - Private aufschubartField As String +#Region "Private fields" + Private _aufschubart As String - Private artAufschubantragField As String + Private _artAufschubantrag As String - Private aufschubnehmerEORIField As String + Private _aufschubnehmerEORI As String - Private kennbuchstabenAufschubField As String + Private _kennbuchstabenAufschub As String - Private zollnummerAufschubnehmerField As String + Private _zollnummerAufschubnehmer As String - Private kontoBewHZAField As String + Private _kontoBewHZA As String - Private kontoNrField As String + Private _kontoNr As String - Private aufschubBINField As String + Private _aufschubBIN As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property Aufschubart() As String Get - Return Me.aufschubartField + Return Me._aufschubart End Get Set - Me.aufschubartField = Value + Me._aufschubart = Value End Set End Property Public Overridable Property ArtAufschubantrag() As String Get - Return Me.artAufschubantragField + Return Me._artAufschubantrag End Get Set - Me.artAufschubantragField = Value + Me._artAufschubantrag = Value End Set End Property Public Overridable Property AufschubnehmerEORI() As String Get - Return Me.aufschubnehmerEORIField + Return Me._aufschubnehmerEORI End Get Set - Me.aufschubnehmerEORIField = Value + Me._aufschubnehmerEORI = Value End Set End Property Public Overridable Property KennbuchstabenAufschub() As String Get - Return Me.kennbuchstabenAufschubField + Return Me._kennbuchstabenAufschub End Get Set - Me.kennbuchstabenAufschubField = Value + Me._kennbuchstabenAufschub = Value End Set End Property Public Overridable Property ZollnummerAufschubnehmer() As String Get - Return Me.zollnummerAufschubnehmerField + Return Me._zollnummerAufschubnehmer End Get Set - Me.zollnummerAufschubnehmerField = Value + Me._zollnummerAufschubnehmer = Value End Set End Property Public Overridable Property KontoBewHZA() As String Get - Return Me.kontoBewHZAField + Return Me._kontoBewHZA End Get Set - Me.kontoBewHZAField = Value + Me._kontoBewHZA = Value End Set End Property Public Overridable Property KontoNr() As String Get - Return Me.kontoNrField + Return Me._kontoNr End Get Set - Me.kontoNrField = Value + Me._kontoNr = Value End Set End Property Public Overridable Property AufschubBIN() As String Get - Return Me.aufschubBINField + Return Me._aufschubBIN End Get Set - Me.aufschubBINField = Value + Me._aufschubBIN = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AufschubAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AufschubAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AufschubAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize AufschubAVUVTyp object + ''' + ''' 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 @@ -6203,9 +6280,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -6218,21 +6295,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes AufschubAVUVTyp object + ''' + ''' string to deserialize + ''' Output AufschubAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AufschubAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AufschubAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -6240,16 +6317,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AufschubAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AufschubAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AufschubAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AufschubAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -6257,12 +6334,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AufschubAVUVTyp + Return CType(SerializerXml.Deserialize(s), AufschubAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current AufschubAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -6275,19 +6357,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -6296,13 +6378,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an AufschubAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output AufschubAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AufschubAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AufschubAVUVTyp) @@ -6316,7 +6398,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AufschubAVUVTyp) As Boolean @@ -6325,7 +6407,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AufschubAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As AufschubAVUVTyp @@ -6334,10 +6416,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -6347,91 +6429,80 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class UnterlageVzKopfAVUVTyp - Private bereichField As String +#Region "Private fields" + Private _bereich As String - Private artField As String + Private _art As String - Private nummerField As String + Private _nummer As String - Private datumAusstellungField As Date + Private _datumAusstellung As Date - Private datumAusstellungFieldSpecified As Boolean - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property Bereich() As String Get - Return Me.bereichField + Return Me._bereich End Get Set - Me.bereichField = Value + Me._bereich = Value End Set End Property Public Overridable Property Art() As String Get - Return Me.artField + Return Me._art End Get Set - Me.artField = Value + Me._art = Value End Set End Property Public Overridable Property Nummer() As String Get - Return Me.nummerField + Return Me._nummer End Get Set - Me.nummerField = Value + Me._nummer = Value End Set End Property Public Overridable Property DatumAusstellung() As Date Get - Return Me.datumAusstellungField + Return Me._datumAusstellung End Get Set - Me.datumAusstellungField = Value + Me._datumAusstellung = Value End Set End Property - - Public Overridable Property DatumAusstellungSpecified() As Boolean + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVzKopfAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current UnterlageVzKopfAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize UnterlageVzKopfAVUVTyp object + ''' + ''' 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 @@ -6440,9 +6511,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -6455,21 +6526,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes UnterlageVzKopfAVUVTyp object + ''' + ''' string to deserialize + ''' Output UnterlageVzKopfAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVzKopfAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageVzKopfAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -6477,16 +6548,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As UnterlageVzKopfAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVzKopfAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As UnterlageVzKopfAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UnterlageVzKopfAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -6494,12 +6565,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UnterlageVzKopfAVUVTyp + Return CType(SerializerXml.Deserialize(s), UnterlageVzKopfAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current UnterlageVzKopfAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try @@ -6512,19 +6588,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -6533,13 +6609,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an UnterlageVzKopfAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output UnterlageVzKopfAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As UnterlageVzKopfAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageVzKopfAVUVTyp) @@ -6553,7 +6629,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVzKopfAVUVTyp) As Boolean @@ -6562,7 +6638,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UnterlageVzKopfAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As UnterlageVzKopfAVUVTyp @@ -6571,10 +6647,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -6584,247 +6660,236 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class DV1KostenverteilungAVUVTyp - Private kostenartField As String +#Region "Private fields" + Private _kostenart As String - Private kostenField As String + Private _kosten As String - Private kostenWaehrungField As String + Private _kostenWaehrung As String - Private wechselkursArtField As String + Private _wechselkursArt As String - Private wechselkursField As String + Private _wechselkurs As String - Private wechselkursDatumField As Date + Private _wechselkursDatum As Date - Private wechselkursDatumFieldSpecified As Boolean + Private _verteilungsart As String - Private verteilungsartField As String + Private _minimalbetrag As String - Private minimalbetragField As String + Private _rabattProzent As String - Private rabattProzentField As String + Private _skontoProzent As String - Private skontoProzentField As String + Private _bemerkungen As String - Private bemerkungenField As String + Private _versicherungBerechnenKz As String - Private versicherungBerechnenKzField As String + Private _prozentualerAnteil As String - Private prozentualerAnteilField As String + Private _imaginaererProfit As String - Private imaginaererProfitField As String + Private _andereZahlung As String - Private andereZahlungField As String + Private _summeRechnungManuell As String - Private summeRechnungManuellField As String + Private _summeFrachtManuell As String - Private summeFrachtManuellField As String - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property Kostenart() As String Get - Return Me.kostenartField + Return Me._kostenart End Get Set - Me.kostenartField = Value + Me._kostenart = Value End Set End Property Public Overridable Property Kosten() As String Get - Return Me.kostenField + Return Me._kosten End Get Set - Me.kostenField = Value + Me._kosten = Value End Set End Property Public Overridable Property KostenWaehrung() As String Get - Return Me.kostenWaehrungField + Return Me._kostenWaehrung End Get Set - Me.kostenWaehrungField = Value + Me._kostenWaehrung = Value End Set End Property Public Overridable Property WechselkursArt() As String Get - Return Me.wechselkursArtField + Return Me._wechselkursArt End Get Set - Me.wechselkursArtField = Value + Me._wechselkursArt = Value End Set End Property Public Overridable Property Wechselkurs() As String Get - Return Me.wechselkursField + Return Me._wechselkurs End Get Set - Me.wechselkursField = Value + Me._wechselkurs = Value End Set End Property Public Overridable Property WechselkursDatum() As Date Get - Return Me.wechselkursDatumField + Return Me._wechselkursDatum 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 + Me._wechselkursDatum = Value End Set End Property Public Overridable Property Verteilungsart() As String Get - Return Me.verteilungsartField + Return Me._verteilungsart End Get Set - Me.verteilungsartField = Value + Me._verteilungsart = Value End Set End Property Public Overridable Property Minimalbetrag() As String Get - Return Me.minimalbetragField + Return Me._minimalbetrag End Get Set - Me.minimalbetragField = Value + Me._minimalbetrag = Value End Set End Property Public Overridable Property RabattProzent() As String Get - Return Me.rabattProzentField + Return Me._rabattProzent End Get Set - Me.rabattProzentField = Value + Me._rabattProzent = Value End Set End Property Public Overridable Property SkontoProzent() As String Get - Return Me.skontoProzentField + Return Me._skontoProzent End Get Set - Me.skontoProzentField = Value + Me._skontoProzent = Value End Set End Property Public Overridable Property Bemerkungen() As String Get - Return Me.bemerkungenField + Return Me._bemerkungen End Get Set - Me.bemerkungenField = Value + Me._bemerkungen = Value End Set End Property Public Overridable Property VersicherungBerechnenKz() As String Get - Return Me.versicherungBerechnenKzField + Return Me._versicherungBerechnenKz End Get Set - Me.versicherungBerechnenKzField = Value + Me._versicherungBerechnenKz = Value End Set End Property Public Overridable Property ProzentualerAnteil() As String Get - Return Me.prozentualerAnteilField + Return Me._prozentualerAnteil End Get Set - Me.prozentualerAnteilField = Value + Me._prozentualerAnteil = Value End Set End Property Public Overridable Property ImaginaererProfit() As String Get - Return Me.imaginaererProfitField + Return Me._imaginaererProfit End Get Set - Me.imaginaererProfitField = Value + Me._imaginaererProfit = Value End Set End Property Public Overridable Property AndereZahlung() As String Get - Return Me.andereZahlungField + Return Me._andereZahlung End Get Set - Me.andereZahlungField = Value + Me._andereZahlung = Value End Set End Property Public Overridable Property SummeRechnungManuell() As String Get - Return Me.summeRechnungManuellField + Return Me._summeRechnungManuell End Get Set - Me.summeRechnungManuellField = Value + Me._summeRechnungManuell = Value End Set End Property Public Overridable Property SummeFrachtManuell() As String Get - Return Me.summeFrachtManuellField + Return Me._summeFrachtManuell End Get Set - Me.summeFrachtManuellField = Value + Me._summeFrachtManuell = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DV1KostenverteilungAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DV1KostenverteilungAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current DV1KostenverteilungAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize DV1KostenverteilungAVUVTyp object + ''' + ''' 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 @@ -6833,9 +6898,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -6848,21 +6913,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes DV1KostenverteilungAVUVTyp object + ''' + ''' string to deserialize + ''' Output DV1KostenverteilungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DV1KostenverteilungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DV1KostenverteilungAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -6870,16 +6935,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DV1KostenverteilungAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DV1KostenverteilungAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As DV1KostenverteilungAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DV1KostenverteilungAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -6887,12 +6952,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DV1KostenverteilungAVUVTyp + Return CType(SerializerXml.Deserialize(s), DV1KostenverteilungAVUVTyp) + End Function +#End Region + + ''' + ''' 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 @@ -6905,19 +6975,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -6926,13 +6996,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an DV1KostenverteilungAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output DV1KostenverteilungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As DV1KostenverteilungAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DV1KostenverteilungAVUVTyp) @@ -6946,7 +7016,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DV1KostenverteilungAVUVTyp) As Boolean @@ -6955,7 +7025,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DV1KostenverteilungAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As DV1KostenverteilungAVUVTyp @@ -6964,10 +7034,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -6977,187 +7047,188 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class DV1AngabenAVUVTyp - Private dV1KzField As String +#Region "Private fields" + Private _dV1Kz As String - Private vertretungsverhaeltnisField As String + Private _vertretungsverhaeltnis As String - Private fruehereEntscheidungenField As String + Private _fruehereEntscheidungen As String - Private verbundenheitField As String + Private _verbundenheit As String - Private verbundenheitEinzelheitenField As String + Private _verbundenheitEinzelheiten As String - Private einschraenkungenKzField As String + Private _einschraenkungenKz As String - Private bedingungenLeistungenKzField As String + Private _bedingungenLeistungenKz As String - Private bedingungenLeistungenArtField As String + Private _bedingungenLeistungenArt As String - Private lizenzgebuehrenKzField As String + Private _lizenzgebuehrenKz As String - Private lizenzgebuehrenUmstandField As String + Private _lizenzgebuehrenUmstand As String - Private spezielleVereinbarungKzField As String + Private _spezielleVereinbarungKz As String - Private spezielleVereinbarungUmstandField As String + Private _spezielleVereinbarungUmstand As String - Private iATAAbflughafenField As String + Private _iATAAbflughafen As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property DV1Kz() As String Get - Return Me.dV1KzField + Return Me._dV1Kz End Get Set - Me.dV1KzField = Value + Me._dV1Kz = Value End Set End Property Public Overridable Property Vertretungsverhaeltnis() As String Get - Return Me.vertretungsverhaeltnisField + Return Me._vertretungsverhaeltnis End Get Set - Me.vertretungsverhaeltnisField = Value + Me._vertretungsverhaeltnis = Value End Set End Property Public Overridable Property FruehereEntscheidungen() As String Get - Return Me.fruehereEntscheidungenField + Return Me._fruehereEntscheidungen End Get Set - Me.fruehereEntscheidungenField = Value + Me._fruehereEntscheidungen = Value End Set End Property Public Overridable Property Verbundenheit() As String Get - Return Me.verbundenheitField + Return Me._verbundenheit End Get Set - Me.verbundenheitField = Value + Me._verbundenheit = Value End Set End Property Public Overridable Property VerbundenheitEinzelheiten() As String Get - Return Me.verbundenheitEinzelheitenField + Return Me._verbundenheitEinzelheiten End Get Set - Me.verbundenheitEinzelheitenField = Value + Me._verbundenheitEinzelheiten = Value End Set End Property Public Overridable Property EinschraenkungenKz() As String Get - Return Me.einschraenkungenKzField + Return Me._einschraenkungenKz End Get Set - Me.einschraenkungenKzField = Value + Me._einschraenkungenKz = Value End Set End Property Public Overridable Property BedingungenLeistungenKz() As String Get - Return Me.bedingungenLeistungenKzField + Return Me._bedingungenLeistungenKz End Get Set - Me.bedingungenLeistungenKzField = Value + Me._bedingungenLeistungenKz = Value End Set End Property Public Overridable Property BedingungenLeistungenArt() As String Get - Return Me.bedingungenLeistungenArtField + Return Me._bedingungenLeistungenArt End Get Set - Me.bedingungenLeistungenArtField = Value + Me._bedingungenLeistungenArt = Value End Set End Property Public Overridable Property LizenzgebuehrenKz() As String Get - Return Me.lizenzgebuehrenKzField + Return Me._lizenzgebuehrenKz End Get Set - Me.lizenzgebuehrenKzField = Value + Me._lizenzgebuehrenKz = Value End Set End Property Public Overridable Property LizenzgebuehrenUmstand() As String Get - Return Me.lizenzgebuehrenUmstandField + Return Me._lizenzgebuehrenUmstand End Get Set - Me.lizenzgebuehrenUmstandField = Value + Me._lizenzgebuehrenUmstand = Value End Set End Property Public Overridable Property SpezielleVereinbarungKz() As String Get - Return Me.spezielleVereinbarungKzField + Return Me._spezielleVereinbarungKz End Get Set - Me.spezielleVereinbarungKzField = Value + Me._spezielleVereinbarungKz = Value End Set End Property Public Overridable Property SpezielleVereinbarungUmstand() As String Get - Return Me.spezielleVereinbarungUmstandField + Return Me._spezielleVereinbarungUmstand End Get Set - Me.spezielleVereinbarungUmstandField = Value + Me._spezielleVereinbarungUmstand = Value End Set End Property Public Overridable Property IATAAbflughafen() As String Get - Return Me.iATAAbflughafenField + Return Me._iATAAbflughafen End Get Set - Me.iATAAbflughafenField = Value + Me._iATAAbflughafen = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DV1AngabenAVUVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DV1AngabenAVUVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current DV1AngabenAVUVTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize DV1AngabenAVUVTyp object + ''' + ''' 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 @@ -7166,9 +7237,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -7181,21 +7252,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes DV1AngabenAVUVTyp object + ''' + ''' string to deserialize + ''' Output DV1AngabenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DV1AngabenAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DV1AngabenAVUVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -7203,16 +7274,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DV1AngabenAVUVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DV1AngabenAVUVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As DV1AngabenAVUVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DV1AngabenAVUVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -7220,12 +7291,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DV1AngabenAVUVTyp + Return CType(SerializerXml.Deserialize(s), DV1AngabenAVUVTyp) + End Function +#End Region + + ''' + ''' 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 @@ -7238,19 +7314,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -7259,13 +7335,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an DV1AngabenAVUVTyp object + ''' + ''' File to load and deserialize + ''' Output DV1AngabenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As DV1AngabenAVUVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DV1AngabenAVUVTyp) @@ -7279,7 +7355,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DV1AngabenAVUVTyp) As Boolean @@ -7288,7 +7364,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DV1AngabenAVUVTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As DV1AngabenAVUVTyp @@ -7297,10 +7373,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -7310,814 +7386,803 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp - Private adressierteZollstelleField As String +#Region "Private fields" + Private _adressierteZollstelle As String - Private anmelderIstEmpfaengerField As String + Private _anmelderIstEmpfaenger As String - Private vertretungsverhaeltnisCodeField As String + Private _vertretungsverhaeltnisCode As String - Private vorsteuerabzugField As String + Private _vorsteuerabzug As String - Private nameAnmeldenderBearbeiterField As String + Private _nameAnmeldenderBearbeiter As String - Private telefonnummerAnmeldenderBearbeiterField As String + Private _telefonnummerAnmeldenderBearbeiter As String - Private stellungAnmeldenderBearbeiterField As String + Private _stellungAnmeldenderBearbeiter As String - Private emailAdresseAnmeldenderBearbeiterField As String + Private _emailAdresseAnmeldenderBearbeiter As String - Private fiskalvertretungKzField As String + Private _fiskalvertretungKz As String - Private zusammenfassendeMeldungKzStdKtoField As String + Private _zusammenfassendeMeldungKzStdKto As String - Private zusammenfassendeMeldungMelderktoField As String + Private _zusammenfassendeMeldungMelderkto As String - Private intrastatKzStdKtoField As String + Private _intrastatKzStdKto As String - Private intrastatMelderktoField As String + Private _intrastatMelderkto As String - Private ausstellungsortField As String + Private _ausstellungsort As String - Private zollrechtlicherStatusField As String + Private _zollrechtlicherStatus As String - Private gesamtRohMasseField As String + Private _gesamtRohMasse As String - Private verfahrenBeantragtCodeField As String + Private _verfahrenBeantragtCode As String - Private verkehrszweigInlandField As String + Private _verkehrszweigInland As String - Private verkehrszweigGrenzeField As String + Private _verkehrszweigGrenze As String - Private versendungslandCodeField As String + Private _versendungslandCode As String - Private bestimmungsbundeslandField As String + Private _bestimmungsbundesland As String - Private bestimmungslandField As String + Private _bestimmungsland As String - Private kennzeichenNameBefoerderungsmittelAnkunftField As String + Private _kennzeichenNameBefoerderungsmittelAnkunft As String - Private befoerderungsmittelGrenzeStaatszugehoerigkeitCodeField As String + Private _befoerderungsmittelGrenzeStaatszugehoerigkeitCode As String - Private befoerderungsmittelGrenzeArtField As String + Private _befoerderungsmittelGrenzeArt As String - Private befoerderungsmittelGrenzeField As String + Private _befoerderungsmittelGrenze As String - Private lieferbedingungCodeField As String + Private _lieferbedingungCode As String - Private lieferbedingungTextField As String + Private _lieferbedingungText As String - Private lieferbedingungSchluesselField As String + Private _lieferbedingungSchluessel As String - Private lieferbedingungOrtField As String + Private _lieferbedingungOrt As String - Private vorpapierArtCodeField As String + Private _vorpapierArtCode As String - Private vorpapierNrField As String + Private _vorpapierNr As String - Private artGeschaeftCodeField As String + Private _artGeschaeftCode As String - Private statistikStatusField As String + Private _statistikStatus As String - Private warenortField As String + Private _warenort As String - Private rechnungspreisField As String + Private _rechnungspreis As String - Private rechnungswaehrungField As String + Private _rechnungswaehrung As String - Private dV1AngabenField As DV1AngabenAVUVTyp + Private _dV1Angaben As DV1AngabenAVUVTyp - Private dV1KostenverteilungField As List(Of DV1KostenverteilungAVUVTyp) + Private _dV1Kostenverteilung As List(Of DV1KostenverteilungAVUVTyp) - Private unterlageField As List(Of UnterlageVzKopfAVUVTyp) + Private _unterlage As List(Of UnterlageVzKopfAVUVTyp) - Private zusatzAngabenAnmeldungField As String + Private _zusatzAngabenAnmeldung As String - Private kzAutoBestaetigungField As String + Private _kzAutoBestaetigung As String - Private anschreibungDatumField As Date + Private _anschreibungDatum As Date - Private anschreibungDatumFieldSpecified As Boolean + Private _vereinfachterBewilligungsantragKzAV As String - Private vereinfachterBewilligungsantragKzAVField As String + Private _eingangszollstelle As String - Private eingangszollstelleField As String + Private _zahlungsart As String - Private zahlungsartField As String + Private _aufschub As List(Of AufschubAVUVTyp) - Private aufschubField As List(Of AufschubAVUVTyp) + Private _sumABeendigungsAnteil As List(Of SumABeendigungsAnteilAVUVTyp) - Private sumABeendigungsAnteilField As List(Of SumABeendigungsAnteilAVUVTyp) + Private _containerNr As List(Of String) - Private containerNrField As List(Of String) + Private _beendigungsAnteilArtCode As String - Private beendigungsAnteilArtCodeField As String + Private _bewilligungsIDZLAVUV As String - Private bewilligungsIDZLAVUVField As String + Private _bezugsnummerBEAnteilZL As String - Private bezugsnummerBEAnteilZLField As String + Private _bEAnteilZLAVUV As List(Of BEAnteilZLAVUVPositionAVUVTyp) - Private bEAnteilZLAVUVField As List(Of BEAnteilZLAVUVPositionAVUVTyp) + Private _kzVereinfBewillAntrgBEAnteilAV As String - Private kzVereinfBewillAntrgBEAnteilAVField As String + Private _deutschesUeHZAbeiAV As String - Private deutschesUeHZAbeiAVField As String + Private _erledigungsfristAV As String - Private erledigungsfristAVField As String + Private _bemEinfuhrabgKz As String - Private bemEinfuhrabgKzField As String + Private _zusatzAngabenAV As String - Private zusatzAngabenAVField As String + Private _einzelheitenVeredelung As String - Private einzelheitenVeredelungField As String + Private _aVBuchhaltVeredelung As List(Of AVBuchhaltVeredelungTyp) - Private aVBuchhaltVeredelungField As List(Of AVBuchhaltVeredelungTyp) + Private _aVErledZollstelle As List(Of String) - Private aVErledZollstelleField As List(Of String) + Private _zusaetzlicheSteuerlicheVerweise As List(Of ZusaetzlicheSteuerlicheVerweiseTyp) - Private zusaetzlicheSteuerlicheVerweiseField As List(Of ZusaetzlicheSteuerlicheVerweiseTyp) + Private _adressen As List(Of AdressenVzImportAVUVTyp) - Private adressenField As List(Of AdressenVzImportAVUVTyp) - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region 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() + Me._adressen = New List(Of AdressenVzImportAVUVTyp)() + Me._zusaetzlicheSteuerlicheVerweise = New List(Of ZusaetzlicheSteuerlicheVerweiseTyp)() + Me._aVErledZollstelle = New List(Of String)() + Me._aVBuchhaltVeredelung = New List(Of AVBuchhaltVeredelungTyp)() + Me._bEAnteilZLAVUV = New List(Of BEAnteilZLAVUVPositionAVUVTyp)() + Me._containerNr = New List(Of String)() + Me._sumABeendigungsAnteil = New List(Of SumABeendigungsAnteilAVUVTyp)() + Me._aufschub = New List(Of AufschubAVUVTyp)() + Me._unterlage = New List(Of UnterlageVzKopfAVUVTyp)() + Me._dV1Kostenverteilung = New List(Of DV1KostenverteilungAVUVTyp)() + Me._dV1Angaben = New DV1AngabenAVUVTyp() End Sub Public Overridable Property AdressierteZollstelle() As String Get - Return Me.adressierteZollstelleField + Return Me._adressierteZollstelle End Get Set - Me.adressierteZollstelleField = Value + Me._adressierteZollstelle = Value End Set End Property Public Overridable Property AnmelderIstEmpfaenger() As String Get - Return Me.anmelderIstEmpfaengerField + Return Me._anmelderIstEmpfaenger End Get Set - Me.anmelderIstEmpfaengerField = Value + Me._anmelderIstEmpfaenger = Value End Set End Property Public Overridable Property VertretungsverhaeltnisCode() As String Get - Return Me.vertretungsverhaeltnisCodeField + Return Me._vertretungsverhaeltnisCode End Get Set - Me.vertretungsverhaeltnisCodeField = Value + Me._vertretungsverhaeltnisCode = Value End Set End Property Public Overridable Property Vorsteuerabzug() As String Get - Return Me.vorsteuerabzugField + Return Me._vorsteuerabzug End Get Set - Me.vorsteuerabzugField = Value + Me._vorsteuerabzug = Value End Set End Property Public Overridable Property NameAnmeldenderBearbeiter() As String Get - Return Me.nameAnmeldenderBearbeiterField + Return Me._nameAnmeldenderBearbeiter End Get Set - Me.nameAnmeldenderBearbeiterField = Value + Me._nameAnmeldenderBearbeiter = Value End Set End Property Public Overridable Property TelefonnummerAnmeldenderBearbeiter() As String Get - Return Me.telefonnummerAnmeldenderBearbeiterField + Return Me._telefonnummerAnmeldenderBearbeiter End Get Set - Me.telefonnummerAnmeldenderBearbeiterField = Value + Me._telefonnummerAnmeldenderBearbeiter = Value End Set End Property Public Overridable Property StellungAnmeldenderBearbeiter() As String Get - Return Me.stellungAnmeldenderBearbeiterField + Return Me._stellungAnmeldenderBearbeiter End Get Set - Me.stellungAnmeldenderBearbeiterField = Value + Me._stellungAnmeldenderBearbeiter = Value End Set End Property Public Overridable Property EmailAdresseAnmeldenderBearbeiter() As String Get - Return Me.emailAdresseAnmeldenderBearbeiterField + Return Me._emailAdresseAnmeldenderBearbeiter End Get Set - Me.emailAdresseAnmeldenderBearbeiterField = Value + Me._emailAdresseAnmeldenderBearbeiter = Value End Set End Property Public Overridable Property FiskalvertretungKz() As String Get - Return Me.fiskalvertretungKzField + Return Me._fiskalvertretungKz End Get Set - Me.fiskalvertretungKzField = Value + Me._fiskalvertretungKz = Value End Set End Property Public Overridable Property ZusammenfassendeMeldungKzStdKto() As String Get - Return Me.zusammenfassendeMeldungKzStdKtoField + Return Me._zusammenfassendeMeldungKzStdKto End Get Set - Me.zusammenfassendeMeldungKzStdKtoField = Value + Me._zusammenfassendeMeldungKzStdKto = Value End Set End Property Public Overridable Property ZusammenfassendeMeldungMelderkto() As String Get - Return Me.zusammenfassendeMeldungMelderktoField + Return Me._zusammenfassendeMeldungMelderkto End Get Set - Me.zusammenfassendeMeldungMelderktoField = Value + Me._zusammenfassendeMeldungMelderkto = Value End Set End Property Public Overridable Property IntrastatKzStdKto() As String Get - Return Me.intrastatKzStdKtoField + Return Me._intrastatKzStdKto End Get Set - Me.intrastatKzStdKtoField = Value + Me._intrastatKzStdKto = Value End Set End Property Public Overridable Property IntrastatMelderkto() As String Get - Return Me.intrastatMelderktoField + Return Me._intrastatMelderkto End Get Set - Me.intrastatMelderktoField = Value + Me._intrastatMelderkto = Value End Set End Property Public Overridable Property Ausstellungsort() As String Get - Return Me.ausstellungsortField + Return Me._ausstellungsort End Get Set - Me.ausstellungsortField = Value + Me._ausstellungsort = Value End Set End Property Public Overridable Property ZollrechtlicherStatus() As String Get - Return Me.zollrechtlicherStatusField + Return Me._zollrechtlicherStatus End Get Set - Me.zollrechtlicherStatusField = Value + Me._zollrechtlicherStatus = Value End Set End Property Public Overridable Property GesamtRohMasse() As String Get - Return Me.gesamtRohMasseField + Return Me._gesamtRohMasse End Get Set - Me.gesamtRohMasseField = Value + Me._gesamtRohMasse = Value End Set End Property Public Overridable Property VerfahrenBeantragtCode() As String Get - Return Me.verfahrenBeantragtCodeField + Return Me._verfahrenBeantragtCode End Get Set - Me.verfahrenBeantragtCodeField = Value + Me._verfahrenBeantragtCode = Value End Set End Property Public Overridable Property VerkehrszweigInland() As String Get - Return Me.verkehrszweigInlandField + Return Me._verkehrszweigInland End Get Set - Me.verkehrszweigInlandField = Value + Me._verkehrszweigInland = Value End Set End Property Public Overridable Property VerkehrszweigGrenze() As String Get - Return Me.verkehrszweigGrenzeField + Return Me._verkehrszweigGrenze End Get Set - Me.verkehrszweigGrenzeField = Value + Me._verkehrszweigGrenze = Value End Set End Property Public Overridable Property VersendungslandCode() As String Get - Return Me.versendungslandCodeField + Return Me._versendungslandCode End Get Set - Me.versendungslandCodeField = Value + Me._versendungslandCode = Value End Set End Property Public Overridable Property Bestimmungsbundesland() As String Get - Return Me.bestimmungsbundeslandField + Return Me._bestimmungsbundesland End Get Set - Me.bestimmungsbundeslandField = Value + Me._bestimmungsbundesland = Value End Set End Property Public Overridable Property Bestimmungsland() As String Get - Return Me.bestimmungslandField + Return Me._bestimmungsland End Get Set - Me.bestimmungslandField = Value + Me._bestimmungsland = Value End Set End Property Public Overridable Property KennzeichenNameBefoerderungsmittelAnkunft() As String Get - Return Me.kennzeichenNameBefoerderungsmittelAnkunftField + Return Me._kennzeichenNameBefoerderungsmittelAnkunft End Get Set - Me.kennzeichenNameBefoerderungsmittelAnkunftField = Value + Me._kennzeichenNameBefoerderungsmittelAnkunft = Value End Set End Property Public Overridable Property BefoerderungsmittelGrenzeStaatszugehoerigkeitCode() As String Get - Return Me.befoerderungsmittelGrenzeStaatszugehoerigkeitCodeField + Return Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode End Get Set - Me.befoerderungsmittelGrenzeStaatszugehoerigkeitCodeField = Value + Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode = Value End Set End Property Public Overridable Property BefoerderungsmittelGrenzeArt() As String Get - Return Me.befoerderungsmittelGrenzeArtField + Return Me._befoerderungsmittelGrenzeArt End Get Set - Me.befoerderungsmittelGrenzeArtField = Value + Me._befoerderungsmittelGrenzeArt = Value End Set End Property Public Overridable Property BefoerderungsmittelGrenze() As String Get - Return Me.befoerderungsmittelGrenzeField + Return Me._befoerderungsmittelGrenze End Get Set - Me.befoerderungsmittelGrenzeField = Value + Me._befoerderungsmittelGrenze = Value End Set End Property Public Overridable Property LieferbedingungCode() As String Get - Return Me.lieferbedingungCodeField + Return Me._lieferbedingungCode End Get Set - Me.lieferbedingungCodeField = Value + Me._lieferbedingungCode = Value End Set End Property Public Overridable Property LieferbedingungText() As String Get - Return Me.lieferbedingungTextField + Return Me._lieferbedingungText End Get Set - Me.lieferbedingungTextField = Value + Me._lieferbedingungText = Value End Set End Property Public Overridable Property LieferbedingungSchluessel() As String Get - Return Me.lieferbedingungSchluesselField + Return Me._lieferbedingungSchluessel End Get Set - Me.lieferbedingungSchluesselField = Value + Me._lieferbedingungSchluessel = Value End Set End Property Public Overridable Property LieferbedingungOrt() As String Get - Return Me.lieferbedingungOrtField + Return Me._lieferbedingungOrt End Get Set - Me.lieferbedingungOrtField = Value + Me._lieferbedingungOrt = Value End Set End Property Public Overridable Property VorpapierArtCode() As String Get - Return Me.vorpapierArtCodeField + Return Me._vorpapierArtCode End Get Set - Me.vorpapierArtCodeField = Value + Me._vorpapierArtCode = Value End Set End Property Public Overridable Property VorpapierNr() As String Get - Return Me.vorpapierNrField + Return Me._vorpapierNr End Get Set - Me.vorpapierNrField = Value + Me._vorpapierNr = Value End Set End Property Public Overridable Property ArtGeschaeftCode() As String Get - Return Me.artGeschaeftCodeField + Return Me._artGeschaeftCode End Get Set - Me.artGeschaeftCodeField = Value + Me._artGeschaeftCode = Value End Set End Property Public Overridable Property StatistikStatus() As String Get - Return Me.statistikStatusField + Return Me._statistikStatus End Get Set - Me.statistikStatusField = Value + Me._statistikStatus = Value End Set End Property Public Overridable Property Warenort() As String Get - Return Me.warenortField + Return Me._warenort End Get Set - Me.warenortField = Value + Me._warenort = Value End Set End Property Public Overridable Property Rechnungspreis() As String Get - Return Me.rechnungspreisField + Return Me._rechnungspreis End Get Set - Me.rechnungspreisField = Value + Me._rechnungspreis = Value End Set End Property Public Overridable Property Rechnungswaehrung() As String Get - Return Me.rechnungswaehrungField + Return Me._rechnungswaehrung End Get Set - Me.rechnungswaehrungField = Value + Me._rechnungswaehrung = Value End Set End Property Public Overridable Property DV1Angaben() As DV1AngabenAVUVTyp Get - Return Me.dV1AngabenField + Return Me._dV1Angaben End Get Set - Me.dV1AngabenField = Value + Me._dV1Angaben = Value End Set End Property Public Overridable Property DV1Kostenverteilung() As List(Of DV1KostenverteilungAVUVTyp) Get - Return Me.dV1KostenverteilungField + Return Me._dV1Kostenverteilung End Get Set - Me.dV1KostenverteilungField = Value + Me._dV1Kostenverteilung = Value End Set End Property Public Overridable Property Unterlage() As List(Of UnterlageVzKopfAVUVTyp) Get - Return Me.unterlageField + Return Me._unterlage End Get Set - Me.unterlageField = Value + Me._unterlage = Value End Set End Property Public Overridable Property ZusatzAngabenAnmeldung() As String Get - Return Me.zusatzAngabenAnmeldungField + Return Me._zusatzAngabenAnmeldung End Get Set - Me.zusatzAngabenAnmeldungField = Value + Me._zusatzAngabenAnmeldung = Value End Set End Property Public Overridable Property KzAutoBestaetigung() As String Get - Return Me.kzAutoBestaetigungField + Return Me._kzAutoBestaetigung End Get Set - Me.kzAutoBestaetigungField = Value + Me._kzAutoBestaetigung = Value End Set End Property Public Overridable Property AnschreibungDatum() As Date Get - Return Me.anschreibungDatumField + Return Me._anschreibungDatum 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 + Me._anschreibungDatum = Value End Set End Property Public Overridable Property VereinfachterBewilligungsantragKzAV() As String Get - Return Me.vereinfachterBewilligungsantragKzAVField + Return Me._vereinfachterBewilligungsantragKzAV End Get Set - Me.vereinfachterBewilligungsantragKzAVField = Value + Me._vereinfachterBewilligungsantragKzAV = Value End Set End Property Public Overridable Property Eingangszollstelle() As String Get - Return Me.eingangszollstelleField + Return Me._eingangszollstelle End Get Set - Me.eingangszollstelleField = Value + Me._eingangszollstelle = Value End Set End Property Public Overridable Property Zahlungsart() As String Get - Return Me.zahlungsartField + Return Me._zahlungsart End Get Set - Me.zahlungsartField = Value + Me._zahlungsart = Value End Set End Property Public Overridable Property Aufschub() As List(Of AufschubAVUVTyp) Get - Return Me.aufschubField + Return Me._aufschub End Get Set - Me.aufschubField = Value + Me._aufschub = Value End Set End Property Public Overridable Property SumABeendigungsAnteil() As List(Of SumABeendigungsAnteilAVUVTyp) Get - Return Me.sumABeendigungsAnteilField + Return Me._sumABeendigungsAnteil End Get Set - Me.sumABeendigungsAnteilField = Value + Me._sumABeendigungsAnteil = Value End Set End Property Public Overridable Property ContainerNr() As List(Of String) Get - Return Me.containerNrField + Return Me._containerNr End Get Set - Me.containerNrField = Value + Me._containerNr = Value End Set End Property Public Overridable Property BeendigungsAnteilArtCode() As String Get - Return Me.beendigungsAnteilArtCodeField + Return Me._beendigungsAnteilArtCode End Get Set - Me.beendigungsAnteilArtCodeField = Value + Me._beendigungsAnteilArtCode = Value End Set End Property Public Overridable Property BewilligungsIDZLAVUV() As String Get - Return Me.bewilligungsIDZLAVUVField + Return Me._bewilligungsIDZLAVUV End Get Set - Me.bewilligungsIDZLAVUVField = Value + Me._bewilligungsIDZLAVUV = Value End Set End Property Public Overridable Property BezugsnummerBEAnteilZL() As String Get - Return Me.bezugsnummerBEAnteilZLField + Return Me._bezugsnummerBEAnteilZL End Get Set - Me.bezugsnummerBEAnteilZLField = Value + Me._bezugsnummerBEAnteilZL = Value End Set End Property Public Overridable Property BEAnteilZLAVUV() As List(Of BEAnteilZLAVUVPositionAVUVTyp) Get - Return Me.bEAnteilZLAVUVField + Return Me._bEAnteilZLAVUV End Get Set - Me.bEAnteilZLAVUVField = Value + Me._bEAnteilZLAVUV = Value End Set End Property Public Overridable Property KzVereinfBewillAntrgBEAnteilAV() As String Get - Return Me.kzVereinfBewillAntrgBEAnteilAVField + Return Me._kzVereinfBewillAntrgBEAnteilAV End Get Set - Me.kzVereinfBewillAntrgBEAnteilAVField = Value + Me._kzVereinfBewillAntrgBEAnteilAV = Value End Set End Property Public Overridable Property DeutschesUeHZAbeiAV() As String Get - Return Me.deutschesUeHZAbeiAVField + Return Me._deutschesUeHZAbeiAV End Get Set - Me.deutschesUeHZAbeiAVField = Value + Me._deutschesUeHZAbeiAV = Value End Set End Property Public Overridable Property ErledigungsfristAV() As String Get - Return Me.erledigungsfristAVField + Return Me._erledigungsfristAV End Get Set - Me.erledigungsfristAVField = Value + Me._erledigungsfristAV = Value End Set End Property Public Overridable Property BemEinfuhrabgKz() As String Get - Return Me.bemEinfuhrabgKzField + Return Me._bemEinfuhrabgKz End Get Set - Me.bemEinfuhrabgKzField = Value + Me._bemEinfuhrabgKz = Value End Set End Property Public Overridable Property ZusatzAngabenAV() As String Get - Return Me.zusatzAngabenAVField + Return Me._zusatzAngabenAV End Get Set - Me.zusatzAngabenAVField = Value + Me._zusatzAngabenAV = Value End Set End Property Public Overridable Property EinzelheitenVeredelung() As String Get - Return Me.einzelheitenVeredelungField + Return Me._einzelheitenVeredelung End Get Set - Me.einzelheitenVeredelungField = Value + Me._einzelheitenVeredelung = Value End Set End Property Public Overridable Property AVBuchhaltVeredelung() As List(Of AVBuchhaltVeredelungTyp) Get - Return Me.aVBuchhaltVeredelungField + Return Me._aVBuchhaltVeredelung End Get Set - Me.aVBuchhaltVeredelungField = Value + Me._aVBuchhaltVeredelung = Value End Set End Property Public Overridable Property AVErledZollstelle() As List(Of String) Get - Return Me.aVErledZollstelleField + Return Me._aVErledZollstelle End Get Set - Me.aVErledZollstelleField = Value + Me._aVErledZollstelle = Value End Set End Property Public Overridable Property ZusaetzlicheSteuerlicheVerweise() As List(Of ZusaetzlicheSteuerlicheVerweiseTyp) Get - Return Me.zusaetzlicheSteuerlicheVerweiseField + Return Me._zusaetzlicheSteuerlicheVerweise End Get Set - Me.zusaetzlicheSteuerlicheVerweiseField = Value + Me._zusaetzlicheSteuerlicheVerweise = Value End Set End Property Public Overridable Property Adressen() As List(Of AdressenVzImportAVUVTyp) Get - Return Me.adressenField + Return Me._adressen End Get Set - Me.adressenField = Value + Me._adressen = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' 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 @@ -8126,9 +8191,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -8141,21 +8206,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -8163,16 +8228,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -8180,12 +8245,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) + End Function +#End Region + + ''' + ''' 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 @@ -8198,19 +8268,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -8219,13 +8289,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) @@ -8239,7 +8309,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean @@ -8248,7 +8318,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp @@ -8257,10 +8327,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -8270,115 +8340,116 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class TransaktionFreierVerkehrTyp - Private iOPartnerField As String +#Region "Private fields" + Private _iOPartner As String - Private iODivision1Field As String + Private _iODivision1 As String - Private iODivision2Field As String + Private _iODivision2 As String - Private iODivision3Field As String + Private _iODivision3 As String - Private iOReferenzField As String + Private _iOReferenz As String - Private iODatumZeitField As Date + Private _iODatumZeit As Date - Private versionField As String + Private _version As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Overridable Property IOPartner() As String Get - Return Me.iOPartnerField + Return Me._iOPartner End Get Set - Me.iOPartnerField = Value + Me._iOPartner = Value End Set End Property Public Overridable Property IODivision1() As String Get - Return Me.iODivision1Field + Return Me._iODivision1 End Get Set - Me.iODivision1Field = Value + Me._iODivision1 = Value End Set End Property Public Overridable Property IODivision2() As String Get - Return Me.iODivision2Field + Return Me._iODivision2 End Get Set - Me.iODivision2Field = Value + Me._iODivision2 = Value End Set End Property Public Overridable Property IODivision3() As String Get - Return Me.iODivision3Field + Return Me._iODivision3 End Get Set - Me.iODivision3Field = Value + Me._iODivision3 = Value End Set End Property Public Overridable Property IOReferenz() As String Get - Return Me.iOReferenzField + Return Me._iOReferenz End Get Set - Me.iOReferenzField = Value + Me._iOReferenz = Value End Set End Property Public Overridable Property IODatumZeit() As Date Get - Return Me.iODatumZeitField + Return Me._iODatumZeit End Get Set - Me.iODatumZeitField = Value + Me._iODatumZeit = Value End Set End Property Public Overridable Property Version() As String Get - Return Me.versionField + Return Me._version End Get Set - Me.versionField = Value + Me._version = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TransaktionFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current TransaktionFreierVerkehrTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' 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 @@ -8387,9 +8458,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -8402,21 +8473,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -8424,16 +8495,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As TransaktionFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -8441,12 +8512,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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 @@ -8459,19 +8535,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -8480,13 +8556,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) @@ -8500,7 +8576,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean @@ -8509,7 +8585,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionFreierVerkehrTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As TransaktionFreierVerkehrTyp @@ -8518,10 +8594,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -8531,49 +8607,50 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class + System.Diagnostics.DebuggerStepThroughAttribute(), + System.ComponentModel.DesignerCategoryAttribute("code")> Partial Public Class DatenaustauschFreierVerkehrTyp - Private transaktionField As TransaktionFreierVerkehrTyp +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.transaktionField = New TransaktionFreierVerkehrTyp() + Me._transaktion = New TransaktionFreierVerkehrTyp() End Sub Public Overridable Property Transaktion() As TransaktionFreierVerkehrTyp Get - Return Me.transaktionField + Return Me._transaktion End Get Set - Me.transaktionField = Value + Me._transaktion = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document - ''' - '''string XML value + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' 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 @@ -8582,9 +8659,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -8597,21 +8674,21 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function Serialize() As String - Return Serialize(Encoding.UTF8) + Return Serialize(System.Text.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 + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -8619,16 +8696,16 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As DatenaustauschFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -8636,12 +8713,17 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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 @@ -8654,19 +8736,19 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean - Return SaveToFile(fileName, Encoding.UTF8, exception) + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) End Function Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) - SaveToFile(fileName, Encoding.UTF8) + SaveToFile(fileName, System.Text.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) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -8675,13 +8757,13 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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 + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) @@ -8695,7 +8777,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 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) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean @@ -8704,7 +8786,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschFreierVerkehrTyp - Return LoadFromFile(fileName, Encoding.UTF8) + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) End Function Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As DatenaustauschFreierVerkehrTyp @@ -8713,10 +8795,10 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 Try file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) sr = New System.IO.StreamReader(file, encoding) - Dim xmlString As String = sr.ReadToEnd + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -8726,6 +8808,6 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004 End If End Try End Function -#End Region End Class End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/FCFCDF.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/FCFCDF.designer.vb index f9cb232..b4208e9 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/FCFCDF.designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/FCFCDF.designer.vb @@ -1,19029 +1,22400 @@ '' ------------------------------------------------------------------------------ '' -'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) -'' FCFCDFListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net20","NameSpace":"FCFCDF","Language":"VisualBasic","CollectionBase":"","Properties":{"PrivateFieldCustomPrefix":""},"XmlAttribute":{"Enabled":true,"GenerateOrderXmlAttributes":true},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"IndentChars":"Indent1Space"},"JsonOutput":{},"Enabled":true,"EnableEncoding":true},"Miscellaneous":{"CleanupCode":false}} '' '' ------------------------------------------------------------------------------ +#Disable Warning Imports System Imports System.Diagnostics Imports System.Xml.Serialization +Imports System.Runtime.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel +Imports System.Xml Imports System.IO Imports System.Text Imports System.Collections.Generic Namespace 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 - + + #Region "Private fields" + Private _metaData As FCFCDFMetaData + + Private _header As FCFCDFHeader + + Private _declarant As FCFCDFDeclarant + + Private _representative As FCFCDFRepresentative + + Private _principal As FCFCDFPrincipal + + Private _contactPerson As FCFCDFContactPerson + + Private _dutyDefermentApproval As List(Of FCFCDFDutyDefermentApproval) + + Private _borderTransportMeans As FCFCDFBorderTransportMeans + + Private _arrivalTransportMeans As FCFCDFArrivalTransportMeans + + Private _previousAdministrativeReferences As FCFCDFPreviousAdministrativeReferences + + Private _summaryDeclaration As FCFCDFSummaryDeclaration + + Private _customsWarehouse As FCFCDFCustomsWarehouse + + Private _inwardProcessing As FCFCDFInwardProcessing + + Private _body As FCFCDFBody + + Private Shared _serializerXml As XmlSerializer + #End Region + 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() + Me._body = New FCFCDFBody() + Me._inwardProcessing = New FCFCDFInwardProcessing() + Me._customsWarehouse = New FCFCDFCustomsWarehouse() + Me._summaryDeclaration = New FCFCDFSummaryDeclaration() + Me._previousAdministrativeReferences = New FCFCDFPreviousAdministrativeReferences() + Me._arrivalTransportMeans = New FCFCDFArrivalTransportMeans() + Me._borderTransportMeans = New FCFCDFBorderTransportMeans() + Me._dutyDefermentApproval = New List(Of FCFCDFDutyDefermentApproval)() + Me._contactPerson = New FCFCDFContactPerson() + Me._principal = New FCFCDFPrincipal() + Me._representative = New FCFCDFRepresentative() + Me._declarant = New FCFCDFDeclarant() + Me._header = New FCFCDFHeader() + Me._metaData = New FCFCDFMetaData() End Sub - + + _ Public Property MetaData() As FCFCDFMetaData Get - Return Me.metaDataField + Return Me._metaData End Get Set - Me.metaDataField = Value + Me._metaData = value End Set End Property - + + _ Public Property Header() As FCFCDFHeader Get - Return Me.headerField + Return Me._header End Get Set - Me.headerField = Value + Me._header = value End Set End Property - + + _ Public Property Declarant() As FCFCDFDeclarant Get - Return Me.declarantField + Return Me._declarant End Get Set - Me.declarantField = Value + Me._declarant = value End Set End Property - + + _ Public Property Representative() As FCFCDFRepresentative Get - Return Me.representativeField + Return Me._representative End Get Set - Me.representativeField = Value + Me._representative = value End Set End Property - + + _ Public Property Principal() As FCFCDFPrincipal Get - Return Me.principalField + Return Me._principal End Get Set - Me.principalField = Value + Me._principal = value End Set End Property - + + _ Public Property ContactPerson() As FCFCDFContactPerson Get - Return Me.contactPersonField + Return Me._contactPerson End Get Set - Me.contactPersonField = Value + Me._contactPerson = value End Set End Property - + + _ Public Property DutyDefermentApproval() As List(Of FCFCDFDutyDefermentApproval) Get - Return Me.dutyDefermentApprovalField + Return Me._dutyDefermentApproval End Get Set - Me.dutyDefermentApprovalField = Value + Me._dutyDefermentApproval = value End Set End Property - + + _ Public Property BorderTransportMeans() As FCFCDFBorderTransportMeans Get - Return Me.borderTransportMeansField + Return Me._borderTransportMeans End Get Set - Me.borderTransportMeansField = Value + Me._borderTransportMeans = value End Set End Property - + + _ Public Property ArrivalTransportMeans() As FCFCDFArrivalTransportMeans Get - Return Me.arrivalTransportMeansField + Return Me._arrivalTransportMeans End Get Set - Me.arrivalTransportMeansField = Value + Me._arrivalTransportMeans = value End Set End Property - + + _ Public Property PreviousAdministrativeReferences() As FCFCDFPreviousAdministrativeReferences Get - Return Me.previousAdministrativeReferencesField + Return Me._previousAdministrativeReferences End Get Set - Me.previousAdministrativeReferencesField = Value + Me._previousAdministrativeReferences = value End Set End Property - + + _ Public Property SummaryDeclaration() As FCFCDFSummaryDeclaration Get - Return Me.summaryDeclarationField + Return Me._summaryDeclaration End Get Set - Me.summaryDeclarationField = Value + Me._summaryDeclaration = value End Set End Property - + + _ Public Property CustomsWarehouse() As FCFCDFCustomsWarehouse Get - Return Me.customsWarehouseField + Return Me._customsWarehouse End Get Set - Me.customsWarehouseField = Value + Me._customsWarehouse = value End Set End Property - + + _ Public Property InwardProcessing() As FCFCDFInwardProcessing Get - Return Me.inwardProcessingField + Return Me._inwardProcessing End Get Set - Me.inwardProcessingField = Value + Me._inwardProcessing = value End Set End Property - + + _ Public Property Body() As FCFCDFBody Get - Return Me.bodyField + Return Me._body End Get Set - Me.bodyField = Value + Me._body = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDF)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDF)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDF object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDF object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDF object + ''' + ''' string to deserialize + ''' Output FCFCDF object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDF, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDF) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDF) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDF) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDF + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDF) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDF + Return CType(SerializerXml.Deserialize(s),FCFCDF) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDF object + ''' + ''' File to load and deserialize + ''' Output FCFCDF object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDF, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDF) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDF, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDF Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _preparation As FCFCDFMetaDataPreparation + + Private _interchangeControlReference As String + + Private _messageReferenceNumber As String + + Private _messageIdentifier As String + + Private _messageGroup As FCFCDFMetaDataMessageGroup + + Private _testIndicator As FCFCDFMetaDataTestIndicator + + Private _messageType As FCFCDFMetaDataMessageType + + Private _interchangeSender As FCFCDFMetaDataInterchangeSender + + Private _interchangeRecipient As FCFCDFMetaDataInterchangeRecipient + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.interchangeRecipientField = New FCFCDFMetaDataInterchangeRecipient() - Me.interchangeSenderField = New FCFCDFMetaDataInterchangeSender() - Me.preparationField = New FCFCDFMetaDataPreparation() + Me._interchangeRecipient = New FCFCDFMetaDataInterchangeRecipient() + Me._interchangeSender = New FCFCDFMetaDataInterchangeSender() + Me._preparation = New FCFCDFMetaDataPreparation() End Sub - + + _ Public Property Preparation() As FCFCDFMetaDataPreparation Get - Return Me.preparationField + Return Me._preparation End Get Set - Me.preparationField = Value + Me._preparation = value End Set End Property - + + _ Public Property InterchangeControlReference() As String Get - Return Me.interchangeControlReferenceField + Return Me._interchangeControlReference End Get Set - Me.interchangeControlReferenceField = Value + Me._interchangeControlReference = value End Set End Property - + + _ Public Property MessageReferenceNumber() As String Get - Return Me.messageReferenceNumberField + Return Me._messageReferenceNumber End Get Set - Me.messageReferenceNumberField = Value + Me._messageReferenceNumber = value End Set End Property - + + _ Public Property MessageIdentifier() As String Get - Return Me.messageIdentifierField + Return Me._messageIdentifier End Get Set - Me.messageIdentifierField = Value + Me._messageIdentifier = value End Set End Property - + + _ Public Property MessageGroup() As FCFCDFMetaDataMessageGroup Get - Return Me.messageGroupField + Return Me._messageGroup End Get Set - Me.messageGroupField = Value + Me._messageGroup = value End Set End Property - + + _ Public Property TestIndicator() As FCFCDFMetaDataTestIndicator Get - Return Me.testIndicatorField + Return Me._testIndicator End Get Set - Me.testIndicatorField = Value + Me._testIndicator = 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 + Return Me._messageType End Get Set - Me.messageTypeField = Value + Me._messageType = value End Set End Property - + + _ Public Property InterchangeSender() As FCFCDFMetaDataInterchangeSender Get - Return Me.interchangeSenderField + Return Me._interchangeSender End Get Set - Me.interchangeSenderField = Value + Me._interchangeSender = value End Set End Property - + + _ Public Property InterchangeRecipient() As FCFCDFMetaDataInterchangeRecipient Get - Return Me.interchangeRecipientField + Return Me._interchangeRecipient End Get Set - Me.interchangeRecipientField = Value + Me._interchangeRecipient = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFMetaData)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFMetaData)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFMetaData object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFMetaData object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFMetaData object + ''' + ''' string to deserialize + ''' Output FCFCDFMetaData object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFMetaData, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFMetaData) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFMetaData) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFMetaData) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFMetaData + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFMetaData) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFMetaData + Return CType(SerializerXml.Deserialize(s),FCFCDFMetaData) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFMetaData object + ''' + ''' File to load and deserialize + ''' Output FCFCDFMetaData object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFMetaData, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFMetaData) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFMetaData, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFMetaData Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _date As Date + + Private _time As Date + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property [Date]() As Date Get - Return Me.dateField + Return Me._date End Get Set - Me.dateField = Value + Me._date = value End Set End Property - + + _ Public Property Time() As Date Get - Return Me.timeField + Return Me._time End Get Set - Me.timeField = Value + Me._time = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFMetaDataPreparation)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFMetaDataPreparation)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFMetaDataPreparation object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFMetaDataPreparation object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFMetaDataPreparation object + ''' + ''' string to deserialize + ''' Output FCFCDFMetaDataPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFMetaDataPreparation, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFMetaDataPreparation) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFMetaDataPreparation) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFMetaDataPreparation) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFMetaDataPreparation + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFMetaDataPreparation) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFMetaDataPreparation + Return CType(SerializerXml.Deserialize(s),FCFCDFMetaDataPreparation) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFMetaDataPreparation object + ''' + ''' File to load and deserialize + ''' Output FCFCDFMetaDataPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFMetaDataPreparation, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFMetaDataPreparation) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFMetaDataPreparation, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFMetaDataPreparation Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _identification As FCFCDFMetaDataInterchangeSenderIdentification + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.identificationField = New FCFCDFMetaDataInterchangeSenderIdentification() + Me._identification = New FCFCDFMetaDataInterchangeSenderIdentification() End Sub - + + _ Public Property Identification() As FCFCDFMetaDataInterchangeSenderIdentification Get - Return Me.identificationField + Return Me._identification End Get Set - Me.identificationField = Value + Me._identification = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFMetaDataInterchangeSender)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFMetaDataInterchangeSender)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFMetaDataInterchangeSender object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFMetaDataInterchangeSender object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFMetaDataInterchangeSender object + ''' + ''' string to deserialize + ''' Output FCFCDFMetaDataInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFMetaDataInterchangeSender) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFMetaDataInterchangeSender) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFMetaDataInterchangeSender) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFMetaDataInterchangeSender + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFMetaDataInterchangeSender) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFMetaDataInterchangeSender + Return CType(SerializerXml.Deserialize(s),FCFCDFMetaDataInterchangeSender) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFMetaDataInterchangeSender object + ''' + ''' File to load and deserialize + ''' Output FCFCDFMetaDataInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFMetaDataInterchangeSender) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFMetaDataInterchangeSender Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - + + _ Public Property SubsidiaryNumber() As String Get - Return Me.subsidiaryNumberField + Return Me._subsidiaryNumber End Get Set - Me.subsidiaryNumberField = Value + Me._subsidiaryNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFMetaDataInterchangeSenderIdentification)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFMetaDataInterchangeSenderIdentification)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFMetaDataInterchangeSenderIdentification object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFMetaDataInterchangeSenderIdentification object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFMetaDataInterchangeSenderIdentification object + ''' + ''' string to deserialize + ''' Output FCFCDFMetaDataInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFMetaDataInterchangeSenderIdentification) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFMetaDataInterchangeSenderIdentification) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFMetaDataInterchangeSenderIdentification) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFMetaDataInterchangeSenderIdentification + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFMetaDataInterchangeSenderIdentification) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFMetaDataInterchangeSenderIdentification + Return CType(SerializerXml.Deserialize(s),FCFCDFMetaDataInterchangeSenderIdentification) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFMetaDataInterchangeSenderIdentification object + ''' + ''' File to load and deserialize + ''' Output FCFCDFMetaDataInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFMetaDataInterchangeSenderIdentification) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFMetaDataInterchangeSenderIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _identification As FCFCDFMetaDataInterchangeRecipientIdentification + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.identificationField = New FCFCDFMetaDataInterchangeRecipientIdentification() + Me._identification = New FCFCDFMetaDataInterchangeRecipientIdentification() End Sub - + + _ Public Property Identification() As FCFCDFMetaDataInterchangeRecipientIdentification Get - Return Me.identificationField + Return Me._identification End Get Set - Me.identificationField = Value + Me._identification = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFMetaDataInterchangeRecipient)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFMetaDataInterchangeRecipient)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFMetaDataInterchangeRecipient object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFMetaDataInterchangeRecipient object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFMetaDataInterchangeRecipient object + ''' + ''' string to deserialize + ''' Output FCFCDFMetaDataInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFMetaDataInterchangeRecipient) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFMetaDataInterchangeRecipient) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFMetaDataInterchangeRecipient) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFMetaDataInterchangeRecipient + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFMetaDataInterchangeRecipient) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFMetaDataInterchangeRecipient + Return CType(SerializerXml.Deserialize(s),FCFCDFMetaDataInterchangeRecipient) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFMetaDataInterchangeRecipient object + ''' + ''' File to load and deserialize + ''' Output FCFCDFMetaDataInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFMetaDataInterchangeRecipient) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFMetaDataInterchangeRecipient Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFMetaDataInterchangeRecipientIdentification)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFMetaDataInterchangeRecipientIdentification)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFMetaDataInterchangeRecipientIdentification object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFMetaDataInterchangeRecipientIdentification object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFMetaDataInterchangeRecipientIdentification object + ''' + ''' string to deserialize + ''' Output FCFCDFMetaDataInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFMetaDataInterchangeRecipientIdentification) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFMetaDataInterchangeRecipientIdentification) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFMetaDataInterchangeRecipientIdentification) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFMetaDataInterchangeRecipientIdentification + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFMetaDataInterchangeRecipientIdentification) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFMetaDataInterchangeRecipientIdentification + Return CType(SerializerXml.Deserialize(s),FCFCDFMetaDataInterchangeRecipientIdentification) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFMetaDataInterchangeRecipientIdentification object + ''' + ''' File to load and deserialize + ''' Output FCFCDFMetaDataInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFMetaDataInterchangeRecipientIdentification) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFMetaDataInterchangeRecipientIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _messageVersion As String + + Private _messageCreationDate As Date + + Private _lRN As String + + Private _declaration As FCFCDFHeaderDeclaration + + Private _prematureInputFlag As String + + Private _goodsItemQuantity As String + + Private _customsGoodsStatus As String + + Private _declarantIsConsigneeFlag As String + + Private _customsAuthorisation As FCFCDFHeaderCustomsAuthorisation + + Private _inputTaxDeductionFlag As String + + Private _goodsLocation As String + + Private _departureCountry As String + + Private _paymentMethod As FCFCDFHeaderPaymentMethod + + Private _currencyCode As FCFCDFHeaderCurrencyCode + + Private _additionalInformation As String + + Private _taxOffice As String + + Private _representativeRelationshipFlag As String + + Private _declarationPlace As String + + Private _authorisationNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.customsAuthorisationField = New FCFCDFHeaderCustomsAuthorisation() - Me.declarationField = New FCFCDFHeaderDeclaration() + Me._customsAuthorisation = New FCFCDFHeaderCustomsAuthorisation() + Me._declaration = New FCFCDFHeaderDeclaration() End Sub - + + _ Public Property MessageVersion() As String Get - Return Me.messageVersionField + Return Me._messageVersion End Get Set - Me.messageVersionField = Value + Me._messageVersion = value End Set End Property - + + _ Public Property MessageCreationDate() As Date Get - Return Me.messageCreationDateField + Return Me._messageCreationDate End Get Set - Me.messageCreationDateField = Value + Me._messageCreationDate = value End Set End Property - + + _ Public Property LRN() As String Get - Return Me.lRNField + Return Me._lRN End Get Set - Me.lRNField = Value + Me._lRN = value End Set End Property - + + _ Public Property Declaration() As FCFCDFHeaderDeclaration Get - Return Me.declarationField + Return Me._declaration End Get Set - Me.declarationField = Value + Me._declaration = value End Set End Property - + + _ Public Property PrematureInputFlag() As String Get - Return Me.prematureInputFlagField + Return Me._prematureInputFlag End Get Set - Me.prematureInputFlagField = Value + Me._prematureInputFlag = value End Set End Property - + + _ Public Property GoodsItemQuantity() As String Get - Return Me.goodsItemQuantityField + Return Me._goodsItemQuantity End Get Set - Me.goodsItemQuantityField = Value + Me._goodsItemQuantity = value End Set End Property - + + _ Public Property CustomsGoodsStatus() As String Get - Return Me.customsGoodsStatusField + Return Me._customsGoodsStatus End Get Set - Me.customsGoodsStatusField = Value + Me._customsGoodsStatus = value End Set End Property - + + _ Public Property DeclarantIsConsigneeFlag() As String Get - Return Me.declarantIsConsigneeFlagField + Return Me._declarantIsConsigneeFlag End Get Set - Me.declarantIsConsigneeFlagField = Value + Me._declarantIsConsigneeFlag = value End Set End Property - + + _ Public Property CustomsAuthorisation() As FCFCDFHeaderCustomsAuthorisation Get - Return Me.customsAuthorisationField + Return Me._customsAuthorisation End Get Set - Me.customsAuthorisationField = Value + Me._customsAuthorisation = value End Set End Property - + + _ Public Property InputTaxDeductionFlag() As String Get - Return Me.inputTaxDeductionFlagField + Return Me._inputTaxDeductionFlag End Get Set - Me.inputTaxDeductionFlagField = Value + Me._inputTaxDeductionFlag = value End Set End Property - + + _ Public Property GoodsLocation() As String Get - Return Me.goodsLocationField + Return Me._goodsLocation End Get Set - Me.goodsLocationField = Value + Me._goodsLocation = value End Set End Property - + + _ Public Property DepartureCountry() As String Get - Return Me.departureCountryField + Return Me._departureCountry End Get Set - Me.departureCountryField = Value + Me._departureCountry = value End Set End Property - + + _ Public Property PaymentMethod() As FCFCDFHeaderPaymentMethod Get - Return Me.paymentMethodField + Return Me._paymentMethod End Get Set - Me.paymentMethodField = Value + Me._paymentMethod = value End Set End Property - + + _ Public Property CurrencyCode() As FCFCDFHeaderCurrencyCode Get - Return Me.currencyCodeField + Return Me._currencyCode End Get Set - Me.currencyCodeField = Value + Me._currencyCode = value End Set End Property - + + _ Public Property AdditionalInformation() As String Get - Return Me.additionalInformationField + Return Me._additionalInformation End Get Set - Me.additionalInformationField = Value + Me._additionalInformation = value End Set End Property - + + _ Public Property TaxOffice() As String Get - Return Me.taxOfficeField + Return Me._taxOffice End Get Set - Me.taxOfficeField = Value + Me._taxOffice = value End Set End Property - + + _ Public Property RepresentativeRelationshipFlag() As String Get - Return Me.representativeRelationshipFlagField + Return Me._representativeRelationshipFlag End Get Set - Me.representativeRelationshipFlagField = Value + Me._representativeRelationshipFlag = value End Set End Property - + + _ Public Property DeclarationPlace() As String Get - Return Me.declarationPlaceField + Return Me._declarationPlace End Get Set - Me.declarationPlaceField = Value + Me._declarationPlace = value End Set End Property - + + _ Public Property AuthorisationNumber() As String Get - Return Me.authorisationNumberField + Return Me._authorisationNumber End Get Set - Me.authorisationNumberField = Value + Me._authorisationNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFHeader)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFHeader)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFHeader object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFHeader object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFHeader object + ''' + ''' string to deserialize + ''' Output FCFCDFHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFHeader, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFHeader) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFHeader) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFHeader) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFHeader + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFHeader) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFHeader + Return CType(SerializerXml.Deserialize(s),FCFCDFHeader) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFHeader object + ''' + ''' File to load and deserialize + ''' Output FCFCDFHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFHeader, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFHeader) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFHeader, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFHeader Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _kind As FCFCDFHeaderDeclarationKind + + Private _type As FCFCDFHeaderDeclarationType + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Kind() As FCFCDFHeaderDeclarationKind Get - Return Me.kindField + Return Me._kind End Get Set - Me.kindField = Value + Me._kind = value End Set End Property - + + _ Public Property Type() As FCFCDFHeaderDeclarationType Get - Return Me.typeField + Return Me._type End Get Set - Me.typeField = Value + Me._type = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFHeaderDeclaration)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFHeaderDeclaration)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFHeaderDeclaration object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFHeaderDeclaration object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFHeaderDeclaration object + ''' + ''' string to deserialize + ''' Output FCFCDFHeaderDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFHeaderDeclaration, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFHeaderDeclaration) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFHeaderDeclaration) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFHeaderDeclaration) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFHeaderDeclaration + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFHeaderDeclaration) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFHeaderDeclaration + Return CType(SerializerXml.Deserialize(s),FCFCDFHeaderDeclaration) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFHeaderDeclaration object + ''' + ''' File to load and deserialize + ''' Output FCFCDFHeaderDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFHeaderDeclaration, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFHeaderDeclaration) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFHeaderDeclaration, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFHeaderDeclaration Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _endUse As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property EndUse() As String Get - Return Me.endUseField + Return Me._endUse End Get Set - Me.endUseField = Value + Me._endUse = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFHeaderCustomsAuthorisation)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFHeaderCustomsAuthorisation)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFHeaderCustomsAuthorisation object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFHeaderCustomsAuthorisation object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFHeaderCustomsAuthorisation object + ''' + ''' string to deserialize + ''' Output FCFCDFHeaderCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFHeaderCustomsAuthorisation) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFHeaderCustomsAuthorisation) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFHeaderCustomsAuthorisation) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFHeaderCustomsAuthorisation + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFHeaderCustomsAuthorisation) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFHeaderCustomsAuthorisation + Return CType(SerializerXml.Deserialize(s),FCFCDFHeaderCustomsAuthorisation) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFHeaderCustomsAuthorisation object + ''' + ''' File to load and deserialize + ''' Output FCFCDFHeaderCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFHeaderCustomsAuthorisation) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFHeaderCustomsAuthorisation Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _identification As FCFCDFDeclarantIdentification + + Private _name As String + + Private _address As FCFCDFDeclarantAddress + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.addressField = New FCFCDFDeclarantAddress() - Me.identificationField = New FCFCDFDeclarantIdentification() + Me._address = New FCFCDFDeclarantAddress() + Me._identification = New FCFCDFDeclarantIdentification() End Sub - + + _ Public Property Identification() As FCFCDFDeclarantIdentification Get - Return Me.identificationField + Return Me._identification End Get Set - Me.identificationField = Value + Me._identification = value End Set End Property - + + _ Public Property Name() As String Get - Return Me.nameField + Return Me._name End Get Set - Me.nameField = Value + Me._name = value End Set End Property - + + _ Public Property Address() As FCFCDFDeclarantAddress Get - Return Me.addressField + Return Me._address End Get Set - Me.addressField = Value + Me._address = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFDeclarant)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFDeclarant)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFDeclarant object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFDeclarant object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFDeclarant object + ''' + ''' string to deserialize + ''' Output FCFCDFDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFDeclarant, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFDeclarant) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFDeclarant) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFDeclarant) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFDeclarant + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFDeclarant) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFDeclarant + Return CType(SerializerXml.Deserialize(s),FCFCDFDeclarant) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFDeclarant object + ''' + ''' File to load and deserialize + ''' Output FCFCDFDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFDeclarant, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFDeclarant) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFDeclarant, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFDeclarant Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - + + _ Public Property SubsidiaryNumber() As String Get - Return Me.subsidiaryNumberField + Return Me._subsidiaryNumber End Get Set - Me.subsidiaryNumberField = Value + Me._subsidiaryNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFDeclarantIdentification)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFDeclarantIdentification)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFDeclarantIdentification object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFDeclarantIdentification object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFDeclarantIdentification object + ''' + ''' string to deserialize + ''' Output FCFCDFDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFDeclarantIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFDeclarantIdentification) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFDeclarantIdentification) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFDeclarantIdentification) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFDeclarantIdentification + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFDeclarantIdentification) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFDeclarantIdentification + Return CType(SerializerXml.Deserialize(s),FCFCDFDeclarantIdentification) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFDeclarantIdentification object + ''' + ''' File to load and deserialize + ''' Output FCFCDFDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFDeclarantIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFDeclarantIdentification) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFDeclarantIdentification, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFDeclarantIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Line() As String Get - Return Me.lineField + Return Me._line End Get Set - Me.lineField = Value + Me._line = value End Set End Property - + + _ Public Property Country() As String Get - Return Me.countryField + Return Me._country End Get Set - Me.countryField = Value + Me._country = value End Set End Property - + + _ Public Property Postcode() As String Get - Return Me.postcodeField + Return Me._postcode End Get Set - Me.postcodeField = Value + Me._postcode = value End Set End Property - + + _ Public Property City() As String Get - Return Me.cityField + Return Me._city End Get Set - Me.cityField = Value + Me._city = value End Set End Property - + + _ Public Property District() As String Get - Return Me.districtField + Return Me._district End Get Set - Me.districtField = Value + Me._district = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFDeclarantAddress)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFDeclarantAddress)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFDeclarantAddress object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFDeclarantAddress object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFDeclarantAddress object + ''' + ''' string to deserialize + ''' Output FCFCDFDeclarantAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFDeclarantAddress, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFDeclarantAddress) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFDeclarantAddress) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFDeclarantAddress) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFDeclarantAddress + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFDeclarantAddress) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFDeclarantAddress + Return CType(SerializerXml.Deserialize(s),FCFCDFDeclarantAddress) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFDeclarantAddress object + ''' + ''' File to load and deserialize + ''' Output FCFCDFDeclarantAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFDeclarantAddress, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFDeclarantAddress) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFDeclarantAddress, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFDeclarantAddress Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _identification As FCFCDFRepresentativeIdentification + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.identificationField = New FCFCDFRepresentativeIdentification() + Me._identification = New FCFCDFRepresentativeIdentification() End Sub - + + _ Public Property Identification() As FCFCDFRepresentativeIdentification Get - Return Me.identificationField + Return Me._identification End Get Set - Me.identificationField = Value + Me._identification = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFRepresentative)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFRepresentative)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFRepresentative object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFRepresentative object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFRepresentative object + ''' + ''' string to deserialize + ''' Output FCFCDFRepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFRepresentative, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFRepresentative) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFRepresentative) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFRepresentative) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFRepresentative + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFRepresentative) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFRepresentative + Return CType(SerializerXml.Deserialize(s),FCFCDFRepresentative) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFRepresentative object + ''' + ''' File to load and deserialize + ''' Output FCFCDFRepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFRepresentative, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFRepresentative) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFRepresentative, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFRepresentative Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - + + _ Public Property SubsidiaryNumber() As String Get - Return Me.subsidiaryNumberField + Return Me._subsidiaryNumber End Get Set - Me.subsidiaryNumberField = Value + Me._subsidiaryNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFRepresentativeIdentification)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFRepresentativeIdentification)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFRepresentativeIdentification object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFRepresentativeIdentification object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFRepresentativeIdentification object + ''' + ''' string to deserialize + ''' Output FCFCDFRepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFRepresentativeIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFRepresentativeIdentification) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFRepresentativeIdentification) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFRepresentativeIdentification) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFRepresentativeIdentification + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFRepresentativeIdentification) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFRepresentativeIdentification + Return CType(SerializerXml.Deserialize(s),FCFCDFRepresentativeIdentification) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFRepresentativeIdentification object + ''' + ''' File to load and deserialize + ''' Output FCFCDFRepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFRepresentativeIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFRepresentativeIdentification) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFRepresentativeIdentification, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFRepresentativeIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _identification As FCFCDFPrincipalIdentification + + Private _name As String + + Private _address As FCFCDFPrincipalAddress + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.addressField = New FCFCDFPrincipalAddress() - Me.identificationField = New FCFCDFPrincipalIdentification() + Me._address = New FCFCDFPrincipalAddress() + Me._identification = New FCFCDFPrincipalIdentification() End Sub - + + _ Public Property Identification() As FCFCDFPrincipalIdentification Get - Return Me.identificationField + Return Me._identification End Get Set - Me.identificationField = Value + Me._identification = value End Set End Property - + + _ Public Property Name() As String Get - Return Me.nameField + Return Me._name End Get Set - Me.nameField = Value + Me._name = value End Set End Property - + + _ Public Property Address() As FCFCDFPrincipalAddress Get - Return Me.addressField + Return Me._address End Get Set - Me.addressField = Value + Me._address = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFPrincipal)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFPrincipal)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFPrincipal object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFPrincipal object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFPrincipal object + ''' + ''' string to deserialize + ''' Output FCFCDFPrincipal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFPrincipal, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFPrincipal) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFPrincipal) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFPrincipal) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFPrincipal + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFPrincipal) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFPrincipal + Return CType(SerializerXml.Deserialize(s),FCFCDFPrincipal) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFPrincipal object + ''' + ''' File to load and deserialize + ''' Output FCFCDFPrincipal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFPrincipal, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFPrincipal) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFPrincipal, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFPrincipal Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - + + _ Public Property SubsidiaryNumber() As String Get - Return Me.subsidiaryNumberField + Return Me._subsidiaryNumber End Get Set - Me.subsidiaryNumberField = Value + Me._subsidiaryNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFPrincipalIdentification)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFPrincipalIdentification)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFPrincipalIdentification object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFPrincipalIdentification object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFPrincipalIdentification object + ''' + ''' string to deserialize + ''' Output FCFCDFPrincipalIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFPrincipalIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFPrincipalIdentification) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFPrincipalIdentification) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFPrincipalIdentification) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFPrincipalIdentification + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFPrincipalIdentification) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFPrincipalIdentification + Return CType(SerializerXml.Deserialize(s),FCFCDFPrincipalIdentification) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFPrincipalIdentification object + ''' + ''' File to load and deserialize + ''' Output FCFCDFPrincipalIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFPrincipalIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFPrincipalIdentification) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFPrincipalIdentification, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFPrincipalIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Line() As String Get - Return Me.lineField + Return Me._line End Get Set - Me.lineField = Value + Me._line = value End Set End Property - + + _ Public Property Country() As String Get - Return Me.countryField + Return Me._country End Get Set - Me.countryField = Value + Me._country = value End Set End Property - + + _ Public Property Postcode() As String Get - Return Me.postcodeField + Return Me._postcode End Get Set - Me.postcodeField = Value + Me._postcode = value End Set End Property - + + _ Public Property City() As String Get - Return Me.cityField + Return Me._city End Get Set - Me.cityField = Value + Me._city = value End Set End Property - + + _ Public Property District() As String Get - Return Me.districtField + Return Me._district End Get Set - Me.districtField = Value + Me._district = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFPrincipalAddress)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFPrincipalAddress)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFPrincipalAddress object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFPrincipalAddress object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFPrincipalAddress object + ''' + ''' string to deserialize + ''' Output FCFCDFPrincipalAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFPrincipalAddress, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFPrincipalAddress) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFPrincipalAddress) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFPrincipalAddress) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFPrincipalAddress + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFPrincipalAddress) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFPrincipalAddress + Return CType(SerializerXml.Deserialize(s),FCFCDFPrincipalAddress) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFPrincipalAddress object + ''' + ''' File to load and deserialize + ''' Output FCFCDFPrincipalAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFPrincipalAddress, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFPrincipalAddress) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFPrincipalAddress, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFPrincipalAddress Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _name As String + + Private _position As String + + Private _phoneNumber As String + + Private _mailAddress As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Name() As String Get - Return Me.nameField + Return Me._name End Get Set - Me.nameField = Value + Me._name = value End Set End Property - + + _ Public Property Position() As String Get - Return Me.positionField + Return Me._position End Get Set - Me.positionField = Value + Me._position = value End Set End Property - + + _ Public Property PhoneNumber() As String Get - Return Me.phoneNumberField + Return Me._phoneNumber End Get Set - Me.phoneNumberField = Value + Me._phoneNumber = value End Set End Property - + + _ Public Property MailAddress() As String Get - Return Me.mailAddressField + Return Me._mailAddress End Get Set - Me.mailAddressField = Value + Me._mailAddress = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFContactPerson)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFContactPerson)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFContactPerson object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFContactPerson object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFContactPerson object + ''' + ''' string to deserialize + ''' Output FCFCDFContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFContactPerson, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFContactPerson) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFContactPerson) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFContactPerson) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFContactPerson + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFContactPerson) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFContactPerson + Return CType(SerializerXml.Deserialize(s),FCFCDFContactPerson) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFContactPerson object + ''' + ''' File to load and deserialize + ''' Output FCFCDFContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFContactPerson, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFContactPerson) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFContactPerson, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFContactPerson Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _type As String + + Private _applicationType As String + + Private _accountPrefix As String + + Private _accountNumber As String + + Private _authorisationNumber As String + + Private _dutyDefermentApplicant As FCFCDFDutyDefermentApprovalDutyDefermentApplicant + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.dutyDefermentApplicantField = New FCFCDFDutyDefermentApprovalDutyDefermentApplicant() + Me._dutyDefermentApplicant = New FCFCDFDutyDefermentApprovalDutyDefermentApplicant() End Sub - + + _ Public Property Type() As String Get - Return Me.typeField + Return Me._type End Get Set - Me.typeField = Value + Me._type = value End Set End Property - + + _ Public Property ApplicationType() As String Get - Return Me.applicationTypeField + Return Me._applicationType End Get Set - Me.applicationTypeField = Value + Me._applicationType = value End Set End Property - + + _ Public Property AccountPrefix() As String Get - Return Me.accountPrefixField + Return Me._accountPrefix End Get Set - Me.accountPrefixField = Value + Me._accountPrefix = value End Set End Property - + + _ Public Property AccountNumber() As String Get - Return Me.accountNumberField + Return Me._accountNumber End Get Set - Me.accountNumberField = Value + Me._accountNumber = value End Set End Property - + + _ Public Property AuthorisationNumber() As String Get - Return Me.authorisationNumberField + Return Me._authorisationNumber End Get Set - Me.authorisationNumberField = Value + Me._authorisationNumber = value End Set End Property - + + _ Public Property DutyDefermentApplicant() As FCFCDFDutyDefermentApprovalDutyDefermentApplicant Get - Return Me.dutyDefermentApplicantField + Return Me._dutyDefermentApplicant End Get Set - Me.dutyDefermentApplicantField = Value + Me._dutyDefermentApplicant = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFDutyDefermentApproval)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFDutyDefermentApproval)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFDutyDefermentApproval object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFDutyDefermentApproval object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFDutyDefermentApproval object + ''' + ''' string to deserialize + ''' Output FCFCDFDutyDefermentApproval object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFDutyDefermentApproval, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFDutyDefermentApproval) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFDutyDefermentApproval) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFDutyDefermentApproval) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFDutyDefermentApproval + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFDutyDefermentApproval) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFDutyDefermentApproval + Return CType(SerializerXml.Deserialize(s),FCFCDFDutyDefermentApproval) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFDutyDefermentApproval object + ''' + ''' File to load and deserialize + ''' Output FCFCDFDutyDefermentApproval object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFDutyDefermentApproval, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFDutyDefermentApproval) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFDutyDefermentApproval, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFDutyDefermentApproval Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _identification As FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.identificationField = New FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification() + Me._identification = New FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification() End Sub - + + _ Public Property Identification() As FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification Get - Return Me.identificationField + Return Me._identification End Get Set - Me.identificationField = Value + Me._identification = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFDutyDefermentApprovalDutyDefermentApplicant)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFDutyDefermentApprovalDutyDefermentApplicant)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFDutyDefermentApprovalDutyDefermentApplicant object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFDutyDefermentApprovalDutyDefermentApplicant object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFDutyDefermentApprovalDutyDefermentApplicant object + ''' + ''' string to deserialize + ''' Output FCFCDFDutyDefermentApprovalDutyDefermentApplicant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFDutyDefermentApprovalDutyDefermentApplicant, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFDutyDefermentApprovalDutyDefermentApplicant) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFDutyDefermentApprovalDutyDefermentApplicant) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFDutyDefermentApprovalDutyDefermentApplicant) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFDutyDefermentApprovalDutyDefermentApplicant + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFDutyDefermentApprovalDutyDefermentApplicant) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFDutyDefermentApprovalDutyDefermentApplicant + Return CType(SerializerXml.Deserialize(s),FCFCDFDutyDefermentApprovalDutyDefermentApplicant) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFDutyDefermentApprovalDutyDefermentApplicant object + ''' + ''' File to load and deserialize + ''' Output FCFCDFDutyDefermentApprovalDutyDefermentApplicant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFDutyDefermentApprovalDutyDefermentApplicant, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFDutyDefermentApprovalDutyDefermentApplicant) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFDutyDefermentApprovalDutyDefermentApplicant, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFDutyDefermentApprovalDutyDefermentApplicant Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' + ''' string to deserialize + ''' Output FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification + Return CType(SerializerXml.Deserialize(s),FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' + ''' File to load and deserialize + ''' Output FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFDutyDefermentApprovalDutyDefermentApplicantIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _mode As String + + Private _type As String + + Private _information As String + + Private _nationality As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Mode() As String Get - Return Me.modeField + Return Me._mode End Get Set - Me.modeField = Value + Me._mode = value End Set End Property - + + _ Public Property Type() As String Get - Return Me.typeField + Return Me._type End Get Set - Me.typeField = Value + Me._type = value End Set End Property - + + _ Public Property Information() As String Get - Return Me.informationField + Return Me._information End Get Set - Me.informationField = Value + Me._information = value End Set End Property - + + _ Public Property Nationality() As String Get - Return Me.nationalityField + Return Me._nationality End Get Set - Me.nationalityField = Value + Me._nationality = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBorderTransportMeans)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBorderTransportMeans)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBorderTransportMeans object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBorderTransportMeans object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBorderTransportMeans object + ''' + ''' string to deserialize + ''' Output FCFCDFBorderTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBorderTransportMeans, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBorderTransportMeans) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBorderTransportMeans) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBorderTransportMeans) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBorderTransportMeans + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBorderTransportMeans) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBorderTransportMeans + Return CType(SerializerXml.Deserialize(s),FCFCDFBorderTransportMeans) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBorderTransportMeans object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBorderTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBorderTransportMeans, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBorderTransportMeans) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBorderTransportMeans, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBorderTransportMeans Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _identity As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Identity() As String Get - Return Me.identityField + Return Me._identity End Get Set - Me.identityField = Value + Me._identity = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFArrivalTransportMeans)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFArrivalTransportMeans)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFArrivalTransportMeans object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFArrivalTransportMeans object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFArrivalTransportMeans object + ''' + ''' string to deserialize + ''' Output FCFCDFArrivalTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFArrivalTransportMeans, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFArrivalTransportMeans) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFArrivalTransportMeans) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFArrivalTransportMeans) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFArrivalTransportMeans + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFArrivalTransportMeans) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFArrivalTransportMeans + Return CType(SerializerXml.Deserialize(s),FCFCDFArrivalTransportMeans) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFArrivalTransportMeans object + ''' + ''' File to load and deserialize + ''' Output FCFCDFArrivalTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFArrivalTransportMeans, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFArrivalTransportMeans) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFArrivalTransportMeans, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFArrivalTransportMeans Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _type As String + + Private _previousAdministrativeReference As FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.previousAdministrativeReferenceField = New FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference() + Me._previousAdministrativeReference = New FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference() End Sub - + + _ Public Property Type() As String Get - Return Me.typeField + Return Me._type End Get Set - Me.typeField = Value + Me._type = value End Set End Property - + + _ Public Property PreviousAdministrativeReference() As FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference Get - Return Me.previousAdministrativeReferenceField + Return Me._previousAdministrativeReference End Get Set - Me.previousAdministrativeReferenceField = Value + Me._previousAdministrativeReference = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFPreviousAdministrativeReferences)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFPreviousAdministrativeReferences)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFPreviousAdministrativeReferences object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFPreviousAdministrativeReferences object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFPreviousAdministrativeReferences object + ''' + ''' string to deserialize + ''' Output FCFCDFPreviousAdministrativeReferences object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFPreviousAdministrativeReferences, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFPreviousAdministrativeReferences) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFPreviousAdministrativeReferences) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFPreviousAdministrativeReferences) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFPreviousAdministrativeReferences + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFPreviousAdministrativeReferences) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFPreviousAdministrativeReferences + Return CType(SerializerXml.Deserialize(s),FCFCDFPreviousAdministrativeReferences) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFPreviousAdministrativeReferences object + ''' + ''' File to load and deserialize + ''' Output FCFCDFPreviousAdministrativeReferences object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFPreviousAdministrativeReferences, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFPreviousAdministrativeReferences) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFPreviousAdministrativeReferences, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFPreviousAdministrativeReferences Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' + ''' string to deserialize + ''' Output FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference + Return CType(SerializerXml.Deserialize(s),FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' + ''' File to load and deserialize + ''' Output FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFPreviousAdministrativeReferencesPreviousAdministrativeReference Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _identificationIndicator As FCFCDFSummaryDeclarationIdentificationIndicator + + Private _goodsItem As List(Of FCFCDFSummaryDeclarationGoodsItem) + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.goodsItemField = New List(Of FCFCDFSummaryDeclarationGoodsItem)() + Me._goodsItem = New List(Of FCFCDFSummaryDeclarationGoodsItem)() End Sub - + + _ Public Property IdentificationIndicator() As FCFCDFSummaryDeclarationIdentificationIndicator Get - Return Me.identificationIndicatorField + Return Me._identificationIndicator End Get Set - Me.identificationIndicatorField = Value + Me._identificationIndicator = value End Set End Property - + + _ Public Property GoodsItem() As List(Of FCFCDFSummaryDeclarationGoodsItem) Get - Return Me.goodsItemField + Return Me._goodsItem End Get Set - Me.goodsItemField = Value + Me._goodsItem = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFSummaryDeclaration)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFSummaryDeclaration)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFSummaryDeclaration object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFSummaryDeclaration object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFSummaryDeclaration object + ''' + ''' string to deserialize + ''' Output FCFCDFSummaryDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFSummaryDeclaration, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFSummaryDeclaration) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFSummaryDeclaration) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFSummaryDeclaration) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFSummaryDeclaration + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFSummaryDeclaration) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFSummaryDeclaration + Return CType(SerializerXml.Deserialize(s),FCFCDFSummaryDeclaration) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFSummaryDeclaration object + ''' + ''' File to load and deserialize + ''' Output FCFCDFSummaryDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFSummaryDeclaration, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFSummaryDeclaration) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFSummaryDeclaration, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFSummaryDeclaration Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _quantity As String + + Private _identificationByKey As FCFCDFSummaryDeclarationGoodsItemIdentificationByKey + + Private _identificationByRegistration As FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.identificationByRegistrationField = New FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration() - Me.identificationByKeyField = New FCFCDFSummaryDeclarationGoodsItemIdentificationByKey() + Me._identificationByRegistration = New FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration() + Me._identificationByKey = New FCFCDFSummaryDeclarationGoodsItemIdentificationByKey() End Sub - + + _ Public Property Quantity() As String Get - Return Me.quantityField + Return Me._quantity End Get Set - Me.quantityField = Value + Me._quantity = value End Set End Property - + + _ Public Property IdentificationByKey() As FCFCDFSummaryDeclarationGoodsItemIdentificationByKey Get - Return Me.identificationByKeyField + Return Me._identificationByKey End Get Set - Me.identificationByKeyField = Value + Me._identificationByKey = value End Set End Property - + + _ Public Property IdentificationByRegistration() As FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration Get - Return Me.identificationByRegistrationField + Return Me._identificationByRegistration End Get Set - Me.identificationByRegistrationField = Value + Me._identificationByRegistration = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFSummaryDeclarationGoodsItem)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFSummaryDeclarationGoodsItem)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFSummaryDeclarationGoodsItem object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFSummaryDeclarationGoodsItem object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFSummaryDeclarationGoodsItem object + ''' + ''' string to deserialize + ''' Output FCFCDFSummaryDeclarationGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItem) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItem) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItem) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFSummaryDeclarationGoodsItem + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFSummaryDeclarationGoodsItem) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFSummaryDeclarationGoodsItem + Return CType(SerializerXml.Deserialize(s),FCFCDFSummaryDeclarationGoodsItem) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFSummaryDeclarationGoodsItem object + ''' + ''' File to load and deserialize + ''' Output FCFCDFSummaryDeclarationGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFSummaryDeclarationGoodsItem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItem) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItem, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFSummaryDeclarationGoodsItem Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _kind As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyKind + + Private _number As String + + Private _custodian As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.custodianField = New FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian() + Me._custodian = New FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian() End Sub - + + _ Public Property Kind() As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyKind Get - Return Me.kindField + Return Me._kind End Get Set - Me.kindField = Value + Me._kind = value End Set End Property - + + _ Public Property Number() As String Get - Return Me.numberField + Return Me._number End Get Set - Me.numberField = Value + Me._number = value End Set End Property - + + _ Public Property Custodian() As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian Get - Return Me.custodianField + Return Me._custodian End Get Set - Me.custodianField = Value + Me._custodian = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFSummaryDeclarationGoodsItemIdentificationByKey)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFSummaryDeclarationGoodsItemIdentificationByKey)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFSummaryDeclarationGoodsItemIdentificationByKey object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFSummaryDeclarationGoodsItemIdentificationByKey object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFSummaryDeclarationGoodsItemIdentificationByKey object + ''' + ''' string to deserialize + ''' Output FCFCDFSummaryDeclarationGoodsItemIdentificationByKey object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKey, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItemIdentificationByKey) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKey) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKey) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFSummaryDeclarationGoodsItemIdentificationByKey + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFSummaryDeclarationGoodsItemIdentificationByKey) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFSummaryDeclarationGoodsItemIdentificationByKey + Return CType(SerializerXml.Deserialize(s),FCFCDFSummaryDeclarationGoodsItemIdentificationByKey) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFSummaryDeclarationGoodsItemIdentificationByKey object + ''' + ''' File to load and deserialize + ''' Output FCFCDFSummaryDeclarationGoodsItemIdentificationByKey object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKey, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItemIdentificationByKey) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKey, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFSummaryDeclarationGoodsItemIdentificationByKey Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _identification As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.identificationField = New FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification() + Me._identification = New FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification() End Sub - + + _ Public Property Identification() As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification Get - Return Me.identificationField + Return Me._identification End Get Set - Me.identificationField = Value + Me._identification = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' + ''' string to deserialize + ''' Output FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Return CType(SerializerXml.Deserialize(s),FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' + ''' File to load and deserialize + ''' Output FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodian Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' + ''' string to deserialize + ''' Output FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Return CType(SerializerXml.Deserialize(s),FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' + ''' File to load and deserialize + ''' Output FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _mRN As String + + Private _referencedRegistrationNumber As String + + Private _referencedSequenceNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property MRN() As String Get - Return Me.mRNField + Return Me._mRN End Get Set - Me.mRNField = Value + Me._mRN = value End Set End Property - + + _ Public Property ReferencedRegistrationNumber() As String Get - Return Me.referencedRegistrationNumberField + Return Me._referencedRegistrationNumber End Get Set - Me.referencedRegistrationNumberField = Value + Me._referencedRegistrationNumber = value End Set End Property - + + _ Public Property ReferencedSequenceNumber() As String Get - Return Me.referencedSequenceNumberField + Return Me._referencedSequenceNumber End Get Set - Me.referencedSequenceNumberField = Value + Me._referencedSequenceNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' + ''' string to deserialize + ''' Output FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration + Return CType(SerializerXml.Deserialize(s),FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' + ''' File to load and deserialize + ''' Output FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFSummaryDeclarationGoodsItemIdentificationByRegistration Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _lRN As String + + Private _sequenceNumber As FCFCDFCustomsWarehouseSequenceNumber + + Private _goodsItemQuantity As String + + Private _customsAuthorisation As FCFCDFCustomsWarehouseCustomsAuthorisation + + Private _goodsItem As List(Of FCFCDFCustomsWarehouseGoodsItem) + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.goodsItemField = New List(Of FCFCDFCustomsWarehouseGoodsItem)() - Me.customsAuthorisationField = New FCFCDFCustomsWarehouseCustomsAuthorisation() + Me._goodsItem = New List(Of FCFCDFCustomsWarehouseGoodsItem)() + Me._customsAuthorisation = New FCFCDFCustomsWarehouseCustomsAuthorisation() End Sub - + + _ Public Property LRN() As String Get - Return Me.lRNField + Return Me._lRN End Get Set - Me.lRNField = Value + Me._lRN = value End Set End Property - + + _ Public Property SequenceNumber() As FCFCDFCustomsWarehouseSequenceNumber Get - Return Me.sequenceNumberField + Return Me._sequenceNumber End Get Set - Me.sequenceNumberField = Value + Me._sequenceNumber = value End Set End Property - + + _ Public Property GoodsItemQuantity() As String Get - Return Me.goodsItemQuantityField + Return Me._goodsItemQuantity End Get Set - Me.goodsItemQuantityField = Value + Me._goodsItemQuantity = value End Set End Property - + + _ Public Property CustomsAuthorisation() As FCFCDFCustomsWarehouseCustomsAuthorisation Get - Return Me.customsAuthorisationField + Return Me._customsAuthorisation End Get Set - Me.customsAuthorisationField = Value + Me._customsAuthorisation = value End Set End Property - + + _ Public Property GoodsItem() As List(Of FCFCDFCustomsWarehouseGoodsItem) Get - Return Me.goodsItemField + Return Me._goodsItem End Get Set - Me.goodsItemField = Value + Me._goodsItem = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFCustomsWarehouse)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFCustomsWarehouse)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFCustomsWarehouse object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFCustomsWarehouse object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFCustomsWarehouse object + ''' + ''' string to deserialize + ''' Output FCFCDFCustomsWarehouse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFCustomsWarehouse, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFCustomsWarehouse) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFCustomsWarehouse) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFCustomsWarehouse) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFCustomsWarehouse + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFCustomsWarehouse) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFCustomsWarehouse + Return CType(SerializerXml.Deserialize(s),FCFCDFCustomsWarehouse) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFCustomsWarehouse object + ''' + ''' File to load and deserialize + ''' Output FCFCDFCustomsWarehouse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFCustomsWarehouse, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFCustomsWarehouse) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFCustomsWarehouse, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFCustomsWarehouse Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _warehouseOwner As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property WarehouseOwner() As String Get - Return Me.warehouseOwnerField + Return Me._warehouseOwner End Get Set - Me.warehouseOwnerField = Value + Me._warehouseOwner = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFCustomsWarehouseCustomsAuthorisation)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFCustomsWarehouseCustomsAuthorisation)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFCustomsWarehouseCustomsAuthorisation object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFCustomsWarehouseCustomsAuthorisation object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFCustomsWarehouseCustomsAuthorisation object + ''' + ''' string to deserialize + ''' Output FCFCDFCustomsWarehouseCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFCustomsWarehouseCustomsAuthorisation, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFCustomsWarehouseCustomsAuthorisation) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFCustomsWarehouseCustomsAuthorisation) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFCustomsWarehouseCustomsAuthorisation) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFCustomsWarehouseCustomsAuthorisation + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFCustomsWarehouseCustomsAuthorisation) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFCustomsWarehouseCustomsAuthorisation + Return CType(SerializerXml.Deserialize(s),FCFCDFCustomsWarehouseCustomsAuthorisation) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFCustomsWarehouseCustomsAuthorisation object + ''' + ''' File to load and deserialize + ''' Output FCFCDFCustomsWarehouseCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFCustomsWarehouseCustomsAuthorisation, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFCustomsWarehouseCustomsAuthorisation) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFCustomsWarehouseCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFCustomsWarehouseCustomsAuthorisation Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _sequenceNumber As String + + Private _mRN As String + + Private _referencedRegistrationNumber As String + + Private _referencedSequenceNumber As String + + Private _accessViaAtlasFlag As String + + Private _commodityCode As String + + Private _usualProcessingFlag As String + + Private _complement As String + + Private _commercialAmount As FCFCDFCustomsWarehouseGoodsItemCommercialAmount + + Private _debitAmount As FCFCDFCustomsWarehouseGoodsItemDebitAmount + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.debitAmountField = New FCFCDFCustomsWarehouseGoodsItemDebitAmount() - Me.commercialAmountField = New FCFCDFCustomsWarehouseGoodsItemCommercialAmount() + Me._debitAmount = New FCFCDFCustomsWarehouseGoodsItemDebitAmount() + Me._commercialAmount = New FCFCDFCustomsWarehouseGoodsItemCommercialAmount() End Sub - + + _ Public Property SequenceNumber() As String Get - Return Me.sequenceNumberField + Return Me._sequenceNumber End Get Set - Me.sequenceNumberField = Value + Me._sequenceNumber = value End Set End Property - + + _ Public Property MRN() As String Get - Return Me.mRNField + Return Me._mRN End Get Set - Me.mRNField = Value + Me._mRN = value End Set End Property - + + _ Public Property ReferencedRegistrationNumber() As String Get - Return Me.referencedRegistrationNumberField + Return Me._referencedRegistrationNumber End Get Set - Me.referencedRegistrationNumberField = Value + Me._referencedRegistrationNumber = value End Set End Property - + + _ Public Property ReferencedSequenceNumber() As String Get - Return Me.referencedSequenceNumberField + Return Me._referencedSequenceNumber End Get Set - Me.referencedSequenceNumberField = Value + Me._referencedSequenceNumber = value End Set End Property - + + _ Public Property AccessViaAtlasFlag() As String Get - Return Me.accessViaAtlasFlagField + Return Me._accessViaAtlasFlag End Get Set - Me.accessViaAtlasFlagField = Value + Me._accessViaAtlasFlag = value End Set End Property - + + _ Public Property CommodityCode() As String Get - Return Me.commodityCodeField + Return Me._commodityCode End Get Set - Me.commodityCodeField = Value + Me._commodityCode = value End Set End Property - + + _ Public Property UsualProcessingFlag() As String Get - Return Me.usualProcessingFlagField + Return Me._usualProcessingFlag End Get Set - Me.usualProcessingFlagField = Value + Me._usualProcessingFlag = value End Set End Property - + + _ Public Property Complement() As String Get - Return Me.complementField + Return Me._complement End Get Set - Me.complementField = Value + Me._complement = value End Set End Property - + + _ Public Property CommercialAmount() As FCFCDFCustomsWarehouseGoodsItemCommercialAmount Get - Return Me.commercialAmountField + Return Me._commercialAmount End Get Set - Me.commercialAmountField = Value + Me._commercialAmount = value End Set End Property - + + _ Public Property DebitAmount() As FCFCDFCustomsWarehouseGoodsItemDebitAmount Get - Return Me.debitAmountField + Return Me._debitAmount End Get Set - Me.debitAmountField = Value + Me._debitAmount = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFCustomsWarehouseGoodsItem)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFCustomsWarehouseGoodsItem)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFCustomsWarehouseGoodsItem object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFCustomsWarehouseGoodsItem object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFCustomsWarehouseGoodsItem object + ''' + ''' string to deserialize + ''' Output FCFCDFCustomsWarehouseGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFCustomsWarehouseGoodsItem) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItem) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItem) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFCustomsWarehouseGoodsItem + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFCustomsWarehouseGoodsItem) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFCustomsWarehouseGoodsItem + Return CType(SerializerXml.Deserialize(s),FCFCDFCustomsWarehouseGoodsItem) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFCustomsWarehouseGoodsItem object + ''' + ''' File to load and deserialize + ''' Output FCFCDFCustomsWarehouseGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFCustomsWarehouseGoodsItem) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFCustomsWarehouseGoodsItem Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Quantity() As Decimal Get - Return Me.quantityField + Return Me._quantity End Get Set - Me.quantityField = Value + Me._quantity = value End Set End Property - + + _ Public Property MeasurementUnit() As String Get - Return Me.measurementUnitField + Return Me._measurementUnit End Get Set - Me.measurementUnitField = Value + Me._measurementUnit = value End Set End Property - + + _ Public Property Qualifier() As String Get - Return Me.qualifierField + Return Me._qualifier End Get Set - Me.qualifierField = Value + Me._qualifier = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFCustomsWarehouseGoodsItemCommercialAmount)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFCustomsWarehouseGoodsItemCommercialAmount)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFCustomsWarehouseGoodsItemCommercialAmount object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFCustomsWarehouseGoodsItemCommercialAmount object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFCustomsWarehouseGoodsItemCommercialAmount object + ''' + ''' string to deserialize + ''' Output FCFCDFCustomsWarehouseGoodsItemCommercialAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFCustomsWarehouseGoodsItemCommercialAmount) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItemCommercialAmount) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItemCommercialAmount) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFCustomsWarehouseGoodsItemCommercialAmount + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFCustomsWarehouseGoodsItemCommercialAmount) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFCustomsWarehouseGoodsItemCommercialAmount + Return CType(SerializerXml.Deserialize(s),FCFCDFCustomsWarehouseGoodsItemCommercialAmount) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFCustomsWarehouseGoodsItemCommercialAmount object + ''' + ''' File to load and deserialize + ''' Output FCFCDFCustomsWarehouseGoodsItemCommercialAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFCustomsWarehouseGoodsItemCommercialAmount) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFCustomsWarehouseGoodsItemCommercialAmount Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Quantity() As Decimal Get - Return Me.quantityField + Return Me._quantity End Get Set - Me.quantityField = Value + Me._quantity = value End Set End Property - + + _ Public Property MeasurementUnit() As String Get - Return Me.measurementUnitField + Return Me._measurementUnit End Get Set - Me.measurementUnitField = Value + Me._measurementUnit = value End Set End Property - + + _ Public Property Qualifier() As String Get - Return Me.qualifierField + Return Me._qualifier End Get Set - Me.qualifierField = Value + Me._qualifier = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFCustomsWarehouseGoodsItemDebitAmount)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFCustomsWarehouseGoodsItemDebitAmount)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFCustomsWarehouseGoodsItemDebitAmount object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFCustomsWarehouseGoodsItemDebitAmount object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFCustomsWarehouseGoodsItemDebitAmount object + ''' + ''' string to deserialize + ''' Output FCFCDFCustomsWarehouseGoodsItemDebitAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFCustomsWarehouseGoodsItemDebitAmount) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItemDebitAmount) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItemDebitAmount) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFCustomsWarehouseGoodsItemDebitAmount + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFCustomsWarehouseGoodsItemDebitAmount) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFCustomsWarehouseGoodsItemDebitAmount + Return CType(SerializerXml.Deserialize(s),FCFCDFCustomsWarehouseGoodsItemDebitAmount) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFCustomsWarehouseGoodsItemDebitAmount object + ''' + ''' File to load and deserialize + ''' Output FCFCDFCustomsWarehouseGoodsItemDebitAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFCustomsWarehouseGoodsItemDebitAmount) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFCustomsWarehouseGoodsItemDebitAmount Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _sequenceNumber As FCFCDFInwardProcessingSequenceNumber + + Private _goodsItemQuantity As String + + Private _customsAuthorisation As FCFCDFInwardProcessingCustomsAuthorisation + + Private _simplifiedGrantAuthorisationFlag As String + + Private _monitoringCustomsOffice As FCFCDFInwardProcessingMonitoringCustomsOffice + + Private _goodsItem As List(Of FCFCDFInwardProcessingGoodsItem) + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.goodsItemField = New List(Of FCFCDFInwardProcessingGoodsItem)() - Me.monitoringCustomsOfficeField = New FCFCDFInwardProcessingMonitoringCustomsOffice() - Me.customsAuthorisationField = New FCFCDFInwardProcessingCustomsAuthorisation() + Me._goodsItem = New List(Of FCFCDFInwardProcessingGoodsItem)() + Me._monitoringCustomsOffice = New FCFCDFInwardProcessingMonitoringCustomsOffice() + Me._customsAuthorisation = New FCFCDFInwardProcessingCustomsAuthorisation() End Sub - + + _ Public Property SequenceNumber() As FCFCDFInwardProcessingSequenceNumber Get - Return Me.sequenceNumberField + Return Me._sequenceNumber End Get Set - Me.sequenceNumberField = Value + Me._sequenceNumber = value End Set End Property - + + _ Public Property GoodsItemQuantity() As String Get - Return Me.goodsItemQuantityField + Return Me._goodsItemQuantity End Get Set - Me.goodsItemQuantityField = Value + Me._goodsItemQuantity = value End Set End Property - + + _ Public Property CustomsAuthorisation() As FCFCDFInwardProcessingCustomsAuthorisation Get - Return Me.customsAuthorisationField + Return Me._customsAuthorisation End Get Set - Me.customsAuthorisationField = Value + Me._customsAuthorisation = value End Set End Property - + + _ Public Property SimplifiedGrantAuthorisationFlag() As String Get - Return Me.simplifiedGrantAuthorisationFlagField + Return Me._simplifiedGrantAuthorisationFlag End Get Set - Me.simplifiedGrantAuthorisationFlagField = Value + Me._simplifiedGrantAuthorisationFlag = value End Set End Property - + + _ Public Property MonitoringCustomsOffice() As FCFCDFInwardProcessingMonitoringCustomsOffice Get - Return Me.monitoringCustomsOfficeField + Return Me._monitoringCustomsOffice End Get Set - Me.monitoringCustomsOfficeField = Value + Me._monitoringCustomsOffice = value End Set End Property - + + _ Public Property GoodsItem() As List(Of FCFCDFInwardProcessingGoodsItem) Get - Return Me.goodsItemField + Return Me._goodsItem End Get Set - Me.goodsItemField = Value + Me._goodsItem = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFInwardProcessing)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFInwardProcessing)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFInwardProcessing object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFInwardProcessing object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFInwardProcessing object + ''' + ''' string to deserialize + ''' Output FCFCDFInwardProcessing object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFInwardProcessing, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFInwardProcessing) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFInwardProcessing) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFInwardProcessing) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFInwardProcessing + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFInwardProcessing) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFInwardProcessing + Return CType(SerializerXml.Deserialize(s),FCFCDFInwardProcessing) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFInwardProcessing object + ''' + ''' File to load and deserialize + ''' Output FCFCDFInwardProcessing object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFInwardProcessing, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFInwardProcessing) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFInwardProcessing, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFInwardProcessing Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _processingOwner As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ProcessingOwner() As String Get - Return Me.processingOwnerField + Return Me._processingOwner End Get Set - Me.processingOwnerField = Value + Me._processingOwner = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFInwardProcessingCustomsAuthorisation)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFInwardProcessingCustomsAuthorisation)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFInwardProcessingCustomsAuthorisation object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFInwardProcessingCustomsAuthorisation object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFInwardProcessingCustomsAuthorisation object + ''' + ''' string to deserialize + ''' Output FCFCDFInwardProcessingCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFInwardProcessingCustomsAuthorisation, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFInwardProcessingCustomsAuthorisation) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFInwardProcessingCustomsAuthorisation) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFInwardProcessingCustomsAuthorisation) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFInwardProcessingCustomsAuthorisation + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFInwardProcessingCustomsAuthorisation) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFInwardProcessingCustomsAuthorisation + Return CType(SerializerXml.Deserialize(s),FCFCDFInwardProcessingCustomsAuthorisation) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFInwardProcessingCustomsAuthorisation object + ''' + ''' File to load and deserialize + ''' Output FCFCDFInwardProcessingCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFInwardProcessingCustomsAuthorisation, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFInwardProcessingCustomsAuthorisation) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFInwardProcessingCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFInwardProcessingCustomsAuthorisation Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _identification As FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.identificationField = New FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification() + Me._identification = New FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification() End Sub - + + _ Public Property Identification() As FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification Get - Return Me.identificationField + Return Me._identification End Get Set - Me.identificationField = Value + Me._identification = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFInwardProcessingMonitoringCustomsOffice)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFInwardProcessingMonitoringCustomsOffice)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFInwardProcessingMonitoringCustomsOffice object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFInwardProcessingMonitoringCustomsOffice object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFInwardProcessingMonitoringCustomsOffice object + ''' + ''' string to deserialize + ''' Output FCFCDFInwardProcessingMonitoringCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFInwardProcessingMonitoringCustomsOffice, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFInwardProcessingMonitoringCustomsOffice) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFInwardProcessingMonitoringCustomsOffice) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFInwardProcessingMonitoringCustomsOffice) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFInwardProcessingMonitoringCustomsOffice + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFInwardProcessingMonitoringCustomsOffice) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFInwardProcessingMonitoringCustomsOffice + Return CType(SerializerXml.Deserialize(s),FCFCDFInwardProcessingMonitoringCustomsOffice) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFInwardProcessingMonitoringCustomsOffice object + ''' + ''' File to load and deserialize + ''' Output FCFCDFInwardProcessingMonitoringCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFInwardProcessingMonitoringCustomsOffice, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFInwardProcessingMonitoringCustomsOffice) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFInwardProcessingMonitoringCustomsOffice, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFInwardProcessingMonitoringCustomsOffice Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification object + ''' + ''' string to deserialize + ''' Output FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification + Return CType(SerializerXml.Deserialize(s),FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification object + ''' + ''' File to load and deserialize + ''' Output FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFInwardProcessingMonitoringCustomsOfficeIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _sequenceNumber As String + + Private _mRN As String + + Private _referencedRegistrationNumber As String + + Private _referencedSequenceNumber As String + + Private _accessViaAtlasFlag As String + + Private _goodsRelatedInformation As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property SequenceNumber() As String Get - Return Me.sequenceNumberField + Return Me._sequenceNumber End Get Set - Me.sequenceNumberField = Value + Me._sequenceNumber = value End Set End Property - + + _ Public Property MRN() As String Get - Return Me.mRNField + Return Me._mRN End Get Set - Me.mRNField = Value + Me._mRN = value End Set End Property - + + _ Public Property ReferencedRegistrationNumber() As String Get - Return Me.referencedRegistrationNumberField + Return Me._referencedRegistrationNumber End Get Set - Me.referencedRegistrationNumberField = Value + Me._referencedRegistrationNumber = value End Set End Property - + + _ Public Property ReferencedSequenceNumber() As String Get - Return Me.referencedSequenceNumberField + Return Me._referencedSequenceNumber End Get Set - Me.referencedSequenceNumberField = Value + Me._referencedSequenceNumber = value End Set End Property - + + _ Public Property AccessViaAtlasFlag() As String Get - Return Me.accessViaAtlasFlagField + Return Me._accessViaAtlasFlag End Get Set - Me.accessViaAtlasFlagField = Value + Me._accessViaAtlasFlag = value End Set End Property - + + _ Public Property GoodsRelatedInformation() As String Get - Return Me.goodsRelatedInformationField + Return Me._goodsRelatedInformation End Get Set - Me.goodsRelatedInformationField = Value + Me._goodsRelatedInformation = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFInwardProcessingGoodsItem)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFInwardProcessingGoodsItem)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFInwardProcessingGoodsItem object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFInwardProcessingGoodsItem object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFInwardProcessingGoodsItem object + ''' + ''' string to deserialize + ''' Output FCFCDFInwardProcessingGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFInwardProcessingGoodsItem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFInwardProcessingGoodsItem) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFInwardProcessingGoodsItem) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFInwardProcessingGoodsItem) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFInwardProcessingGoodsItem + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFInwardProcessingGoodsItem) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFInwardProcessingGoodsItem + Return CType(SerializerXml.Deserialize(s),FCFCDFInwardProcessingGoodsItem) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFInwardProcessingGoodsItem object + ''' + ''' File to load and deserialize + ''' Output FCFCDFInwardProcessingGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFInwardProcessingGoodsItem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFInwardProcessingGoodsItem) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFInwardProcessingGoodsItem, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFInwardProcessingGoodsItem Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _customsValueFlag As String + + Private _consignor As FCFCDFBodyConsignor + + Private _consignee As FCFCDFBodyConsignee + + Private _additionalDutyReferences As List(Of FCFCDFBodyAdditionalDutyReferences) + + Private _containers As FCFCDFBodyContainers + + Private _deliveryTerms As FCFCDFBodyDeliveryTerms + + Private _paymentTransaction As FCFCDFBodyPaymentTransaction + + Private _foreignTradeStatistics As FCFCDFBodyForeignTradeStatistics + + Private _customsValue As FCFCDFBodyCustomsValue + + Private _document As List(Of FCFCDFBodyDocument) + + Private _goodsItem As List(Of FCFCDFBodyGoodsItem) + + Private Shared _serializerXml As XmlSerializer + #End Region + 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() + Me._goodsItem = New List(Of FCFCDFBodyGoodsItem)() + Me._document = New List(Of FCFCDFBodyDocument)() + Me._customsValue = New FCFCDFBodyCustomsValue() + Me._foreignTradeStatistics = New FCFCDFBodyForeignTradeStatistics() + Me._paymentTransaction = New FCFCDFBodyPaymentTransaction() + Me._deliveryTerms = New FCFCDFBodyDeliveryTerms() + Me._containers = New FCFCDFBodyContainers() + Me._additionalDutyReferences = New List(Of FCFCDFBodyAdditionalDutyReferences)() + Me._consignee = New FCFCDFBodyConsignee() + Me._consignor = New FCFCDFBodyConsignor() End Sub - + + _ Public Property CustomsValueFlag() As String Get - Return Me.customsValueFlagField + Return Me._customsValueFlag End Get Set - Me.customsValueFlagField = Value + Me._customsValueFlag = value End Set End Property - + + _ Public Property Consignor() As FCFCDFBodyConsignor Get - Return Me.consignorField + Return Me._consignor End Get Set - Me.consignorField = Value + Me._consignor = value End Set End Property - + + _ Public Property Consignee() As FCFCDFBodyConsignee Get - Return Me.consigneeField + Return Me._consignee End Get Set - Me.consigneeField = Value + Me._consignee = value End Set End Property - + + _ Public Property AdditionalDutyReferences() As List(Of FCFCDFBodyAdditionalDutyReferences) Get - Return Me.additionalDutyReferencesField + Return Me._additionalDutyReferences End Get Set - Me.additionalDutyReferencesField = Value + Me._additionalDutyReferences = value End Set End Property - + + _ Public Property Containers() As FCFCDFBodyContainers Get - Return Me.containersField + Return Me._containers End Get Set - Me.containersField = Value + Me._containers = value End Set End Property - + + _ Public Property DeliveryTerms() As FCFCDFBodyDeliveryTerms Get - Return Me.deliveryTermsField + Return Me._deliveryTerms End Get Set - Me.deliveryTermsField = Value + Me._deliveryTerms = value End Set End Property - + + _ Public Property PaymentTransaction() As FCFCDFBodyPaymentTransaction Get - Return Me.paymentTransactionField + Return Me._paymentTransaction End Get Set - Me.paymentTransactionField = Value + Me._paymentTransaction = value End Set End Property - + + _ Public Property ForeignTradeStatistics() As FCFCDFBodyForeignTradeStatistics Get - Return Me.foreignTradeStatisticsField + Return Me._foreignTradeStatistics End Get Set - Me.foreignTradeStatisticsField = Value + Me._foreignTradeStatistics = value End Set End Property - + + _ Public Property CustomsValue() As FCFCDFBodyCustomsValue Get - Return Me.customsValueField + Return Me._customsValue End Get Set - Me.customsValueField = Value + Me._customsValue = value End Set End Property - + + _ Public Property Document() As List(Of FCFCDFBodyDocument) Get - Return Me.documentField + Return Me._document End Get Set - Me.documentField = Value + Me._document = value End Set End Property - + + _ Public Property GoodsItem() As List(Of FCFCDFBodyGoodsItem) Get - Return Me.goodsItemField + Return Me._goodsItem End Get Set - Me.goodsItemField = Value + Me._goodsItem = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBody)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBody)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBody object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBody object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBody object + ''' + ''' string to deserialize + ''' Output FCFCDFBody object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBody, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBody) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBody) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBody) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBody + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBody) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBody + Return CType(SerializerXml.Deserialize(s),FCFCDFBody) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBody object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBody object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBody, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBody) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBody, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBody Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _identification As FCFCDFBodyConsignorIdentification + + Private _name As String + + Private _address As FCFCDFBodyConsignorAddress + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.addressField = New FCFCDFBodyConsignorAddress() - Me.identificationField = New FCFCDFBodyConsignorIdentification() + Me._address = New FCFCDFBodyConsignorAddress() + Me._identification = New FCFCDFBodyConsignorIdentification() End Sub - + + _ Public Property Identification() As FCFCDFBodyConsignorIdentification Get - Return Me.identificationField + Return Me._identification End Get Set - Me.identificationField = Value + Me._identification = value End Set End Property - + + _ Public Property Name() As String Get - Return Me.nameField + Return Me._name End Get Set - Me.nameField = Value + Me._name = value End Set End Property - + + _ Public Property Address() As FCFCDFBodyConsignorAddress Get - Return Me.addressField + Return Me._address End Get Set - Me.addressField = Value + Me._address = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyConsignor)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyConsignor)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyConsignor object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyConsignor object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyConsignor object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyConsignor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyConsignor, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyConsignor) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyConsignor) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyConsignor) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyConsignor + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyConsignor) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyConsignor + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyConsignor) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyConsignor object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyConsignor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyConsignor, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyConsignor) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyConsignor, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyConsignor Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyConsignorIdentification)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyConsignorIdentification)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyConsignorIdentification object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyConsignorIdentification object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyConsignorIdentification object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyConsignorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyConsignorIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyConsignorIdentification) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyConsignorIdentification) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyConsignorIdentification) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyConsignorIdentification + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyConsignorIdentification) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyConsignorIdentification + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyConsignorIdentification) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyConsignorIdentification object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyConsignorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyConsignorIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyConsignorIdentification) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyConsignorIdentification, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyConsignorIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Line() As String Get - Return Me.lineField + Return Me._line End Get Set - Me.lineField = Value + Me._line = value End Set End Property - + + _ Public Property Country() As String Get - Return Me.countryField + Return Me._country End Get Set - Me.countryField = Value + Me._country = value End Set End Property - + + _ Public Property Postcode() As String Get - Return Me.postcodeField + Return Me._postcode End Get Set - Me.postcodeField = Value + Me._postcode = value End Set End Property - + + _ Public Property City() As String Get - Return Me.cityField + Return Me._city End Get Set - Me.cityField = Value + Me._city = value End Set End Property - + + _ Public Property District() As String Get - Return Me.districtField + Return Me._district End Get Set - Me.districtField = Value + Me._district = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyConsignorAddress)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyConsignorAddress)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyConsignorAddress object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyConsignorAddress object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyConsignorAddress object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyConsignorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyConsignorAddress, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyConsignorAddress) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyConsignorAddress) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyConsignorAddress) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyConsignorAddress + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyConsignorAddress) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyConsignorAddress + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyConsignorAddress) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyConsignorAddress object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyConsignorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyConsignorAddress, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyConsignorAddress) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyConsignorAddress, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyConsignorAddress Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _identification As FCFCDFBodyConsigneeIdentification + + Private _name As String + + Private _address As FCFCDFBodyConsigneeAddress + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.addressField = New FCFCDFBodyConsigneeAddress() - Me.identificationField = New FCFCDFBodyConsigneeIdentification() + Me._address = New FCFCDFBodyConsigneeAddress() + Me._identification = New FCFCDFBodyConsigneeIdentification() End Sub - + + _ Public Property Identification() As FCFCDFBodyConsigneeIdentification Get - Return Me.identificationField + Return Me._identification End Get Set - Me.identificationField = Value + Me._identification = value End Set End Property - + + _ Public Property Name() As String Get - Return Me.nameField + Return Me._name End Get Set - Me.nameField = Value + Me._name = value End Set End Property - + + _ Public Property Address() As FCFCDFBodyConsigneeAddress Get - Return Me.addressField + Return Me._address End Get Set - Me.addressField = Value + Me._address = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyConsignee)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyConsignee)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyConsignee object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyConsignee object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyConsignee object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyConsignee, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyConsignee) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyConsignee) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyConsignee) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyConsignee + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyConsignee) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyConsignee + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyConsignee) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyConsignee object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyConsignee, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyConsignee) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyConsignee, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyConsignee Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - + + _ Public Property SubsidiaryNumber() As String Get - Return Me.subsidiaryNumberField + Return Me._subsidiaryNumber End Get Set - Me.subsidiaryNumberField = Value + Me._subsidiaryNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyConsigneeIdentification)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyConsigneeIdentification)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyConsigneeIdentification object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyConsigneeIdentification object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyConsigneeIdentification object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyConsigneeIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyConsigneeIdentification) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyConsigneeIdentification) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyConsigneeIdentification) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyConsigneeIdentification + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyConsigneeIdentification) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyConsigneeIdentification + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyConsigneeIdentification) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyConsigneeIdentification object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyConsigneeIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyConsigneeIdentification) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyConsigneeIdentification, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyConsigneeIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Line() As String Get - Return Me.lineField + Return Me._line End Get Set - Me.lineField = Value + Me._line = value End Set End Property - + + _ Public Property Country() As String Get - Return Me.countryField + Return Me._country End Get Set - Me.countryField = Value + Me._country = value End Set End Property - + + _ Public Property Postcode() As String Get - Return Me.postcodeField + Return Me._postcode End Get Set - Me.postcodeField = Value + Me._postcode = value End Set End Property - + + _ Public Property City() As String Get - Return Me.cityField + Return Me._city End Get Set - Me.cityField = Value + Me._city = value End Set End Property - + + _ Public Property District() As String Get - Return Me.districtField + Return Me._district End Get Set - Me.districtField = Value + Me._district = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyConsigneeAddress)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyConsigneeAddress)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyConsigneeAddress object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyConsigneeAddress object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyConsigneeAddress object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyConsigneeAddress, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyConsigneeAddress) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyConsigneeAddress) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyConsigneeAddress) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyConsigneeAddress + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyConsigneeAddress) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyConsigneeAddress + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyConsigneeAddress) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyConsigneeAddress object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyConsigneeAddress, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyConsigneeAddress) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyConsigneeAddress, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyConsigneeAddress Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _referenceNumber As String + + Private _dutyInterestedParty As FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.dutyInterestedPartyField = New FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty() + Me._dutyInterestedParty = New FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty() End Sub - + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - + + _ Public Property DutyInterestedParty() As FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty Get - Return Me.dutyInterestedPartyField + Return Me._dutyInterestedParty End Get Set - Me.dutyInterestedPartyField = Value + Me._dutyInterestedParty = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyAdditionalDutyReferences)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyAdditionalDutyReferences)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyAdditionalDutyReferences object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyAdditionalDutyReferences object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyAdditionalDutyReferences object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyAdditionalDutyReferences object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyAdditionalDutyReferences, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyAdditionalDutyReferences) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyAdditionalDutyReferences) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyAdditionalDutyReferences) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyAdditionalDutyReferences + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyAdditionalDutyReferences) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyAdditionalDutyReferences + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyAdditionalDutyReferences) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyAdditionalDutyReferences object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyAdditionalDutyReferences object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyAdditionalDutyReferences, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyAdditionalDutyReferences) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyAdditionalDutyReferences, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyAdditionalDutyReferences Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _identification As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification + + Private _name As String + + Private _address As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.addressField = New FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress() - Me.identificationField = New FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification() + Me._address = New FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress() + Me._identification = New FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification() End Sub - + + _ Public Property Identification() As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification Get - Return Me.identificationField + Return Me._identification End Get Set - Me.identificationField = Value + Me._identification = value End Set End Property - + + _ Public Property Name() As String Get - Return Me.nameField + Return Me._name End Get Set - Me.nameField = Value + Me._name = value End Set End Property - + + _ Public Property Address() As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress Get - Return Me.addressField + Return Me._address End Get Set - Me.addressField = Value + Me._address = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyAdditionalDutyReferencesDutyInterestedParty Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Line() As String Get - Return Me.lineField + Return Me._line End Get Set - Me.lineField = Value + Me._line = value End Set End Property - + + _ Public Property Country() As String Get - Return Me.countryField + Return Me._country End Get Set - Me.countryField = Value + Me._country = value End Set End Property - + + _ Public Property Postcode() As String Get - Return Me.postcodeField + Return Me._postcode End Get Set - Me.postcodeField = Value + Me._postcode = value End Set End Property - + + _ Public Property City() As String Get - Return Me.cityField + Return Me._city End Get Set - Me.cityField = Value + Me._city = value End Set End Property - + + _ Public Property District() As String Get - Return Me.districtField + Return Me._district End Get Set - Me.districtField = Value + Me._district = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyAdditionalDutyReferencesDutyInterestedPartyAddress Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _containerFlag As String + + Private _container As List(Of FCFCDFBodyContainersContainer) + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.containerField = New List(Of FCFCDFBodyContainersContainer)() + Me._container = New List(Of FCFCDFBodyContainersContainer)() End Sub - + + _ Public Property ContainerFlag() As String Get - Return Me.containerFlagField + Return Me._containerFlag End Get Set - Me.containerFlagField = Value + Me._containerFlag = value End Set End Property - + + _ Public Property Container() As List(Of FCFCDFBodyContainersContainer) Get - Return Me.containerField + Return Me._container End Get Set - Me.containerField = Value + Me._container = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyContainers)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyContainers)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyContainers object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyContainers object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyContainers object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyContainers object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyContainers, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyContainers) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyContainers) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyContainers) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyContainers + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyContainers) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyContainers + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyContainers) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyContainers object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyContainers object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyContainers, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyContainers) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyContainers, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyContainers Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _identificationNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property IdentificationNumber() As String Get - Return Me.identificationNumberField + Return Me._identificationNumber End Get Set - Me.identificationNumberField = Value + Me._identificationNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyContainersContainer)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyContainersContainer)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyContainersContainer object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyContainersContainer object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyContainersContainer object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyContainersContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyContainersContainer, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyContainersContainer) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyContainersContainer) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyContainersContainer) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyContainersContainer + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyContainersContainer) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyContainersContainer + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyContainersContainer) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyContainersContainer object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyContainersContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyContainersContainer, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyContainersContainer) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyContainersContainer, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyContainersContainer Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _code As String + + Private _description As String + + Private _place As String + + Private _key As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Code() As String Get - Return Me.codeField + Return Me._code End Get Set - Me.codeField = Value + Me._code = value End Set End Property - + + _ Public Property Description() As String Get - Return Me.descriptionField + Return Me._description End Get Set - Me.descriptionField = Value + Me._description = value End Set End Property - + + _ Public Property Place() As String Get - Return Me.placeField + Return Me._place End Get Set - Me.placeField = Value + Me._place = value End Set End Property - + + _ Public Property Key() As String Get - Return Me.keyField + Return Me._key End Get Set - Me.keyField = Value + Me._key = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyDeliveryTerms)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyDeliveryTerms)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyDeliveryTerms object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyDeliveryTerms object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyDeliveryTerms object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyDeliveryTerms, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyDeliveryTerms) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyDeliveryTerms) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyDeliveryTerms) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyDeliveryTerms + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyDeliveryTerms) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyDeliveryTerms + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyDeliveryTerms) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyDeliveryTerms object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyDeliveryTerms, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyDeliveryTerms) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyDeliveryTerms, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyDeliveryTerms Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _amount As Decimal + + Private _currencyCode As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Amount() As Decimal Get - Return Me.amountField + Return Me._amount End Get Set - Me.amountField = Value + Me._amount = 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 + Return Me._currencyCode End Get Set - Me.currencyCodeField = Value + Me._currencyCode = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyPaymentTransaction)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyPaymentTransaction)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyPaymentTransaction object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyPaymentTransaction object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyPaymentTransaction object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyPaymentTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyPaymentTransaction, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyPaymentTransaction) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyPaymentTransaction) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyPaymentTransaction) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyPaymentTransaction + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyPaymentTransaction) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyPaymentTransaction + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyPaymentTransaction) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyPaymentTransaction object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyPaymentTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyPaymentTransaction, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyPaymentTransaction) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyPaymentTransaction, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyPaymentTransaction Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _goodsStatus As String + + Private _transactionType As String + + Private _destinationCountry As String + + Private _destinationFederalState As String + + Private _inlandTransportMode As String + + Private _totalGrossMassMeasure As Decimal + + Private _entryCustomsOffice As FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.entryCustomsOfficeField = New FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice() + Me._entryCustomsOffice = New FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice() End Sub - + + _ Public Property GoodsStatus() As String Get - Return Me.goodsStatusField + Return Me._goodsStatus End Get Set - Me.goodsStatusField = Value + Me._goodsStatus = value End Set End Property - + + _ Public Property TransactionType() As String Get - Return Me.transactionTypeField + Return Me._transactionType End Get Set - Me.transactionTypeField = Value + Me._transactionType = value End Set End Property - + + _ Public Property DestinationCountry() As String Get - Return Me.destinationCountryField + Return Me._destinationCountry End Get Set - Me.destinationCountryField = Value + Me._destinationCountry = value End Set End Property - + + _ Public Property DestinationFederalState() As String Get - Return Me.destinationFederalStateField + Return Me._destinationFederalState End Get Set - Me.destinationFederalStateField = Value + Me._destinationFederalState = value End Set End Property - + + _ Public Property InlandTransportMode() As String Get - Return Me.inlandTransportModeField + Return Me._inlandTransportMode End Get Set - Me.inlandTransportModeField = Value + Me._inlandTransportMode = value End Set End Property - + + _ Public Property TotalGrossMassMeasure() As Decimal Get - Return Me.totalGrossMassMeasureField + Return Me._totalGrossMassMeasure End Get Set - Me.totalGrossMassMeasureField = Value + Me._totalGrossMassMeasure = 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 + Return Me._entryCustomsOffice End Get Set - Me.entryCustomsOfficeField = Value + Me._entryCustomsOffice = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyForeignTradeStatistics)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyForeignTradeStatistics)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyForeignTradeStatistics object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyForeignTradeStatistics object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyForeignTradeStatistics object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyForeignTradeStatistics, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyForeignTradeStatistics) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyForeignTradeStatistics) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyForeignTradeStatistics) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyForeignTradeStatistics + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyForeignTradeStatistics) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyForeignTradeStatistics + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyForeignTradeStatistics) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyForeignTradeStatistics object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyForeignTradeStatistics, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyForeignTradeStatistics) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyForeignTradeStatistics Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyForeignTradeStatisticsEntryCustomsOffice Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _formerDecisions As String + + Private _vendor As FCFCDFBodyCustomsValueVendor + + Private _vendee As FCFCDFBodyCustomsValueVendee + + Private _affiliation As FCFCDFBodyCustomsValueAffiliation + + Private _restrictionOrCondition As FCFCDFBodyCustomsValueRestrictionOrCondition + + Private _licenseFee As FCFCDFBodyCustomsValueLicenseFee + + Private _resale As FCFCDFBodyCustomsValueResale + + Private Shared _serializerXml As XmlSerializer + #End Region + 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() + Me._resale = New FCFCDFBodyCustomsValueResale() + Me._licenseFee = New FCFCDFBodyCustomsValueLicenseFee() + Me._restrictionOrCondition = New FCFCDFBodyCustomsValueRestrictionOrCondition() + Me._affiliation = New FCFCDFBodyCustomsValueAffiliation() + Me._vendee = New FCFCDFBodyCustomsValueVendee() + Me._vendor = New FCFCDFBodyCustomsValueVendor() End Sub - + + _ Public Property FormerDecisions() As String Get - Return Me.formerDecisionsField + Return Me._formerDecisions End Get Set - Me.formerDecisionsField = Value + Me._formerDecisions = value End Set End Property - + + _ Public Property Vendor() As FCFCDFBodyCustomsValueVendor Get - Return Me.vendorField + Return Me._vendor End Get Set - Me.vendorField = Value + Me._vendor = value End Set End Property - + + _ Public Property Vendee() As FCFCDFBodyCustomsValueVendee Get - Return Me.vendeeField + Return Me._vendee End Get Set - Me.vendeeField = Value + Me._vendee = value End Set End Property - + + _ Public Property Affiliation() As FCFCDFBodyCustomsValueAffiliation Get - Return Me.affiliationField + Return Me._affiliation End Get Set - Me.affiliationField = Value + Me._affiliation = value End Set End Property - + + _ Public Property RestrictionOrCondition() As FCFCDFBodyCustomsValueRestrictionOrCondition Get - Return Me.restrictionOrConditionField + Return Me._restrictionOrCondition End Get Set - Me.restrictionOrConditionField = Value + Me._restrictionOrCondition = value End Set End Property - + + _ Public Property LicenseFee() As FCFCDFBodyCustomsValueLicenseFee Get - Return Me.licenseFeeField + Return Me._licenseFee End Get Set - Me.licenseFeeField = Value + Me._licenseFee = value End Set End Property - + + _ Public Property Resale() As FCFCDFBodyCustomsValueResale Get - Return Me.resaleField + Return Me._resale End Get Set - Me.resaleField = Value + Me._resale = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyCustomsValue)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyCustomsValue)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyCustomsValue object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyCustomsValue object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyCustomsValue object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyCustomsValue object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValue, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValue) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValue) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValue) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyCustomsValue + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyCustomsValue) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyCustomsValue + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyCustomsValue) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyCustomsValue object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyCustomsValue object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyCustomsValue, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValue) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValue, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyCustomsValue Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _identification As FCFCDFBodyCustomsValueVendorIdentification + + Private _name As String + + Private _address As FCFCDFBodyCustomsValueVendorAddress + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.addressField = New FCFCDFBodyCustomsValueVendorAddress() - Me.identificationField = New FCFCDFBodyCustomsValueVendorIdentification() + Me._address = New FCFCDFBodyCustomsValueVendorAddress() + Me._identification = New FCFCDFBodyCustomsValueVendorIdentification() End Sub - + + _ Public Property Identification() As FCFCDFBodyCustomsValueVendorIdentification Get - Return Me.identificationField + Return Me._identification End Get Set - Me.identificationField = Value + Me._identification = value End Set End Property - + + _ Public Property Name() As String Get - Return Me.nameField + Return Me._name End Get Set - Me.nameField = Value + Me._name = value End Set End Property - + + _ Public Property Address() As FCFCDFBodyCustomsValueVendorAddress Get - Return Me.addressField + Return Me._address End Get Set - Me.addressField = Value + Me._address = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyCustomsValueVendor)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyCustomsValueVendor)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyCustomsValueVendor object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyCustomsValueVendor object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyCustomsValueVendor object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyCustomsValueVendor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueVendor, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueVendor) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueVendor) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueVendor) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyCustomsValueVendor + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyCustomsValueVendor) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyCustomsValueVendor + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyCustomsValueVendor) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyCustomsValueVendor object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyCustomsValueVendor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyCustomsValueVendor, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueVendor) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueVendor, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyCustomsValueVendor Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyCustomsValueVendorIdentification)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyCustomsValueVendorIdentification)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyCustomsValueVendorIdentification object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyCustomsValueVendorIdentification object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyCustomsValueVendorIdentification object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyCustomsValueVendorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueVendorIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueVendorIdentification) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueVendorIdentification) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueVendorIdentification) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyCustomsValueVendorIdentification + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyCustomsValueVendorIdentification) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyCustomsValueVendorIdentification + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyCustomsValueVendorIdentification) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyCustomsValueVendorIdentification object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyCustomsValueVendorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyCustomsValueVendorIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueVendorIdentification) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueVendorIdentification, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyCustomsValueVendorIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Line() As String Get - Return Me.lineField + Return Me._line End Get Set - Me.lineField = Value + Me._line = value End Set End Property - + + _ Public Property Country() As String Get - Return Me.countryField + Return Me._country End Get Set - Me.countryField = Value + Me._country = value End Set End Property - + + _ Public Property Postcode() As String Get - Return Me.postcodeField + Return Me._postcode End Get Set - Me.postcodeField = Value + Me._postcode = value End Set End Property - + + _ Public Property City() As String Get - Return Me.cityField + Return Me._city End Get Set - Me.cityField = Value + Me._city = value End Set End Property - + + _ Public Property District() As String Get - Return Me.districtField + Return Me._district End Get Set - Me.districtField = Value + Me._district = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyCustomsValueVendorAddress)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyCustomsValueVendorAddress)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyCustomsValueVendorAddress object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyCustomsValueVendorAddress object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyCustomsValueVendorAddress object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyCustomsValueVendorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueVendorAddress, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueVendorAddress) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueVendorAddress) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueVendorAddress) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyCustomsValueVendorAddress + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyCustomsValueVendorAddress) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyCustomsValueVendorAddress + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyCustomsValueVendorAddress) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyCustomsValueVendorAddress object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyCustomsValueVendorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyCustomsValueVendorAddress, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueVendorAddress) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueVendorAddress, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyCustomsValueVendorAddress Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _identification As FCFCDFBodyCustomsValueVendeeIdentification + + Private _name As String + + Private _address As FCFCDFBodyCustomsValueVendeeAddress + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.addressField = New FCFCDFBodyCustomsValueVendeeAddress() - Me.identificationField = New FCFCDFBodyCustomsValueVendeeIdentification() + Me._address = New FCFCDFBodyCustomsValueVendeeAddress() + Me._identification = New FCFCDFBodyCustomsValueVendeeIdentification() End Sub - + + _ Public Property Identification() As FCFCDFBodyCustomsValueVendeeIdentification Get - Return Me.identificationField + Return Me._identification End Get Set - Me.identificationField = Value + Me._identification = value End Set End Property - + + _ Public Property Name() As String Get - Return Me.nameField + Return Me._name End Get Set - Me.nameField = Value + Me._name = value End Set End Property - + + _ Public Property Address() As FCFCDFBodyCustomsValueVendeeAddress Get - Return Me.addressField + Return Me._address End Get Set - Me.addressField = Value + Me._address = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyCustomsValueVendee)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyCustomsValueVendee)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyCustomsValueVendee object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyCustomsValueVendee object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyCustomsValueVendee object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyCustomsValueVendee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueVendee, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueVendee) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueVendee) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueVendee) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyCustomsValueVendee + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyCustomsValueVendee) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyCustomsValueVendee + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyCustomsValueVendee) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyCustomsValueVendee object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyCustomsValueVendee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyCustomsValueVendee, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueVendee) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueVendee, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyCustomsValueVendee Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyCustomsValueVendeeIdentification)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyCustomsValueVendeeIdentification)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyCustomsValueVendeeIdentification object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyCustomsValueVendeeIdentification object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyCustomsValueVendeeIdentification object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyCustomsValueVendeeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueVendeeIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueVendeeIdentification) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueVendeeIdentification) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueVendeeIdentification) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyCustomsValueVendeeIdentification + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyCustomsValueVendeeIdentification) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyCustomsValueVendeeIdentification + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyCustomsValueVendeeIdentification) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyCustomsValueVendeeIdentification object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyCustomsValueVendeeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyCustomsValueVendeeIdentification, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueVendeeIdentification) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueVendeeIdentification, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyCustomsValueVendeeIdentification Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Line() As String Get - Return Me.lineField + Return Me._line End Get Set - Me.lineField = Value + Me._line = value End Set End Property - + + _ Public Property Country() As String Get - Return Me.countryField + Return Me._country End Get Set - Me.countryField = Value + Me._country = value End Set End Property - + + _ Public Property Postcode() As String Get - Return Me.postcodeField + Return Me._postcode End Get Set - Me.postcodeField = Value + Me._postcode = value End Set End Property - + + _ Public Property City() As String Get - Return Me.cityField + Return Me._city End Get Set - Me.cityField = Value + Me._city = value End Set End Property - + + _ Public Property District() As String Get - Return Me.districtField + Return Me._district End Get Set - Me.districtField = Value + Me._district = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyCustomsValueVendeeAddress)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyCustomsValueVendeeAddress)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyCustomsValueVendeeAddress object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyCustomsValueVendeeAddress object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyCustomsValueVendeeAddress object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyCustomsValueVendeeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueVendeeAddress, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueVendeeAddress) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueVendeeAddress) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueVendeeAddress) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyCustomsValueVendeeAddress + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyCustomsValueVendeeAddress) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyCustomsValueVendeeAddress + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyCustomsValueVendeeAddress) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyCustomsValueVendeeAddress object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyCustomsValueVendeeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyCustomsValueVendeeAddress, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueVendeeAddress) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueVendeeAddress, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyCustomsValueVendeeAddress Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _type As String + + Private _description As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Type() As String Get - Return Me.typeField + Return Me._type End Get Set - Me.typeField = Value + Me._type = value End Set End Property - + + _ Public Property Description() As String Get - Return Me.descriptionField + Return Me._description End Get Set - Me.descriptionField = Value + Me._description = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyCustomsValueAffiliation)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyCustomsValueAffiliation)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyCustomsValueAffiliation object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyCustomsValueAffiliation object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyCustomsValueAffiliation object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyCustomsValueAffiliation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueAffiliation, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueAffiliation) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueAffiliation) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueAffiliation) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyCustomsValueAffiliation + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyCustomsValueAffiliation) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyCustomsValueAffiliation + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyCustomsValueAffiliation) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyCustomsValueAffiliation object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyCustomsValueAffiliation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyCustomsValueAffiliation, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueAffiliation) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueAffiliation, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyCustomsValueAffiliation Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _restrictionFlag As String + + Private _conditionFlag As String + + Private _description As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property RestrictionFlag() As String Get - Return Me.restrictionFlagField + Return Me._restrictionFlag End Get Set - Me.restrictionFlagField = Value + Me._restrictionFlag = value End Set End Property - + + _ Public Property ConditionFlag() As String Get - Return Me.conditionFlagField + Return Me._conditionFlag End Get Set - Me.conditionFlagField = Value + Me._conditionFlag = value End Set End Property - + + _ Public Property Description() As String Get - Return Me.descriptionField + Return Me._description End Get Set - Me.descriptionField = Value + Me._description = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyCustomsValueRestrictionOrCondition)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyCustomsValueRestrictionOrCondition)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyCustomsValueRestrictionOrCondition object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyCustomsValueRestrictionOrCondition object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyCustomsValueRestrictionOrCondition object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyCustomsValueRestrictionOrCondition object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueRestrictionOrCondition, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueRestrictionOrCondition) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueRestrictionOrCondition) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueRestrictionOrCondition) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyCustomsValueRestrictionOrCondition + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyCustomsValueRestrictionOrCondition) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyCustomsValueRestrictionOrCondition + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyCustomsValueRestrictionOrCondition) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyCustomsValueRestrictionOrCondition object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyCustomsValueRestrictionOrCondition object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyCustomsValueRestrictionOrCondition, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueRestrictionOrCondition) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueRestrictionOrCondition, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyCustomsValueRestrictionOrCondition Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _licenseFeeFlag As String + + Private _description As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property LicenseFeeFlag() As String Get - Return Me.licenseFeeFlagField + Return Me._licenseFeeFlag End Get Set - Me.licenseFeeFlagField = Value + Me._licenseFeeFlag = value End Set End Property - + + _ Public Property Description() As String Get - Return Me.descriptionField + Return Me._description End Get Set - Me.descriptionField = Value + Me._description = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyCustomsValueLicenseFee)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyCustomsValueLicenseFee)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyCustomsValueLicenseFee object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyCustomsValueLicenseFee object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyCustomsValueLicenseFee object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyCustomsValueLicenseFee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueLicenseFee, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueLicenseFee) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueLicenseFee) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueLicenseFee) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyCustomsValueLicenseFee + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyCustomsValueLicenseFee) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyCustomsValueLicenseFee + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyCustomsValueLicenseFee) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyCustomsValueLicenseFee object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyCustomsValueLicenseFee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyCustomsValueLicenseFee, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueLicenseFee) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueLicenseFee, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyCustomsValueLicenseFee Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _resaleFlag As String + + Private _description As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ResaleFlag() As String Get - Return Me.resaleFlagField + Return Me._resaleFlag End Get Set - Me.resaleFlagField = Value + Me._resaleFlag = value End Set End Property - + + _ Public Property Description() As String Get - Return Me.descriptionField + Return Me._description End Get Set - Me.descriptionField = Value + Me._description = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyCustomsValueResale)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyCustomsValueResale)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyCustomsValueResale object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyCustomsValueResale object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyCustomsValueResale object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyCustomsValueResale object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueResale, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueResale) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyCustomsValueResale) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyCustomsValueResale) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyCustomsValueResale + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyCustomsValueResale) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyCustomsValueResale + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyCustomsValueResale) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyCustomsValueResale object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyCustomsValueResale object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyCustomsValueResale, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyCustomsValueResale) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyCustomsValueResale, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyCustomsValueResale Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _division As FCFCDFBodyDocumentDivision + + Private _type As String + + Private _referenceNumber As String + + Private _issuingDate As Date + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Division() As FCFCDFBodyDocumentDivision Get - Return Me.divisionField + Return Me._division End Get Set - Me.divisionField = Value + Me._division = value End Set End Property - + + _ Public Property Type() As String Get - Return Me.typeField + Return Me._type End Get Set - Me.typeField = Value + Me._type = value End Set End Property - + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - + + _ Public Property IssuingDate() As Date Get - Return Me.issuingDateField + Return Me._issuingDate End Get Set - Me.issuingDateField = Value + Me._issuingDate = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyDocument)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyDocument)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyDocument object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyDocument object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyDocument object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyDocument, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyDocument) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyDocument) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyDocument) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyDocument + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyDocument) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyDocument + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyDocument) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyDocument object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyDocument, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyDocument) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyDocument, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyDocument Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _sequenceNumber As String + + Private _procedure As FCFCDFBodyGoodsItemProcedure + + Private _cessionManagementFlag As String + + Private _goodsDescription As String + + Private _invoiceAmount As Decimal + + Private _netMassMeasure As Decimal + + Private _tobaccoRevenueStampNumber As String + + Private _originCountry As String + + Private _preferentialOriginCountry As String + + Private _supplementaryInformation As String + + Private _condition As String + + Private _commodityCode As FCFCDFBodyGoodsItemCommodityCode + + Private _additionalProcedure As List(Of FCFCDFBodyGoodsItemAdditionalProcedure) + + Private _supplementaryCodes As List(Of FCFCDFBodyGoodsItemSupplementaryCodes) + + Private _package As FCFCDFBodyGoodsItemPackage + + Private _foreignTradeStatistics As FCFCDFBodyGoodsItemForeignTradeStatistics + + Private _customsValue As FCFCDFBodyGoodsItemCustomsValue + + Private _assessment As FCFCDFBodyGoodsItemAssessment + + Private _exciseDuty As List(Of FCFCDFBodyGoodsItemExciseDuty) + + Private _preferentialTreatment As FCFCDFBodyGoodsItemPreferentialTreatment + + Private _specialCase As List(Of FCFCDFBodyGoodsItemSpecialCase) + + Private _document As List(Of FCFCDFBodyGoodsItemDocument) + + Private Shared _serializerXml As XmlSerializer + #End Region + 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() + Me._document = New List(Of FCFCDFBodyGoodsItemDocument)() + Me._specialCase = New List(Of FCFCDFBodyGoodsItemSpecialCase)() + Me._preferentialTreatment = New FCFCDFBodyGoodsItemPreferentialTreatment() + Me._exciseDuty = New List(Of FCFCDFBodyGoodsItemExciseDuty)() + Me._assessment = New FCFCDFBodyGoodsItemAssessment() + Me._customsValue = New FCFCDFBodyGoodsItemCustomsValue() + Me._foreignTradeStatistics = New FCFCDFBodyGoodsItemForeignTradeStatistics() + Me._package = New FCFCDFBodyGoodsItemPackage() + Me._supplementaryCodes = New List(Of FCFCDFBodyGoodsItemSupplementaryCodes)() + Me._additionalProcedure = New List(Of FCFCDFBodyGoodsItemAdditionalProcedure)() + Me._commodityCode = New FCFCDFBodyGoodsItemCommodityCode() + Me._procedure = New FCFCDFBodyGoodsItemProcedure() End Sub - + + _ Public Property SequenceNumber() As String Get - Return Me.sequenceNumberField + Return Me._sequenceNumber End Get Set - Me.sequenceNumberField = Value + Me._sequenceNumber = value End Set End Property - + + _ Public Property Procedure() As FCFCDFBodyGoodsItemProcedure Get - Return Me.procedureField + Return Me._procedure End Get Set - Me.procedureField = Value + Me._procedure = value End Set End Property - + + _ Public Property CessionManagementFlag() As String Get - Return Me.cessionManagementFlagField + Return Me._cessionManagementFlag End Get Set - Me.cessionManagementFlagField = Value + Me._cessionManagementFlag = value End Set End Property - + + _ Public Property GoodsDescription() As String Get - Return Me.goodsDescriptionField + Return Me._goodsDescription End Get Set - Me.goodsDescriptionField = Value + Me._goodsDescription = value End Set End Property - + + _ Public Property InvoiceAmount() As Decimal Get - Return Me.invoiceAmountField + Return Me._invoiceAmount End Get Set - Me.invoiceAmountField = Value + Me._invoiceAmount = value End Set End Property - + + _ Public Property NetMassMeasure() As Decimal Get - Return Me.netMassMeasureField + Return Me._netMassMeasure End Get Set - Me.netMassMeasureField = Value + Me._netMassMeasure = value End Set End Property - + + _ Public Property TobaccoRevenueStampNumber() As String Get - Return Me.tobaccoRevenueStampNumberField + Return Me._tobaccoRevenueStampNumber End Get Set - Me.tobaccoRevenueStampNumberField = Value + Me._tobaccoRevenueStampNumber = value End Set End Property - + + _ Public Property OriginCountry() As String Get - Return Me.originCountryField + Return Me._originCountry End Get Set - Me.originCountryField = Value + Me._originCountry = value End Set End Property - + + _ Public Property PreferentialOriginCountry() As String Get - Return Me.preferentialOriginCountryField + Return Me._preferentialOriginCountry End Get Set - Me.preferentialOriginCountryField = Value + Me._preferentialOriginCountry = value End Set End Property - + + _ Public Property SupplementaryInformation() As String Get - Return Me.supplementaryInformationField + Return Me._supplementaryInformation End Get Set - Me.supplementaryInformationField = Value + Me._supplementaryInformation = value End Set End Property - + + _ Public Property Condition() As String Get - Return Me.conditionField + Return Me._condition End Get Set - Me.conditionField = Value + Me._condition = value End Set End Property - + + _ Public Property CommodityCode() As FCFCDFBodyGoodsItemCommodityCode Get - Return Me.commodityCodeField + Return Me._commodityCode End Get Set - Me.commodityCodeField = Value + Me._commodityCode = value End Set End Property - + + _ Public Property AdditionalProcedure() As List(Of FCFCDFBodyGoodsItemAdditionalProcedure) Get - Return Me.additionalProcedureField + Return Me._additionalProcedure End Get Set - Me.additionalProcedureField = Value + Me._additionalProcedure = value End Set End Property - + + _ Public Property SupplementaryCodes() As List(Of FCFCDFBodyGoodsItemSupplementaryCodes) Get - Return Me.supplementaryCodesField + Return Me._supplementaryCodes End Get Set - Me.supplementaryCodesField = Value + Me._supplementaryCodes = value End Set End Property - + + _ Public Property Package() As FCFCDFBodyGoodsItemPackage Get - Return Me.packageField + Return Me._package End Get Set - Me.packageField = Value + Me._package = value End Set End Property - + + _ Public Property ForeignTradeStatistics() As FCFCDFBodyGoodsItemForeignTradeStatistics Get - Return Me.foreignTradeStatisticsField + Return Me._foreignTradeStatistics End Get Set - Me.foreignTradeStatisticsField = Value + Me._foreignTradeStatistics = value End Set End Property - + + _ Public Property CustomsValue() As FCFCDFBodyGoodsItemCustomsValue Get - Return Me.customsValueField + Return Me._customsValue End Get Set - Me.customsValueField = Value + Me._customsValue = value End Set End Property - + + _ Public Property Assessment() As FCFCDFBodyGoodsItemAssessment Get - Return Me.assessmentField + Return Me._assessment End Get Set - Me.assessmentField = Value + Me._assessment = value End Set End Property - + + _ Public Property ExciseDuty() As List(Of FCFCDFBodyGoodsItemExciseDuty) Get - Return Me.exciseDutyField + Return Me._exciseDuty End Get Set - Me.exciseDutyField = Value + Me._exciseDuty = value End Set End Property - + + _ Public Property PreferentialTreatment() As FCFCDFBodyGoodsItemPreferentialTreatment Get - Return Me.preferentialTreatmentField + Return Me._preferentialTreatment End Get Set - Me.preferentialTreatmentField = Value + Me._preferentialTreatment = value End Set End Property - + + _ Public Property SpecialCase() As List(Of FCFCDFBodyGoodsItemSpecialCase) Get - Return Me.specialCaseField + Return Me._specialCase End Get Set - Me.specialCaseField = Value + Me._specialCase = value End Set End Property - + + _ Public Property Document() As List(Of FCFCDFBodyGoodsItemDocument) Get - Return Me.documentField + Return Me._document End Get Set - Me.documentField = Value + Me._document = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItem)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItem)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItem object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItem object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItem object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItem) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItem) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItem) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItem + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItem) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItem + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItem) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItem object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItem) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItem, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItem Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _requestedPreviousProcedure As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property RequestedPreviousProcedure() As String Get - Return Me.requestedPreviousProcedureField + Return Me._requestedPreviousProcedure End Get Set - Me.requestedPreviousProcedureField = Value + Me._requestedPreviousProcedure = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemProcedure)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemProcedure)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemProcedure object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemProcedure object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemProcedure object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemProcedure object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemProcedure, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemProcedure) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemProcedure) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemProcedure) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemProcedure + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemProcedure) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemProcedure + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemProcedure) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemProcedure object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemProcedure object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemProcedure, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemProcedure) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemProcedure, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemProcedure Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _commodityCode As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property CommodityCode() As String Get - Return Me.commodityCodeField + Return Me._commodityCode End Get Set - Me.commodityCodeField = Value + Me._commodityCode = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemCommodityCode)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemCommodityCode)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemCommodityCode object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemCommodityCode object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemCommodityCode object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemCommodityCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemCommodityCode) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemCommodityCode) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemCommodityCode) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemCommodityCode + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemCommodityCode) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemCommodityCode + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemCommodityCode) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemCommodityCode object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemCommodityCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemCommodityCode) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemCommodityCode Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _code As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Code() As String Get - Return Me.codeField + Return Me._code End Get Set - Me.codeField = Value + Me._code = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemAdditionalProcedure)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemAdditionalProcedure)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemAdditionalProcedure object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemAdditionalProcedure object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemAdditionalProcedure object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemAdditionalProcedure object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemAdditionalProcedure, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemAdditionalProcedure) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemAdditionalProcedure) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemAdditionalProcedure) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemAdditionalProcedure + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemAdditionalProcedure) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemAdditionalProcedure + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemAdditionalProcedure) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemAdditionalProcedure object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemAdditionalProcedure object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemAdditionalProcedure, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemAdditionalProcedure) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemAdditionalProcedure, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemAdditionalProcedure Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _code As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Code() As String Get - Return Me.codeField + Return Me._code End Get Set - Me.codeField = Value + Me._code = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemSupplementaryCodes)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemSupplementaryCodes)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemSupplementaryCodes object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemSupplementaryCodes object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemSupplementaryCodes object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemSupplementaryCodes object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemSupplementaryCodes, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemSupplementaryCodes) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemSupplementaryCodes) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemSupplementaryCodes) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemSupplementaryCodes + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemSupplementaryCodes) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemSupplementaryCodes + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemSupplementaryCodes) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemSupplementaryCodes object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemSupplementaryCodes object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemSupplementaryCodes, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemSupplementaryCodes) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemSupplementaryCodes, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemSupplementaryCodes Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _kind As String + + Private _quantity As String + + Private _marksNumbers As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Kind() As String Get - Return Me.kindField + Return Me._kind End Get Set - Me.kindField = Value + Me._kind = value End Set End Property - + + _ Public Property Quantity() As String Get - Return Me.quantityField + Return Me._quantity End Get Set - Me.quantityField = Value + Me._quantity = value End Set End Property - + + _ Public Property MarksNumbers() As String Get - Return Me.marksNumbersField + Return Me._marksNumbers End Get Set - Me.marksNumbersField = Value + Me._marksNumbers = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemPackage)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemPackage)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemPackage object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemPackage object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemPackage object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemPackage object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemPackage, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemPackage) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemPackage) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemPackage) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemPackage + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemPackage) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemPackage + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemPackage) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemPackage object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemPackage object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemPackage, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemPackage) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemPackage, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemPackage Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _quantity As String + + Private _grossMassMeasure As Decimal + + Private _amount As FCFCDFBodyGoodsItemForeignTradeStatisticsAmount + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.amountField = New FCFCDFBodyGoodsItemForeignTradeStatisticsAmount() + Me._amount = New FCFCDFBodyGoodsItemForeignTradeStatisticsAmount() End Sub - + + _ Public Property Quantity() As String Get - Return Me.quantityField + Return Me._quantity End Get Set - Me.quantityField = Value + Me._quantity = value End Set End Property - + + _ Public Property GrossMassMeasure() As Decimal Get - Return Me.grossMassMeasureField + Return Me._grossMassMeasure End Get Set - Me.grossMassMeasureField = Value + Me._grossMassMeasure = 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 + Return Me._amount End Get Set - Me.amountField = Value + Me._amount = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemForeignTradeStatistics)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemForeignTradeStatistics)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemForeignTradeStatistics object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemForeignTradeStatistics object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemForeignTradeStatistics object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemForeignTradeStatistics) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemForeignTradeStatistics) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemForeignTradeStatistics) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemForeignTradeStatistics + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemForeignTradeStatistics) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemForeignTradeStatistics + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemForeignTradeStatistics) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemForeignTradeStatistics object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemForeignTradeStatistics) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemForeignTradeStatistics Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Quantity() As Decimal Get - Return Me.quantityField + Return Me._quantity End Get Set - Me.quantityField = Value + Me._quantity = value End Set End Property - + + _ Public Property MeasurementUnit() As String Get - Return Me.measurementUnitField + Return Me._measurementUnit End Get Set - Me.measurementUnitField = Value + Me._measurementUnit = value End Set End Property - + + _ Public Property Qualifier() As String Get - Return Me.qualifierField + Return Me._qualifier End Get Set - Me.qualifierField = Value + Me._qualifier = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemForeignTradeStatisticsAmount)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemForeignTradeStatisticsAmount)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemForeignTradeStatisticsAmount object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemForeignTradeStatisticsAmount object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemForeignTradeStatisticsAmount object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemForeignTradeStatisticsAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemForeignTradeStatisticsAmount, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemForeignTradeStatisticsAmount) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemForeignTradeStatisticsAmount) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemForeignTradeStatisticsAmount) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemForeignTradeStatisticsAmount + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemForeignTradeStatisticsAmount) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemForeignTradeStatisticsAmount + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemForeignTradeStatisticsAmount) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemForeignTradeStatisticsAmount object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemForeignTradeStatisticsAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemForeignTradeStatisticsAmount, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemForeignTradeStatisticsAmount) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemForeignTradeStatisticsAmount, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemForeignTradeStatisticsAmount Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _departureAirport As String + + Private _destinationPlace As String + + Private _additionDeductionDescription As String + + Private _netPrice As FCFCDFBodyGoodsItemCustomsValueNetPrice + + Private _indirectPayment As FCFCDFBodyGoodsItemCustomsValueIndirectPayment + + Private _airFreightCosts As FCFCDFBodyGoodsItemCustomsValueAirFreightCosts + + Private _additionDeduction As List(Of FCFCDFBodyGoodsItemCustomsValueAdditionDeduction) + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.additionDeductionField = New List(Of FCFCDFBodyGoodsItemCustomsValueAdditionDeduction)() - Me.airFreightCostsField = New FCFCDFBodyGoodsItemCustomsValueAirFreightCosts() - Me.indirectPaymentField = New FCFCDFBodyGoodsItemCustomsValueIndirectPayment() - Me.netPriceField = New FCFCDFBodyGoodsItemCustomsValueNetPrice() + Me._additionDeduction = New List(Of FCFCDFBodyGoodsItemCustomsValueAdditionDeduction)() + Me._airFreightCosts = New FCFCDFBodyGoodsItemCustomsValueAirFreightCosts() + Me._indirectPayment = New FCFCDFBodyGoodsItemCustomsValueIndirectPayment() + Me._netPrice = New FCFCDFBodyGoodsItemCustomsValueNetPrice() End Sub - + + _ Public Property DepartureAirport() As String Get - Return Me.departureAirportField + Return Me._departureAirport End Get Set - Me.departureAirportField = Value + Me._departureAirport = value End Set End Property - + + _ Public Property DestinationPlace() As String Get - Return Me.destinationPlaceField + Return Me._destinationPlace End Get Set - Me.destinationPlaceField = Value + Me._destinationPlace = value End Set End Property - + + _ Public Property AdditionDeductionDescription() As String Get - Return Me.additionDeductionDescriptionField + Return Me._additionDeductionDescription End Get Set - Me.additionDeductionDescriptionField = Value + Me._additionDeductionDescription = value End Set End Property - + + _ Public Property NetPrice() As FCFCDFBodyGoodsItemCustomsValueNetPrice Get - Return Me.netPriceField + Return Me._netPrice End Get Set - Me.netPriceField = Value + Me._netPrice = value End Set End Property - + + _ Public Property IndirectPayment() As FCFCDFBodyGoodsItemCustomsValueIndirectPayment Get - Return Me.indirectPaymentField + Return Me._indirectPayment End Get Set - Me.indirectPaymentField = Value + Me._indirectPayment = value End Set End Property - + + _ Public Property AirFreightCosts() As FCFCDFBodyGoodsItemCustomsValueAirFreightCosts Get - Return Me.airFreightCostsField + Return Me._airFreightCosts End Get Set - Me.airFreightCostsField = Value + Me._airFreightCosts = value End Set End Property - + + _ Public Property AdditionDeduction() As List(Of FCFCDFBodyGoodsItemCustomsValueAdditionDeduction) Get - Return Me.additionDeductionField + Return Me._additionDeduction End Get Set - Me.additionDeductionField = Value + Me._additionDeduction = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemCustomsValue)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemCustomsValue)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemCustomsValue object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemCustomsValue object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemCustomsValue object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemCustomsValue object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValue, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValue) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValue) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValue) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemCustomsValue + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemCustomsValue) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemCustomsValue + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemCustomsValue) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemCustomsValue object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemCustomsValue object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemCustomsValue, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValue) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValue, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemCustomsValue Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _value As Decimal + + Private _currencyCode As String + + Private _currencyRateAgreedFlag As String + + Private _currencyRate As Decimal + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Value() As Decimal Get - Return Me.valueField + Return Me._value End Get Set - Me.valueField = Value + Me._value = value End Set End Property - + + _ Public Property CurrencyCode() As String Get - Return Me.currencyCodeField + Return Me._currencyCode End Get Set - Me.currencyCodeField = Value + Me._currencyCode = value End Set End Property - + + _ Public Property CurrencyRateAgreedFlag() As String Get - Return Me.currencyRateAgreedFlagField + Return Me._currencyRateAgreedFlag End Get Set - Me.currencyRateAgreedFlagField = Value + Me._currencyRateAgreedFlag = value End Set End Property - + + _ Public Property CurrencyRate() As Decimal Get - Return Me.currencyRateField + Return Me._currencyRate End Get Set - Me.currencyRateField = Value + Me._currencyRate = value End Set End Property - - - Public Property CurrencyRateSpecified() As Boolean + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemCustomsValueNetPrice)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemCustomsValueNetPrice object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemCustomsValueNetPrice object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemCustomsValueNetPrice object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemCustomsValueNetPrice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueNetPrice, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValueNetPrice) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueNetPrice) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueNetPrice) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemCustomsValueNetPrice + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemCustomsValueNetPrice) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemCustomsValueNetPrice + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemCustomsValueNetPrice) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemCustomsValueNetPrice object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemCustomsValueNetPrice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemCustomsValueNetPrice, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValueNetPrice) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueNetPrice, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemCustomsValueNetPrice Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _value As Decimal + + Private _currencyCode As String + + Private _currencyRateAgreedFlag As String + + Private _currencyRate As Decimal + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Value() As Decimal Get - Return Me.valueField + Return Me._value End Get Set - Me.valueField = Value + Me._value = value End Set End Property - + + _ Public Property CurrencyCode() As String Get - Return Me.currencyCodeField + Return Me._currencyCode End Get Set - Me.currencyCodeField = Value + Me._currencyCode = value End Set End Property - + + _ Public Property CurrencyRateAgreedFlag() As String Get - Return Me.currencyRateAgreedFlagField + Return Me._currencyRateAgreedFlag End Get Set - Me.currencyRateAgreedFlagField = Value + Me._currencyRateAgreedFlag = value End Set End Property - + + _ Public Property CurrencyRate() As Decimal Get - Return Me.currencyRateField + Return Me._currencyRate End Get Set - Me.currencyRateField = Value + Me._currencyRate = value End Set End Property - - - Public Property CurrencyRateSpecified() As Boolean + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemCustomsValueIndirectPayment)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemCustomsValueIndirectPayment object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemCustomsValueIndirectPayment object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemCustomsValueIndirectPayment object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemCustomsValueIndirectPayment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueIndirectPayment, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValueIndirectPayment) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueIndirectPayment) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueIndirectPayment) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemCustomsValueIndirectPayment + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemCustomsValueIndirectPayment) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemCustomsValueIndirectPayment + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemCustomsValueIndirectPayment) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemCustomsValueIndirectPayment object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemCustomsValueIndirectPayment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemCustomsValueIndirectPayment, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValueIndirectPayment) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueIndirectPayment, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemCustomsValueIndirectPayment Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _value As Decimal + + Private _currencyCode As String + + Private _currencyRateIATA As String + + Private _currencyRateAgreedFlag As String + + Private _currencyRate As Decimal + + Private _currencyRateDate As Date + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Value() As Decimal Get - Return Me.valueField + Return Me._value End Get Set - Me.valueField = Value + Me._value = value End Set End Property - + + _ Public Property CurrencyCode() As String Get - Return Me.currencyCodeField + Return Me._currencyCode End Get Set - Me.currencyCodeField = Value + Me._currencyCode = value End Set End Property - + + _ Public Property CurrencyRateIATA() As String Get - Return Me.currencyRateIATAField + Return Me._currencyRateIATA End Get Set - Me.currencyRateIATAField = Value + Me._currencyRateIATA = value End Set End Property - + + _ Public Property CurrencyRateAgreedFlag() As String Get - Return Me.currencyRateAgreedFlagField + Return Me._currencyRateAgreedFlag End Get Set - Me.currencyRateAgreedFlagField = Value + Me._currencyRateAgreedFlag = value End Set End Property - + + _ Public Property CurrencyRate() As Decimal Get - Return Me.currencyRateField + Return Me._currencyRate End Get Set - Me.currencyRateField = Value + Me._currencyRate = 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 + Return Me._currencyRateDate End Get Set - Me.currencyRateDateField = Value + Me._currencyRateDate = value End Set End Property - - - Public Property CurrencyRateDateSpecified() As Boolean + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemCustomsValueAirFreightCosts)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemCustomsValueAirFreightCosts object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemCustomsValueAirFreightCosts object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemCustomsValueAirFreightCosts object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemCustomsValueAirFreightCosts object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueAirFreightCosts, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValueAirFreightCosts) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueAirFreightCosts) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueAirFreightCosts) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemCustomsValueAirFreightCosts + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemCustomsValueAirFreightCosts) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemCustomsValueAirFreightCosts + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemCustomsValueAirFreightCosts) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemCustomsValueAirFreightCosts object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemCustomsValueAirFreightCosts object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemCustomsValueAirFreightCosts, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValueAirFreightCosts) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueAirFreightCosts, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemCustomsValueAirFreightCosts Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _type As String + + Private _value As Decimal + + Private _currencyCode As String + + Private _currencyRateIATA As String + + Private _currencyRateAgreedFlag As String + + Private _currencyRate As Decimal + + Private _currencyRateDate As Date + + Private _percentage As Decimal + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Type() As String Get - Return Me.typeField + Return Me._type End Get Set - Me.typeField = Value + Me._type = value End Set End Property - + + _ Public Property Value() As Decimal Get - Return Me.valueField + Return Me._value End Get Set - Me.valueField = Value + Me._value = value End Set End Property - + + _ Public Property CurrencyCode() As String Get - Return Me.currencyCodeField + Return Me._currencyCode End Get Set - Me.currencyCodeField = Value + Me._currencyCode = value End Set End Property - + + _ Public Property CurrencyRateIATA() As String Get - Return Me.currencyRateIATAField + Return Me._currencyRateIATA End Get Set - Me.currencyRateIATAField = Value + Me._currencyRateIATA = value End Set End Property - + + _ Public Property CurrencyRateAgreedFlag() As String Get - Return Me.currencyRateAgreedFlagField + Return Me._currencyRateAgreedFlag End Get Set - Me.currencyRateAgreedFlagField = Value + Me._currencyRateAgreedFlag = value End Set End Property - + + _ Public Property CurrencyRate() As Decimal Get - Return Me.currencyRateField + Return Me._currencyRate End Get Set - Me.currencyRateField = Value + Me._currencyRate = 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 + Return Me._currencyRateDate End Get Set - Me.currencyRateDateField = Value + Me._currencyRateDate = 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 + Return Me._percentage End Get Set - Me.percentageField = Value + Me._percentage = value End Set End Property - - - Public Property PercentageSpecified() As Boolean + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemCustomsValueAdditionDeduction)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemCustomsValueAdditionDeduction object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemCustomsValueAdditionDeduction object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemCustomsValueAdditionDeduction object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemCustomsValueAdditionDeduction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueAdditionDeduction, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValueAdditionDeduction) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueAdditionDeduction) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueAdditionDeduction) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemCustomsValueAdditionDeduction + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemCustomsValueAdditionDeduction) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemCustomsValueAdditionDeduction + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemCustomsValueAdditionDeduction) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemCustomsValueAdditionDeduction object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemCustomsValueAdditionDeduction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemCustomsValueAdditionDeduction, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemCustomsValueAdditionDeduction) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemCustomsValueAdditionDeduction, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemCustomsValueAdditionDeduction Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _customsValue As Decimal + + Private _outwardProcessingFee As Decimal + + Private _taxCosts As Decimal + + Private _amount As List(Of FCFCDFBodyGoodsItemAssessmentAmount) + + Private _specificRate As List(Of FCFCDFBodyGoodsItemAssessmentSpecificRate) + + Private _contentInformation As List(Of FCFCDFBodyGoodsItemAssessmentContentInformation) + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.contentInformationField = New List(Of FCFCDFBodyGoodsItemAssessmentContentInformation)() - Me.specificRateField = New List(Of FCFCDFBodyGoodsItemAssessmentSpecificRate)() - Me.amountField = New List(Of FCFCDFBodyGoodsItemAssessmentAmount)() + Me._contentInformation = New List(Of FCFCDFBodyGoodsItemAssessmentContentInformation)() + Me._specificRate = New List(Of FCFCDFBodyGoodsItemAssessmentSpecificRate)() + Me._amount = New List(Of FCFCDFBodyGoodsItemAssessmentAmount)() End Sub - + + _ Public Property CustomsValue() As Decimal Get - Return Me.customsValueField + Return Me._customsValue End Get Set - Me.customsValueField = Value + Me._customsValue = 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 + Return Me._outwardProcessingFee End Get Set - Me.outwardProcessingFeeField = Value + Me._outwardProcessingFee = 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 + Return Me._taxCosts End Get Set - Me.taxCostsField = Value + Me._taxCosts = 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 + Return Me._amount End Get Set - Me.amountField = Value + Me._amount = value End Set End Property - + + _ Public Property SpecificRate() As List(Of FCFCDFBodyGoodsItemAssessmentSpecificRate) Get - Return Me.specificRateField + Return Me._specificRate End Get Set - Me.specificRateField = Value + Me._specificRate = value End Set End Property - + + _ Public Property ContentInformation() As List(Of FCFCDFBodyGoodsItemAssessmentContentInformation) Get - Return Me.contentInformationField + Return Me._contentInformation End Get Set - Me.contentInformationField = Value + Me._contentInformation = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemAssessment)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemAssessment)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemAssessment object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemAssessment object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemAssessment object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemAssessment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemAssessment, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemAssessment) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemAssessment) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemAssessment) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemAssessment + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemAssessment) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemAssessment + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemAssessment) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemAssessment object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemAssessment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemAssessment, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemAssessment) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemAssessment, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemAssessment Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Quantity() As Decimal Get - Return Me.quantityField + Return Me._quantity End Get Set - Me.quantityField = Value + Me._quantity = value End Set End Property - + + _ Public Property MeasurementUnit() As String Get - Return Me.measurementUnitField + Return Me._measurementUnit End Get Set - Me.measurementUnitField = Value + Me._measurementUnit = value End Set End Property - + + _ Public Property Qualifier() As String Get - Return Me.qualifierField + Return Me._qualifier End Get Set - Me.qualifierField = Value + Me._qualifier = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemAssessmentAmount)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemAssessmentAmount)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemAssessmentAmount object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemAssessmentAmount object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemAssessmentAmount object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemAssessmentAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentAmount, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemAssessmentAmount) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentAmount) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentAmount) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemAssessmentAmount + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemAssessmentAmount) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemAssessmentAmount + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemAssessmentAmount) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemAssessmentAmount object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemAssessmentAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemAssessmentAmount, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemAssessmentAmount) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentAmount, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemAssessmentAmount Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _type As String + + Private _value As Decimal + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Type() As String Get - Return Me.typeField + Return Me._type End Get Set - Me.typeField = Value + Me._type = value End Set End Property - + + _ Public Property Value() As Decimal Get - Return Me.valueField + Return Me._value End Get Set - Me.valueField = Value + Me._value = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemAssessmentSpecificRate)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemAssessmentSpecificRate)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemAssessmentSpecificRate object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemAssessmentSpecificRate object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemAssessmentSpecificRate object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemAssessmentSpecificRate object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentSpecificRate, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemAssessmentSpecificRate) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentSpecificRate) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentSpecificRate) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemAssessmentSpecificRate + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemAssessmentSpecificRate) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemAssessmentSpecificRate + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemAssessmentSpecificRate) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemAssessmentSpecificRate object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemAssessmentSpecificRate object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemAssessmentSpecificRate, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemAssessmentSpecificRate) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentSpecificRate, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemAssessmentSpecificRate Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _type As String + + Private _degreePercentage As Decimal + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Type() As String Get - Return Me.typeField + Return Me._type End Get Set - Me.typeField = Value + Me._type = value End Set End Property - + + _ Public Property DegreePercentage() As Decimal Get - Return Me.degreePercentageField + Return Me._degreePercentage End Get Set - Me.degreePercentageField = Value + Me._degreePercentage = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemAssessmentContentInformation)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemAssessmentContentInformation)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemAssessmentContentInformation object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemAssessmentContentInformation object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemAssessmentContentInformation object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemAssessmentContentInformation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentContentInformation, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemAssessmentContentInformation) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentContentInformation) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentContentInformation) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemAssessmentContentInformation + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemAssessmentContentInformation) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemAssessmentContentInformation + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemAssessmentContentInformation) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemAssessmentContentInformation object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemAssessmentContentInformation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemAssessmentContentInformation, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemAssessmentContentInformation) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemAssessmentContentInformation, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemAssessmentContentInformation Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _code As String + + Private _degreePercentage As Decimal + + Private _value As Decimal + + Private _amount As FCFCDFBodyGoodsItemExciseDutyAmount + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.amountField = New FCFCDFBodyGoodsItemExciseDutyAmount() + Me._amount = New FCFCDFBodyGoodsItemExciseDutyAmount() End Sub - + + _ Public Property Code() As String Get - Return Me.codeField + Return Me._code End Get Set - Me.codeField = Value + Me._code = value End Set End Property - + + _ Public Property DegreePercentage() As Decimal Get - Return Me.degreePercentageField + Return Me._degreePercentage End Get Set - Me.degreePercentageField = Value + Me._degreePercentage = 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 + Return Me._value End Get Set - Me.valueField = Value + Me._value = 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 + Return Me._amount End Get Set - Me.amountField = Value + Me._amount = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemExciseDuty)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemExciseDuty)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemExciseDuty object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemExciseDuty object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemExciseDuty object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemExciseDuty object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemExciseDuty, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemExciseDuty) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemExciseDuty) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemExciseDuty) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemExciseDuty + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemExciseDuty) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemExciseDuty + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemExciseDuty) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemExciseDuty object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemExciseDuty object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemExciseDuty, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemExciseDuty) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemExciseDuty, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemExciseDuty Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Quantity() As Decimal Get - Return Me.quantityField + Return Me._quantity End Get Set - Me.quantityField = Value + Me._quantity = value End Set End Property - + + _ Public Property MeasurementUnit() As String Get - Return Me.measurementUnitField + Return Me._measurementUnit End Get Set - Me.measurementUnitField = Value + Me._measurementUnit = value End Set End Property - + + _ Public Property Qualifier() As String Get - Return Me.qualifierField + Return Me._qualifier End Get Set - Me.qualifierField = Value + Me._qualifier = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemExciseDutyAmount)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemExciseDutyAmount)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemExciseDutyAmount object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemExciseDutyAmount object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemExciseDutyAmount object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemExciseDutyAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemExciseDutyAmount, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemExciseDutyAmount) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemExciseDutyAmount) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemExciseDutyAmount) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemExciseDutyAmount + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemExciseDutyAmount) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemExciseDutyAmount + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemExciseDutyAmount) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemExciseDutyAmount object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemExciseDutyAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemExciseDutyAmount, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemExciseDutyAmount) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemExciseDutyAmount, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemExciseDutyAmount Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _requestedPreferentialTreatment As String + + Private _declaration As FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.declarationField = New FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration() + Me._declaration = New FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration() End Sub - + + _ Public Property RequestedPreferentialTreatment() As String Get - Return Me.requestedPreferentialTreatmentField + Return Me._requestedPreferentialTreatment End Get Set - Me.requestedPreferentialTreatmentField = Value + Me._requestedPreferentialTreatment = value End Set End Property - + + _ Public Property Declaration() As FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration Get - Return Me.declarationField + Return Me._declaration End Get Set - Me.declarationField = Value + Me._declaration = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemPreferentialTreatment)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemPreferentialTreatment)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemPreferentialTreatment object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemPreferentialTreatment object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemPreferentialTreatment object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemPreferentialTreatment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatment, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemPreferentialTreatment) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatment) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatment) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemPreferentialTreatment + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemPreferentialTreatment) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemPreferentialTreatment + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemPreferentialTreatment) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemPreferentialTreatment object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemPreferentialTreatment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatment, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemPreferentialTreatment) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatment, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemPreferentialTreatment Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _contingent As List(Of FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent) + + Private _preferentialTreatmentQuantity As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.preferentialTreatmentQuantityField = New FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity() - Me.contingentField = New List(Of FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent)() + Me._preferentialTreatmentQuantity = New FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity() + Me._contingent = New List(Of FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent)() End Sub - + + _ Public Property Contingent() As List(Of FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent) Get - Return Me.contingentField + Return Me._contingent End Get Set - Me.contingentField = Value + Me._contingent = value End Set End Property - + + _ Public Property PreferentialTreatmentQuantity() As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity Get - Return Me.preferentialTreatmentQuantityField + Return Me._preferentialTreatmentQuantity End Get Set - Me.preferentialTreatmentQuantityField = Value + Me._preferentialTreatmentQuantity = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemPreferentialTreatmentDeclaration Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _contingentNumber As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property ContingentNumber() As String Get - Return Me.contingentNumberField + Return Me._contingentNumber End Get Set - Me.contingentNumberField = Value + Me._contingentNumber = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationContingent Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _quantity As String + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Quantity() As String Get - Return Me.quantityField + Return Me._quantity End Get Set - Me.quantityField = Value + Me._quantity = value End Set End Property - + + _ Public Property MeasurementUnit() As String Get - Return Me.measurementUnitField + Return Me._measurementUnit End Get Set - Me.measurementUnitField = Value + Me._measurementUnit = value End Set End Property - + + _ Public Property Qualifier() As String Get - Return Me.qualifierField + Return Me._qualifier End Get Set - Me.qualifierField = Value + Me._qualifier = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _group As String + + Private _applicationType As String + + Private _rateOrAmountOrFactor As Decimal + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Group() As String Get - Return Me.groupField + Return Me._group End Get Set - Me.groupField = Value + Me._group = value End Set End Property - + + _ Public Property ApplicationType() As String Get - Return Me.applicationTypeField + Return Me._applicationType End Get Set - Me.applicationTypeField = Value + Me._applicationType = value End Set End Property - + + _ Public Property RateOrAmountOrFactor() As Decimal Get - Return Me.rateOrAmountOrFactorField + Return Me._rateOrAmountOrFactor End Get Set - Me.rateOrAmountOrFactorField = Value + Me._rateOrAmountOrFactor = value End Set End Property - - - Public Property RateOrAmountOrFactorSpecified() As Boolean + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemSpecialCase)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemSpecialCase object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemSpecialCase object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemSpecialCase object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemSpecialCase object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemSpecialCase, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemSpecialCase) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemSpecialCase) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemSpecialCase) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemSpecialCase + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemSpecialCase) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemSpecialCase + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemSpecialCase) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemSpecialCase object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemSpecialCase object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemSpecialCase, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemSpecialCase) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemSpecialCase, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemSpecialCase Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _division As String + + Private _type As String + + Private _referenceNumber As String + + Private _issuingDate As Date + + Private _atHandFlag As String + + Private _writeOff As FCFCDFBodyGoodsItemDocumentWriteOff + + Private Shared _serializerXml As XmlSerializer + #End Region + Public Sub New() MyBase.New - Me.writeOffField = New FCFCDFBodyGoodsItemDocumentWriteOff() + Me._writeOff = New FCFCDFBodyGoodsItemDocumentWriteOff() End Sub - + + _ Public Property Division() As String Get - Return Me.divisionField + Return Me._division End Get Set - Me.divisionField = Value + Me._division = value End Set End Property - + + _ Public Property Type() As String Get - Return Me.typeField + Return Me._type End Get Set - Me.typeField = Value + Me._type = value End Set End Property - + + _ Public Property ReferenceNumber() As String Get - Return Me.referenceNumberField + Return Me._referenceNumber End Get Set - Me.referenceNumberField = Value + Me._referenceNumber = value End Set End Property - + + _ Public Property IssuingDate() As Date Get - Return Me.issuingDateField + Return Me._issuingDate End Get Set - Me.issuingDateField = Value + Me._issuingDate = 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 + Return Me._atHandFlag End Get Set - Me.atHandFlagField = Value + Me._atHandFlag = value End Set End Property - + + _ Public Property WriteOff() As FCFCDFBodyGoodsItemDocumentWriteOff Get - Return Me.writeOffField + Return Me._writeOff End Get Set - Me.writeOffField = Value + Me._writeOff = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemDocument)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemDocument)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemDocument object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemDocument object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemDocument object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemDocument, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemDocument) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemDocument) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemDocument) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemDocument + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemDocument) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemDocument + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemDocument) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemDocument object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemDocument, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemDocument) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemDocument, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemDocument Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + 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 - + + #Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared _serializerXml As XmlSerializer + #End Region + + _ Public Property Quantity() As Decimal Get - Return Me.quantityField + Return Me._quantity End Get Set - Me.quantityField = Value + Me._quantity = value End Set End Property - + + _ Public Property MeasurementUnit() As String Get - Return Me.measurementUnitField + Return Me._measurementUnit End Get Set - Me.measurementUnitField = Value + Me._measurementUnit = value End Set End Property - + + _ Public Property Qualifier() As String Get - Return Me.qualifierField + Return Me._qualifier End Get Set - Me.qualifierField = Value + Me._qualifier = value End Set End Property - - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(FCFCDFBodyGoodsItemDocumentWriteOff)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDFBodyGoodsItemDocumentWriteOff)) End If - Return sSerializer + Return _serializerXml End Get End Property - -#Region "Serialize/Deserialize" - ''' - '''Serializes current FCFCDFBodyGoodsItemDocumentWriteOff object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + + #Region "Serialize/Deserialize" + ''' + ''' Serialize FCFCDFBodyGoodsItemDocumentWriteOff object + ''' + ''' XML value + Public Overloads Overridable 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 + Try memoryStream = New System.IO.MemoryStream() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then - streamReader.Dispose() + streamReader.Dispose End If If (Not (memoryStream) Is Nothing) Then - memoryStream.Dispose() + 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 + + Public Overloads Overridable Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes FCFCDFBodyGoodsItemDocumentWriteOff object + ''' + ''' string to deserialize + ''' Output FCFCDFBodyGoodsItemDocumentWriteOff object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemDocumentWriteOff, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemDocumentWriteOff) - Try - obj = Deserialize(xml) - Return True + Try + obj = Deserialize(input) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As FCFCDFBodyGoodsItemDocumentWriteOff) As Boolean + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDFBodyGoodsItemDocumentWriteOff) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - - Public Overloads Shared Function Deserialize(ByVal xml As String) As FCFCDFBodyGoodsItemDocumentWriteOff + + Public Overloads Shared Function Deserialize(ByVal input 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) + Try + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)),FCFCDFBodyGoodsItemDocumentWriteOff) Finally If (Not (stringReader) Is Nothing) Then - stringReader.Dispose() + 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 + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDFBodyGoodsItemDocumentWriteOff + Return CType(SerializerXml.Deserialize(s),FCFCDFBodyGoodsItemDocumentWriteOff) + End Function + #End Region + + ''' + ''' 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 Overloads Overridable Function SaveToFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing - Try - SaveToFile(fileName) - Return True + Try + SaveToFile(fileName, encoding) + Return true Catch e As System.Exception exception = e - Return False + Return false End Try End Function - - Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + + Public Overloads Overridable Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + + Public Overloads Overridable Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.Encoding.UTF8) + End Sub + + Public Overloads Overridable 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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) - streamWriter.Close() + Try + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, false, encoding) + streamWriter.WriteLine(dataString) + streamWriter.Close Finally If (Not (streamWriter) Is Nothing) Then - streamWriter.Dispose() + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDFBodyGoodsItemDocumentWriteOff object + ''' + ''' File to load and deserialize + ''' Output FCFCDFBodyGoodsItemDocumentWriteOff object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As FCFCDFBodyGoodsItemDocumentWriteOff, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, FCFCDFBodyGoodsItemDocumentWriteOff) - Try - obj = LoadFromFile(fileName) - Return True + Try + obj = LoadFromFile(fileName, encoding) + Return true Catch ex As System.Exception exception = ex - Return False + Return false End Try End Function - + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDFBodyGoodsItemDocumentWriteOff, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) As FCFCDFBodyGoodsItemDocumentWriteOff Dim file As System.IO.FileStream = Nothing Dim sr As System.IO.StreamReader = Nothing - Try + 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) + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd + sr.Close + file.Close + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then - file.Dispose() + file.Dispose End If If (Not (sr) Is Nothing) Then - sr.Dispose() + sr.Dispose End If End Try End Function -#End Region End Class End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_004.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_004.designer.vb index 6e06f3c..fe82aa7 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_004.designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_004.designer.vb @@ -1,64 +1,78 @@ '' ------------------------------------------------------------------------------ '' -'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) -'' MitteilungAbschreibung_004ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net20","NameSpace":"MitteilungAbschreibung_004","Language":"VisualBasic","CollectionBase":"","Properties":{"PrivateFieldCustomPrefix":""},"XmlAttribute":{"Enabled":true,"GenerateOrderXmlAttributes":true},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"IndentChars":"Indent1Space"},"JsonOutput":{},"Enabled":true,"EnableEncoding":true},"Miscellaneous":{"CleanupCode":false}} '' '' ------------------------------------------------------------------------------ +#Disable Warning Imports System Imports System.Diagnostics Imports System.Xml.Serialization +Imports System.Runtime.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel +Imports System.Xml Imports System.IO Imports System.Text Imports System.Collections.Generic Namespace MitteilungAbschreibung_004 + Partial Public Class MitteilungAbschreibungNOATyp Inherits DatenaustauschFreierVerkehrTyp - Private einzelMitteilungAbschreibungField As EinzelMitteilungAbschreibungTyp +#Region "Private fields" + Private _einzelMitteilungAbschreibung As EinzelMitteilungAbschreibungTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.einzelMitteilungAbschreibungField = New EinzelMitteilungAbschreibungTyp() + Me._einzelMitteilungAbschreibung = New EinzelMitteilungAbschreibungTyp() End Sub + Public Property EinzelMitteilungAbschreibung() As EinzelMitteilungAbschreibungTyp Get - Return Me.einzelMitteilungAbschreibungField + Return Me._einzelMitteilungAbschreibung End Get Set - Me.einzelMitteilungAbschreibungField = Value + Me._einzelMitteilungAbschreibung = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(MitteilungAbschreibungNOATyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(MitteilungAbschreibungNOATyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current MitteilungAbschreibungNOATyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize MitteilungAbschreibungNOATyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -70,18 +84,22 @@ Namespace MitteilungAbschreibung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes MitteilungAbschreibungNOATyp object + ''' + ''' string to deserialize + ''' Output MitteilungAbschreibungNOATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MitteilungAbschreibungNOATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, MitteilungAbschreibungNOATyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -89,16 +107,16 @@ Namespace MitteilungAbschreibung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As MitteilungAbschreibungNOATyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MitteilungAbschreibungNOATyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As MitteilungAbschreibungNOATyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), MitteilungAbschreibungNOATyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -106,16 +124,21 @@ Namespace MitteilungAbschreibung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MitteilungAbschreibungNOATyp + Return CType(SerializerXml.Deserialize(s), MitteilungAbschreibungNOATyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -123,13 +146,20 @@ Namespace MitteilungAbschreibung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -138,18 +168,18 @@ Namespace MitteilungAbschreibung_004 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 + ''' + ''' Deserializes xml markup from file into an MitteilungAbschreibungNOATyp object + ''' + ''' File to load and deserialize + ''' Output MitteilungAbschreibungNOATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As MitteilungAbschreibungNOATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, MitteilungAbschreibungNOATyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -157,21 +187,29 @@ Namespace MitteilungAbschreibung_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MitteilungAbschreibungNOATyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -181,75 +219,86 @@ Namespace MitteilungAbschreibung_004 End If End Try End Function -#End Region End Class + Partial Public Class EinzelMitteilungAbschreibungTyp - Private objektIdentifizierungField As ObjektIdentifizierungNOATyp +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungNOATyp - Private kopfDatenField As KopfDatenMitteilungAbschreibungTyp + Private _kopfDaten As KopfDatenMitteilungAbschreibungTyp - Private positionField As List(Of PositionMitteilungAbschreibungTyp) + Private _position As List(Of PositionMitteilungAbschreibungTyp) - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.positionField = New List(Of PositionMitteilungAbschreibungTyp)() - Me.kopfDatenField = New KopfDatenMitteilungAbschreibungTyp() - Me.objektIdentifizierungField = New ObjektIdentifizierungNOATyp() + Me._position = New List(Of PositionMitteilungAbschreibungTyp)() + Me._kopfDaten = New KopfDatenMitteilungAbschreibungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungNOATyp() End Sub + Public Property ObjektIdentifizierung() As ObjektIdentifizierungNOATyp Get - Return Me.objektIdentifizierungField + Return Me._objektIdentifizierung End Get Set - Me.objektIdentifizierungField = Value + Me._objektIdentifizierung = Value End Set End Property + Public Property KopfDaten() As KopfDatenMitteilungAbschreibungTyp Get - Return Me.kopfDatenField + Return Me._kopfDaten End Get Set - Me.kopfDatenField = Value + Me._kopfDaten = Value End Set End Property + Public Property Position() As List(Of PositionMitteilungAbschreibungTyp) Get - Return Me.positionField + Return Me._position End Get Set - Me.positionField = Value + Me._position = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelMitteilungAbschreibungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelMitteilungAbschreibungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current EinzelMitteilungAbschreibungTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize EinzelMitteilungAbschreibungTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -261,18 +310,22 @@ Namespace MitteilungAbschreibung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes EinzelMitteilungAbschreibungTyp object + ''' + ''' string to deserialize + ''' Output EinzelMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelMitteilungAbschreibungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -280,16 +333,16 @@ Namespace MitteilungAbschreibung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelMitteilungAbschreibungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelMitteilungAbschreibungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelMitteilungAbschreibungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelMitteilungAbschreibungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -297,16 +350,21 @@ Namespace MitteilungAbschreibung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelMitteilungAbschreibungTyp + Return CType(SerializerXml.Deserialize(s), EinzelMitteilungAbschreibungTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -314,13 +372,20 @@ Namespace MitteilungAbschreibung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -329,18 +394,18 @@ Namespace MitteilungAbschreibung_004 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 + ''' + ''' Deserializes xml markup from file into an EinzelMitteilungAbschreibungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EinzelMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelMitteilungAbschreibungTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -348,21 +413,29 @@ Namespace MitteilungAbschreibung_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -372,90 +445,103 @@ Namespace MitteilungAbschreibung_004 End If End Try End Function -#End Region End Class + Partial Public Class ObjektIdentifizierungNOATyp - Private objektNameField As String +#Region "Private fields" + Private _objektName As String - Private objektAliasField As String + Private _objektAlias As String - Private eDIFACTNachrichtenNrField As String + Private _eDIFACTNachrichtenNr As String - Private zeitpunktEingangField As Date + Private _zeitpunktEingang As Date - Private shipmentReferenzField As String + Private _shipmentReferenz As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property ObjektName() As String Get - Return Me.objektNameField + Return Me._objektName End Get Set - Me.objektNameField = Value + Me._objektName = Value End Set End Property + Public Property ObjektAlias() As String Get - Return Me.objektAliasField + Return Me._objektAlias End Get Set - Me.objektAliasField = Value + Me._objektAlias = Value End Set End Property + Public Property EDIFACTNachrichtenNr() As String Get - Return Me.eDIFACTNachrichtenNrField + Return Me._eDIFACTNachrichtenNr End Get Set - Me.eDIFACTNachrichtenNrField = Value + Me._eDIFACTNachrichtenNr = Value End Set End Property + Public Property ZeitpunktEingang() As Date Get - Return Me.zeitpunktEingangField + Return Me._zeitpunktEingang End Get Set - Me.zeitpunktEingangField = Value + Me._zeitpunktEingang = Value End Set End Property + Public Property ShipmentReferenz() As String Get - Return Me.shipmentReferenzField + Return Me._shipmentReferenz End Get Set - Me.shipmentReferenzField = Value + Me._shipmentReferenz = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungNOATyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungNOATyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current ObjektIdentifizierungNOATyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize ObjektIdentifizierungNOATyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -467,18 +553,22 @@ Namespace MitteilungAbschreibung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes ObjektIdentifizierungNOATyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungNOATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungNOATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungNOATyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -486,16 +576,16 @@ Namespace MitteilungAbschreibung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungNOATyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungNOATyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As ObjektIdentifizierungNOATyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungNOATyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -503,16 +593,21 @@ Namespace MitteilungAbschreibung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungNOATyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungNOATyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -520,13 +615,20 @@ Namespace MitteilungAbschreibung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -535,18 +637,18 @@ Namespace MitteilungAbschreibung_004 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 + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungNOATyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungNOATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As ObjektIdentifizierungNOATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungNOATyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -554,21 +656,29 @@ Namespace MitteilungAbschreibung_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungNOATyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -578,79 +688,91 @@ Namespace MitteilungAbschreibung_004 End If End Try End Function -#End Region End Class + Partial Public Class AbschreibungRestmengeWertNOATYp - Private abschreibungMengeWertField As String +#Region "Private fields" + Private _abschreibungMengeWert As String - Private restMengeWertField As String + Private _restMengeWert As String - Private abschreibungRestMasseinheitField As String + Private _abschreibungRestMasseinheit As String - Private abschreibungRestQualifikatorField As String + Private _abschreibungRestQualifikator As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property AbschreibungMengeWert() As String Get - Return Me.abschreibungMengeWertField + Return Me._abschreibungMengeWert End Get Set - Me.abschreibungMengeWertField = Value + Me._abschreibungMengeWert = Value End Set End Property + Public Property RestMengeWert() As String Get - Return Me.restMengeWertField + Return Me._restMengeWert End Get Set - Me.restMengeWertField = Value + Me._restMengeWert = Value End Set End Property + Public Property AbschreibungRestMasseinheit() As String Get - Return Me.abschreibungRestMasseinheitField + Return Me._abschreibungRestMasseinheit End Get Set - Me.abschreibungRestMasseinheitField = Value + Me._abschreibungRestMasseinheit = Value End Set End Property + Public Property AbschreibungRestQualifikator() As String Get - Return Me.abschreibungRestQualifikatorField + Return Me._abschreibungRestQualifikator End Get Set - Me.abschreibungRestQualifikatorField = Value + Me._abschreibungRestQualifikator = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbschreibungRestmengeWertNOATYp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbschreibungRestmengeWertNOATYp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AbschreibungRestmengeWertNOATYp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize AbschreibungRestmengeWertNOATYp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -662,18 +784,22 @@ Namespace MitteilungAbschreibung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes AbschreibungRestmengeWertNOATYp object + ''' + ''' string to deserialize + ''' Output AbschreibungRestmengeWertNOATYp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbschreibungRestmengeWertNOATYp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbschreibungRestmengeWertNOATYp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -681,16 +807,16 @@ Namespace MitteilungAbschreibung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbschreibungRestmengeWertNOATYp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbschreibungRestmengeWertNOATYp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AbschreibungRestmengeWertNOATYp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbschreibungRestmengeWertNOATYp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -698,16 +824,21 @@ Namespace MitteilungAbschreibung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbschreibungRestmengeWertNOATYp + Return CType(SerializerXml.Deserialize(s), AbschreibungRestmengeWertNOATYp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -715,13 +846,20 @@ Namespace MitteilungAbschreibung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -730,18 +868,18 @@ Namespace MitteilungAbschreibung_004 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 + ''' + ''' Deserializes xml markup from file into an AbschreibungRestmengeWertNOATYp object + ''' + ''' File to load and deserialize + ''' Output AbschreibungRestmengeWertNOATYp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AbschreibungRestmengeWertNOATYp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbschreibungRestmengeWertNOATYp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -749,21 +887,29 @@ Namespace MitteilungAbschreibung_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbschreibungRestmengeWertNOATYp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -773,141 +919,132 @@ Namespace MitteilungAbschreibung_004 End If End Try End Function -#End Region End Class + Partial Public Class PositionMitteilungAbschreibungTyp - Private positionsNrField As String +#Region "Private fields" + Private _positionsNr As String - Private unterlageArtField As String + Private _unterlageArt As String - Private unterlageNrField As String + Private _unterlageNr As String - Private abschreibungDatumField As Date + Private _abschreibungDatum As Date - Private abschreibungDatumFieldSpecified As Boolean + Private _abschreibungUhrzeit As Date - Private abschreibungUhrzeitField As Date + Private _abschreibungStornierungKz As String - Private abschreibungUhrzeitFieldSpecified As Boolean + Private _abschreibungRestmengeWert As List(Of AbschreibungRestmengeWertNOATYp) - Private abschreibungStornierungKzField As String - - Private abschreibungRestmengeWertField As List(Of AbschreibungRestmengeWertNOATYp) - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.abschreibungRestmengeWertField = New List(Of AbschreibungRestmengeWertNOATYp)() + Me._abschreibungRestmengeWert = New List(Of AbschreibungRestmengeWertNOATYp)() End Sub + Public Property PositionsNr() As String Get - Return Me.positionsNrField + Return Me._positionsNr End Get Set - Me.positionsNrField = Value + Me._positionsNr = Value End Set End Property + Public Property UnterlageArt() As String Get - Return Me.unterlageArtField + Return Me._unterlageArt End Get Set - Me.unterlageArtField = Value + Me._unterlageArt = Value End Set End Property + Public Property UnterlageNr() As String Get - Return Me.unterlageNrField + Return Me._unterlageNr End Get Set - Me.unterlageNrField = Value + Me._unterlageNr = Value End Set End Property + Public Property AbschreibungDatum() As Date Get - Return Me.abschreibungDatumField + Return Me._abschreibungDatum 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 + Me._abschreibungDatum = Value End Set End Property + Public Property AbschreibungUhrzeit() As Date Get - Return Me.abschreibungUhrzeitField + Return Me._abschreibungUhrzeit 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 + Me._abschreibungUhrzeit = Value End Set End Property + Public Property AbschreibungStornierungKz() As String Get - Return Me.abschreibungStornierungKzField + Return Me._abschreibungStornierungKz End Get Set - Me.abschreibungStornierungKzField = Value + Me._abschreibungStornierungKz = Value End Set End Property + Public Property AbschreibungRestmengeWert() As List(Of AbschreibungRestmengeWertNOATYp) Get - Return Me.abschreibungRestmengeWertField + Return Me._abschreibungRestmengeWert End Get Set - Me.abschreibungRestmengeWertField = Value + Me._abschreibungRestmengeWert = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PositionMitteilungAbschreibungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionMitteilungAbschreibungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current PositionMitteilungAbschreibungTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize PositionMitteilungAbschreibungTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -919,18 +1056,22 @@ Namespace MitteilungAbschreibung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes PositionMitteilungAbschreibungTyp object + ''' + ''' string to deserialize + ''' Output PositionMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionMitteilungAbschreibungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -938,16 +1079,16 @@ Namespace MitteilungAbschreibung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionMitteilungAbschreibungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionMitteilungAbschreibungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As PositionMitteilungAbschreibungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionMitteilungAbschreibungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -955,16 +1096,21 @@ Namespace MitteilungAbschreibung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionMitteilungAbschreibungTyp + Return CType(SerializerXml.Deserialize(s), PositionMitteilungAbschreibungTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -972,13 +1118,20 @@ Namespace MitteilungAbschreibung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -987,18 +1140,18 @@ Namespace MitteilungAbschreibung_004 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 + ''' + ''' Deserializes xml markup from file into an PositionMitteilungAbschreibungTyp object + ''' + ''' File to load and deserialize + ''' Output PositionMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As PositionMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionMitteilungAbschreibungTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1006,21 +1159,29 @@ Namespace MitteilungAbschreibung_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1030,68 +1191,79 @@ Namespace MitteilungAbschreibung_004 End If End Try End Function -#End Region End Class + Partial Public Class KopfDatenMitteilungAbschreibungTyp - Private registrierNrField As String +#Region "Private fields" + Private _registrierNr As String - Private uebermittlerEORIField As String + Private _uebermittlerEORI As String - Private uebermittlerNLNRField As String + Private _uebermittlerNLNR As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property RegistrierNr() As String Get - Return Me.registrierNrField + Return Me._registrierNr End Get Set - Me.registrierNrField = Value + Me._registrierNr = Value End Set End Property + Public Property UebermittlerEORI() As String Get - Return Me.uebermittlerEORIField + Return Me._uebermittlerEORI End Get Set - Me.uebermittlerEORIField = Value + Me._uebermittlerEORI = Value End Set End Property + Public Property UebermittlerNLNR() As String Get - Return Me.uebermittlerNLNRField + Return Me._uebermittlerNLNR End Get Set - Me.uebermittlerNLNRField = Value + Me._uebermittlerNLNR = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KopfDatenMitteilungAbschreibungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenMitteilungAbschreibungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current KopfDatenMitteilungAbschreibungTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize KopfDatenMitteilungAbschreibungTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1103,18 +1275,22 @@ Namespace MitteilungAbschreibung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes KopfDatenMitteilungAbschreibungTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenMitteilungAbschreibungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1122,16 +1298,16 @@ Namespace MitteilungAbschreibung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenMitteilungAbschreibungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenMitteilungAbschreibungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As KopfDatenMitteilungAbschreibungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenMitteilungAbschreibungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1139,16 +1315,21 @@ Namespace MitteilungAbschreibung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenMitteilungAbschreibungTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenMitteilungAbschreibungTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1156,13 +1337,20 @@ Namespace MitteilungAbschreibung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1171,18 +1359,18 @@ Namespace MitteilungAbschreibung_004 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 + ''' + ''' Deserializes xml markup from file into an KopfDatenMitteilungAbschreibungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As KopfDatenMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenMitteilungAbschreibungTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1190,21 +1378,29 @@ Namespace MitteilungAbschreibung_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1214,112 +1410,127 @@ Namespace MitteilungAbschreibung_004 End If End Try End Function -#End Region End Class + Partial Public Class TransaktionFreierVerkehrTyp - Private iOPartnerField As String +#Region "Private fields" + Private _iOPartner As String - Private iODivision1Field As String + Private _iODivision1 As String - Private iODivision2Field As String + Private _iODivision2 As String - Private iODivision3Field As String + Private _iODivision3 As String - Private iOReferenzField As String + Private _iOReferenz As String - Private iODatumZeitField As Date + Private _iODatumZeit As Date - Private versionField As String + Private _version As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property IOPartner() As String Get - Return Me.iOPartnerField + Return Me._iOPartner End Get Set - Me.iOPartnerField = Value + Me._iOPartner = Value End Set End Property + Public Property IODivision1() As String Get - Return Me.iODivision1Field + Return Me._iODivision1 End Get Set - Me.iODivision1Field = Value + Me._iODivision1 = Value End Set End Property + Public Property IODivision2() As String Get - Return Me.iODivision2Field + Return Me._iODivision2 End Get Set - Me.iODivision2Field = Value + Me._iODivision2 = Value End Set End Property + Public Property IODivision3() As String Get - Return Me.iODivision3Field + Return Me._iODivision3 End Get Set - Me.iODivision3Field = Value + Me._iODivision3 = Value End Set End Property + Public Property IOReferenz() As String Get - Return Me.iOReferenzField + Return Me._iOReferenz End Get Set - Me.iOReferenzField = Value + Me._iOReferenz = Value End Set End Property + Public Property IODatumZeit() As Date Get - Return Me.iODatumZeitField + Return Me._iODatumZeit End Get Set - Me.iODatumZeitField = Value + Me._iODatumZeit = Value End Set End Property + Public Property Version() As String Get - Return Me.versionField + Return Me._version End Get Set - Me.versionField = Value + Me._version = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TransaktionFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current TransaktionFreierVerkehrTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1331,18 +1542,22 @@ Namespace MitteilungAbschreibung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1350,16 +1565,16 @@ Namespace MitteilungAbschreibung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As TransaktionFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1367,16 +1582,21 @@ Namespace MitteilungAbschreibung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1384,13 +1604,20 @@ Namespace MitteilungAbschreibung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1399,18 +1626,18 @@ Namespace MitteilungAbschreibung_004 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 + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, 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) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1418,21 +1645,29 @@ Namespace MitteilungAbschreibung_004 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, System.Text.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, System.Text.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) - Dim xmlString As String = sr.ReadToEnd + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1442,52 +1677,61 @@ Namespace MitteilungAbschreibung_004 End If End Try End Function -#End Region End Class - + Partial Public Class DatenaustauschFreierVerkehrTyp - Private transaktionField As TransaktionFreierVerkehrTyp +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.transaktionField = New TransaktionFreierVerkehrTyp() + Me._transaktion = New TransaktionFreierVerkehrTyp() End Sub + Public Property Transaktion() As TransaktionFreierVerkehrTyp Get - Return Me.transaktionField + Return Me._transaktion End Get Set - Me.transaktionField = Value + Me._transaktion = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1499,18 +1743,22 @@ Namespace MitteilungAbschreibung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1518,16 +1766,16 @@ Namespace MitteilungAbschreibung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As DatenaustauschFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1535,16 +1783,21 @@ Namespace MitteilungAbschreibung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1552,13 +1805,20 @@ Namespace MitteilungAbschreibung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1567,18 +1827,18 @@ Namespace MitteilungAbschreibung_004 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 + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, 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) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1586,21 +1846,29 @@ Namespace MitteilungAbschreibung_004 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, System.Text.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, System.Text.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) - Dim xmlString As String = sr.ReadToEnd + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1610,6 +1878,6 @@ Namespace MitteilungAbschreibung_004 End If End Try End Function -#End Region End Class End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_004.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_004.designer.vb index 0af8cf5..dd1ae56 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_004.designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_004.designer.vb @@ -1,64 +1,78 @@ '' ------------------------------------------------------------------------------ '' -'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) -'' NichtAbschliessendeFestsetzung_004ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net20","NameSpace":"NichtAbschliessendeFestsetzung_004","Language":"VisualBasic","CollectionBase":"","Properties":{"PrivateFieldCustomPrefix":""},"XmlAttribute":{"Enabled":true,"GenerateOrderXmlAttributes":true},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"IndentChars":"Indent1Space"},"JsonOutput":{},"Enabled":true,"EnableEncoding":true},"Miscellaneous":{"CleanupCode":false}} '' '' ------------------------------------------------------------------------------ +#Disable Warning Imports System Imports System.Diagnostics Imports System.Xml.Serialization +Imports System.Runtime.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel +Imports System.Xml Imports System.IO Imports System.Text Imports System.Collections.Generic Namespace NichtAbschliessendeFestsetzung_004 + Partial Public Class NichtAbschliessendeFestsetzungTAXNTyp Inherits DatenaustauschFreierVerkehrTyp - Private einzelNichtAbschliessendeFestsetzungField As EinzelNichtAbschliessendeFestsetzungTyp +#Region "Private fields" + Private _einzelNichtAbschliessendeFestsetzung As EinzelNichtAbschliessendeFestsetzungTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.einzelNichtAbschliessendeFestsetzungField = New EinzelNichtAbschliessendeFestsetzungTyp() + Me._einzelNichtAbschliessendeFestsetzung = New EinzelNichtAbschliessendeFestsetzungTyp() End Sub + Public Property EinzelNichtAbschliessendeFestsetzung() As EinzelNichtAbschliessendeFestsetzungTyp Get - Return Me.einzelNichtAbschliessendeFestsetzungField + Return Me._einzelNichtAbschliessendeFestsetzung End Get Set - Me.einzelNichtAbschliessendeFestsetzungField = Value + Me._einzelNichtAbschliessendeFestsetzung = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(NichtAbschliessendeFestsetzungTAXNTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(NichtAbschliessendeFestsetzungTAXNTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current NichtAbschliessendeFestsetzungTAXNTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize NichtAbschliessendeFestsetzungTAXNTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -70,18 +84,22 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes NichtAbschliessendeFestsetzungTAXNTyp object + ''' + ''' string to deserialize + ''' Output NichtAbschliessendeFestsetzungTAXNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As NichtAbschliessendeFestsetzungTAXNTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, NichtAbschliessendeFestsetzungTAXNTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -89,16 +107,16 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As NichtAbschliessendeFestsetzungTAXNTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As NichtAbschliessendeFestsetzungTAXNTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As NichtAbschliessendeFestsetzungTAXNTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), NichtAbschliessendeFestsetzungTAXNTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -106,16 +124,21 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As NichtAbschliessendeFestsetzungTAXNTyp + Return CType(SerializerXml.Deserialize(s), NichtAbschliessendeFestsetzungTAXNTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -123,13 +146,20 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -138,18 +168,18 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + ''' + ''' Deserializes xml markup from file into an NichtAbschliessendeFestsetzungTAXNTyp object + ''' + ''' File to load and deserialize + ''' Output NichtAbschliessendeFestsetzungTAXNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As NichtAbschliessendeFestsetzungTAXNTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, NichtAbschliessendeFestsetzungTAXNTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -157,21 +187,29 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As NichtAbschliessendeFestsetzungTAXNTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -181,75 +219,86 @@ Namespace NichtAbschliessendeFestsetzung_004 End If End Try End Function -#End Region End Class + Partial Public Class EinzelNichtAbschliessendeFestsetzungTyp - Private objektIdentifizierungField As ObjektIdentifizierungTAXNyp +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungTAXNyp - Private kopfDatenField As KopfDatenNichtAbschliessendeFestsetzungTyp + Private _kopfDaten As KopfDatenNichtAbschliessendeFestsetzungTyp - Private positionField As List(Of PositionNichtAbschliessendeFestsetzungTyp) + Private _position As List(Of PositionNichtAbschliessendeFestsetzungTyp) - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.positionField = New List(Of PositionNichtAbschliessendeFestsetzungTyp)() - Me.kopfDatenField = New KopfDatenNichtAbschliessendeFestsetzungTyp() - Me.objektIdentifizierungField = New ObjektIdentifizierungTAXNyp() + Me._position = New List(Of PositionNichtAbschliessendeFestsetzungTyp)() + Me._kopfDaten = New KopfDatenNichtAbschliessendeFestsetzungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungTAXNyp() End Sub + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXNyp Get - Return Me.objektIdentifizierungField + Return Me._objektIdentifizierung End Get Set - Me.objektIdentifizierungField = Value + Me._objektIdentifizierung = Value End Set End Property + Public Property KopfDaten() As KopfDatenNichtAbschliessendeFestsetzungTyp Get - Return Me.kopfDatenField + Return Me._kopfDaten End Get Set - Me.kopfDatenField = Value + Me._kopfDaten = Value End Set End Property + Public Property Position() As List(Of PositionNichtAbschliessendeFestsetzungTyp) Get - Return Me.positionField + Return Me._position End Get Set - Me.positionField = Value + Me._position = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelNichtAbschliessendeFestsetzungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelNichtAbschliessendeFestsetzungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current EinzelNichtAbschliessendeFestsetzungTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize EinzelNichtAbschliessendeFestsetzungTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -261,18 +310,22 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes EinzelNichtAbschliessendeFestsetzungTyp object + ''' + ''' string to deserialize + ''' Output EinzelNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelNichtAbschliessendeFestsetzungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -280,16 +333,16 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelNichtAbschliessendeFestsetzungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelNichtAbschliessendeFestsetzungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelNichtAbschliessendeFestsetzungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelNichtAbschliessendeFestsetzungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -297,16 +350,21 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelNichtAbschliessendeFestsetzungTyp + Return CType(SerializerXml.Deserialize(s), EinzelNichtAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -314,13 +372,20 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -329,18 +394,18 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + ''' + ''' Deserializes xml markup from file into an EinzelNichtAbschliessendeFestsetzungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EinzelNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelNichtAbschliessendeFestsetzungTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -348,21 +413,29 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -372,90 +445,103 @@ Namespace NichtAbschliessendeFestsetzung_004 End If End Try End Function -#End Region End Class + Partial Public Class ObjektIdentifizierungTAXNyp - Private objektNameField As String +#Region "Private fields" + Private _objektName As String - Private objektAliasField As String + Private _objektAlias As String - Private eDIFACTNachrichtenNrField As String + Private _eDIFACTNachrichtenNr As String - Private zeitpunktEingangField As Date + Private _zeitpunktEingang As Date - Private shipmentReferenzField As String + Private _shipmentReferenz As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property ObjektName() As String Get - Return Me.objektNameField + Return Me._objektName End Get Set - Me.objektNameField = Value + Me._objektName = Value End Set End Property + Public Property ObjektAlias() As String Get - Return Me.objektAliasField + Return Me._objektAlias End Get Set - Me.objektAliasField = Value + Me._objektAlias = Value End Set End Property + Public Property EDIFACTNachrichtenNr() As String Get - Return Me.eDIFACTNachrichtenNrField + Return Me._eDIFACTNachrichtenNr End Get Set - Me.eDIFACTNachrichtenNrField = Value + Me._eDIFACTNachrichtenNr = Value End Set End Property + Public Property ZeitpunktEingang() As Date Get - Return Me.zeitpunktEingangField + Return Me._zeitpunktEingang End Get Set - Me.zeitpunktEingangField = Value + Me._zeitpunktEingang = Value End Set End Property + Public Property ShipmentReferenz() As String Get - Return Me.shipmentReferenzField + Return Me._shipmentReferenz End Get Set - Me.shipmentReferenzField = Value + Me._shipmentReferenz = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungTAXNyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTAXNyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current ObjektIdentifizierungTAXNyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize ObjektIdentifizierungTAXNyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -467,18 +553,22 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes ObjektIdentifizierungTAXNyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungTAXNyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXNyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungTAXNyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -486,16 +576,16 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungTAXNyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXNyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As ObjektIdentifizierungTAXNyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXNyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -503,16 +593,21 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungTAXNyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungTAXNyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -520,13 +615,20 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -535,18 +637,18 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungTAXNyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungTAXNyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As ObjektIdentifizierungTAXNyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungTAXNyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -554,21 +656,29 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXNyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -578,91 +688,91 @@ Namespace NichtAbschliessendeFestsetzung_004 End If End Try End Function -#End Region End Class + Partial Public Class UnterlageTAXNTyp - Private unterlageArtField As String +#Region "Private fields" + Private _unterlageArt As String - Private vorlagefristDatumField As Date + Private _vorlagefristDatum As Date - Private vorlagefristDatumFieldSpecified As Boolean + Private _nachzureichenKz As String - Private nachzureichenKzField As String + Private _vorzulegenKz As String - Private vorzulegenKzField As String - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property UnterlageArt() As String Get - Return Me.unterlageArtField + Return Me._unterlageArt End Get Set - Me.unterlageArtField = Value + Me._unterlageArt = Value End Set End Property + Public Property VorlagefristDatum() As Date Get - Return Me.vorlagefristDatumField + Return Me._vorlagefristDatum 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 + Me._vorlagefristDatum = Value End Set End Property + Public Property NachzureichenKz() As String Get - Return Me.nachzureichenKzField + Return Me._nachzureichenKz End Get Set - Me.nachzureichenKzField = Value + Me._nachzureichenKz = Value End Set End Property + Public Property VorzulegenKz() As String Get - Return Me.vorzulegenKzField + Return Me._vorzulegenKz End Get Set - Me.vorzulegenKzField = Value + Me._vorzulegenKz = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(UnterlageTAXNTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageTAXNTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current UnterlageTAXNTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize UnterlageTAXNTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -674,18 +784,22 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes UnterlageTAXNTyp object + ''' + ''' string to deserialize + ''' Output UnterlageTAXNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageTAXNTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageTAXNTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -693,16 +807,16 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As UnterlageTAXNTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageTAXNTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As UnterlageTAXNTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UnterlageTAXNTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -710,16 +824,21 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UnterlageTAXNTyp + Return CType(SerializerXml.Deserialize(s), UnterlageTAXNTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -727,13 +846,20 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -742,18 +868,18 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + ''' + ''' Deserializes xml markup from file into an UnterlageTAXNTyp object + ''' + ''' File to load and deserialize + ''' Output UnterlageTAXNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As UnterlageTAXNTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, UnterlageTAXNTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -761,21 +887,29 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageTAXNTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -785,183 +919,204 @@ Namespace NichtAbschliessendeFestsetzung_004 End If End Try End Function -#End Region End Class + Partial Public Class PositionNichtAbschliessendeFestsetzungTyp - Private positionsNrField As String +#Region "Private fields" + Private _positionsNr As String - Private unterlageField As List(Of UnterlageTAXNTyp) + Private _unterlage As List(Of UnterlageTAXNTyp) - Private ermittlungenEinfuhrfaehigkeitKzField As String + Private _ermittlungenEinfuhrfaehigkeitKz As String - Private ermittlungenZollwertKzField As String + Private _ermittlungenZollwertKz As String - Private ermittlungenWarenbeschaffenheitKzField As String + Private _ermittlungenWarenbeschaffenheitKz As String - Private ermittlungenAbgabensatzKzField As String + Private _ermittlungenAbgabensatzKz As String - Private pruefungVorbehaltenField As String + Private _pruefungVorbehalten As String - Private ermittlungenSonstigeKzField As String + Private _ermittlungenSonstigeKz As String - Private kontingentsmeldungKzField As String + Private _kontingentsmeldungKz As String - Private vorlaeufigerAntidumpingzollKzField As String + Private _vorlaeufigerAntidumpingzollKz As String - Private positionVollstaendigKzField As String + Private _positionVollstaendigKz As String - Private berichtigungspflichtigKzField As String + Private _berichtigungspflichtigKz As String - Private begruendungField As String + Private _begruendung As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.unterlageField = New List(Of UnterlageTAXNTyp)() + Me._unterlage = New List(Of UnterlageTAXNTyp)() End Sub + Public Property PositionsNr() As String Get - Return Me.positionsNrField + Return Me._positionsNr End Get Set - Me.positionsNrField = Value + Me._positionsNr = Value End Set End Property + Public Property Unterlage() As List(Of UnterlageTAXNTyp) Get - Return Me.unterlageField + Return Me._unterlage End Get Set - Me.unterlageField = Value + Me._unterlage = Value End Set End Property + Public Property ErmittlungenEinfuhrfaehigkeitKz() As String Get - Return Me.ermittlungenEinfuhrfaehigkeitKzField + Return Me._ermittlungenEinfuhrfaehigkeitKz End Get Set - Me.ermittlungenEinfuhrfaehigkeitKzField = Value + Me._ermittlungenEinfuhrfaehigkeitKz = Value End Set End Property + Public Property ErmittlungenZollwertKz() As String Get - Return Me.ermittlungenZollwertKzField + Return Me._ermittlungenZollwertKz End Get Set - Me.ermittlungenZollwertKzField = Value + Me._ermittlungenZollwertKz = Value End Set End Property + Public Property ErmittlungenWarenbeschaffenheitKz() As String Get - Return Me.ermittlungenWarenbeschaffenheitKzField + Return Me._ermittlungenWarenbeschaffenheitKz End Get Set - Me.ermittlungenWarenbeschaffenheitKzField = Value + Me._ermittlungenWarenbeschaffenheitKz = Value End Set End Property + Public Property ErmittlungenAbgabensatzKz() As String Get - Return Me.ermittlungenAbgabensatzKzField + Return Me._ermittlungenAbgabensatzKz End Get Set - Me.ermittlungenAbgabensatzKzField = Value + Me._ermittlungenAbgabensatzKz = Value End Set End Property + Public Property PruefungVorbehalten() As String Get - Return Me.pruefungVorbehaltenField + Return Me._pruefungVorbehalten End Get Set - Me.pruefungVorbehaltenField = Value + Me._pruefungVorbehalten = Value End Set End Property + Public Property ErmittlungenSonstigeKz() As String Get - Return Me.ermittlungenSonstigeKzField + Return Me._ermittlungenSonstigeKz End Get Set - Me.ermittlungenSonstigeKzField = Value + Me._ermittlungenSonstigeKz = Value End Set End Property + Public Property KontingentsmeldungKz() As String Get - Return Me.kontingentsmeldungKzField + Return Me._kontingentsmeldungKz End Get Set - Me.kontingentsmeldungKzField = Value + Me._kontingentsmeldungKz = Value End Set End Property + Public Property VorlaeufigerAntidumpingzollKz() As String Get - Return Me.vorlaeufigerAntidumpingzollKzField + Return Me._vorlaeufigerAntidumpingzollKz End Get Set - Me.vorlaeufigerAntidumpingzollKzField = Value + Me._vorlaeufigerAntidumpingzollKz = Value End Set End Property + Public Property PositionVollstaendigKz() As String Get - Return Me.positionVollstaendigKzField + Return Me._positionVollstaendigKz End Get Set - Me.positionVollstaendigKzField = Value + Me._positionVollstaendigKz = Value End Set End Property + Public Property BerichtigungspflichtigKz() As String Get - Return Me.berichtigungspflichtigKzField + Return Me._berichtigungspflichtigKz End Get Set - Me.berichtigungspflichtigKzField = Value + Me._berichtigungspflichtigKz = Value End Set End Property + Public Property Begruendung() As String Get - Return Me.begruendungField + Return Me._begruendung End Get Set - Me.begruendungField = Value + Me._begruendung = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PositionNichtAbschliessendeFestsetzungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionNichtAbschliessendeFestsetzungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current PositionNichtAbschliessendeFestsetzungTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize PositionNichtAbschliessendeFestsetzungTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -973,18 +1128,22 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes PositionNichtAbschliessendeFestsetzungTyp object + ''' + ''' string to deserialize + ''' Output PositionNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionNichtAbschliessendeFestsetzungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -992,16 +1151,16 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionNichtAbschliessendeFestsetzungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionNichtAbschliessendeFestsetzungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As PositionNichtAbschliessendeFestsetzungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionNichtAbschliessendeFestsetzungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1009,16 +1168,21 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionNichtAbschliessendeFestsetzungTyp + Return CType(SerializerXml.Deserialize(s), PositionNichtAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1026,13 +1190,20 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1041,18 +1212,18 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + ''' + ''' Deserializes xml markup from file into an PositionNichtAbschliessendeFestsetzungTyp object + ''' + ''' File to load and deserialize + ''' Output PositionNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As PositionNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionNichtAbschliessendeFestsetzungTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1060,21 +1231,29 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1084,46 +1263,55 @@ Namespace NichtAbschliessendeFestsetzung_004 End If End Try End Function -#End Region End Class + Partial Public Class KopfDatenNichtAbschliessendeFestsetzungTyp - Private registrierNrField As String +#Region "Private fields" + Private _registrierNr As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property RegistrierNr() As String Get - Return Me.registrierNrField + Return Me._registrierNr End Get Set - Me.registrierNrField = Value + Me._registrierNr = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KopfDatenNichtAbschliessendeFestsetzungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenNichtAbschliessendeFestsetzungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current KopfDatenNichtAbschliessendeFestsetzungTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1135,18 +1323,22 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenNichtAbschliessendeFestsetzungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1154,16 +1346,16 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenNichtAbschliessendeFestsetzungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenNichtAbschliessendeFestsetzungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As KopfDatenNichtAbschliessendeFestsetzungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenNichtAbschliessendeFestsetzungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1171,16 +1363,21 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenNichtAbschliessendeFestsetzungTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenNichtAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1188,13 +1385,20 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1203,18 +1407,18 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + ''' + ''' Deserializes xml markup from file into an KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As KopfDatenNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenNichtAbschliessendeFestsetzungTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1222,21 +1426,29 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1246,112 +1458,127 @@ Namespace NichtAbschliessendeFestsetzung_004 End If End Try End Function -#End Region End Class + Partial Public Class TransaktionFreierVerkehrTyp - Private iOPartnerField As String +#Region "Private fields" + Private _iOPartner As String - Private iODivision1Field As String + Private _iODivision1 As String - Private iODivision2Field As String + Private _iODivision2 As String - Private iODivision3Field As String + Private _iODivision3 As String - Private iOReferenzField As String + Private _iOReferenz As String - Private iODatumZeitField As Date + Private _iODatumZeit As Date - Private versionField As String + Private _version As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property IOPartner() As String Get - Return Me.iOPartnerField + Return Me._iOPartner End Get Set - Me.iOPartnerField = Value + Me._iOPartner = Value End Set End Property + Public Property IODivision1() As String Get - Return Me.iODivision1Field + Return Me._iODivision1 End Get Set - Me.iODivision1Field = Value + Me._iODivision1 = Value End Set End Property + Public Property IODivision2() As String Get - Return Me.iODivision2Field + Return Me._iODivision2 End Get Set - Me.iODivision2Field = Value + Me._iODivision2 = Value End Set End Property + Public Property IODivision3() As String Get - Return Me.iODivision3Field + Return Me._iODivision3 End Get Set - Me.iODivision3Field = Value + Me._iODivision3 = Value End Set End Property + Public Property IOReferenz() As String Get - Return Me.iOReferenzField + Return Me._iOReferenz End Get Set - Me.iOReferenzField = Value + Me._iOReferenz = Value End Set End Property + Public Property IODatumZeit() As Date Get - Return Me.iODatumZeitField + Return Me._iODatumZeit End Get Set - Me.iODatumZeitField = Value + Me._iODatumZeit = Value End Set End Property + Public Property Version() As String Get - Return Me.versionField + Return Me._version End Get Set - Me.versionField = Value + Me._version = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TransaktionFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current TransaktionFreierVerkehrTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1363,18 +1590,22 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1382,16 +1613,16 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As TransaktionFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1399,16 +1630,21 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1416,13 +1652,20 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1431,18 +1674,18 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, 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) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1450,21 +1693,29 @@ Namespace NichtAbschliessendeFestsetzung_004 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, System.Text.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, System.Text.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) - Dim xmlString As String = sr.ReadToEnd + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1474,52 +1725,61 @@ Namespace NichtAbschliessendeFestsetzung_004 End If End Try End Function -#End Region End Class - + Partial Public Class DatenaustauschFreierVerkehrTyp - Private transaktionField As TransaktionFreierVerkehrTyp +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.transaktionField = New TransaktionFreierVerkehrTyp() + Me._transaktion = New TransaktionFreierVerkehrTyp() End Sub + Public Property Transaktion() As TransaktionFreierVerkehrTyp Get - Return Me.transaktionField + Return Me._transaktion End Get Set - Me.transaktionField = Value + Me._transaktion = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1531,18 +1791,22 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1550,16 +1814,16 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As DatenaustauschFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1567,16 +1831,21 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1584,13 +1853,20 @@ Namespace NichtAbschliessendeFestsetzung_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1599,18 +1875,18 @@ Namespace NichtAbschliessendeFestsetzung_004 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 + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, 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) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1618,21 +1894,29 @@ Namespace NichtAbschliessendeFestsetzung_004 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, System.Text.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, System.Text.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) - Dim xmlString As String = sr.ReadToEnd + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1642,6 +1926,6 @@ Namespace NichtAbschliessendeFestsetzung_004 End If End Try End Function -#End Region End Class End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_002.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_002.designer.vb index 51990d3..1eacb5c 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_002.designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_002.designer.vb @@ -1,64 +1,78 @@ '' ------------------------------------------------------------------------------ '' -'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) -'' StornierungBescheid_002ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net20","NameSpace":"StornierungBescheid_002","Language":"VisualBasic","CollectionBase":"","Properties":{"PrivateFieldCustomPrefix":""},"XmlAttribute":{"Enabled":true,"GenerateOrderXmlAttributes":true},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"IndentChars":"Indent1Space"},"JsonOutput":{},"Enabled":true,"EnableEncoding":true},"Miscellaneous":{"CleanupCode":false}} '' '' ------------------------------------------------------------------------------ +#Disable Warning Imports System Imports System.Diagnostics Imports System.Xml.Serialization +Imports System.Runtime.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel +Imports System.Xml Imports System.IO Imports System.Text Imports System.Collections.Generic Namespace StornierungBescheid_002 + Partial Public Class StornierungBescheidREVTyp Inherits DatenaustauschFreierVerkehrTyp - Private einzelStornierungBescheidField As EinzelStornierungBescheidTyp +#Region "Private fields" + Private _einzelStornierungBescheid As EinzelStornierungBescheidTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.einzelStornierungBescheidField = New EinzelStornierungBescheidTyp() + Me._einzelStornierungBescheid = New EinzelStornierungBescheidTyp() End Sub + Public Property EinzelStornierungBescheid() As EinzelStornierungBescheidTyp Get - Return Me.einzelStornierungBescheidField + Return Me._einzelStornierungBescheid End Get Set - Me.einzelStornierungBescheidField = Value + Me._einzelStornierungBescheid = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(StornierungBescheidREVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(StornierungBescheidREVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current StornierungBescheidREVTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize StornierungBescheidREVTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -70,18 +84,22 @@ Namespace StornierungBescheid_002 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes StornierungBescheidREVTyp object + ''' + ''' string to deserialize + ''' Output StornierungBescheidREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As StornierungBescheidREVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, StornierungBescheidREVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -89,16 +107,16 @@ Namespace StornierungBescheid_002 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As StornierungBescheidREVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As StornierungBescheidREVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As StornierungBescheidREVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), StornierungBescheidREVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -106,16 +124,21 @@ Namespace StornierungBescheid_002 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As StornierungBescheidREVTyp + Return CType(SerializerXml.Deserialize(s), StornierungBescheidREVTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -123,13 +146,20 @@ Namespace StornierungBescheid_002 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -138,18 +168,18 @@ Namespace StornierungBescheid_002 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 + ''' + ''' Deserializes xml markup from file into an StornierungBescheidREVTyp object + ''' + ''' File to load and deserialize + ''' Output StornierungBescheidREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As StornierungBescheidREVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, StornierungBescheidREVTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -157,21 +187,29 @@ Namespace StornierungBescheid_002 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As StornierungBescheidREVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -181,63 +219,73 @@ Namespace StornierungBescheid_002 End If End Try End Function -#End Region End Class + Partial Public Class EinzelStornierungBescheidTyp - Private objektIdentifizierungField As ObjektIdentifizierungREVTyp +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungREVTyp - Private kopfDatenField As KopfDatenStornierungBescheidTyp + Private _kopfDaten As KopfDatenStornierungBescheidTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.kopfDatenField = New KopfDatenStornierungBescheidTyp() - Me.objektIdentifizierungField = New ObjektIdentifizierungREVTyp() + Me._kopfDaten = New KopfDatenStornierungBescheidTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungREVTyp() End Sub + Public Property ObjektIdentifizierung() As ObjektIdentifizierungREVTyp Get - Return Me.objektIdentifizierungField + Return Me._objektIdentifizierung End Get Set - Me.objektIdentifizierungField = Value + Me._objektIdentifizierung = Value End Set End Property + Public Property KopfDaten() As KopfDatenStornierungBescheidTyp Get - Return Me.kopfDatenField + Return Me._kopfDaten End Get Set - Me.kopfDatenField = Value + Me._kopfDaten = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelStornierungBescheidTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelStornierungBescheidTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current EinzelStornierungBescheidTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize EinzelStornierungBescheidTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -249,18 +297,22 @@ Namespace StornierungBescheid_002 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes EinzelStornierungBescheidTyp object + ''' + ''' string to deserialize + ''' Output EinzelStornierungBescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelStornierungBescheidTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -268,16 +320,16 @@ Namespace StornierungBescheid_002 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelStornierungBescheidTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelStornierungBescheidTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelStornierungBescheidTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelStornierungBescheidTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -285,16 +337,21 @@ Namespace StornierungBescheid_002 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelStornierungBescheidTyp + Return CType(SerializerXml.Deserialize(s), EinzelStornierungBescheidTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -302,13 +359,20 @@ Namespace StornierungBescheid_002 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -317,18 +381,18 @@ Namespace StornierungBescheid_002 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 + ''' + ''' Deserializes xml markup from file into an EinzelStornierungBescheidTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelStornierungBescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EinzelStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelStornierungBescheidTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -336,21 +400,29 @@ Namespace StornierungBescheid_002 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -360,90 +432,103 @@ Namespace StornierungBescheid_002 End If End Try End Function -#End Region End Class + Partial Public Class ObjektIdentifizierungREVTyp - Private objektNameField As String +#Region "Private fields" + Private _objektName As String - Private objektAliasField As String + Private _objektAlias As String - Private eDIFACTNachrichtenNrField As String + Private _eDIFACTNachrichtenNr As String - Private zeitpunktEingangField As Date + Private _zeitpunktEingang As Date - Private shipmentReferenzField As String + Private _shipmentReferenz As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property ObjektName() As String Get - Return Me.objektNameField + Return Me._objektName End Get Set - Me.objektNameField = Value + Me._objektName = Value End Set End Property + Public Property ObjektAlias() As String Get - Return Me.objektAliasField + Return Me._objektAlias End Get Set - Me.objektAliasField = Value + Me._objektAlias = Value End Set End Property + Public Property EDIFACTNachrichtenNr() As String Get - Return Me.eDIFACTNachrichtenNrField + Return Me._eDIFACTNachrichtenNr End Get Set - Me.eDIFACTNachrichtenNrField = Value + Me._eDIFACTNachrichtenNr = Value End Set End Property + Public Property ZeitpunktEingang() As Date Get - Return Me.zeitpunktEingangField + Return Me._zeitpunktEingang End Get Set - Me.zeitpunktEingangField = Value + Me._zeitpunktEingang = Value End Set End Property + Public Property ShipmentReferenz() As String Get - Return Me.shipmentReferenzField + Return Me._shipmentReferenz End Get Set - Me.shipmentReferenzField = Value + Me._shipmentReferenz = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungREVTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungREVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current ObjektIdentifizierungREVTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize ObjektIdentifizierungREVTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -455,18 +540,22 @@ Namespace StornierungBescheid_002 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes ObjektIdentifizierungREVTyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungREVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungREVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -474,16 +563,16 @@ Namespace StornierungBescheid_002 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungREVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungREVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As ObjektIdentifizierungREVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungREVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -491,16 +580,21 @@ Namespace StornierungBescheid_002 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungREVTyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungREVTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -508,13 +602,20 @@ Namespace StornierungBescheid_002 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -523,18 +624,18 @@ Namespace StornierungBescheid_002 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 + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungREVTyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As ObjektIdentifizierungREVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungREVTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -542,21 +643,29 @@ Namespace StornierungBescheid_002 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungREVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -566,69 +675,67 @@ Namespace StornierungBescheid_002 End If End Try End Function -#End Region End Class + Partial Public Class AbgabeREVTyp - Private abgabeArtField As String +#Region "Private fields" + Private _abgabeArt As String - Private abgabeArtAbgabenbetragField As Decimal + Private _abgabeArtAbgabenbetrag As Decimal - Private abgabeArtAbgabenbetragFieldSpecified As Boolean - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property AbgabeArt() As String Get - Return Me.abgabeArtField + Return Me._abgabeArt End Get Set - Me.abgabeArtField = Value + Me._abgabeArt = Value End Set End Property + Public Property AbgabeArtAbgabenbetrag() As Decimal Get - Return Me.abgabeArtAbgabenbetragField + Return Me._abgabeArtAbgabenbetrag End Get Set - Me.abgabeArtAbgabenbetragField = Value + Me._abgabeArtAbgabenbetrag = Value End Set End Property - - Public Property AbgabeArtAbgabenbetragSpecified() As Boolean + Private Shared ReadOnly Property SerializerXml() As XmlSerializer 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)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbgabeREVTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current AbgabeREVTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize AbgabeREVTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -640,18 +747,22 @@ Namespace StornierungBescheid_002 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes AbgabeREVTyp object + ''' + ''' string to deserialize + ''' Output AbgabeREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabeREVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabeREVTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -659,16 +770,16 @@ Namespace StornierungBescheid_002 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbgabeREVTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabeREVTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As AbgabeREVTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgabeREVTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -676,16 +787,21 @@ Namespace StornierungBescheid_002 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabeREVTyp + Return CType(SerializerXml.Deserialize(s), AbgabeREVTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -693,13 +809,20 @@ Namespace StornierungBescheid_002 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -708,18 +831,18 @@ Namespace StornierungBescheid_002 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 + ''' + ''' Deserializes xml markup from file into an AbgabeREVTyp object + ''' + ''' File to load and deserialize + ''' Output AbgabeREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As AbgabeREVTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, AbgabeREVTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -727,21 +850,29 @@ Namespace StornierungBescheid_002 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabeREVTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -751,383 +882,396 @@ Namespace StornierungBescheid_002 End If End Try End Function -#End Region End Class + Partial Public Class KopfDatenStornierungBescheidTyp - Private zollBearbeiterField As String +#Region "Private fields" + Private _zollBearbeiter As String - Private stornierteRegistrierNrField As String + Private _stornierteRegistrierNr As String - Private waehrungKzField As String + Private _waehrungKz As String - Private registrierNrNeuField As String + Private _registrierNrNeu As String - Private stornierungstexteField As String + Private _stornierungstexte As String - Private stornierungGrundField As String + Private _stornierungGrund As String - Private dienststelleBezeichnungField As String + Private _dienststelleBezeichnung As String - Private dienststelleTelefonNrField As String + Private _dienststelleTelefonNr As String - Private dienststelleStrasseHausNrField As String + Private _dienststelleStrasseHausNr As String - Private dienststellePLZSField As String + Private _dienststellePLZS As String - Private dienststelleOrtSField As String + Private _dienststelleOrtS As String - Private dienststelleOrtsteilField As String + Private _dienststelleOrtsteil As String - Private dienststellePostfachField As String + Private _dienststellePostfach As String - Private dienststellePLZPField As String + Private _dienststellePLZP As String - Private dienststelleOrtPField As String + Private _dienststelleOrtP As String - Private registrierKzField As String + Private _registrierKz As String - Private gesamtbetragField As Decimal + Private _gesamtbetrag As Decimal - Private gesamtbetragFieldSpecified As Boolean + Private _abgabe As List(Of AbgabeREVTyp) - Private abgabeField As List(Of AbgabeREVTyp) + Private _sicherheitsregistrierKz As String - Private sicherheitsregistrierKzField As String + Private _zuLeistendeBarsicherheitBetrag As Decimal - Private zuLeistendeBarsicherheitBetragField As Decimal + Private _zollzahlstelleBezeichnung As String - Private zuLeistendeBarsicherheitBetragFieldSpecified As Boolean + Private _zollzahlstelleTelefonNr As String - Private zollzahlstelleBezeichnungField As String + Private _zollzahlstelleStrasseHausNr As String - Private zollzahlstelleTelefonNrField As String + Private _zollzahlstellePLZS As String - Private zollzahlstelleStrasseHausNrField As String + Private _zollzahlstelleOrtS As String - Private zollzahlstellePLZSField As String + Private _zollzahlstelleOrtsteil As String - Private zollzahlstelleOrtSField As String + Private _zollzahlstellePostfach As String - Private zollzahlstelleOrtsteilField As String + Private _zollzahlstellePLZP As String - Private zollzahlstellePostfachField As String + Private _zollzahlstelleOrtP As String - Private zollzahlstellePLZPField As String - - Private zollzahlstelleOrtPField As String - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.abgabeField = New List(Of AbgabeREVTyp)() + Me._abgabe = New List(Of AbgabeREVTyp)() End Sub + Public Property ZollBearbeiter() As String Get - Return Me.zollBearbeiterField + Return Me._zollBearbeiter End Get Set - Me.zollBearbeiterField = Value + Me._zollBearbeiter = Value End Set End Property + Public Property StornierteRegistrierNr() As String Get - Return Me.stornierteRegistrierNrField + Return Me._stornierteRegistrierNr End Get Set - Me.stornierteRegistrierNrField = Value + Me._stornierteRegistrierNr = Value End Set End Property + Public Property WaehrungKz() As String Get - Return Me.waehrungKzField + Return Me._waehrungKz End Get Set - Me.waehrungKzField = Value + Me._waehrungKz = Value End Set End Property + Public Property RegistrierNrNeu() As String Get - Return Me.registrierNrNeuField + Return Me._registrierNrNeu End Get Set - Me.registrierNrNeuField = Value + Me._registrierNrNeu = Value End Set End Property + Public Property Stornierungstexte() As String Get - Return Me.stornierungstexteField + Return Me._stornierungstexte End Get Set - Me.stornierungstexteField = Value + Me._stornierungstexte = Value End Set End Property + Public Property StornierungGrund() As String Get - Return Me.stornierungGrundField + Return Me._stornierungGrund End Get Set - Me.stornierungGrundField = Value + Me._stornierungGrund = Value End Set End Property + Public Property DienststelleBezeichnung() As String Get - Return Me.dienststelleBezeichnungField + Return Me._dienststelleBezeichnung End Get Set - Me.dienststelleBezeichnungField = Value + Me._dienststelleBezeichnung = Value End Set End Property + Public Property DienststelleTelefonNr() As String Get - Return Me.dienststelleTelefonNrField + Return Me._dienststelleTelefonNr End Get Set - Me.dienststelleTelefonNrField = Value + Me._dienststelleTelefonNr = Value End Set End Property + Public Property DienststelleStrasseHausNr() As String Get - Return Me.dienststelleStrasseHausNrField + Return Me._dienststelleStrasseHausNr End Get Set - Me.dienststelleStrasseHausNrField = Value + Me._dienststelleStrasseHausNr = Value End Set End Property + Public Property DienststellePLZS() As String Get - Return Me.dienststellePLZSField + Return Me._dienststellePLZS End Get Set - Me.dienststellePLZSField = Value + Me._dienststellePLZS = Value End Set End Property + Public Property DienststelleOrtS() As String Get - Return Me.dienststelleOrtSField + Return Me._dienststelleOrtS End Get Set - Me.dienststelleOrtSField = Value + Me._dienststelleOrtS = Value End Set End Property + Public Property DienststelleOrtsteil() As String Get - Return Me.dienststelleOrtsteilField + Return Me._dienststelleOrtsteil End Get Set - Me.dienststelleOrtsteilField = Value + Me._dienststelleOrtsteil = Value End Set End Property + Public Property DienststellePostfach() As String Get - Return Me.dienststellePostfachField + Return Me._dienststellePostfach End Get Set - Me.dienststellePostfachField = Value + Me._dienststellePostfach = Value End Set End Property + Public Property DienststellePLZP() As String Get - Return Me.dienststellePLZPField + Return Me._dienststellePLZP End Get Set - Me.dienststellePLZPField = Value + Me._dienststellePLZP = Value End Set End Property + Public Property DienststelleOrtP() As String Get - Return Me.dienststelleOrtPField + Return Me._dienststelleOrtP End Get Set - Me.dienststelleOrtPField = Value + Me._dienststelleOrtP = Value End Set End Property + Public Property RegistrierKz() As String Get - Return Me.registrierKzField + Return Me._registrierKz End Get Set - Me.registrierKzField = Value + Me._registrierKz = Value End Set End Property + Public Property Gesamtbetrag() As Decimal Get - Return Me.gesamtbetragField + Return Me._gesamtbetrag 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 + Me._gesamtbetrag = Value End Set End Property + Public Property Abgabe() As List(Of AbgabeREVTyp) Get - Return Me.abgabeField + Return Me._abgabe End Get Set - Me.abgabeField = Value + Me._abgabe = Value End Set End Property + Public Property SicherheitsregistrierKz() As String Get - Return Me.sicherheitsregistrierKzField + Return Me._sicherheitsregistrierKz End Get Set - Me.sicherheitsregistrierKzField = Value + Me._sicherheitsregistrierKz = Value End Set End Property + Public Property ZuLeistendeBarsicherheitBetrag() As Decimal Get - Return Me.zuLeistendeBarsicherheitBetragField + Return Me._zuLeistendeBarsicherheitBetrag 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 + Me._zuLeistendeBarsicherheitBetrag = Value End Set End Property + Public Property ZollzahlstelleBezeichnung() As String Get - Return Me.zollzahlstelleBezeichnungField + Return Me._zollzahlstelleBezeichnung End Get Set - Me.zollzahlstelleBezeichnungField = Value + Me._zollzahlstelleBezeichnung = Value End Set End Property + Public Property ZollzahlstelleTelefonNr() As String Get - Return Me.zollzahlstelleTelefonNrField + Return Me._zollzahlstelleTelefonNr End Get Set - Me.zollzahlstelleTelefonNrField = Value + Me._zollzahlstelleTelefonNr = Value End Set End Property + Public Property ZollzahlstelleStrasseHausNr() As String Get - Return Me.zollzahlstelleStrasseHausNrField + Return Me._zollzahlstelleStrasseHausNr End Get Set - Me.zollzahlstelleStrasseHausNrField = Value + Me._zollzahlstelleStrasseHausNr = Value End Set End Property + Public Property ZollzahlstellePLZS() As String Get - Return Me.zollzahlstellePLZSField + Return Me._zollzahlstellePLZS End Get Set - Me.zollzahlstellePLZSField = Value + Me._zollzahlstellePLZS = Value End Set End Property + Public Property ZollzahlstelleOrtS() As String Get - Return Me.zollzahlstelleOrtSField + Return Me._zollzahlstelleOrtS End Get Set - Me.zollzahlstelleOrtSField = Value + Me._zollzahlstelleOrtS = Value End Set End Property + Public Property ZollzahlstelleOrtsteil() As String Get - Return Me.zollzahlstelleOrtsteilField + Return Me._zollzahlstelleOrtsteil End Get Set - Me.zollzahlstelleOrtsteilField = Value + Me._zollzahlstelleOrtsteil = Value End Set End Property + Public Property ZollzahlstellePostfach() As String Get - Return Me.zollzahlstellePostfachField + Return Me._zollzahlstellePostfach End Get Set - Me.zollzahlstellePostfachField = Value + Me._zollzahlstellePostfach = Value End Set End Property + Public Property ZollzahlstellePLZP() As String Get - Return Me.zollzahlstellePLZPField + Return Me._zollzahlstellePLZP End Get Set - Me.zollzahlstellePLZPField = Value + Me._zollzahlstellePLZP = Value End Set End Property + Public Property ZollzahlstelleOrtP() As String Get - Return Me.zollzahlstelleOrtPField + Return Me._zollzahlstelleOrtP End Get Set - Me.zollzahlstelleOrtPField = Value + Me._zollzahlstelleOrtP = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KopfDatenStornierungBescheidTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenStornierungBescheidTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current KopfDatenStornierungBescheidTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize KopfDatenStornierungBescheidTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1139,18 +1283,22 @@ Namespace StornierungBescheid_002 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes KopfDatenStornierungBescheidTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenStornierungBescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenStornierungBescheidTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1158,16 +1306,16 @@ Namespace StornierungBescheid_002 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenStornierungBescheidTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenStornierungBescheidTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As KopfDatenStornierungBescheidTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenStornierungBescheidTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1175,16 +1323,21 @@ Namespace StornierungBescheid_002 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenStornierungBescheidTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenStornierungBescheidTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1192,13 +1345,20 @@ Namespace StornierungBescheid_002 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1207,18 +1367,18 @@ Namespace StornierungBescheid_002 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 + ''' + ''' Deserializes xml markup from file into an KopfDatenStornierungBescheidTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenStornierungBescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As KopfDatenStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenStornierungBescheidTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1226,21 +1386,29 @@ Namespace StornierungBescheid_002 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1250,112 +1418,127 @@ Namespace StornierungBescheid_002 End If End Try End Function -#End Region End Class + Partial Public Class TransaktionFreierVerkehrTyp - Private iOPartnerField As String +#Region "Private fields" + Private _iOPartner As String - Private iODivision1Field As String + Private _iODivision1 As String - Private iODivision2Field As String + Private _iODivision2 As String - Private iODivision3Field As String + Private _iODivision3 As String - Private iOReferenzField As String + Private _iOReferenz As String - Private iODatumZeitField As Date + Private _iODatumZeit As Date - Private versionField As String + Private _version As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property IOPartner() As String Get - Return Me.iOPartnerField + Return Me._iOPartner End Get Set - Me.iOPartnerField = Value + Me._iOPartner = Value End Set End Property + Public Property IODivision1() As String Get - Return Me.iODivision1Field + Return Me._iODivision1 End Get Set - Me.iODivision1Field = Value + Me._iODivision1 = Value End Set End Property + Public Property IODivision2() As String Get - Return Me.iODivision2Field + Return Me._iODivision2 End Get Set - Me.iODivision2Field = Value + Me._iODivision2 = Value End Set End Property + Public Property IODivision3() As String Get - Return Me.iODivision3Field + Return Me._iODivision3 End Get Set - Me.iODivision3Field = Value + Me._iODivision3 = Value End Set End Property + Public Property IOReferenz() As String Get - Return Me.iOReferenzField + Return Me._iOReferenz End Get Set - Me.iOReferenzField = Value + Me._iOReferenz = Value End Set End Property + Public Property IODatumZeit() As Date Get - Return Me.iODatumZeitField + Return Me._iODatumZeit End Get Set - Me.iODatumZeitField = Value + Me._iODatumZeit = Value End Set End Property + Public Property Version() As String Get - Return Me.versionField + Return Me._version End Get Set - Me.versionField = Value + Me._version = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TransaktionFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current TransaktionFreierVerkehrTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1367,18 +1550,22 @@ Namespace StornierungBescheid_002 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1386,16 +1573,16 @@ Namespace StornierungBescheid_002 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As TransaktionFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1403,16 +1590,21 @@ Namespace StornierungBescheid_002 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1420,13 +1612,20 @@ Namespace StornierungBescheid_002 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1435,18 +1634,18 @@ Namespace StornierungBescheid_002 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 + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, 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) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1454,21 +1653,29 @@ Namespace StornierungBescheid_002 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, System.Text.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, System.Text.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) - Dim xmlString As String = sr.ReadToEnd + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1478,52 +1685,61 @@ Namespace StornierungBescheid_002 End If End Try End Function -#End Region End Class - + Partial Public Class DatenaustauschFreierVerkehrTyp - Private transaktionField As TransaktionFreierVerkehrTyp +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.transaktionField = New TransaktionFreierVerkehrTyp() + Me._transaktion = New TransaktionFreierVerkehrTyp() End Sub + Public Property Transaktion() As TransaktionFreierVerkehrTyp Get - Return Me.transaktionField + Return Me._transaktion End Get Set - Me.transaktionField = Value + Me._transaktion = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1535,18 +1751,22 @@ Namespace StornierungBescheid_002 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1554,16 +1774,16 @@ Namespace StornierungBescheid_002 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As DatenaustauschFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1571,16 +1791,21 @@ Namespace StornierungBescheid_002 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1588,13 +1813,20 @@ Namespace StornierungBescheid_002 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1603,18 +1835,18 @@ Namespace StornierungBescheid_002 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 + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, 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) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1622,21 +1854,29 @@ Namespace StornierungBescheid_002 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, System.Text.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, System.Text.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) - Dim xmlString As String = sr.ReadToEnd + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1646,6 +1886,6 @@ Namespace StornierungBescheid_002 End If End Try End Function -#End Region End Class End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_004.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_004.designer.vb index 83077c0..26518bd 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_004.designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_004.designer.vb @@ -1,64 +1,78 @@ '' ------------------------------------------------------------------------------ '' -'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) -'' SumAErledigungsinformationVorpapier_004ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net20","NameSpace":"SumAErledigungsinformationVorpapier_004","Language":"VisualBasic","CollectionBase":"","Properties":{"PrivateFieldCustomPrefix":""},"XmlAttribute":{"Enabled":true,"GenerateOrderXmlAttributes":true},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"IndentChars":"Indent1Space"},"JsonOutput":{},"Enabled":true,"EnableEncoding":true},"Miscellaneous":{"CleanupCode":false}} '' '' ------------------------------------------------------------------------------ +#Disable Warning Imports System Imports System.Diagnostics Imports System.Xml.Serialization +Imports System.Runtime.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel +Imports System.Xml Imports System.IO Imports System.Text Imports System.Collections.Generic Namespace SumAErledigungsinformationVorpapier_004 + Partial Public Class SumAErledigungsinformationVorpapierSIVRPTyp Inherits DatenaustauschSumAOutTyp - Private einzelSumAErledigungsinformationField As EinzelSumAErledigungsinformationVorpapierTyp +#Region "Private fields" + Private _einzelSumAErledigungsinformation As EinzelSumAErledigungsinformationVorpapierTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.einzelSumAErledigungsinformationField = New EinzelSumAErledigungsinformationVorpapierTyp() + Me._einzelSumAErledigungsinformation = New EinzelSumAErledigungsinformationVorpapierTyp() End Sub + Public Property EinzelSumAErledigungsinformation() As EinzelSumAErledigungsinformationVorpapierTyp Get - Return Me.einzelSumAErledigungsinformationField + Return Me._einzelSumAErledigungsinformation End Get Set - Me.einzelSumAErledigungsinformationField = Value + Me._einzelSumAErledigungsinformation = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(SumAErledigungsinformationVorpapierSIVRPTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SumAErledigungsinformationVorpapierSIVRPTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current SumAErledigungsinformationVorpapierSIVRPTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize SumAErledigungsinformationVorpapierSIVRPTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -70,18 +84,22 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes SumAErledigungsinformationVorpapierSIVRPTyp object + ''' + ''' string to deserialize + ''' Output SumAErledigungsinformationVorpapierSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumAErledigungsinformationVorpapierSIVRPTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SumAErledigungsinformationVorpapierSIVRPTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -89,16 +107,16 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SumAErledigungsinformationVorpapierSIVRPTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumAErledigungsinformationVorpapierSIVRPTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As SumAErledigungsinformationVorpapierSIVRPTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SumAErledigungsinformationVorpapierSIVRPTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -106,16 +124,21 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SumAErledigungsinformationVorpapierSIVRPTyp + Return CType(SerializerXml.Deserialize(s), SumAErledigungsinformationVorpapierSIVRPTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -123,13 +146,20 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -138,18 +168,18 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + ''' + ''' Deserializes xml markup from file into an SumAErledigungsinformationVorpapierSIVRPTyp object + ''' + ''' File to load and deserialize + ''' Output SumAErledigungsinformationVorpapierSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As SumAErledigungsinformationVorpapierSIVRPTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, SumAErledigungsinformationVorpapierSIVRPTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -157,21 +187,29 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SumAErledigungsinformationVorpapierSIVRPTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -181,75 +219,86 @@ Namespace SumAErledigungsinformationVorpapier_004 End If End Try End Function -#End Region End Class + Partial Public Class EinzelSumAErledigungsinformationVorpapierTyp - Private objektIdentifizierungField As ObjektIdentifizierungSIVRPTyp +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungSIVRPTyp - Private kopfDatenField As KopfDatenSumAErledigungsinformationVorpapierTyp + Private _kopfDaten As KopfDatenSumAErledigungsinformationVorpapierTyp - Private positionField As List(Of PositionSumAErledigungsinformationVorpapierTyp) + Private _position As List(Of PositionSumAErledigungsinformationVorpapierTyp) - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.positionField = New List(Of PositionSumAErledigungsinformationVorpapierTyp)() - Me.kopfDatenField = New KopfDatenSumAErledigungsinformationVorpapierTyp() - Me.objektIdentifizierungField = New ObjektIdentifizierungSIVRPTyp() + Me._position = New List(Of PositionSumAErledigungsinformationVorpapierTyp)() + Me._kopfDaten = New KopfDatenSumAErledigungsinformationVorpapierTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungSIVRPTyp() End Sub + Public Property ObjektIdentifizierung() As ObjektIdentifizierungSIVRPTyp Get - Return Me.objektIdentifizierungField + Return Me._objektIdentifizierung End Get Set - Me.objektIdentifizierungField = Value + Me._objektIdentifizierung = Value End Set End Property + Public Property KopfDaten() As KopfDatenSumAErledigungsinformationVorpapierTyp Get - Return Me.kopfDatenField + Return Me._kopfDaten End Get Set - Me.kopfDatenField = Value + Me._kopfDaten = Value End Set End Property + Public Property Position() As List(Of PositionSumAErledigungsinformationVorpapierTyp) Get - Return Me.positionField + Return Me._position End Get Set - Me.positionField = Value + Me._position = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelSumAErledigungsinformationVorpapierTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelSumAErledigungsinformationVorpapierTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current EinzelSumAErledigungsinformationVorpapierTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize EinzelSumAErledigungsinformationVorpapierTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -261,18 +310,22 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes EinzelSumAErledigungsinformationVorpapierTyp object + ''' + ''' string to deserialize + ''' Output EinzelSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelSumAErledigungsinformationVorpapierTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -280,16 +333,16 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelSumAErledigungsinformationVorpapierTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelSumAErledigungsinformationVorpapierTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelSumAErledigungsinformationVorpapierTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelSumAErledigungsinformationVorpapierTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -297,16 +350,21 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelSumAErledigungsinformationVorpapierTyp + Return CType(SerializerXml.Deserialize(s), EinzelSumAErledigungsinformationVorpapierTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -314,13 +372,20 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -329,18 +394,18 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + ''' + ''' Deserializes xml markup from file into an EinzelSumAErledigungsinformationVorpapierTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EinzelSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelSumAErledigungsinformationVorpapierTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -348,21 +413,29 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -372,102 +445,103 @@ Namespace SumAErledigungsinformationVorpapier_004 End If End Try End Function -#End Region End Class + Partial Public Class ObjektIdentifizierungSIVRPTyp - Private objektNameField As String +#Region "Private fields" + Private _objektName As String - Private objektAntragArtField As String + Private _objektAntragArt As String - Private eDIFACTNachrichtennummerField As String + Private _eDIFACTNachrichtennummer As String - Private zeitpunktNachrichteneingangField As Date + Private _zeitpunktNachrichteneingang As Date - Private zeitpunktNachrichteneingangFieldSpecified As Boolean + Private _shipmentReferenz As String - Private shipmentReferenzField As String - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property ObjektName() As String Get - Return Me.objektNameField + Return Me._objektName End Get Set - Me.objektNameField = Value + Me._objektName = Value End Set End Property + Public Property ObjektAntragArt() As String Get - Return Me.objektAntragArtField + Return Me._objektAntragArt End Get Set - Me.objektAntragArtField = Value + Me._objektAntragArt = Value End Set End Property + Public Property EDIFACTNachrichtennummer() As String Get - Return Me.eDIFACTNachrichtennummerField + Return Me._eDIFACTNachrichtennummer End Get Set - Me.eDIFACTNachrichtennummerField = Value + Me._eDIFACTNachrichtennummer = Value End Set End Property + Public Property ZeitpunktNachrichteneingang() As Date Get - Return Me.zeitpunktNachrichteneingangField + Return Me._zeitpunktNachrichteneingang 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 + Me._zeitpunktNachrichteneingang = Value End Set End Property + Public Property ShipmentReferenz() As String Get - Return Me.shipmentReferenzField + Return Me._shipmentReferenz End Get Set - Me.shipmentReferenzField = Value + Me._shipmentReferenz = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungSIVRPTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungSIVRPTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current ObjektIdentifizierungSIVRPTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize ObjektIdentifizierungSIVRPTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -479,18 +553,22 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes ObjektIdentifizierungSIVRPTyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungSIVRPTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungSIVRPTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -498,16 +576,16 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungSIVRPTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungSIVRPTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As ObjektIdentifizierungSIVRPTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungSIVRPTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -515,16 +593,21 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungSIVRPTyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungSIVRPTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -532,13 +615,20 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -547,18 +637,18 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungSIVRPTyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As ObjektIdentifizierungSIVRPTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungSIVRPTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -566,21 +656,29 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungSIVRPTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -590,112 +688,127 @@ Namespace SumAErledigungsinformationVorpapier_004 End If End Try End Function -#End Region End Class + Partial Public Class PositionSumAErledigungsinformationVorpapierTyp - Private laufendeNummerField As String +#Region "Private fields" + Private _laufendeNummer As String - Private iDRegNrSumAField As String + Private _iDRegNrSumA As String - Private iDRegNrSumAPosField As String + Private _iDRegNrSumAPos As String - Private artSpOField As String + Private _artSpO As String - Private spezifischerOrdnungsbegriffField As String + Private _spezifischerOrdnungsbegriff As String - Private stornierungKzField As String + Private _stornierungKz As String - Private stueckzahlErledigteField As String + Private _stueckzahlErledigte As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property LaufendeNummer() As String Get - Return Me.laufendeNummerField + Return Me._laufendeNummer End Get Set - Me.laufendeNummerField = Value + Me._laufendeNummer = Value End Set End Property + Public Property IDRegNrSumA() As String Get - Return Me.iDRegNrSumAField + Return Me._iDRegNrSumA End Get Set - Me.iDRegNrSumAField = Value + Me._iDRegNrSumA = Value End Set End Property + Public Property IDRegNrSumAPos() As String Get - Return Me.iDRegNrSumAPosField + Return Me._iDRegNrSumAPos End Get Set - Me.iDRegNrSumAPosField = Value + Me._iDRegNrSumAPos = Value End Set End Property + Public Property ArtSpO() As String Get - Return Me.artSpOField + Return Me._artSpO End Get Set - Me.artSpOField = Value + Me._artSpO = Value End Set End Property + Public Property SpezifischerOrdnungsbegriff() As String Get - Return Me.spezifischerOrdnungsbegriffField + Return Me._spezifischerOrdnungsbegriff End Get Set - Me.spezifischerOrdnungsbegriffField = Value + Me._spezifischerOrdnungsbegriff = Value End Set End Property + Public Property StornierungKz() As String Get - Return Me.stornierungKzField + Return Me._stornierungKz End Get Set - Me.stornierungKzField = Value + Me._stornierungKz = Value End Set End Property + Public Property StueckzahlErledigte() As String Get - Return Me.stueckzahlErledigteField + Return Me._stueckzahlErledigte End Get Set - Me.stueckzahlErledigteField = Value + Me._stueckzahlErledigte = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PositionSumAErledigungsinformationVorpapierTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionSumAErledigungsinformationVorpapierTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current PositionSumAErledigungsinformationVorpapierTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize PositionSumAErledigungsinformationVorpapierTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -707,18 +820,22 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes PositionSumAErledigungsinformationVorpapierTyp object + ''' + ''' string to deserialize + ''' Output PositionSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionSumAErledigungsinformationVorpapierTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -726,16 +843,16 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionSumAErledigungsinformationVorpapierTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSumAErledigungsinformationVorpapierTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As PositionSumAErledigungsinformationVorpapierTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionSumAErledigungsinformationVorpapierTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -743,16 +860,21 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionSumAErledigungsinformationVorpapierTyp + Return CType(SerializerXml.Deserialize(s), PositionSumAErledigungsinformationVorpapierTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -760,13 +882,20 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -775,18 +904,18 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + ''' + ''' Deserializes xml markup from file into an PositionSumAErledigungsinformationVorpapierTyp object + ''' + ''' File to load and deserialize + ''' Output PositionSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As PositionSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, PositionSumAErledigungsinformationVorpapierTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -794,21 +923,29 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -818,57 +955,68 @@ Namespace SumAErledigungsinformationVorpapier_004 End If End Try End Function -#End Region End Class + Partial Public Class VerwahrerSIVRPTyp - Private teilnehmerEORIField As String +#Region "Private fields" + Private _teilnehmerEORI As String - Private teilnehmerNLNRField As String + Private _teilnehmerNLNR As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property TeilnehmerEORI() As String Get - Return Me.teilnehmerEORIField + Return Me._teilnehmerEORI End Get Set - Me.teilnehmerEORIField = Value + Me._teilnehmerEORI = Value End Set End Property + Public Property TeilnehmerNLNR() As String Get - Return Me.teilnehmerNLNRField + Return Me._teilnehmerNLNR End Get Set - Me.teilnehmerNLNRField = Value + Me._teilnehmerNLNR = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(VerwahrerSIVRPTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerwahrerSIVRPTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current VerwahrerSIVRPTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize VerwahrerSIVRPTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -880,18 +1028,22 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes VerwahrerSIVRPTyp object + ''' + ''' string to deserialize + ''' Output VerwahrerSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerwahrerSIVRPTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VerwahrerSIVRPTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -899,16 +1051,16 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As VerwahrerSIVRPTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerwahrerSIVRPTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As VerwahrerSIVRPTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerwahrerSIVRPTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -916,16 +1068,21 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerwahrerSIVRPTyp + Return CType(SerializerXml.Deserialize(s), VerwahrerSIVRPTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -933,13 +1090,20 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -948,18 +1112,18 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + ''' + ''' Deserializes xml markup from file into an VerwahrerSIVRPTyp object + ''' + ''' File to load and deserialize + ''' Output VerwahrerSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As VerwahrerSIVRPTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VerwahrerSIVRPTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -967,21 +1131,29 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerwahrerSIVRPTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -991,84 +1163,96 @@ Namespace SumAErledigungsinformationVorpapier_004 End If End Try End Function -#End Region End Class + Partial Public Class KopfDatenSumAErledigungsinformationVorpapierTyp - Private verwahrerField As VerwahrerSIVRPTyp +#Region "Private fields" + Private _verwahrer As VerwahrerSIVRPTyp - Private sonstigeNummerField As String + Private _sonstigeNummer As String - Private artErledigungField As String + Private _artErledigung As String - Private regNrATLASWeitereNachweiseField As String + Private _regNrATLASWeitereNachweise As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.verwahrerField = New VerwahrerSIVRPTyp() + Me._verwahrer = New VerwahrerSIVRPTyp() End Sub + Public Property Verwahrer() As VerwahrerSIVRPTyp Get - Return Me.verwahrerField + Return Me._verwahrer End Get Set - Me.verwahrerField = Value + Me._verwahrer = Value End Set End Property + Public Property SonstigeNummer() As String Get - Return Me.sonstigeNummerField + Return Me._sonstigeNummer End Get Set - Me.sonstigeNummerField = Value + Me._sonstigeNummer = Value End Set End Property + Public Property ArtErledigung() As String Get - Return Me.artErledigungField + Return Me._artErledigung End Get Set - Me.artErledigungField = Value + Me._artErledigung = Value End Set End Property + Public Property RegNrATLASWeitereNachweise() As String Get - Return Me.regNrATLASWeitereNachweiseField + Return Me._regNrATLASWeitereNachweise End Get Set - Me.regNrATLASWeitereNachweiseField = Value + Me._regNrATLASWeitereNachweise = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KopfDatenSumAErledigungsinformationVorpapierTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenSumAErledigungsinformationVorpapierTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current KopfDatenSumAErledigungsinformationVorpapierTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize KopfDatenSumAErledigungsinformationVorpapierTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1080,18 +1264,22 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes KopfDatenSumAErledigungsinformationVorpapierTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenSumAErledigungsinformationVorpapierTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1099,16 +1287,16 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenSumAErledigungsinformationVorpapierTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenSumAErledigungsinformationVorpapierTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As KopfDatenSumAErledigungsinformationVorpapierTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenSumAErledigungsinformationVorpapierTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1116,16 +1304,21 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenSumAErledigungsinformationVorpapierTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenSumAErledigungsinformationVorpapierTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1133,13 +1326,20 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1148,18 +1348,18 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + ''' + ''' Deserializes xml markup from file into an KopfDatenSumAErledigungsinformationVorpapierTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As KopfDatenSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenSumAErledigungsinformationVorpapierTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1167,21 +1367,29 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1191,123 +1399,139 @@ Namespace SumAErledigungsinformationVorpapier_004 End If End Try End Function -#End Region End Class + Partial Public Class TransaktionSumAOutTyp - Private identifikationField As String +#Region "Private fields" + Private _identifikation As String - Private iOPartnerField As String + Private _iOPartner As String - Private iODivision1Field As String + Private _iODivision1 As String - Private iODivision2Field As String + Private _iODivision2 As String - Private iODivision3Field As String + Private _iODivision3 As String - Private iOReferenzField As String + Private _iOReferenz As String - Private iODatumZeitField As Date + Private _iODatumZeit As Date - Private versionField As String + Private _version As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property Identifikation() As String Get - Return Me.identifikationField + Return Me._identifikation End Get Set - Me.identifikationField = Value + Me._identifikation = Value End Set End Property + Public Property IOPartner() As String Get - Return Me.iOPartnerField + Return Me._iOPartner End Get Set - Me.iOPartnerField = Value + Me._iOPartner = Value End Set End Property + Public Property IODivision1() As String Get - Return Me.iODivision1Field + Return Me._iODivision1 End Get Set - Me.iODivision1Field = Value + Me._iODivision1 = Value End Set End Property + Public Property IODivision2() As String Get - Return Me.iODivision2Field + Return Me._iODivision2 End Get Set - Me.iODivision2Field = Value + Me._iODivision2 = Value End Set End Property + Public Property IODivision3() As String Get - Return Me.iODivision3Field + Return Me._iODivision3 End Get Set - Me.iODivision3Field = Value + Me._iODivision3 = Value End Set End Property + Public Property IOReferenz() As String Get - Return Me.iOReferenzField + Return Me._iOReferenz End Get Set - Me.iOReferenzField = Value + Me._iOReferenz = Value End Set End Property + Public Property IODatumZeit() As Date Get - Return Me.iODatumZeitField + Return Me._iODatumZeit End Get Set - Me.iODatumZeitField = Value + Me._iODatumZeit = Value End Set End Property + Public Property Version() As String Get - Return Me.versionField + Return Me._version End Get Set - Me.versionField = Value + Me._version = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TransaktionSumAOutTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionSumAOutTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current TransaktionSumAOutTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize TransaktionSumAOutTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1319,18 +1543,22 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes TransaktionSumAOutTyp object + ''' + ''' string to deserialize + ''' Output TransaktionSumAOutTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionSumAOutTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionSumAOutTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1338,16 +1566,16 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionSumAOutTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionSumAOutTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As TransaktionSumAOutTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionSumAOutTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1355,16 +1583,21 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionSumAOutTyp + Return CType(SerializerXml.Deserialize(s), TransaktionSumAOutTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1372,13 +1605,20 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1387,18 +1627,18 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + ''' + ''' Deserializes xml markup from file into an TransaktionSumAOutTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionSumAOutTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As TransaktionSumAOutTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionSumAOutTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1406,21 +1646,29 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionSumAOutTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1430,52 +1678,61 @@ Namespace SumAErledigungsinformationVorpapier_004 End If End Try End Function -#End Region End Class - + Partial Public Class DatenaustauschSumAOutTyp - Private transaktionField As TransaktionSumAOutTyp +#Region "Private fields" + Private _transaktion As TransaktionSumAOutTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.transaktionField = New TransaktionSumAOutTyp() + Me._transaktion = New TransaktionSumAOutTyp() End Sub + Public Property Transaktion() As TransaktionSumAOutTyp Get - Return Me.transaktionField + Return Me._transaktion End Get Set - Me.transaktionField = Value + Me._transaktion = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DatenaustauschSumAOutTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschSumAOutTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current DatenaustauschSumAOutTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize DatenaustauschSumAOutTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1487,18 +1744,22 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes DatenaustauschSumAOutTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschSumAOutTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschSumAOutTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschSumAOutTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1506,16 +1767,16 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschSumAOutTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschSumAOutTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As DatenaustauschSumAOutTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschSumAOutTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1523,16 +1784,21 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschSumAOutTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschSumAOutTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1540,13 +1806,20 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1555,18 +1828,18 @@ Namespace SumAErledigungsinformationVorpapier_004 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 + ''' + ''' Deserializes xml markup from file into an DatenaustauschSumAOutTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschSumAOutTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As DatenaustauschSumAOutTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschSumAOutTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1574,21 +1847,29 @@ Namespace SumAErledigungsinformationVorpapier_004 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschSumAOutTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1598,6 +1879,6 @@ Namespace SumAErledigungsinformationVorpapier_004 End If End Try End Function -#End Region End Class End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_002.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_002.designer.vb index ff4f2cb..e574092 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_002.designer.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_002.designer.vb @@ -1,64 +1,78 @@ '' ------------------------------------------------------------------------------ '' -'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL) -'' WeitergabeHauptzollamt_002ListVisualBasicFalseFalseFalseFalseFalseFalseFalseTrueFalseFalseFalseFalseNet20SerializeDeserializeSaveToFileLoadFromFileFalseFalseFalseFalseFalseFalseDefaultUTF8FalseTrue +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net20","NameSpace":"WeitergabeHauptzollamt_002","Language":"VisualBasic","CollectionBase":"","Properties":{"PrivateFieldCustomPrefix":""},"XmlAttribute":{"Enabled":true,"GenerateOrderXmlAttributes":true},"ClassParams":{"GenerateInSeparateFilesDirectory":""},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"IndentChars":"Indent1Space"},"JsonOutput":{},"Enabled":true,"EnableEncoding":true},"Miscellaneous":{"CleanupCode":false}} '' '' ------------------------------------------------------------------------------ +#Disable Warning Imports System Imports System.Diagnostics Imports System.Xml.Serialization +Imports System.Runtime.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel +Imports System.Xml Imports System.IO Imports System.Text Imports System.Collections.Generic Namespace WeitergabeHauptzollamt_002 + Partial Public Class WeiterleitungTRATyp Inherits DatenaustauschFreierVerkehrTyp - Private einzelWeiterleitungField As EinzelWeiterleitungTyp +#Region "Private fields" + Private _einzelWeiterleitung As EinzelWeiterleitungTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.einzelWeiterleitungField = New EinzelWeiterleitungTyp() + Me._einzelWeiterleitung = New EinzelWeiterleitungTyp() End Sub + Public Property EinzelWeiterleitung() As EinzelWeiterleitungTyp Get - Return Me.einzelWeiterleitungField + Return Me._einzelWeiterleitung End Get Set - Me.einzelWeiterleitungField = Value + Me._einzelWeiterleitung = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(WeiterleitungTRATyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(WeiterleitungTRATyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current WeiterleitungTRATyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize WeiterleitungTRATyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -70,18 +84,22 @@ Namespace WeitergabeHauptzollamt_002 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes WeiterleitungTRATyp object + ''' + ''' string to deserialize + ''' Output WeiterleitungTRATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WeiterleitungTRATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, WeiterleitungTRATyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -89,16 +107,16 @@ Namespace WeitergabeHauptzollamt_002 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As WeiterleitungTRATyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WeiterleitungTRATyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As WeiterleitungTRATyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), WeiterleitungTRATyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -106,16 +124,21 @@ Namespace WeitergabeHauptzollamt_002 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As WeiterleitungTRATyp + Return CType(SerializerXml.Deserialize(s), WeiterleitungTRATyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -123,13 +146,20 @@ Namespace WeitergabeHauptzollamt_002 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -138,18 +168,18 @@ Namespace WeitergabeHauptzollamt_002 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 + ''' + ''' Deserializes xml markup from file into an WeiterleitungTRATyp object + ''' + ''' File to load and deserialize + ''' Output WeiterleitungTRATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As WeiterleitungTRATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, WeiterleitungTRATyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -157,21 +187,29 @@ Namespace WeitergabeHauptzollamt_002 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WeiterleitungTRATyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -181,63 +219,73 @@ Namespace WeitergabeHauptzollamt_002 End If End Try End Function -#End Region End Class + Partial Public Class EinzelWeiterleitungTyp - Private objektIdentifizierungField As ObjektIdentifizierungTRATyp +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungTRATyp - Private kopfDatenField As KopfDatenWeiterleitungTyp + Private _kopfDaten As KopfDatenWeiterleitungTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.kopfDatenField = New KopfDatenWeiterleitungTyp() - Me.objektIdentifizierungField = New ObjektIdentifizierungTRATyp() + Me._kopfDaten = New KopfDatenWeiterleitungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungTRATyp() End Sub + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTRATyp Get - Return Me.objektIdentifizierungField + Return Me._objektIdentifizierung End Get Set - Me.objektIdentifizierungField = Value + Me._objektIdentifizierung = Value End Set End Property + Public Property KopfDaten() As KopfDatenWeiterleitungTyp Get - Return Me.kopfDatenField + Return Me._kopfDaten End Get Set - Me.kopfDatenField = Value + Me._kopfDaten = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelWeiterleitungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelWeiterleitungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current EinzelWeiterleitungTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize EinzelWeiterleitungTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -249,18 +297,22 @@ Namespace WeitergabeHauptzollamt_002 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes EinzelWeiterleitungTyp object + ''' + ''' string to deserialize + ''' Output EinzelWeiterleitungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelWeiterleitungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelWeiterleitungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -268,16 +320,16 @@ Namespace WeitergabeHauptzollamt_002 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelWeiterleitungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelWeiterleitungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelWeiterleitungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelWeiterleitungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -285,16 +337,21 @@ Namespace WeitergabeHauptzollamt_002 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelWeiterleitungTyp + Return CType(SerializerXml.Deserialize(s), EinzelWeiterleitungTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -302,13 +359,20 @@ Namespace WeitergabeHauptzollamt_002 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -317,18 +381,18 @@ Namespace WeitergabeHauptzollamt_002 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 + ''' + ''' Deserializes xml markup from file into an EinzelWeiterleitungTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelWeiterleitungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As EinzelWeiterleitungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, EinzelWeiterleitungTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -336,21 +400,29 @@ Namespace WeitergabeHauptzollamt_002 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelWeiterleitungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -360,90 +432,103 @@ Namespace WeitergabeHauptzollamt_002 End If End Try End Function -#End Region End Class + Partial Public Class ObjektIdentifizierungTRATyp - Private objektNameField As String +#Region "Private fields" + Private _objektName As String - Private objektAliasField As String + Private _objektAlias As String - Private eDIFACTNachrichtenNrField As String + Private _eDIFACTNachrichtenNr As String - Private zeitpunktEingangField As Date + Private _zeitpunktEingang As Date - Private shipmentReferenzField As String + Private _shipmentReferenz As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property ObjektName() As String Get - Return Me.objektNameField + Return Me._objektName End Get Set - Me.objektNameField = Value + Me._objektName = Value End Set End Property + Public Property ObjektAlias() As String Get - Return Me.objektAliasField + Return Me._objektAlias End Get Set - Me.objektAliasField = Value + Me._objektAlias = Value End Set End Property + Public Property EDIFACTNachrichtenNr() As String Get - Return Me.eDIFACTNachrichtenNrField + Return Me._eDIFACTNachrichtenNr End Get Set - Me.eDIFACTNachrichtenNrField = Value + Me._eDIFACTNachrichtenNr = Value End Set End Property + Public Property ZeitpunktEingang() As Date Get - Return Me.zeitpunktEingangField + Return Me._zeitpunktEingang End Get Set - Me.zeitpunktEingangField = Value + Me._zeitpunktEingang = Value End Set End Property + Public Property ShipmentReferenz() As String Get - Return Me.shipmentReferenzField + Return Me._shipmentReferenz End Get Set - Me.shipmentReferenzField = Value + Me._shipmentReferenz = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungTRATyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTRATyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current ObjektIdentifizierungTRATyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize ObjektIdentifizierungTRATyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -455,18 +540,22 @@ Namespace WeitergabeHauptzollamt_002 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes ObjektIdentifizierungTRATyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungTRATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTRATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungTRATyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -474,16 +563,16 @@ Namespace WeitergabeHauptzollamt_002 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungTRATyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTRATyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As ObjektIdentifizierungTRATyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTRATyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -491,16 +580,21 @@ Namespace WeitergabeHauptzollamt_002 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungTRATyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungTRATyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -508,13 +602,20 @@ Namespace WeitergabeHauptzollamt_002 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -523,18 +624,18 @@ Namespace WeitergabeHauptzollamt_002 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 + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungTRATyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungTRATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As ObjektIdentifizierungTRATyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ObjektIdentifizierungTRATyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -542,21 +643,29 @@ Namespace WeitergabeHauptzollamt_002 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTRATyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -566,179 +675,187 @@ Namespace WeitergabeHauptzollamt_002 End If End Try End Function -#End Region End Class + Partial Public Class KopfDatenWeiterleitungTyp - Private zollBearbeiterField As String +#Region "Private fields" + Private _zollBearbeiter As String - Private weiterleitungBegruendungField As String + Private _weiterleitungBegruendung As String - Private weitergeleiteteZollanmeldungRegistrierNrField As String + Private _weitergeleiteteZollanmeldungRegistrierNr As String - Private weiterleitungDatumField As Date + Private _weiterleitungDatum As Date - Private weiterleitungDatumFieldSpecified As Boolean + Private _dienststellenschluessel As String - Private dienststellenschluesselField As String + Private _hZABezeichnung As String - Private hZABezeichnungField As String + Private _hZAOrtS As String - Private hZAOrtSField As String + Private _hZAPLZS As String - Private hZAPLZSField As String + Private _hZAStrasseHausNr As String - Private hZAStrasseHausNrField As String + Private _hZAOrtP As String - Private hZAOrtPField As String + Private _hZAPLZP As String - Private hZAPLZPField As String + Private _hZAPostfach As String - Private hZAPostfachField As String - - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property ZollBearbeiter() As String Get - Return Me.zollBearbeiterField + Return Me._zollBearbeiter End Get Set - Me.zollBearbeiterField = Value + Me._zollBearbeiter = Value End Set End Property + Public Property WeiterleitungBegruendung() As String Get - Return Me.weiterleitungBegruendungField + Return Me._weiterleitungBegruendung End Get Set - Me.weiterleitungBegruendungField = Value + Me._weiterleitungBegruendung = Value End Set End Property + Public Property WeitergeleiteteZollanmeldungRegistrierNr() As String Get - Return Me.weitergeleiteteZollanmeldungRegistrierNrField + Return Me._weitergeleiteteZollanmeldungRegistrierNr End Get Set - Me.weitergeleiteteZollanmeldungRegistrierNrField = Value + Me._weitergeleiteteZollanmeldungRegistrierNr = Value End Set End Property + Public Property WeiterleitungDatum() As Date Get - Return Me.weiterleitungDatumField + Return Me._weiterleitungDatum 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 + Me._weiterleitungDatum = Value End Set End Property + Public Property Dienststellenschluessel() As String Get - Return Me.dienststellenschluesselField + Return Me._dienststellenschluessel End Get Set - Me.dienststellenschluesselField = Value + Me._dienststellenschluessel = Value End Set End Property + Public Property HZABezeichnung() As String Get - Return Me.hZABezeichnungField + Return Me._hZABezeichnung End Get Set - Me.hZABezeichnungField = Value + Me._hZABezeichnung = Value End Set End Property + Public Property HZAOrtS() As String Get - Return Me.hZAOrtSField + Return Me._hZAOrtS End Get Set - Me.hZAOrtSField = Value + Me._hZAOrtS = Value End Set End Property + Public Property HZAPLZS() As String Get - Return Me.hZAPLZSField + Return Me._hZAPLZS End Get Set - Me.hZAPLZSField = Value + Me._hZAPLZS = Value End Set End Property + Public Property HZAStrasseHausNr() As String Get - Return Me.hZAStrasseHausNrField + Return Me._hZAStrasseHausNr End Get Set - Me.hZAStrasseHausNrField = Value + Me._hZAStrasseHausNr = Value End Set End Property + Public Property HZAOrtP() As String Get - Return Me.hZAOrtPField + Return Me._hZAOrtP End Get Set - Me.hZAOrtPField = Value + Me._hZAOrtP = Value End Set End Property + Public Property HZAPLZP() As String Get - Return Me.hZAPLZPField + Return Me._hZAPLZP End Get Set - Me.hZAPLZPField = Value + Me._hZAPLZP = Value End Set End Property + Public Property HZAPostfach() As String Get - Return Me.hZAPostfachField + Return Me._hZAPostfach End Get Set - Me.hZAPostfachField = Value + Me._hZAPostfach = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KopfDatenWeiterleitungTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenWeiterleitungTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current KopfDatenWeiterleitungTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize KopfDatenWeiterleitungTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -750,18 +867,22 @@ Namespace WeitergabeHauptzollamt_002 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes KopfDatenWeiterleitungTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenWeiterleitungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenWeiterleitungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenWeiterleitungTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -769,16 +890,16 @@ Namespace WeitergabeHauptzollamt_002 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfDatenWeiterleitungTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenWeiterleitungTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As KopfDatenWeiterleitungTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenWeiterleitungTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -786,16 +907,21 @@ Namespace WeitergabeHauptzollamt_002 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenWeiterleitungTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenWeiterleitungTyp) + End Function +#End Region + + ''' + ''' 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, ByVal encoding As System.Text.Encoding, ByRef exception As System.Exception) As Boolean exception = Nothing Try - SaveToFile(fileName) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -803,13 +929,20 @@ Namespace WeitergabeHauptzollamt_002 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -818,18 +951,18 @@ Namespace WeitergabeHauptzollamt_002 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 + ''' + ''' Deserializes xml markup from file into an KopfDatenWeiterleitungTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenWeiterleitungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding, ByRef obj As KopfDatenWeiterleitungTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KopfDatenWeiterleitungTyp) Try - obj = LoadFromFile(fileName) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -837,21 +970,29 @@ Namespace WeitergabeHauptzollamt_002 End Try End Function + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenWeiterleitungTyp, ByRef exception As System.Exception) As Boolean + Return LoadFromFile(fileName, System.Text.Encoding.UTF8, obj, exception) + 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 + Return LoadFromFile(fileName, System.Text.Encoding.UTF8) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByVal encoding As System.Text.Encoding) 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 = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -861,112 +1002,127 @@ Namespace WeitergabeHauptzollamt_002 End If End Try End Function -#End Region End Class + Partial Public Class TransaktionFreierVerkehrTyp - Private iOPartnerField As String +#Region "Private fields" + Private _iOPartner As String - Private iODivision1Field As String + Private _iODivision1 As String - Private iODivision2Field As String + Private _iODivision2 As String - Private iODivision3Field As String + Private _iODivision3 As String - Private iOReferenzField As String + Private _iOReferenz As String - Private iODatumZeitField As Date + Private _iODatumZeit As Date - Private versionField As String + Private _version As String - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region + Public Property IOPartner() As String Get - Return Me.iOPartnerField + Return Me._iOPartner End Get Set - Me.iOPartnerField = Value + Me._iOPartner = Value End Set End Property + Public Property IODivision1() As String Get - Return Me.iODivision1Field + Return Me._iODivision1 End Get Set - Me.iODivision1Field = Value + Me._iODivision1 = Value End Set End Property + Public Property IODivision2() As String Get - Return Me.iODivision2Field + Return Me._iODivision2 End Get Set - Me.iODivision2Field = Value + Me._iODivision2 = Value End Set End Property + Public Property IODivision3() As String Get - Return Me.iODivision3Field + Return Me._iODivision3 End Get Set - Me.iODivision3Field = Value + Me._iODivision3 = Value End Set End Property + Public Property IOReferenz() As String Get - Return Me.iOReferenzField + Return Me._iOReferenz End Get Set - Me.iOReferenzField = Value + Me._iOReferenz = Value End Set End Property + Public Property IODatumZeit() As Date Get - Return Me.iODatumZeitField + Return Me._iODatumZeit End Get Set - Me.iODatumZeitField = Value + Me._iODatumZeit = Value End Set End Property + Public Property Version() As String Get - Return Me.versionField + Return Me._version End Get Set - Me.versionField = Value + Me._version = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TransaktionFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current TransaktionFreierVerkehrTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize TransaktionFreierVerkehrTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -978,18 +1134,22 @@ Namespace WeitergabeHauptzollamt_002 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes TransaktionFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, TransaktionFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -997,16 +1157,16 @@ Namespace WeitergabeHauptzollamt_002 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As TransaktionFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1014,16 +1174,21 @@ Namespace WeitergabeHauptzollamt_002 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1031,13 +1196,20 @@ Namespace WeitergabeHauptzollamt_002 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1046,18 +1218,18 @@ Namespace WeitergabeHauptzollamt_002 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 + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, 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) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1065,21 +1237,29 @@ Namespace WeitergabeHauptzollamt_002 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, System.Text.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, System.Text.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) - Dim xmlString As String = sr.ReadToEnd + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1089,52 +1269,61 @@ Namespace WeitergabeHauptzollamt_002 End If End Try End Function -#End Region End Class - + Partial Public Class DatenaustauschFreierVerkehrTyp - Private transaktionField As TransaktionFreierVerkehrTyp +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp - Private Shared sSerializer As System.Xml.Serialization.XmlSerializer + Private Shared _serializerXml As XmlSerializer +#End Region Public Sub New() MyBase.New - Me.transaktionField = New TransaktionFreierVerkehrTyp() + Me._transaktion = New TransaktionFreierVerkehrTyp() End Sub + Public Property Transaktion() As TransaktionFreierVerkehrTyp Get - Return Me.transaktionField + Return Me._transaktion End Get Set - Me.transaktionField = Value + Me._transaktion = Value End Set End Property - Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer + Private Shared ReadOnly Property SerializerXml() As XmlSerializer Get - If (sSerializer Is Nothing) Then - sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) End If - Return sSerializer + Return _serializerXml End Get End Property #Region "Serialize/Deserialize" - ''' - '''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document - ''' - '''string XML value - Public Overridable Function Serialize() As String + ''' + ''' Serialize DatenaustauschFreierVerkehrTyp object + ''' + ''' 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() - Serializer.Serialize(memoryStream, Me) - memoryStream.Seek(0, System.IO.SeekOrigin.Begin) - streamReader = New System.IO.StreamReader(memoryStream) + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Encoding = encoding + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream, encoding) Return streamReader.ReadToEnd Finally If (Not (streamReader) Is Nothing) Then @@ -1146,18 +1335,22 @@ Namespace WeitergabeHauptzollamt_002 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 + Public Overridable Overloads Function Serialize() As String + Return Serialize(System.Text.Encoding.UTF8) + End Function + + ''' + ''' Deserializes DatenaustauschFreierVerkehrTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) Try - obj = Deserialize(xml) + obj = Deserialize(input) Return True Catch ex As System.Exception exception = ex @@ -1165,16 +1358,16 @@ Namespace WeitergabeHauptzollamt_002 End Try End Function - Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean Dim exception As System.Exception = Nothing - Return Deserialize(xml, obj, exception) + Return Deserialize(input, obj, exception) End Function - Public Overloads Shared Function Deserialize(ByVal xml As String) As DatenaustauschFreierVerkehrTyp + Public Overloads Shared Function Deserialize(ByVal input 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) + stringReader = New System.IO.StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) Finally If (Not (stringReader) Is Nothing) Then stringReader.Dispose() @@ -1182,16 +1375,21 @@ Namespace WeitergabeHauptzollamt_002 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 + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' 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) + SaveToFile(fileName, encoding) Return True Catch e As System.Exception exception = e @@ -1199,13 +1397,20 @@ Namespace WeitergabeHauptzollamt_002 End Try End Function + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + Return SaveToFile(fileName, System.Text.Encoding.UTF8, exception) + End Function + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + SaveToFile(fileName, System.Text.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() - Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) - streamWriter = xmlFile.CreateText - streamWriter.WriteLine(xmlString) + Dim dataString As String = Serialize(encoding) + streamWriter = New System.IO.StreamWriter(fileName, False, encoding) + streamWriter.WriteLine(dataString) streamWriter.Close() Finally If (Not (streamWriter) Is Nothing) Then @@ -1214,18 +1419,18 @@ Namespace WeitergabeHauptzollamt_002 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 + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, 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) + obj = LoadFromFile(fileName, encoding) Return True Catch ex As System.Exception exception = ex @@ -1233,21 +1438,29 @@ Namespace WeitergabeHauptzollamt_002 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, System.Text.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, System.Text.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) - Dim xmlString As String = sr.ReadToEnd + sr = New System.IO.StreamReader(file, encoding) + Dim dataString As String = sr.ReadToEnd sr.Close() file.Close() - Return Deserialize(xmlString) + Return Deserialize(dataString) Finally If (Not (file) Is Nothing) Then file.Dispose() @@ -1257,6 +1470,6 @@ Namespace WeitergabeHauptzollamt_002 End If End Try End Function -#End Region End Class End Namespace +#Enable Warning