Files
ADMIN/DAKOSY_Worker/DAKOSY/ATLAS/AES/BestaetigungAusfuhr/BestaetigungAusfuhr_007.Designer.vb

6803 lines
252 KiB
VB.net

'' ------------------------------------------------------------------------------
'' <auto-generated>
'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
'' {"TargetFramework":"Net47","NameSpace":"BestaetigungAusfuhr_007","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}}
'' </auto-generated>
'' ------------------------------------------------------------------------------
#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 BestaetigungAusfuhr_007
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlRoot("BestaetigungAusfuhr", [Namespace]:="", IsNullable:=False)>
Partial Public Class BestaetigungAusfuhrENTyp
Inherits DatenaustauschExportTyp
#Region "Private fields"
Private _einzelBestaetigung As List(Of EinzelBestaetigungAusfuhrTyp)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._einzelBestaetigung = New List(Of EinzelBestaetigungAusfuhrTyp)()
End Sub
<XmlElement("EinzelBestaetigung", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EinzelBestaetigung() As List(Of EinzelBestaetigungAusfuhrTyp)
Get
Return Me._einzelBestaetigung
End Get
Set
Me._einzelBestaetigung = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BestaetigungAusfuhrENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize BestaetigungAusfuhrENTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes BestaetigungAusfuhrENTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output BestaetigungAusfuhrENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BestaetigungAusfuhrENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BestaetigungAusfuhrENTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BestaetigungAusfuhrENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As BestaetigungAusfuhrENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BestaetigungAusfuhrENTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As BestaetigungAusfuhrENTyp
Return CType(SerializerXml.Deserialize(s), BestaetigungAusfuhrENTyp)
End Function
#End Region
''' <summary>
''' Serializes current BestaetigungAusfuhrENTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an BestaetigungAusfuhrENTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output BestaetigungAusfuhrENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BestaetigungAusfuhrENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BestaetigungAusfuhrENTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BestaetigungAusfuhrENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BestaetigungAusfuhrENTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class EinzelBestaetigungAusfuhrTyp
#Region "Private fields"
Private _objektIdentifizierung As ObjektIdentifizierungENTyp
Private _kopfDaten As KopfDatenBestaetigungAusfuhrTyp
Private _warenPosition As List(Of PositionBestaetigungAusfuhrTyp)
Private _exportOperation As ExportOperationENType
Private _goodsItem As List(Of GoodsItemENType)
Private _attachments As List(Of AttachmentENType)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._attachments = New List(Of AttachmentENType)()
Me._goodsItem = New List(Of GoodsItemENType)()
Me._exportOperation = New ExportOperationENType()
Me._warenPosition = New List(Of PositionBestaetigungAusfuhrTyp)()
Me._kopfDaten = New KopfDatenBestaetigungAusfuhrTyp()
Me._objektIdentifizierung = New ObjektIdentifizierungENTyp()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ObjektIdentifizierung() As ObjektIdentifizierungENTyp
Get
Return Me._objektIdentifizierung
End Get
Set
Me._objektIdentifizierung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KopfDaten() As KopfDatenBestaetigungAusfuhrTyp
Get
Return Me._kopfDaten
End Get
Set
Me._kopfDaten = Value
End Set
End Property
<XmlElement("WarenPosition", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property WarenPosition() As List(Of PositionBestaetigungAusfuhrTyp)
Get
Return Me._warenPosition
End Get
Set
Me._warenPosition = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ExportOperation() As ExportOperationENType
Get
Return Me._exportOperation
End Get
Set
Me._exportOperation = Value
End Set
End Property
<XmlElement("GoodsItem", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property GoodsItem() As List(Of GoodsItemENType)
Get
Return Me._goodsItem
End Get
Set
Me._goodsItem = Value
End Set
End Property
<XmlArray(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified),
XmlArrayItem("Attachment", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, IsNullable:=False)>
Public Property Attachments() As List(Of AttachmentENType)
Get
Return Me._attachments
End Get
Set
Me._attachments = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelBestaetigungAusfuhrTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize EinzelBestaetigungAusfuhrTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes EinzelBestaetigungAusfuhrTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output EinzelBestaetigungAusfuhrTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelBestaetigungAusfuhrTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBestaetigungAusfuhrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelBestaetigungAusfuhrTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelBestaetigungAusfuhrTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelBestaetigungAusfuhrTyp
Return CType(SerializerXml.Deserialize(s), EinzelBestaetigungAusfuhrTyp)
End Function
#End Region
''' <summary>
''' Serializes current EinzelBestaetigungAusfuhrTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an EinzelBestaetigungAusfuhrTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output EinzelBestaetigungAusfuhrTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelBestaetigungAusfuhrTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBestaetigungAusfuhrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelBestaetigungAusfuhrTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class ObjektIdentifizierungENTyp
#Region "Private fields"
Private _objektName As String
Private _eDIFACTNachrichtenNr As String
Private _zeitpunktEingang As Date
Private _shipmentReferenz As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ObjektName() As String
Get
Return Me._objektName
End Get
Set
Me._objektName = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EDIFACTNachrichtenNr() As String
Get
Return Me._eDIFACTNachrichtenNr
End Get
Set
Me._eDIFACTNachrichtenNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZeitpunktEingang() As Date
Get
Return Me._zeitpunktEingang
End Get
Set
Me._zeitpunktEingang = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ShipmentReferenz() As String
Get
Return Me._shipmentReferenz
End Get
Set
Me._shipmentReferenz = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize ObjektIdentifizierungENTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes ObjektIdentifizierungENTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output ObjektIdentifizierungENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungENTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungENTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungENTyp
Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungENTyp)
End Function
#End Region
''' <summary>
''' Serializes current ObjektIdentifizierungENTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an ObjektIdentifizierungENTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output ObjektIdentifizierungENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungENTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungENTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class AttachmentENType
#Region "Private fields"
Private _technicalContent As String
Private _originalFilename As String
Private _fileFormat As String
Private _dataEncoding As String
Private _data As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TechnicalContent() As String
Get
Return Me._technicalContent
End Get
Set
Me._technicalContent = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property OriginalFilename() As String
Get
Return Me._originalFilename
End Get
Set
Me._originalFilename = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property FileFormat() As String
Get
Return Me._fileFormat
End Get
Set
Me._fileFormat = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property DataEncoding() As String
Get
Return Me._dataEncoding
End Get
Set
Me._dataEncoding = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Data() As String
Get
Return Me._data
End Get
Set
Me._data = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AttachmentENType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize AttachmentENType object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes AttachmentENType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output AttachmentENType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AttachmentENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AttachmentENType)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AttachmentENType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AttachmentENType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AttachmentENType)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AttachmentENType
Return CType(SerializerXml.Deserialize(s), AttachmentENType)
End Function
#End Region
''' <summary>
''' Serializes current AttachmentENType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an AttachmentENType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output AttachmentENType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AttachmentENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AttachmentENType)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AttachmentENType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AttachmentENType
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class PackagingENType
#Region "Private fields"
Private _numberOfPackages As String
Private _typeOfPackages As String
Private _shippingMarks As String
Private _packageReference As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger")>
Public Property NumberOfPackages() As String
Get
Return Me._numberOfPackages
End Get
Set
Me._numberOfPackages = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TypeOfPackages() As String
Get
Return Me._typeOfPackages
End Get
Set
Me._typeOfPackages = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ShippingMarks() As String
Get
Return Me._shippingMarks
End Get
Set
Me._shippingMarks = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger")>
Public Property PackageReference() As String
Get
Return Me._packageReference
End Get
Set
Me._packageReference = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PackagingENType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize PackagingENType object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes PackagingENType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output PackagingENType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackagingENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PackagingENType)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackagingENType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PackagingENType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PackagingENType)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As PackagingENType
Return CType(SerializerXml.Deserialize(s), PackagingENType)
End Function
#End Region
''' <summary>
''' Serializes current PackagingENType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an PackagingENType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output PackagingENType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackagingENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PackagingENType)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackagingENType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PackagingENType
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class ProcedureENType
#Region "Private fields"
Private _requestedProcedure As String
Private _previousProcedure As String
Private _additionalProcedure As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property RequestedProcedure() As String
Get
Return Me._requestedProcedure
End Get
Set
Me._requestedProcedure = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PreviousProcedure() As String
Get
Return Me._previousProcedure
End Get
Set
Me._previousProcedure = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AdditionalProcedure() As String
Get
Return Me._additionalProcedure
End Get
Set
Me._additionalProcedure = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ProcedureENType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize ProcedureENType object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes ProcedureENType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output ProcedureENType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ProcedureENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ProcedureENType)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ProcedureENType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ProcedureENType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ProcedureENType)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ProcedureENType
Return CType(SerializerXml.Deserialize(s), ProcedureENType)
End Function
#End Region
''' <summary>
''' Serializes current ProcedureENType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an ProcedureENType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output ProcedureENType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ProcedureENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ProcedureENType)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ProcedureENType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ProcedureENType
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class GoodsItemENType
#Region "Private fields"
Private _declarationGoodsItemNumber As String
Private _harmonizedSystemSubHeadingCode As String
Private _combinedNomenclatureCode As String
Private _taricAdditionalCode As List(Of String)
Private _descriptionOfGoods As String
Private _registrationNumberExternal As String
Private _referenceNumberUCR As String
Private _netMass As Decimal
Private _grossMass As Decimal
Private _supplementaryUnits As Decimal
Private _waterMark As String
Private _procedure As ProcedureENType
Private _statisticalValue As Decimal
Private _countryOfExport As String
Private _packaging As List(Of PackagingENType)
Private _consignee As AddressENType
Private _natureOfTransaction As String
Private _applicationInternalData As ApplicationInternalDataType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._applicationInternalData = New ApplicationInternalDataType()
Me._consignee = New AddressENType()
Me._packaging = New List(Of PackagingENType)()
Me._procedure = New ProcedureENType()
Me._taricAdditionalCode = New List(Of String)()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger")>
Public Property DeclarationGoodsItemNumber() As String
Get
Return Me._declarationGoodsItemNumber
End Get
Set
Me._declarationGoodsItemNumber = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property HarmonizedSystemSubHeadingCode() As String
Get
Return Me._harmonizedSystemSubHeadingCode
End Get
Set
Me._harmonizedSystemSubHeadingCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property CombinedNomenclatureCode() As String
Get
Return Me._combinedNomenclatureCode
End Get
Set
Me._combinedNomenclatureCode = Value
End Set
End Property
<XmlElement("TaricAdditionalCode", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TaricAdditionalCode() As List(Of String)
Get
Return Me._taricAdditionalCode
End Get
Set
Me._taricAdditionalCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property DescriptionOfGoods() As String
Get
Return Me._descriptionOfGoods
End Get
Set
Me._descriptionOfGoods = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property RegistrationNumberExternal() As String
Get
Return Me._registrationNumberExternal
End Get
Set
Me._registrationNumberExternal = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ReferenceNumberUCR() As String
Get
Return Me._referenceNumberUCR
End Get
Set
Me._referenceNumberUCR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property NetMass() As Decimal
Get
Return Me._netMass
End Get
Set
Me._netMass = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property GrossMass() As Decimal
Get
Return Me._grossMass
End Get
Set
Me._grossMass = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property SupplementaryUnits() As Decimal
Get
Return Me._supplementaryUnits
End Get
Set
Me._supplementaryUnits = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property WaterMark() As String
Get
Return Me._waterMark
End Get
Set
Me._waterMark = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Procedure() As ProcedureENType
Get
Return Me._procedure
End Get
Set
Me._procedure = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property StatisticalValue() As Decimal
Get
Return Me._statisticalValue
End Get
Set
Me._statisticalValue = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property CountryOfExport() As String
Get
Return Me._countryOfExport
End Get
Set
Me._countryOfExport = Value
End Set
End Property
<XmlElement("Packaging", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Packaging() As List(Of PackagingENType)
Get
Return Me._packaging
End Get
Set
Me._packaging = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Consignee() As AddressENType
Get
Return Me._consignee
End Get
Set
Me._consignee = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property NatureOfTransaction() As String
Get
Return Me._natureOfTransaction
End Get
Set
Me._natureOfTransaction = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ApplicationInternalData() As ApplicationInternalDataType
Get
Return Me._applicationInternalData
End Get
Set
Me._applicationInternalData = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GoodsItemENType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize GoodsItemENType object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes GoodsItemENType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output GoodsItemENType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GoodsItemENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, GoodsItemENType)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GoodsItemENType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As GoodsItemENType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GoodsItemENType)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As GoodsItemENType
Return CType(SerializerXml.Deserialize(s), GoodsItemENType)
End Function
#End Region
''' <summary>
''' Serializes current GoodsItemENType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an GoodsItemENType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output GoodsItemENType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GoodsItemENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, GoodsItemENType)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GoodsItemENType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GoodsItemENType
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class AddressENType
#Region "Private fields"
Private _identificationNumber As String
Private _subsidiaryNumber As String
Private _name As String
Private _streetAndNumber As String
Private _city As String
Private _postcode As String
Private _country As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IdentificationNumber() As String
Get
Return Me._identificationNumber
End Get
Set
Me._identificationNumber = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger")>
Public Property SubsidiaryNumber() As String
Get
Return Me._subsidiaryNumber
End Get
Set
Me._subsidiaryNumber = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property StreetAndNumber() As String
Get
Return Me._streetAndNumber
End Get
Set
Me._streetAndNumber = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property City() As String
Get
Return Me._city
End Get
Set
Me._city = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Postcode() As String
Get
Return Me._postcode
End Get
Set
Me._postcode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Country() As String
Get
Return Me._country
End Get
Set
Me._country = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AddressENType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize AddressENType object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes AddressENType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output AddressENType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AddressENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AddressENType)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AddressENType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AddressENType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AddressENType)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AddressENType
Return CType(SerializerXml.Deserialize(s), AddressENType)
End Function
#End Region
''' <summary>
''' Serializes current AddressENType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an AddressENType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output AddressENType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AddressENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AddressENType)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AddressENType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AddressENType
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class ApplicationInternalDataType
#Region "Private fields"
Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)()
End Sub
<XmlArray(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified),
XmlArrayItem("Data", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, IsNullable:=False)>
Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType)
Get
Return Me._additionalDetails
End Get
Set
Me._additionalDetails = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize ApplicationInternalDataType object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes ApplicationInternalDataType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output ApplicationInternalDataType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataType)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType
Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType)
End Function
#End Region
''' <summary>
''' Serializes current ApplicationInternalDataType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an ApplicationInternalDataType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output ApplicationInternalDataType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataType)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class ApplicationInternalDataAdditionalDetailsDataType
#Region "Private fields"
Private _key As String
Private _value As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Key() As String
Get
Return Me._key
End Get
Set
Me._key = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Value() As String
Get
Return Me._value
End Get
Set
Me._value = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize ApplicationInternalDataAdditionalDetailsDataType object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output ApplicationInternalDataAdditionalDetailsDataType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType
Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType)
End Function
#End Region
''' <summary>
''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output ApplicationInternalDataAdditionalDetailsDataType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class DeliveryTermsENType
#Region "Private fields"
Private _incotermCode As String
Private _text As String
Private _location As String
Private _uNLocode As String
Private _country As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IncotermCode() As String
Get
Return Me._incotermCode
End Get
Set
Me._incotermCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Text() As String
Get
Return Me._text
End Get
Set
Me._text = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Location() As String
Get
Return Me._location
End Get
Set
Me._location = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property UNLocode() As String
Get
Return Me._uNLocode
End Get
Set
Me._uNLocode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Country() As String
Get
Return Me._country
End Get
Set
Me._country = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DeliveryTermsENType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize DeliveryTermsENType object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes DeliveryTermsENType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output DeliveryTermsENType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DeliveryTermsENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DeliveryTermsENType)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DeliveryTermsENType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As DeliveryTermsENType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DeliveryTermsENType)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As DeliveryTermsENType
Return CType(SerializerXml.Deserialize(s), DeliveryTermsENType)
End Function
#End Region
''' <summary>
''' Serializes current DeliveryTermsENType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an DeliveryTermsENType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output DeliveryTermsENType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DeliveryTermsENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DeliveryTermsENType)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DeliveryTermsENType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DeliveryTermsENType
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class ExportOperationENType
#Region "Private fields"
Private _declarationType As String
Private _exportDeclarationType As String
Private _mRN As String
Private _countryOfDestination As String
Private _countryOfExport As String
Private _exitDateAndTime As Date
Private _declarationAcceptanceDateAndTime As Date
Private _releaseDateAndTime As Date
Private _alternativeEvidence As List(Of String)
Private _shortage As String
Private _partyConstellation As String
Private _grossMass As Decimal
Private _registrationNumberExternal As String
Private _referenceNumberUCR As String
Private _waterMark As String
Private _customsOfficeOfPresentation As String
Private _customsOfficeOfExport As String
Private _customsOfficeOfExitActual As String
Private _natureOfTransaction As String
Private _totalAmountInvoiced As Decimal
Private _invoiceCurrency As String
Private _contractualPartner As AddressENType
Private _exporter As AddressENType
Private _consignee As AddressENType
Private _declarant As AddressENType
Private _representative As AddressENType
Private _subContractor As AddressENType
Private _deliveryTerms As DeliveryTermsENType
Private _fileNameOfExitNotification As String
Private _applicationInternalData As ApplicationInternalDataType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._applicationInternalData = New ApplicationInternalDataType()
Me._deliveryTerms = New DeliveryTermsENType()
Me._subContractor = New AddressENType()
Me._representative = New AddressENType()
Me._declarant = New AddressENType()
Me._consignee = New AddressENType()
Me._exporter = New AddressENType()
Me._contractualPartner = New AddressENType()
Me._alternativeEvidence = New List(Of String)()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property DeclarationType() As String
Get
Return Me._declarationType
End Get
Set
Me._declarationType = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ExportDeclarationType() As String
Get
Return Me._exportDeclarationType
End Get
Set
Me._exportDeclarationType = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property MRN() As String
Get
Return Me._mRN
End Get
Set
Me._mRN = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property CountryOfDestination() As String
Get
Return Me._countryOfDestination
End Get
Set
Me._countryOfDestination = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property CountryOfExport() As String
Get
Return Me._countryOfExport
End Get
Set
Me._countryOfExport = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ExitDateAndTime() As Date
Get
Return Me._exitDateAndTime
End Get
Set
Me._exitDateAndTime = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property DeclarationAcceptanceDateAndTime() As Date
Get
Return Me._declarationAcceptanceDateAndTime
End Get
Set
Me._declarationAcceptanceDateAndTime = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ReleaseDateAndTime() As Date
Get
Return Me._releaseDateAndTime
End Get
Set
Me._releaseDateAndTime = Value
End Set
End Property
<XmlElement("AlternativeEvidence", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AlternativeEvidence() As List(Of String)
Get
Return Me._alternativeEvidence
End Get
Set
Me._alternativeEvidence = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Shortage() As String
Get
Return Me._shortage
End Get
Set
Me._shortage = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PartyConstellation() As String
Get
Return Me._partyConstellation
End Get
Set
Me._partyConstellation = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property GrossMass() As Decimal
Get
Return Me._grossMass
End Get
Set
Me._grossMass = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property RegistrationNumberExternal() As String
Get
Return Me._registrationNumberExternal
End Get
Set
Me._registrationNumberExternal = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ReferenceNumberUCR() As String
Get
Return Me._referenceNumberUCR
End Get
Set
Me._referenceNumberUCR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property WaterMark() As String
Get
Return Me._waterMark
End Get
Set
Me._waterMark = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property CustomsOfficeOfPresentation() As String
Get
Return Me._customsOfficeOfPresentation
End Get
Set
Me._customsOfficeOfPresentation = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property CustomsOfficeOfExport() As String
Get
Return Me._customsOfficeOfExport
End Get
Set
Me._customsOfficeOfExport = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property CustomsOfficeOfExitActual() As String
Get
Return Me._customsOfficeOfExitActual
End Get
Set
Me._customsOfficeOfExitActual = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property NatureOfTransaction() As String
Get
Return Me._natureOfTransaction
End Get
Set
Me._natureOfTransaction = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TotalAmountInvoiced() As Decimal
Get
Return Me._totalAmountInvoiced
End Get
Set
Me._totalAmountInvoiced = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property InvoiceCurrency() As String
Get
Return Me._invoiceCurrency
End Get
Set
Me._invoiceCurrency = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ContractualPartner() As AddressENType
Get
Return Me._contractualPartner
End Get
Set
Me._contractualPartner = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Exporter() As AddressENType
Get
Return Me._exporter
End Get
Set
Me._exporter = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Consignee() As AddressENType
Get
Return Me._consignee
End Get
Set
Me._consignee = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Declarant() As AddressENType
Get
Return Me._declarant
End Get
Set
Me._declarant = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Representative() As AddressENType
Get
Return Me._representative
End Get
Set
Me._representative = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property SubContractor() As AddressENType
Get
Return Me._subContractor
End Get
Set
Me._subContractor = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property DeliveryTerms() As DeliveryTermsENType
Get
Return Me._deliveryTerms
End Get
Set
Me._deliveryTerms = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property FileNameOfExitNotification() As String
Get
Return Me._fileNameOfExitNotification
End Get
Set
Me._fileNameOfExitNotification = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ApplicationInternalData() As ApplicationInternalDataType
Get
Return Me._applicationInternalData
End Get
Set
Me._applicationInternalData = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ExportOperationENType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize ExportOperationENType object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes ExportOperationENType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output ExportOperationENType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ExportOperationENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ExportOperationENType)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ExportOperationENType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ExportOperationENType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ExportOperationENType)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ExportOperationENType
Return CType(SerializerXml.Deserialize(s), ExportOperationENType)
End Function
#End Region
''' <summary>
''' Serializes current ExportOperationENType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an ExportOperationENType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output ExportOperationENType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ExportOperationENType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ExportOperationENType)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ExportOperationENType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ExportOperationENType
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class EmpfaengerPositionENTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _identifikationsart As String
Private _teilnehmerNLNR As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set
Me._teilnehmerEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Identifikationsart() As String
Get
Return Me._identifikationsart
End Get
Set
Me._identifikationsart = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set
Me._teilnehmerNLNR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set
Me._strasse = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EmpfaengerPositionENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize EmpfaengerPositionENTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes EmpfaengerPositionENTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output EmpfaengerPositionENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerPositionENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EmpfaengerPositionENTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerPositionENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EmpfaengerPositionENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EmpfaengerPositionENTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As EmpfaengerPositionENTyp
Return CType(SerializerXml.Deserialize(s), EmpfaengerPositionENTyp)
End Function
#End Region
''' <summary>
''' Serializes current EmpfaengerPositionENTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an EmpfaengerPositionENTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output EmpfaengerPositionENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerPositionENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EmpfaengerPositionENTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerPositionENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EmpfaengerPositionENTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class PackstueckENTyp
#Region "Private fields"
Private _anzahl As String
Private _verpackungsartCode As String
Private _kennzeichnung As String
Private _positionHauptpack As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger")>
Public Property Anzahl() As String
Get
Return Me._anzahl
End Get
Set
Me._anzahl = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VerpackungsartCode() As String
Get
Return Me._verpackungsartCode
End Get
Set
Me._verpackungsartCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Kennzeichnung() As String
Get
Return Me._kennzeichnung
End Get
Set
Me._kennzeichnung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger")>
Public Property PositionHauptpack() As String
Get
Return Me._positionHauptpack
End Get
Set
Me._positionHauptpack = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PackstueckENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize PackstueckENTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes PackstueckENTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output PackstueckENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PackstueckENTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PackstueckENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PackstueckENTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As PackstueckENTyp
Return CType(SerializerXml.Deserialize(s), PackstueckENTyp)
End Function
#End Region
''' <summary>
''' Serializes current PackstueckENTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an PackstueckENTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output PackstueckENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PackstueckENTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PackstueckENTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class VerfahrenENTyp
#Region "Private fields"
Private _verfahrenAngemeldetCode As String
Private _verfahrenVorangegangenCode As String
Private _verfahrenNationalCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VerfahrenAngemeldetCode() As String
Get
Return Me._verfahrenAngemeldetCode
End Get
Set
Me._verfahrenAngemeldetCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VerfahrenVorangegangenCode() As String
Get
Return Me._verfahrenVorangegangenCode
End Get
Set
Me._verfahrenVorangegangenCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VerfahrenNationalCode() As String
Get
Return Me._verfahrenNationalCode
End Get
Set
Me._verfahrenNationalCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerfahrenENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize VerfahrenENTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes VerfahrenENTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output VerfahrenENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrenENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerfahrenENTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrenENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As VerfahrenENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerfahrenENTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As VerfahrenENTyp
Return CType(SerializerXml.Deserialize(s), VerfahrenENTyp)
End Function
#End Region
''' <summary>
''' Serializes current VerfahrenENTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an VerfahrenENTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output VerfahrenENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrenENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerfahrenENTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrenENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerfahrenENTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class PositionBestaetigungAusfuhrTyp
#Region "Private fields"
Private _positionsnummer As String
Private _warenNummerKN8 As String
Private _warenNummerTARIC As String
Private _warenNummerZusatz1 As String
Private _warenNummerZusatz2 As String
Private _warenNummerNational As String
Private _warenBezeichnung As String
Private _registrierNummerFremdSystem As String
Private _kennnummerSendung As String
Private _eigenmasse As Decimal
Private _rohmasse As Decimal
Private _wasserzeichen As String
Private _verfahren As VerfahrenENTyp
Private _ausfuhrerstattungVerfahrensCode As String
Private _packstueck As List(Of PackstueckENTyp)
Private _empfaenger As EmpfaengerPositionENTyp
Private _incotermCode As String
Private _incotermText As String
Private _incotermOrt As String
Private _geschaeftArtCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._empfaenger = New EmpfaengerPositionENTyp()
Me._packstueck = New List(Of PackstueckENTyp)()
Me._verfahren = New VerfahrenENTyp()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger")>
Public Property Positionsnummer() As String
Get
Return Me._positionsnummer
End Get
Set
Me._positionsnummer = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property WarenNummerKN8() As String
Get
Return Me._warenNummerKN8
End Get
Set
Me._warenNummerKN8 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property WarenNummerTARIC() As String
Get
Return Me._warenNummerTARIC
End Get
Set
Me._warenNummerTARIC = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property WarenNummerZusatz1() As String
Get
Return Me._warenNummerZusatz1
End Get
Set
Me._warenNummerZusatz1 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property WarenNummerZusatz2() As String
Get
Return Me._warenNummerZusatz2
End Get
Set
Me._warenNummerZusatz2 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property WarenNummerNational() As String
Get
Return Me._warenNummerNational
End Get
Set
Me._warenNummerNational = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property WarenBezeichnung() As String
Get
Return Me._warenBezeichnung
End Get
Set
Me._warenBezeichnung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property RegistrierNummerFremdSystem() As String
Get
Return Me._registrierNummerFremdSystem
End Get
Set
Me._registrierNummerFremdSystem = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KennnummerSendung() As String
Get
Return Me._kennnummerSendung
End Get
Set
Me._kennnummerSendung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Eigenmasse() As Decimal
Get
Return Me._eigenmasse
End Get
Set
Me._eigenmasse = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Rohmasse() As Decimal
Get
Return Me._rohmasse
End Get
Set
Me._rohmasse = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Wasserzeichen() As String
Get
Return Me._wasserzeichen
End Get
Set
Me._wasserzeichen = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Verfahren() As VerfahrenENTyp
Get
Return Me._verfahren
End Get
Set
Me._verfahren = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AusfuhrerstattungVerfahrensCode() As String
Get
Return Me._ausfuhrerstattungVerfahrensCode
End Get
Set
Me._ausfuhrerstattungVerfahrensCode = Value
End Set
End Property
<XmlElement("Packstueck", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Packstueck() As List(Of PackstueckENTyp)
Get
Return Me._packstueck
End Get
Set
Me._packstueck = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Empfaenger() As EmpfaengerPositionENTyp
Get
Return Me._empfaenger
End Get
Set
Me._empfaenger = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IncotermCode() As String
Get
Return Me._incotermCode
End Get
Set
Me._incotermCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IncotermText() As String
Get
Return Me._incotermText
End Get
Set
Me._incotermText = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IncotermOrt() As String
Get
Return Me._incotermOrt
End Get
Set
Me._incotermOrt = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property GeschaeftArtCode() As String
Get
Return Me._geschaeftArtCode
End Get
Set
Me._geschaeftArtCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionBestaetigungAusfuhrTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize PositionBestaetigungAusfuhrTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes PositionBestaetigungAusfuhrTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output PositionBestaetigungAusfuhrTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionBestaetigungAusfuhrTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionBestaetigungAusfuhrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PositionBestaetigungAusfuhrTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionBestaetigungAusfuhrTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionBestaetigungAusfuhrTyp
Return CType(SerializerXml.Deserialize(s), PositionBestaetigungAusfuhrTyp)
End Function
#End Region
''' <summary>
''' Serializes current PositionBestaetigungAusfuhrTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an PositionBestaetigungAusfuhrTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output PositionBestaetigungAusfuhrTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionBestaetigungAusfuhrTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionBestaetigungAusfuhrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionBestaetigungAusfuhrTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class LieferbedingungENTyp
#Region "Private fields"
Private _incotermCode As String
Private _incotermText As String
Private _incotermOrt As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IncotermCode() As String
Get
Return Me._incotermCode
End Get
Set
Me._incotermCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IncotermText() As String
Get
Return Me._incotermText
End Get
Set
Me._incotermText = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IncotermOrt() As String
Get
Return Me._incotermOrt
End Get
Set
Me._incotermOrt = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(LieferbedingungENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize LieferbedingungENTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes LieferbedingungENTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output LieferbedingungENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LieferbedingungENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, LieferbedingungENTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LieferbedingungENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As LieferbedingungENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), LieferbedingungENTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As LieferbedingungENTyp
Return CType(SerializerXml.Deserialize(s), LieferbedingungENTyp)
End Function
#End Region
''' <summary>
''' Serializes current LieferbedingungENTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an LieferbedingungENTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output LieferbedingungENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LieferbedingungENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, LieferbedingungENTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LieferbedingungENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As LieferbedingungENTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class SubUnternehmerENTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _teilnehmerNLNR As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set
Me._teilnehmerEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set
Me._teilnehmerNLNR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set
Me._strasse = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SubUnternehmerENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize SubUnternehmerENTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes SubUnternehmerENTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output SubUnternehmerENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SubUnternehmerENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SubUnternehmerENTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SubUnternehmerENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As SubUnternehmerENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SubUnternehmerENTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As SubUnternehmerENTyp
Return CType(SerializerXml.Deserialize(s), SubUnternehmerENTyp)
End Function
#End Region
''' <summary>
''' Serializes current SubUnternehmerENTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an SubUnternehmerENTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output SubUnternehmerENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SubUnternehmerENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SubUnternehmerENTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SubUnternehmerENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SubUnternehmerENTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class VertreterAnmelderENTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _teilnehmerNLNR As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set
Me._teilnehmerEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set
Me._teilnehmerNLNR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set
Me._strasse = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VertreterAnmelderENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize VertreterAnmelderENTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes VertreterAnmelderENTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output VertreterAnmelderENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VertreterAnmelderENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VertreterAnmelderENTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VertreterAnmelderENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As VertreterAnmelderENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VertreterAnmelderENTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As VertreterAnmelderENTyp
Return CType(SerializerXml.Deserialize(s), VertreterAnmelderENTyp)
End Function
#End Region
''' <summary>
''' Serializes current VertreterAnmelderENTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an VertreterAnmelderENTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output VertreterAnmelderENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VertreterAnmelderENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VertreterAnmelderENTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VertreterAnmelderENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VertreterAnmelderENTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class AnmelderENTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _teilnehmerNLNR As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set
Me._teilnehmerEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set
Me._teilnehmerNLNR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set
Me._strasse = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AnmelderENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize AnmelderENTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes AnmelderENTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output AnmelderENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmelderENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AnmelderENTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmelderENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AnmelderENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AnmelderENTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AnmelderENTyp
Return CType(SerializerXml.Deserialize(s), AnmelderENTyp)
End Function
#End Region
''' <summary>
''' Serializes current AnmelderENTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an AnmelderENTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output AnmelderENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmelderENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AnmelderENTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmelderENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AnmelderENTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class EmpfaengerENTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _identifikationsart As String
Private _teilnehmerNLNR As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set
Me._teilnehmerEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Identifikationsart() As String
Get
Return Me._identifikationsart
End Get
Set
Me._identifikationsart = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set
Me._teilnehmerNLNR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set
Me._strasse = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EmpfaengerENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize EmpfaengerENTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes EmpfaengerENTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output EmpfaengerENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EmpfaengerENTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EmpfaengerENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EmpfaengerENTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As EmpfaengerENTyp
Return CType(SerializerXml.Deserialize(s), EmpfaengerENTyp)
End Function
#End Region
''' <summary>
''' Serializes current EmpfaengerENTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an EmpfaengerENTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output EmpfaengerENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EmpfaengerENTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EmpfaengerENTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class AusfuehrerENTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _identifikationsart As String
Private _teilnehmerNLNR As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set
Me._teilnehmerEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Identifikationsart() As String
Get
Return Me._identifikationsart
End Get
Set
Me._identifikationsart = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set
Me._teilnehmerNLNR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set
Me._strasse = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AusfuehrerENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize AusfuehrerENTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes AusfuehrerENTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output AusfuehrerENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AusfuehrerENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AusfuehrerENTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AusfuehrerENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AusfuehrerENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AusfuehrerENTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AusfuehrerENTyp
Return CType(SerializerXml.Deserialize(s), AusfuehrerENTyp)
End Function
#End Region
''' <summary>
''' Serializes current AusfuehrerENTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an AusfuehrerENTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output AusfuehrerENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AusfuehrerENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AusfuehrerENTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AusfuehrerENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AusfuehrerENTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class VerfahrensinhaberPVENTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _teilnehmerNLNR As String
Private _name As String
Private _strasse As String
Private _ort As String
Private _pLZ As String
Private _landCode As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set
Me._teilnehmerEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set
Me._teilnehmerNLNR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Name() As String
Get
Return Me._name
End Get
Set
Me._name = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Strasse() As String
Get
Return Me._strasse
End Get
Set
Me._strasse = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Ort() As String
Get
Return Me._ort
End Get
Set
Me._ort = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PLZ() As String
Get
Return Me._pLZ
End Get
Set
Me._pLZ = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property LandCode() As String
Get
Return Me._landCode
End Get
Set
Me._landCode = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerfahrensinhaberPVENTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize VerfahrensinhaberPVENTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes VerfahrensinhaberPVENTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output VerfahrensinhaberPVENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrensinhaberPVENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerfahrensinhaberPVENTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrensinhaberPVENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As VerfahrensinhaberPVENTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerfahrensinhaberPVENTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As VerfahrensinhaberPVENTyp
Return CType(SerializerXml.Deserialize(s), VerfahrensinhaberPVENTyp)
End Function
#End Region
''' <summary>
''' Serializes current VerfahrensinhaberPVENTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an VerfahrensinhaberPVENTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output VerfahrensinhaberPVENTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrensinhaberPVENTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, VerfahrensinhaberPVENTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrensinhaberPVENTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerfahrensinhaberPVENTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class KopfDatenBestaetigungAusfuhrTyp
#Region "Private fields"
Private _anmeldeArtAusfuhrCode As String
Private _anmeldeArtVerfahrenCode As String
Private _anmeldeArtUeberfuehrungCode As String
Private _movementReferenceNumber As String
Private _bestimmungslandCode As String
Private _ausfuhrlandCode As String
Private _ausgangDatumZeit As Date
Private _ueberlassungDatumZeit As Date
Private _alternativerNachweis As String
Private _minderMengeIndikator As String
Private _beteiligtenKonstellation As String
Private _gesamtRohMasse As Decimal
Private _registrierNummerFremdSystem As String
Private _kennnummerSendung As String
Private _anzahlPackStuecke As String
Private _anzahlPositionen As String
Private _wasserzeichen As String
Private _ausfuhrZollstelleID As String
Private _ausgangZollstelleID As String
Private _geschaeftArtCode As String
Private _rechnungspreis As Decimal
Private _rechnungswaehrung As String
Private _verfahrensinhaberPV As VerfahrensinhaberPVENTyp
Private _ausfuehrer As AusfuehrerENTyp
Private _empfaenger As EmpfaengerENTyp
Private _anmelder As AnmelderENTyp
Private _vertreterAnmelder As VertreterAnmelderENTyp
Private _subUnternehmer As SubUnternehmerENTyp
Private _lieferbedingung As LieferbedingungENTyp
Private _dateinameAusgangsvermerk As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._lieferbedingung = New LieferbedingungENTyp()
Me._subUnternehmer = New SubUnternehmerENTyp()
Me._vertreterAnmelder = New VertreterAnmelderENTyp()
Me._anmelder = New AnmelderENTyp()
Me._empfaenger = New EmpfaengerENTyp()
Me._ausfuehrer = New AusfuehrerENTyp()
Me._verfahrensinhaberPV = New VerfahrensinhaberPVENTyp()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AnmeldeArtAusfuhrCode() As String
Get
Return Me._anmeldeArtAusfuhrCode
End Get
Set
Me._anmeldeArtAusfuhrCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AnmeldeArtVerfahrenCode() As String
Get
Return Me._anmeldeArtVerfahrenCode
End Get
Set
Me._anmeldeArtVerfahrenCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AnmeldeArtUeberfuehrungCode() As String
Get
Return Me._anmeldeArtUeberfuehrungCode
End Get
Set
Me._anmeldeArtUeberfuehrungCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property MovementReferenceNumber() As String
Get
Return Me._movementReferenceNumber
End Get
Set
Me._movementReferenceNumber = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BestimmungslandCode() As String
Get
Return Me._bestimmungslandCode
End Get
Set
Me._bestimmungslandCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AusfuhrlandCode() As String
Get
Return Me._ausfuhrlandCode
End Get
Set
Me._ausfuhrlandCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AusgangDatumZeit() As Date
Get
Return Me._ausgangDatumZeit
End Get
Set
Me._ausgangDatumZeit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property UeberlassungDatumZeit() As Date
Get
Return Me._ueberlassungDatumZeit
End Get
Set
Me._ueberlassungDatumZeit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AlternativerNachweis() As String
Get
Return Me._alternativerNachweis
End Get
Set
Me._alternativerNachweis = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property MinderMengeIndikator() As String
Get
Return Me._minderMengeIndikator
End Get
Set
Me._minderMengeIndikator = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BeteiligtenKonstellation() As String
Get
Return Me._beteiligtenKonstellation
End Get
Set
Me._beteiligtenKonstellation = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property GesamtRohMasse() As Decimal
Get
Return Me._gesamtRohMasse
End Get
Set
Me._gesamtRohMasse = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property RegistrierNummerFremdSystem() As String
Get
Return Me._registrierNummerFremdSystem
End Get
Set
Me._registrierNummerFremdSystem = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KennnummerSendung() As String
Get
Return Me._kennnummerSendung
End Get
Set
Me._kennnummerSendung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger")>
Public Property AnzahlPackStuecke() As String
Get
Return Me._anzahlPackStuecke
End Get
Set
Me._anzahlPackStuecke = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger")>
Public Property AnzahlPositionen() As String
Get
Return Me._anzahlPositionen
End Get
Set
Me._anzahlPositionen = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Wasserzeichen() As String
Get
Return Me._wasserzeichen
End Get
Set
Me._wasserzeichen = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AusfuhrZollstelleID() As String
Get
Return Me._ausfuhrZollstelleID
End Get
Set
Me._ausfuhrZollstelleID = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AusgangZollstelleID() As String
Get
Return Me._ausgangZollstelleID
End Get
Set
Me._ausgangZollstelleID = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property GeschaeftArtCode() As String
Get
Return Me._geschaeftArtCode
End Get
Set
Me._geschaeftArtCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Rechnungspreis() As Decimal
Get
Return Me._rechnungspreis
End Get
Set
Me._rechnungspreis = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Rechnungswaehrung() As String
Get
Return Me._rechnungswaehrung
End Get
Set
Me._rechnungswaehrung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VerfahrensinhaberPV() As VerfahrensinhaberPVENTyp
Get
Return Me._verfahrensinhaberPV
End Get
Set
Me._verfahrensinhaberPV = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Ausfuehrer() As AusfuehrerENTyp
Get
Return Me._ausfuehrer
End Get
Set
Me._ausfuehrer = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Empfaenger() As EmpfaengerENTyp
Get
Return Me._empfaenger
End Get
Set
Me._empfaenger = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Anmelder() As AnmelderENTyp
Get
Return Me._anmelder
End Get
Set
Me._anmelder = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VertreterAnmelder() As VertreterAnmelderENTyp
Get
Return Me._vertreterAnmelder
End Get
Set
Me._vertreterAnmelder = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property SubUnternehmer() As SubUnternehmerENTyp
Get
Return Me._subUnternehmer
End Get
Set
Me._subUnternehmer = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Lieferbedingung() As LieferbedingungENTyp
Get
Return Me._lieferbedingung
End Get
Set
Me._lieferbedingung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property DateinameAusgangsvermerk() As String
Get
Return Me._dateinameAusgangsvermerk
End Get
Set
Me._dateinameAusgangsvermerk = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenBestaetigungAusfuhrTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize KopfDatenBestaetigungAusfuhrTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes KopfDatenBestaetigungAusfuhrTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output KopfDatenBestaetigungAusfuhrTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KopfDatenBestaetigungAusfuhrTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenBestaetigungAusfuhrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenBestaetigungAusfuhrTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenBestaetigungAusfuhrTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenBestaetigungAusfuhrTyp
Return CType(SerializerXml.Deserialize(s), KopfDatenBestaetigungAusfuhrTyp)
End Function
#End Region
''' <summary>
''' Serializes current KopfDatenBestaetigungAusfuhrTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an KopfDatenBestaetigungAusfuhrTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output KopfDatenBestaetigungAusfuhrTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenBestaetigungAusfuhrTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KopfDatenBestaetigungAusfuhrTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenBestaetigungAusfuhrTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfDatenBestaetigungAusfuhrTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class TransaktionExportTyp
#Region "Private fields"
Private _iOPartner As String
Private _iODivision1 As String
Private _iODivision2 As String
Private _iODivision3 As String
Private _iOReferenz As String
Private _iODatumZeit As Date
Private _version As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IOPartner() As String
Get
Return Me._iOPartner
End Get
Set
Me._iOPartner = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IODivision1() As String
Get
Return Me._iODivision1
End Get
Set
Me._iODivision1 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IODivision2() As String
Get
Return Me._iODivision2
End Get
Set
Me._iODivision2 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IODivision3() As String
Get
Return Me._iODivision3
End Get
Set
Me._iODivision3 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IOReferenz() As String
Get
Return Me._iOReferenz
End Get
Set
Me._iOReferenz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IODatumZeit() As Date
Get
Return Me._iODatumZeit
End Get
Set
Me._iODatumZeit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger")>
Public Property Version() As String
Get
Return Me._version
End Get
Set
Me._version = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionExportTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize TransaktionExportTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes TransaktionExportTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output TransaktionExportTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionExportTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransaktionExportTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionExportTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionExportTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionExportTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionExportTyp
Return CType(SerializerXml.Deserialize(s), TransaktionExportTyp)
End Function
#End Region
''' <summary>
''' Serializes current TransaktionExportTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an TransaktionExportTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output TransaktionExportTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionExportTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransaktionExportTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionExportTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionExportTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<XmlIncludeAttribute(GetType(BestaetigungAusfuhrENTyp)),
System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class DatenaustauschExportTyp
#Region "Private fields"
Private _transaktion As TransaktionExportTyp
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._transaktion = New TransaktionExportTyp()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Transaktion() As TransaktionExportTyp
Get
Return Me._transaktion
End Get
Set
Me._transaktion = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschExportTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize DatenaustauschExportTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes DatenaustauschExportTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output DatenaustauschExportTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschExportTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DatenaustauschExportTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschExportTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschExportTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschExportTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschExportTyp
Return CType(SerializerXml.Deserialize(s), DatenaustauschExportTyp)
End Function
#End Region
''' <summary>
''' Serializes current DatenaustauschExportTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an DatenaustauschExportTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output DatenaustauschExportTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschExportTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DatenaustauschExportTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschExportTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschExportTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
End Namespace
#Enable Warning